[SERVICE] Die Questerstellung

quest horse_upgrade begin
	state start begin
		when 20349.chat."Kampfgaulprüfung" with horse.get_grade()==1 and horse.get_level()==10 begin
			say_title(mob_name(npc.get_race()))
			say("")
			if horse.is_dead() then
				say("Dein Pferd ist tot, so kannst du die")
				say("Prüfung nicht antreten.")
			elseif pc.get_level()<=34 then
				say("Dein Level ist zu niedrig um die Prüfung")
				say("antreten zu können. Komm mit Lv 35 wieder.")
			elseif horse.get_level()<=9 then
				say("Dein Pferd ist noch nicht ausreichend")
				say("trainiert, komm mit dem Pferdelevel 10")
				say("wieder.")
			elseif pc.count_item(50050)<1 then
				say("Um dein Pferd zu steigern")
				say("benötigst du eine bestimmte")
				say("Medallie. Nur auf der Pferdemedallie")
				say("können die Ergebnisse")
				say("der Qualifikationsprüfung eingetragen werden.")
				say("")
				set_state(need_item50050)
			elseif pc.count_item(50051)<1 then
				say("Ich brauche das Pferdebild als Beweis")
				say("das du mit einem Pferd umgehen kannst.")
				say("Komm mit einem Pferdebild wieder.")
			elseif horse.get_level()==10 and not horse.is_dead() and pc.count_item("50050")>=1 and pc.get_level()>=35 then
				say("Um ein Kampfgaul zu erhalten")
				say("musst du eine Qualifikationsprüfung bestehen.")
				say("In 30 Minuten musst du 100 Skorpionbogenschützen")
				say("oder Schlangenbogenschützen töten.")
				say("Nur dann bekommst du dein Kampfgaul!")
				say("Die Ergebnisse werden auf deiner Medallie")
				say("eingetragen.")
				say("")
				if select("Ich mach die Prüfung", "Später vielleicht")==1 then
					if pc.count_item(50050)>=1 then
						pc.remove_item(50050, 1)
						syschat("Pferdeprüfung gestartet!")
						set_state(test)
					end
				else
					say_title(mob_name(npc.get_race()))
					say("")
					say("Pferdequest fehlgeschlagen.")
				end
			else
				say_title(mob_name(npc.get_race()))
				say("")
				say("Pferdequest fehlgeschlagen.")
			end
		end
	end
	state need_item50050 begin
		when letter begin
			setskin(NOWINDOW)
			send_letter("Sammle eine Pferdemedallie")
			set_state(start)
		end
		when button or info begin
			say_title("Pferdemedallie!")
			say("")
			say("Du benötigst eine Pferdemedallie")
			say("um die Qualifikationsprüfung zu bestehen.")
			clear_letter()
			set_state(start)
		end
	end
	state test begin
		when letter begin
			if get_time()>=pc.getqf("limit_time") then
				clear_letter()
				set_state(failure)
			end
			q.set_counter("Verbleibende:", 100-pc.getqf("kill_count"))
		end
		when 2105.party_kill begin
			pc.setqf("kill_count", pc.getqf("kill_count")+1)
			q.set_counter("SkorpionSchlange", 100-pc.getqf("kill_count"))
			if get_time()>=pc.getqf("limit_time") then
				clear_letter()
				set_state(failure)
			end
		end
		when 2107.party_kill begin
			pc.setqf("kill_count", pc.getqf("kill_count")+1)
			q.set_counter("SkorpionSchlange", 100-pc.getqf("kill_count"))
			if get_time()>=pc.getqf("limit_time") then
				clear_letter()
				set_state(failure)
			end
		end
		when letter begin
			q.set_clock("Zeit:", pc.getqf("limit_time")-get_time())
		end
		when enter begin
			pc.setqf("limit_time", get_time()+30*60)
			pc.setqf("kill_count", 0)
		end
		when letter begin
			setskin(NOWINDOW)
			send_letter("Töte Schlangen und Skorpion!")
		end
		when button begin
			say_title("Töte Schlangen und Skorpion!")
			say("")
			say("Töte innerhalb 30 Minuten mindestens 100")
			say("Skorpionbogenschützen oder Schlangenbogenschützen")
			say("Kehre dann zum Stallburschen zurück.")
		end
		when 2105.party_kill with pc.getqf("kill_count") >= 100 and pc.getqf("kill_count") >= 100 and pc.getqf("limit_time")>=get_time() begin
			set_state(report)
			clear_letter()
			q.set_clock("Zeit", 0)
		end
		when 2107.party_kill with pc.getqf("kill_count") >= 100 and pc.getqf("kill_count") >= 100 and pc.getqf("limit_time")>=get_time() begin
			set_state(report)
			clear_letter()
			q.set_clock("Zeit", 0)
		end
		when 20349.chat."Geschafft" with horse.get_grade()==1 begin
			say_title(mob_name(npc.get_race()))
			say("")
			say("Du willst tatsächlich?")
			say("all die Mühe abbrechen?")
			if select("Ja","Nein")==2 then return end
			clear_letter()
			q.set_clock("Zeit", 0)
			set_state(failure)
		end
	end
	state report begin
		when letter begin
			setskin(NOWINDOW)
			send_letter("Qualifikation erfolgreich!")
		end
		when button or info begin
			say_title("Qualifikation erfolgreich!")
			say("Kehre zum Stallburschen zurück.")
		end
		when 20349.chat."Geschafft" with horse.get_grade()==1 begin
			say_title(mob_name(npc.get_race()))
			say("")
			say("Herzlichen Glückwunsch.")
			say("Du hast die Qualifikation bestanden.")
			say("Bis das Waffen-Pferdebuch fertig ist, musst du noch 1Tag warten.")
			say("Vergiss nicht, 500.000 Yang mitzubringen.")
			pc.setqf("make_time", get_time()+(60*60*number(6,12)))
			clear_letter()
			set_state(waiting)
		end
	end
	state waiting begin
		when letter begin
			setskin(NOWINDOW)
			send_letter("Warte auf das Waffen-Pferdebuch")
		end
		when button or info begin
			say_title("Warte auf das Waffen-Pferdebuch")
			say("Warte, bis der Stallbursche")
			say("das Waffen-Pferdebuch erstellt hat.")
		end
		when login with get_time()>=pc.getqf("make_time") begin
			clear_letter()
			set_state(buy)
		end
		when 20349.chat."Ist mein Pferd schon fertig?" with horse.get_grade()==1 begin
			say_title(mob_name(npc.get_race()))
			say("")
			say("Das Waffen-Pferdebuch ist noch")
			say("nicht fertig. Komme morgen wieder!")
			say("Vergesse aber nicht die 500.000 Yang!")
		end
	end
	state buy begin
		when letter begin
			setskin(NOWINDOW)
			send_letter("Das Waffen-Pferdebuch ist fertig!")
		end
		when button or info begin
			say_title("Das Waffen-Pferdebuch ist fertig")
			say("Hol es dir beim Stallburschen ab.")
			say("Es kostet 500.000 Yang.")
		end
		when 20349.chat."Waffen-Pferdebuch" with horse.get_grade()==1 and get_time()>=pc.getqf("make_time") begin
			say_title(mob_name(npc.get_race()))
			say("")
			say("Das Waffen-Pferdebuch ist fertig!")
			say("Möchtest du das Waffen-Pferdebuch kaufen?")
			local b=select("Ja", "Später", "Abbrechen")
			say_title(mob_name(npc.get_race()))
			say("")
			if 1==b then
				if pc.get_money()>=500000 then
					pc.change_money(-500000)
					horse.unride()
					horse.advance()
					horse.ride()
					pc.give_item2(50052, 1)
					say("Hier ist dein Kampfgaul")
					say("Du kannst es jederzeit")
					say("mit hilfe des Waffen-Pferdebuch rufen.")
					say("Denke daran dein Pferd zu füttern.")
					clear_letter()
					set_state(__COMPLETE__)
				else
					say("Du hast nicht genug Yang dabei.")
				end
			elseif 2==b then
				say("Ok wir reden später noch einmal.")
			elseif 3==b then
				say("Du willst tatsächlich?")
				say("all die Mühe abbrechen?")
				if select("Ja", "Nein")==2 then return end
				clear_letter()
				set_state(start)
			end
		end
	end
	state failure begin
		when letter begin
			setskin(NOWINDOW)
			send_letter("Qualifikation fehlgeschlagen!")
			set_state(start)
		end
		when button or info begin
			say_title("Qualifikation fehlgeschlagen!")
			say("")
			say("Du hast leider keine 100 Skorpionbogenschützen")
			say("oder Schlangenbogenschützen in den 30 Minuten getötet.")
			say("Schade.")
			say("Suche eine neue Pferdemedallie")
			say("und versuche es noch einmal.")
			clear_letter()
			set_state(start)
		end
	end
	state __COMPLETE__ begin
	end
