Quest Hilfe

quest Forschunglv84 begin
	state start begin
	end
	state run begin
		when login or levelup with pc.get_level() >=84  begin
			set_state(information)
		end
	end

	state information begin
		when letter begin
			local v = find_npc_by_vnum(20094)
			if v != 0 then
				target.vid("__TARGET__", v, "Mia die Forscherin")
			end
			send_letter("Mia's Forschungen 1")
		end
		when button or info begin
			say_title("Mia's Forschungen 1")
			say("")
			say("Mia sucht dich!")
			say("Gehe zu ihr.")
			say("Sie sagte, das sie etwas Unmögliches für dich hat.")
			say("")
		end
		when __TARGET__.target.click or 20094.chat."Rote Äste" begin
			target.delete("__TARGET__")
			say("Mia:")
			say("Sehr schön! Ich freue mich dich zu sehen!")
			say("Ich habe eine neue Aufgabe für dich!")
			say("Du sollst in den roten Geisterwald gehen")
			say("und mir einige Items brignen.")
			say("Die Aufgabe ist schwer..")
			say("Sei vorsichtig..")
			wait()
			say("Mia:")
			say("Um die Objekte zu bekommen, musst")
			say("du noch schlimmere Gegner töten..")
			say("Ich brauche 130 Roter Geisterbaum Ast")
			say("Du bekommst sie im Roten Wald.")
			say("")
			say("Ich hoffe du hast Erfolg.")
			say("Wer soll diese zweite Aufgabe den lösen als Du?")
			say("Ich benötige diese Objekte wirklich dringend!")
			wait()
			say("Wenn ich es mit deiner Hilfe schaffe,")
			say("diese Roter Geisterbaum Äste zu bekommen")
			say("dann wirst du noch mehr Kraft bekommen!")
			say("Um nicht zu sagen, das du nahezu unbesiegbar")
			say("sein wirst. Also bitte beeil dich!")
			say("")
			set_state(go_to_disciple)
			pc.setqf("duration",0)  -- ¥i¥H¸Õ¸Õªº®É¶¡
			pc.setqf("collect_count",0)-- ¨ú±oªºª««~¼Æ¶q
			pc.setqf("drink_drug",0) --³Ü°g´bÃĤôªº¸Ü 1
		end
	end
	
	state go_to_disciple begin
		when letter begin
			send_letter("Mia's Forschungen 1")
		end
		when button or info begin
			say_title("Roter Geisterbaum Ast")
			say("")
			say("Mia möchte, dass du ihr")
			say("Roter Geisterbaum Äste besorgst.")
			say("Diese bekommst du im roten Wald.")
			say_item_vnum(30167)
			say_reward("Du hast".." "..pc.getqf("collect_count").." abgegeben.")
			say("")
		end
		when 71035.use begin --°g´bÃĤô
			if get_time() < pc.getqf("duration") then
				say("Elixier des Forschers")
				return
			end
			if pc.getqf("drink_drug")==1 then
				say("Erhöht die Abgabechance")
				return
			end
			if pc.count_item(30167)==0 then
				say("Mia:")
				say("Du musst mir schon einen Ast bringen,")
				say("Sonst kann ich nichts machen!")
				say("")
				return
			end
			
			item.remove()
			pc.setqf("drink_drug",1)
		end
		when 2314.kill or 2315.kill with pc.get_level() >= 84 and pc.get_level() <= 99 begin
			local s = number(1,33)
			if s == 1 and pc.count_item(30167)==0 then
				pc.give_item2(30167, 1)
			end
		end
		when 20094.chat."Roter Geisterbaum Ast" with pc.count_item(30167) >0 begin
			if get_time() > pc.getqf("duration") then
				say("Mia:")
				say("Vielen Dank, dass du mir")
				say("diesen Ast gebracht hast.")
				say("Warte einen Moment.")
				say("bis ich ihn untersucht habe.")
				say("")
				pc.remove_item(30167, 1)
				pc.setqf("duration",get_time()+1*1*1)
				wait()
				local pass_percent
				if pc.getqf("drink_drug")==0 then
					pass_percent=60
				else
					pass_percent=90
				end

				local s= number(1,100)
				if s<= pass_percent  then
					if pc.getqf("collect_count")< 129 then     --9-Juwelen der Weisheit
						local index =pc.getqf("collect_count")+1
						pc.setqf("collect_count",index)     --addiert wieviele abgegeben+1
						say("Mia:")
						say("Juhu! Dieser Ast ist wunderbar.")
						say("Du musst noch".." "..130-pc.getqf("collect_count").. " abgegeben!")
						say("Bitte bring mir mehr!")
						say("")
						pc.setqf("drink_drug",0)
						return
					end
					say("Mia:")
					say("Du hast mir alle 130 Äste gebracht!")
					say("Ich habe meine Untersuchungen")
					say("dieser Äste erfolgreich beendet.")
					say("Nun benötige ich allerdings noch")
					say("das Symbol des Waldes.")
					say("Du findest es im roten Wald beim Boss")
					say("Es wäre sehr nett, wenn du ihn mir bringst!")
					say("")
					pc.setqf("collect_count",0)
					pc.setqf("drink_drug",0)
					pc.setqf("duration",0)
					set_state(key_item)
					return
				else
					say("Mia:")
					say("Tut mir Leid, aber")
					say("dieser Ast ist zerbrochen,")
					say("so kann ich nicht arbeiten")
					say("hole mir sofort einen neuen.")
					say("")
					pc.setqf("drink_drug",0)
					return
				end
		else
			say("Mia:")
			say("Die Untersuchung des letzten")
			say("Astes ist noch nicht abgeschlossen!")
			say("Bitte komme später wieder!")
			say("Nun geh schon!")
			say("")
			return
		end
	end
