[SERVICE] Die Questkontrolle

	state Quest_Mitte begin
		when letter begin
			send_letter("Töte Sensenmänner")
		end
		when button or info begin
			say_title("Töte Sensenmänner")
			say("Uriel benötigt dringend seine wichtigen Daten!")
			say("Du bekommst sie von Sensenmännern.")
			say("")
			say_reward("Aufgabe: Töte Sensenmänner bis du wichtige Daten für Uriel bekommst")
		end
		when 1093.kill begin
			if pc.getqf("WichtigeDaten") < 1 then
				local rand=number(0, 100)
				if rand < 50 then
					chat("Du hast die wichtigen Daten für Uriel erhalten!")
					chat("PS: Du siehst sie nicht im Inventar.")
					set_state("Quest_Ende")
				end
			end
		end
	end

quest main_quest_6 begin
	state start begin
		when login or levelup or letter with pc.get_level() >= 65 begin
			set_state("Quest_Beginn")
		end
	end
	
	state Quest_Beginn begin
		when letter begin
			local v=find_npc_by_vnum(20011)
			if v==0 then
			else
				target.vid("__TARGET__", v, "Gehe zu Uriel")
			end
		end
		when letter begin
			send_letter("Gehe zu Uriel")
		end
		when button or info begin
			say_title("Gehe zu Uriel")
			say("Gehe zu Uriel!")
			say("Er braucht deine Hilfe.")
		end
		when __TARGET__.target.click begin
			target.delete("__TARGET__")
			say_title("Uriel:")
			say("Ich brauche deine Hilfe, tapferer Krieger!")
			say("Kürzlich war ich im Dämonenturm im Tal von Seungryong")
			say("Plötzlich kam ein Sensenmann hervor und raubte mir")
			say("wichtige Daten. Kannst du mir diese wiederholen?")
			local s=select("Ja", "Keine Lust")
			if s==1 then
				say("Danke viel mals!")
				say("Viel Glück!")
				say("")
				say_reward("Aufgabe: Bekomme die wichtigen Daten für Uriel von Sensenmännern")
				pc.setqf("WichtigeDaten", 0)
				set_state("Quest_Mitte")
			else
				say("Dann nicht...")
				restart_quest()
			end
		end
	end
	
	state Quest_Mitte begin
		when letter begin
			send_letter("Töte Sensenmänner")
		end
		when button or info begin
			say_title("Töte Sensenmänner")
			say("Uriel benötigt dringend seine wichtigen Daten!")
			say("Du bekommst sie von Sensenmännern.")
			say("")
			say_reward("Aufgabe: Töte Sensenmänner bis du wichtige Daten für Uriel bekommst")
		end
		when 1093.kill begin
			if pc.getqf("WichtigeDaten") < 1 then
				local rand=number(0, 100)
				if rand < 50 then
					chat("Du hast die wichtigen Daten für Uriel erhalten!")
					chat("PS: Du siehst sie nicht im Inventar.")
					set_state("Quest_Ende")
				end
			end
		end
	end
	
	state Quest_Ende begin
		when letter begin
			local v=find_npc_by_vnum(20011)
			if v==0 then
			else
				target.vid("__TARGET__", v, "Gehe zu Uriel")
			end
		end
		when letter begin
			send_letter("Töte Sensenmänner abgeschlossen")
		end
		when button or info begin
			say_title("Töte Sensenmänner - Abgeschlossen")
			say("Du hast die wichtigen Daten für Uriel erhalten.")
			say("Bringe sie auf dem schnellstem Weg zu Uriel zurück")
			say("und erhalte deine Belohnung!")
		end
		when __TARGET__.target.click begin
			say_title("Uriel:")
			say("Vielen, vielen Dank!")
			say("Dafür, dass du mir die wichtigen Daten zurückgebracht hast,")
			say("Werde ich dich belohnen.")
			say("")
			say_reward("Uriel gibt dir als Belohnung:")
			say_reward(" - Zufällige 66er Rüstung mit zufälligem + (bis +7)")
			say_reward(" - 4x Gegenstand verhexen")
			say_reward(" - 4x Gegenstand verzaubern")
			local armor_vnum
			local armor_rand=number(0, 3)
			if armor_rand==0 then
				armor_vnum="1129"
			elseif armor_rand==1 then
				armor_vnum="1149"
			elseif armor_rand==2 then
				armor_vnum="1169"
			elseif armor_rand==3 then
				armor_vnum="1189"
			end
			local plus_rand=number(0, 7)
			armor_vnum=armor_vnum+plus
			pc.give_item2(armor_vnum, 1)
			pc.give_item2(71051, 4)
			pc.give_item2(71052, 4)
			chat("Herzlichen Glückwunsch!")
			chat("Du hast " .. item.get_name(armor_vnum) .. " bekommen (".. armor_vnum .. ")!")
		end
	end