end

quest verwandlungen begin
	state start begin
		when letter begin
			send_letter("Verwandeln")
		end
		when button or info begin
			say_title("Verwandeln")
			say("")
			say("In was möchtest du dich verwandeln?")
			mobs = { -- Hier die MobIds eintragen
						101, 101, 101, 101, 101, 
						101, 101, 101, 101, 101, 
						101, 101, 101, 101, 101, 
						101, 101, 101, 101, 101
					}
			namen = {} -- Diese Tabelle leer lassen!
			for i=1, table.getn(mobs), 1 do
				table.insert(namen, mob_name(mobs[i]))
			end
			table.insert(namen, "Abbrechen")
			s = select_table(namen)
			if s==table.getn(namen) then send_letter("Verwandeln") return end
			say_title(namen[s])
			say("")
			say("Möchtest du dich wirklich in")
			say("einen "..namen[s].." verwandeln?")
			if select("Ja","Nein")==2 then send_letter("Verwandeln") return end
			pc.polymorph(mobs[s], 60*60*24*365*60)
			send_letter("Verwandeln")
		end
	end
end

quest verwandlungen2 begin
	state start begin
		when letter begin
			send_letter("Verwandlung auflösen!")
		end
		when button or info begin
			say_title("Verwandlung auflösen!")
			say("")
			if pc.is_polymorphed() then
				say("Möchtest du die Verwandlung")
				say("wirklich auflösen?")
				if select("Ja","Nein")==2 then send_letter("Verwandlung auflösen!") return end
				pc.remove_polymorph()
				send_letter("Verwandlung auflösen!")
			else
				say("Du bist nicht verwandelt.")
				select("Ok")
				setskin(NOWINDOW)
				send_letter("Verwandlung auflösen!")
			end
		end
	end
end