end

	state key_item begin
		when letter begin
			send_letter("Symbol des Waldes")
			if pc.count_item(30224)>0 then
				local v = find_npc_by_vnum(20094)
				if v != 0 then
					target.vid("__TARGET__", v, "Mia die Forscherin")
				end
			end
		end
		when button or info begin
			if pc.count_item(30224) >0 then
				say_title("Symbol des Waldes!!")
				say("")
				say("Symbol des Waldes gefunden!")
				say("Gehe zu Mia.")
				say("")
				return
			end
			say_title("Symbol des Waldes")
			say("")
			say("Du hast mir alle 130 Äste")
			say("gebracht, vielen Dank dafür!")
			say("Ich brauche aber nun noch das Symbol des Waldes.")
			say_item_vnum(30224)---------- Beran-Setaou Seelenstein
			say("Das Symbol wird vom Geisterbaum-Lord")
			say("gehütet.")
			say("Erlege ihn!")
			say("")
		end
		when 2307.kill with pc.get_level() >= 84 and pc.get_level() <= 99 begin
			local s = number(1,3)
			if s == 1 and pc.count_item(30224)==0 then
				pc.give_item2(30224, 1)
				send_letter("Symbol des Waldes")
			end
		end
		when __TARGET__.target.click or 20094.chat."Symbol des Waldes" with pc.count_item(30224) > 0 begin
			target.delete("__TARGET__")
			say("Mia:")
			say("Du hast mir das")
			say("Symbol des Waldes gebracht! Vielen Dank!")
			say("Nun, ich habe etwas wichtiges herausgefunden!")
			say("Ich weiss, wie ich dir die")
			say("Unbesiegbare Kraft geben kann!")
			say("Nun, begib dich zu Baek-Go!")
			say("und hole dir deine Belohnung ab!")
			say("")
			pc.remove_item(30224, 1)
			set_state(__reward)
		end
	end

	state __reward begin
		when letter begin
			send_letter("Deine Belohnung")
			local v = find_npc_by_vnum(20018)
			if v != 0 then
				target.vid("__TARGET__", v, "Baek-Go")
			end
		end
		when button or info begin
			say_title("Der Weg zur Belohnung")
			say("Mia sagte, das")
			say("sie herausgefunden hat, wie")
			say("es mit den Kräften geht..")
			say("Ich hoffe, dass Baek-Go")
			say("Weiss, wie das geht!")
			say("")
		end
		when __TARGET__.target.click or 20018.chat."Belohnung von Mia" begin
			target.delete("__TARGET__")
			say("Baek-Go:")
			say("Du bist also der, tapfere")
			say("der die schweren Aufgaben von")
			say("Mia geschafft hat?")
			say("Beachtlich.. hier ist deine Belohnung.")
			say("")
			notice_all(""..pc.get_name().." hat soeben Mia's Forschungen 1")
			notice_all("erfolgreich abgeschlossen. Gratulation!!!!")
			say("Bitte wähle eine der folgenden Optionen aus!")
			local s = select("1200 Tp", "35 Verteidigung", "45 Angriffswert")
			if s == 1 then
				say_title("Du wählst 1200 Tp")
				say("Eine kluge Wahl hast du getroffen!")
				say("Viel Spass weiterhin auf fsds")
				say("")
				affect.add_collect(apply.MAX_HP, 1200, 60*60*24*365*60)
				end
			if s == 2 then
				say_title("Du wählst 35 Verteidigung")
				say("Eine kluge Wahl hast du getroffen!")
				say("Viel Spass weiterhin auf Lsdds")
				say("")
				affect.add_collect(apply.DEF_GRADE_BONUS, 35, 60*60*24*365*60)
				end
			if s == 3 then
				say_title("Du wählst 45 Angriffswert")
				say("Eine kluge Wahl hast du getroffen!")
				say("Viel Spass weiterhin auf blabl")
				say("")
				affect.add_collect(apply.ATT_GRADE_BONUS, 45, 60*60*24*365*60)
				end
			
			clear_letter()
			
			set_state(__complete)
		end
	end
	
	state __complete begin
	end
end