end

quest bossrun begin
state start begin

	when 70028.use begin
		say_title("Bossrun")
		say("Du willst also ein starker Krieger sein?")
		say(".....")
		say("Das ich nicht lache...")
		say("Sieh dich doch mal an...")
		say("Ist das deine Vorstellung von einem")
		say("".. pc.get_name() .." ?")
		wait()
		say("Nunja das tut nichts zur Sache!")
		say("Beweise mir nur dass du ein starker Krieger bist,")
		say("indem du einen Bossrun meisterst!")
		wait()
		say("Was das ist?")
		say("Das klärt sich nun von ganz allein...")
		say("Du wirst auf ein Gebiet teleportiert in dem nacheinander")
		say("Bossmobs spawnen! Eins nach dem anderen!")
		say("Sobald eins tot ist spawnt das nächste!")
		if pc . get_level ( ) < 85 then 
			say ("Also so lass ich dich nicht dahin!. Komme wieder, wenn du Level 85 bist!") 
		else
			say("Als erstes musst du Goldene Froesche")
			say("bezwingen! Dann geht es los!")
			say("Aber gebt Acht! Nur wer das Oberhaupt tötet")
			say("bekommt auch die Belohnung!")
				wait()
			say("Also gut! Was ist nun? Willst du es probieren?")
			
			local s = select("Aber klar!", "Ne ich bin ein Schisser")
			if s == 1 then
				pc.warp(930600 , 925800)
				pc.remove_item(70028,1)
			else
				return
			end
		end
	end
	when 11505.kill with pc.get_map_index()==202 begin
			local jump1 = number(1, 90)
			if jump1<=50 then
				chat("Du hattest Glück!")
				chat("Du wirst gleich weiter teleportiert!")
				timer("bossrun", 10)
				else
				chat("Du hattest leider Pech versuch es an dem nächsten")
				chat("Goldener Frosch in 5 minuten noch einmal!")
		end
	end
		when bossrun.timer begin
			d.setf("bossrunlevel", 1)
			d.new_jump_all(190, 9300, 9139)
		local vid = d.spawn_mob(691, 189, 28)
		d.set_unique("real", vid)
		d.notice("Los gehts!");
	end
	when 691.kill with pc.in_dungeon() begin
		if d.is_unique_dead("real") then
			d.setf("bossrunlevel", 2)
			timer("bossrun2", 10)
		end
	end
		when bossrun2.timer begin
			d.jump_all(9298, 9193)
		local vid = d.spawn_mob(692, 186, 74)
		d.set_unique("real", vid)
		d.notice("Los gehts!");
		end
	
	when 692.kill with pc.in_dungeon() begin
		if d.is_unique_dead("real") then
			d.setf("bossrunlevel", 3)
			timer("bossrun3", 10)
		end
	end
			when bossrun3.timer begin
			d.jump_all(9299, 9143)
		local vid = d.spawn_mob(1901, 190, 19)
		d.set_unique("real", vid)
		d.notice("Los gehts!");
		end

			when 1901.kill with pc.in_dungeon() begin
		if d.is_unique_dead("real") then
			d.setf("bossrunlevel", 4)
			timer("bossrun4", 10)
		end
		end	
			when bossrun4.timer begin
			d.jump_all(9241, 9137)
		local vid = d.spawn_mob(1903, 130, 27)
		d.set_unique("real", vid)
		d.notice("Los gehts!");
		end
		
		when 1903.kill with pc.in_dungeon() begin
		if d.is_unique_dead("real") then
			d.setf("bossrunlevel", 5)
			timer("bossrun5", 10)
		end
		end	
			when bossrun5.timer begin
			d.jump_all(9241, 9184)
		local vid = d.spawn_mob(2092, 127, 76)
		d.set_unique("real", vid)
		d.notice("Los gehts!");
		end
		
		when 2092.kill with pc.in_dungeon() begin
		if d.is_unique_dead("real") then
			d.setf("bossrunlevel", 6)
			timer("bossrun6", 10)
		end
		end	
			when bossrun6.timer begin
			d.jump_all(9179, 9189)
		local vid = d.spawn_mob(2093, 64, 75)
		d.set_unique("real", vid)
		d.notice("Los gehts!");
		end
		
		when 2093.kill with pc.in_dungeon() begin
		if d.is_unique_dead("real") then
			d.setf("bossrunlevel", 7)
			timer("bossrun7", 10)
		end
		end
		when bossrun7.timer begin
			d.jump_all(9295, 9183)
		local vid = d.spawn_mob(2206, 186, 80)
		d.set_unique("real", vid)
		d.notice("Los gehts!");
		end
		
		when 2206.kill with pc.in_dungeon() begin
		if d.is_unique_dead("real") then
			d.setf("bossrunlevel", 8)
			timer("bossrun8", 10)
		end
		end
		when bossrun8.timer begin
			d.jump_all(9173, 9193)
		local vid = d.spawn_mob(2207, 62, 82)
		d.set_unique("real", vid)
		d.notice("Los gehts!");
		end
		
		when 2207.kill with pc.in_dungeon() begin
		if d.is_unique_dead("real") then
			d.setf("bossrunlevel", 9)
			timer("bossrun9", 10)
		end
		end
		when bossrun9.timer begin
			d.jump_all(9171, 9255)
		local vid = d.spawn_mob(693, 58, 145)
		d.set_unique("real", vid)
		d.notice("Los gehts!");
		end
		
	when 693.kill with pc.in_dungeon() begin
		if d.is_unique_dead("real") then
			d.setf("bossrunlevel", 11)
			timer("bossrun10", 10)
		end
	end
		when bossrun10.timer begin
			d.jump_all(9239, 9255)
			local vid = d.spawn_mob(11506, 133, 144)
			d.set_unique("real", vid)
			d.notice("Los gehts!");
		end
		
	when 11506.kill with pc.in_dungeon() begin
	if d.is_unique_dead("real") then
		d.setf("bossrunlevel", 12)
		say_title("Belohnung")
		say_reward("Du erhälst 10.000.000 Yang")
		say_reward("Dein Pferd erreichte auch ein Level-Up!")
		d.notice("Ihr werdet in 40Sekunden herraus teleportiert!")
		pc.change_gold(10000000)
		horse.advance()
	    d.kill_all()
		timer("bossrun_escape_timer", 40)
	end
end
	when bossrun_escape_timer.timer begin
		d.setf("bossrunlevel", 0)
		warp_all_to_village()
		end
	end
end

quest bossrun begin
	state start begin
	
	when 70028.use begin
		say_title("Bossrun")
		say("Du willst also ein starker Krieger sein?")
		say(".....")
		say("Das ich nicht lache...")
		say("Sieh dich doch mal an...")
		say("Ist das deine Vorstellung von einem")
		say("".. pc.get_name() .." ?")
		wait()
		say("Nunja das tut nichts zur Sache!")
		say("Beweise mir nur dass du ein starker Krieger bist,")
		say("indem du einen Bossrun meisterst!")
		wait()
		say("Was das ist?")
		say("Das klärt sich nun von ganz allein...")
		say("Du wirst auf ein Gebiet teleportiert in dem nacheinander")
		say("Bossmobs spawnen! Eins nach dem anderen!")
		say("Sobald eins tot ist spawnt das nächste!")
		if pc . get_level ( ) < 85 then 
			say ("Also so lass ich dich nicht dahin!. Komme wieder, wenn du Level 85 bist!") 
		else
			say("Als erstes musst du Goldene Froesche")
			say("bezwingen! Dann geht es los!")
			say("Aber gebt Acht! Nur wer das Oberhaupt tötet")
			say("bekommt auch die Belohnung!")
				wait()
			say("Also gut! Was ist nun? Willst du es probieren?")
			
			local s = select("Aber klar!", "Ne ich bin ein Schisser")
			if s == 1 then
				pc.warp(930600 , 925800)
				pc.remove_item(70028,1)
			else
				return
			end
		end
	end
	
	when 11505.kill with pc.get_map_index()==202 begin
		local jump1 = number(1, 90)
		if jump1<=50 then
			chat("Du hattest Glück!")
			chat("Du wirst gleich weiter teleportiert!")
			timer("bossrun", 10)
		else
			chat("Du hattest leider Pech versuch es an dem nächsten")
			chat("Goldener Frosch in 5 minuten noch einmal!")
		end
	end
	
	when bossrun.timer begin
		d.setf("bossrunlevel", 1)
		d.new_jump_all(190, 9300, 9139)
		local vid = d.spawn_mob(691, 189, 28)
		d.set_unique("real", vid)
		d.notice("Los gehts!");
	end
	
	when 691.kill with pc.in_dungeon() begin
		if d.is_unique_dead("real") then
			d.setf("bossrunlevel", 2)
			timer("bossrun2", 10)
		end
	end
	
	when bossrun2.timer begin
		d.jump_all(9298, 9193)
		local vid = d.spawn_mob(692, 186, 74)
		d.set_unique("real", vid)
		d.notice("Los gehts!");
	end
	
	when 692.kill with pc.in_dungeon() begin
		if d.is_unique_dead("real") then
			d.setf("bossrunlevel", 3)
			timer("bossrun3", 10)
		end
	end
	when bossrun3.timer begin
		d.jump_all(9299, 9143)
		local vid = d.spawn_mob(1901, 190, 19)
		d.set_unique("real", vid)
		d.notice("Los gehts!");
	end

	when 1901.kill with pc.in_dungeon() begin
		if d.is_unique_dead("real") then
			d.setf("bossrunlevel", 4)
			timer("bossrun4", 10)
		end
	end	
	
	when bossrun4.timer begin
		d.jump_all(9241, 9137)
		local vid = d.spawn_mob(1903, 130, 27)
		d.set_unique("real", vid)
		d.notice("Los gehts!");
	end
		
	when 1903.kill with pc.in_dungeon() begin
		if d.is_unique_dead("real") then
			d.setf("bossrunlevel", 5)
			timer("bossrun5", 10)
		end
	end	
	
	when bossrun5.timer begin
		d.jump_all(9241, 9184)
		local vid = d.spawn_mob(2092, 127, 76)
		d.set_unique("real", vid)
		d.notice("Los gehts!");
	end
		
	when 2092.kill with pc.in_dungeon() begin
		if d.is_unique_dead("real") then
			d.setf("bossrunlevel", 6)
			timer("bossrun6", 10)
		end
	end	
	
	when bossrun6.timer begin
		d.jump_all(9179, 9189)
		local vid = d.spawn_mob(2093, 64, 75)
		d.set_unique("real", vid)
		d.notice("Los gehts!");
	end
		
	when 2093.kill with pc.in_dungeon() begin
		if d.is_unique_dead("real") then
			d.setf("bossrunlevel", 7)
			timer("bossrun7", 10)
		end
	end
	
	when bossrun7.timer begin
		d.jump_all(9295, 9183)
		local vid = d.spawn_mob(2206, 186, 80)
		d.set_unique("real", vid)
		d.notice("Los gehts!");
	end
		
	when 2206.kill with pc.in_dungeon() begin
		if d.is_unique_dead("real") then
			d.setf("bossrunlevel", 8)
			timer("bossrun8", 10)
		end
	end
	
	when bossrun8.timer begin
		d.jump_all(9173, 9193)
		local vid = d.spawn_mob(2207, 62, 82)
		d.set_unique("real", vid)
		d.notice("Los gehts!");
	end
		
	when 2207.kill with pc.in_dungeon() begin
		if d.is_unique_dead("real") then
			d.setf("bossrunlevel", 9)
			timer("bossrun9", 10)
		end
	end
	
	when bossrun9.timer begin
		d.jump_all(9171, 9255)
		local vid = d.spawn_mob(693, 58, 145)
		d.set_unique("real", vid)
		d.notice("Los gehts!");
	end
		
	when 693.kill with pc.in_dungeon() begin
		if d.is_unique_dead("real") then
			d.setf("bossrunlevel", 11)
			timer("bossrun10", 10)
		end
	end
	
	when bossrun10.timer begin
		d.jump_all(9239, 9255)
		local vid = d.spawn_mob(11506, 133, 144)
		d.set_unique("real", vid)
		d.notice("Los gehts!");
	end
		
	when 11506.kill with pc.in_dungeon() begin
		if d.is_unique_dead("real") then
			d.setf("bossrunlevel", 12)
			say_title("Belohnung")
			say_reward("Du erhälst 10.000.000 Yang")
			say_reward("Dein Pferd erreichte auch ein Level-Up!")
			d.notice("Ihr werdet in 40Sekunden herraus teleportiert!")
			pc.change_gold(10000000)
			horse.advance()
			d.kill_all()
			timer("bossrun_escape_timer", 40)
		end
	end
	
	when bossrun_escape_timer.timer begin
		d.setf("bossrunlevel", 0)
		warp_all_to_village()
		end
	end
	
	end
end