Problem mit Bioquests

----------------------------------------------------
--COLLECT QUEST_lv30
--METIN2 Collect Quest
----------------------------------------------------
quest collect_quest_lv30 begin
state start begin
when login or levelup with pc.level >= 30 and pc.level <= 90 begin
set_state(information)
end
end

state information begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Biologe Chaegirab")
end
send_letter("Die Forschung des Biologen")
end

when button or info begin
say_title("Die Forschung des Biologen")
say("")
say("Biologe Chaegirab, der Lehrling")
say("Uriels lässt nach dir suchen.")
say("Gehe zu ihm und schau was du für ihn tun kannst.")
say("")
end

when __TARGET__.target.click begin
target.delete("__TARGET__")
say_title("Biologe Chaegirab")
say("")
say("Oh..")

say("Schön, dass du gekommen bist..")
say("Ich habe eine wichtige aufgabe für dich!")
say("")
say("Beim letzten mal, als ich deine Hilfe")
say("brauchte ging es nur um Tue-Pilze..")
say("Diesmal ist es aber wichtiger!")
wait()
say_title("Biologe Chaegirab")
say("")
say("Ich habe von meinem Ausbilder")
say("Uriel erfahren, dass die Schwarzen Orks")
say("einen Stoff in ihren Zähnen haben können,")
say("der die anderen Monster in der Umgebung,")
say("durch ihren stinkenden Geruch aggressiv")
say("machen können.")
say("")
wait()
say("Biologe Chaegirab")
say("")
say("Ich möchte herausfinden, was dieser")
say("Stoff genau ist und warum er die Monster")
say("so aggressiv macht. Vielleicht könnte man")
say("dann sogar ein Gegenmittel entwickeln, das")
say("die Monster wieder beruigt.")
say("")
set_state(go_to_disciple)
pc.setqf("duration",0) -- ¥i¥H¸Õ¸Õªº®É¶¡
pc.setqf("collect_count",0) -- ¡X¨ú±o¹Lªºª««~¼Æ¶q
pc.setqf("drink_drug",0) -- ¡X ³Ü°g´bÃĤôªº¸Ü 1
end
end

state go_to_disciple begin
when letter begin
send_letter("Die Forschung des Biologen")

end
when button or info begin
say_title("Zähne aus dem Orktal")
--- l
say("")
say("Der Biologe Caegirab benötigt für seine")
say("Untersuchungen Backenzähne der Orks aus dem Tal")
say("von Seungryong.")
say("Bringe ihm einen Zahn nach dem anderen, damit er")
say("die einzelnen Exemplare eingehend untersuchen")
say("kann.")
say("")
say_item_vnum(30006)
say_reward("Bisher hast du".." "..pc.getqf("collect_count").."Orkzähne gefunden.")
say("")
end

when 71035.use begin --°g´bÃĤô
if get_time() < pc.getqf("duration") then
say("")
say("ÁÙ¤£¥i¥H¨Ï¥Î°g´bÃĤô")
say("")
return
end
if pc.getqf("drink_drug")==1 then
say("")
say("¤w¸g¨Ï¥Î¤F1¦¸")
say("")

return
end
if pc.count_item(30006)==0 then
say_title("Biologe Chaegirab")
say("¥ý§ä¨ì°*¤ú¥H«á, ")
say("¤~¨Ï¥Î°g´bÃĤô¤]¤£·|¦³°ÝÃD.")
say("")
return
end
item.remove()
pc.setqf("drink_drug",1)
end




when 20084.chat."Orkzähne" with pc.count_item(30006) >0 begin
if get_time() > pc.getqf("duration") then
say_title("Biologe Chaegirab")
say("")
say("Oh!!! Du hast einen...")
say("dann gib mal her und lass mich sehen,")
say("ob ich an diesem Exemplar forschen kann.")
say("")
pc.remove_item("30006", 1)
pc.setqf("duration",get_time()+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")< 9 then --10*Ó¥H¤U
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --¨ú±o¤@* +1
say(pass_percent)
say_title("Biologe Chaegirab")
say("Oh dieses Exemplar ist gut geeignet.")
say("Es wäre schön wenn du mir")
say("noch".." "..10-pc.getqf("collect_count").. "bringen würdest.")
say("³Â·Ð±z¤F~!")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
say_title("Biologe Chaegirab")
say("")
say("Gut gemacht!")
say("Du hast alle Orkzähne für mich gesammelt.")
say("So konnte ich den Stoff in den Zähnen")
say("untersuchen, und herausfinden, warum er")
say("die Monster in der Nähe aggressiv macht.")
say("")
wait()
say("Um jedoch ein Gegenmittel herzustellen,")
say("Benötige ich noch ein weiteres Item...")
say("Den Jinunggyis Seelenstein.")
say("Bitte besorge ihn mir.")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(key_item)
return
else
say_title("Biologe Chaegirab")
say("Oh dieser Zahn ist in nicht so")
say("gutem Zustand... Damt kann ich leider")
say("nicht forschen..")
say("Bitte hole mir einen neuen.")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
else
say_title("Biologe Chaegirab")
say("Entschuldigung aber ich habe")
say("meine Forschungen noch nicht")
say("abschließen können. Bitte")
say("komm später wieder.")
say("")
return
end

end
end


state key_item begin
when letter begin
send_letter("Die Forschung des Biologen")

if pc.count_item(30220)>0 then
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Biologe Chaegirab")
end
end

end
when button or info begin
if pc.count_item(30220) >0 then
say_title("Jinunggyis Seelenstein")
say("")
--- l
say("Du hast den Seelenstein.")
say("Bringe ihn zum Biologen.")
say("")
return
end
say_title("Jinunggyis Seelenstein")
say("")
say("Der Biologe brauch für das Gegenmittel")
say("noch einen weiteren Gegenstand.")
say("Den Jinunggyis Seelenstein..")
say("")
say_item_vnum(30220)----------- ¯u°*±ÚÆF»î¥Û
say("Du bekokmmst ihn von den")
say("Stolzen Ork Generälen,")
say("den Schwarzen Orks und den")
say("Schwarzen ork Riesen.")
say("")
end



when 635.kill or
636.kill or
637.kill begin
local s = number(1, 500)
if s == 1 and pc.count_item(30220)==0 then
pc.give_item2(30220, 1)
send_letter("Jinunggyis Seelenstein erhalten")
end
end

when __TARGET__.target.click or 20084.chat."Jinunggyis Seelenstein" with pc.count_item(30220) > 0 begin
target.delete("__TARGET__")
say_title("Biologe Chaegirab")
say("")
say("Super!")
say("Danke! Nun kann ich das Gegenmittel")
say("herstellen und die Monster wieder")
say("friedlich stimmen. Hab vielen dank.")
say("")
say("Hier hast du ein Geheimrezept. ")
say("Baek-Go kann dir zeigen wie du es benutzt.")
say("")
pc.remove_item(30220,1)
set_state(__reward__)
end

end

state __reward__ begin
when letter begin
send_letter("Finde Baek-Go")

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("Finde Baek-Go")
--- l
say("Der Biologe Chaegirab hat dir ein")
say("Geheimrezept gegeben. Baek-Go kann")
say("dir zeigen, wie du dich damit")
say("stärken kannst.")
say("Also finde ihn.")
say("")
end

when __TARGET__.target.click or
20018.chat."Finde Baek-Go" begin
target.delete("__TARGET__")
say("Baek-Go:")
say("Sieh mal an,")
say("ist das ein Geheimrezept von Chaegirab, dem")
say("Biologen? Hm, das wird deine")
say("Bewegungsgeschwindigkeit um 10 erhöhen.")
say("")
say("Hier, dieses Holzkästchen ist für dich. Bewahre")
say("es sorgfältig auf.")
say_reward("Als Belohnung für die Erfüllung")
say_reward("der Bitte Caegirabs erhöht")
say_reward("sich deine Bewegungsgeschwindigkeit")
say_reward("dauerhaft um 10 Punkte.")

affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60) --60¦~

clear_letter()
set_quest_state("collect_quest_lv40", "run")
set_state(__complete__)
end

end


state __complete__ begin
end
end

----------------------------------------------------
--COLLECT QUEST_lv40
--METIN2 Collect Quest
----------------------------------------------------
quest collect_quest_lv40 begin
state start begin
end
state run begin
when login or levelup with pc.level >= 40 and pc.level <= 90 begin
set_state(information)
end
end

state information begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Biologenquest")
end
send_letter("Die Forschung des Biologen 2")
end

when button or info begin
say_title("Die Forschung des Biologen 2")
say("")
say("Der Biologe sucht dich!")
say("Gehe zu ihm.")
say("Er sagte, du sollst etwas für ihn finden.")
say("")
end

when __TARGET__.target.click or
20084.chat."Fluchbücher" begin
target.delete("__TARGET__")
say("Biologe:")
--- l
say("Super, dass du mir wieder hilfst...")
say("Sehr gut...")
say("Du kennst mich ja schon...")
say("Ich habe die Orkzähne fertig untersucht...")
say("Nun habe ich neue Objekte gefunden...")
say("Die ich gerne untersuchen würde!")
say("Kannst du mir dabei helfen?")
wait()
say("Biologe:")
say("Wenn du mir hilfst werde ich dir eine")
say("Belohnung eben, die sehr hilfreich ist. ")
say("Ich würde ja selber gehen, aber")
say("Ich habe zuviel zu tun...")
say("Wäre echt nett, wenn du für mich")
say("Das erledigen könntest.")
wait()
say("Achso ich muss dir ja noch sagen")
say("Wodrum es sich handelt.")
say("Ich möchte die Fluchbücher untersuchen.")
say("Ich brauche 15 Stück von ihnen.")
say("Erst dann kann ich sie genau untersuchen..")
say("Die Bücher sind aber sehr alt...")
say("Manchmal zerfallen sie einfach!")
say("")
set_state(go_to_disciple)
pc.setqf("duration",0) -- Dauer der Quest
pc.setqf("collect_count",0)---- Fortschritt der quest
pc.setqf("drink_drug",0) ------¡V ³Ü°g´bÃĤôªº¸Ü 1
end
end

state go_to_disciple begin
when letter begin
send_letter("Spezialauftrag sammle Fluchsammlungen!")

end
when button or info begin
say_title("Fluchsammlungen")
--- l
say("")
say("Der Biologe gab mir den Auftrag")
say("15 Fluchsammlungen zu sammeln! ")
say("Du bekommst sie von Dunkle Peinigern")
say("und von hohen Peinigern.")
say("Du musst sie dem Biologen geben.")
say("")
say_item_vnum(30047)
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("")
say("ÁÙ¤£¥i¥H¨Ï¥Î°g´bÃĤô")
say("")
return
end
if pc.getqf("drink_drug")==1 then
say("")
say("¤w¸g¨Ï¥Î¤F1¦¸")
say("")
return
end
if pc.count_item(30047)==0 then
say("Du hast keine Fluchsammlung!")
say("Bitte komm wieder wenn")
say("Du eine Fluchsammlung für mich hast!")
say("")
return
end

item.remove()
pc.setqf("drink_drug",1)
end




when 20084.chat."Fluchsammlungen!" with pc.count_item(30047) >0 begin
if get_time() > pc.getqf("duration") then
say("Kleinen Moment..")
--- l
say("Vielen Dank,")
say("Ich überprüf die Sammlung schnell,")
say("Ob diese Sammlung in Ordnung ist...")
say("")
pc.remove_item(30047, 1)
pc.setqf("duration",get_time()+1) *Ó¤p®É
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")< 14 then --15 Fluchsammlungen
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) -- ¨ú±o¤F¤@*Ó+1
say("Biologe:")
say("Sehr schön diese Sammlung ist on Ordnung!")
say("Du hast bis jetzt".." "..15-pc.getqf("collect_count").. " abgegeben!")
say("Bring mir bitte mehr!")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
say("Biologe:")
say("Du hast mir alle 15 Stück gebracht!!")
say("Nun.. ich habe noch eine Bitte")
say("An dich und zwar:")
say("Benötige ich noch den Tempel Seelenstein")
say("Den bekommst du von stolzen dunkl. Fanatikern")
say("Oder stolze dunkle Kämpfer/Oberst.")
say("")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(key_item)
return
else
say("Biologe:")
say("Sorry, aber diese Sammlung ist")
say("bei meinen Untersuchungen zerfallen!")
say("Tut mir Leid, aber")
say("Bringe mir eine Neue!")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
else
say("Biologe:")
say("Es tut mir leid....")
say("¤§Ich habe die letzte Untersuchung noch nicht,")
say("Beendet, warte bitte!")
say("")
return
end

end
end


state key_item begin
when letter begin
send_letter("Tempel Seelenstein")

if pc.count_item(30221)>0 then
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Bioquest")
end
end

end
when button or info begin
if pc.count_item(30221) >0 then
say_title("Tempel Seelenstein")
say("")
--- l
say("Der Biologe braucht deine Hilfe!")
say("Gehe zu ihr.")
say("")
return
end

say_title("Tempel Seelenstein")
say("")
--- l
say("Du hast alle 15 Sammlungen abgegeben!")
say("Nun brauche ich den Tempel Seelenstein.")
say("Bitte hole ihn mir!")
say("")
say_item_vnum(30221)----------
say("Der legendäre Stein,")
say("Der die Seele der")
say("Tempelanhänger enthält.")
end




when 2032.kill or
2033.kill or
2034.kill or
2035.kill begin
local s = number(1, 500)
if s == 1 and pc.count_item(30221)==0 then
pc.give_item2(30221, 1)
send_letter("Tempel Seelenstein")
end
end


when __TARGET__.target.click or
20084.chat."Tempel Seelenstein" with pc.count_item(30221) > 0 begin
target.delete("__TARGET__")
say("Biologe:")
say("Du hast hart gekämpft...")
say("Dafür verschneller ich dich..")
say("Ich gebe dir die Info für Baek-Go")
say("Er wird dir die Belohnung geben...")
say("Danke für deine Hilfe..")
say("Wenn ich noch eine Aufgabe für dich habe")
say("Werde ich dir einen Brief zukommen lassen!")
say("")
pc.remove_item(30221,1)
set_state(__reward)
end

end

state __reward begin
when letter begin
send_letter("Infos des Biologen")

local v = find_npc_by_vnum(20018)
if v != 0 then
target.vid("__TARGET__", v, "Doktor")
end

end
when button or info begin
say_title("Zugang zu den Infos des Biologen!")
--- l
say("Du hast die Aufgabe fast abgeschlossen.")
say("Jetzt musst du nur noch deine Belohhnung")
say("Bei Baek-Go abholen!")
say("Gehe zu ihm!")
say("Er ist in Map1.")
say("")
end

when __TARGET__.target.click or
20018.chat."Belohnung des Biologen" begin
target.delete("__TARGET__")
say("Baek-Go:")
say("Ich sehe..")
say("Der Biologe hat dich zu mir geschickt.")
say("Hier ist deine Belohnung:")
say("Angriffsgeschwindigkeit +5% (Dauerhaft)")
say("")
say_reward("Du hast dem Biologen geholfen")
say_reward("Deine Belohnung ist:")
say_reward("Angriffsgeschwindigkeit +5%")

affect.add_collect(apply.ATT_SPEED,5,60*60*24*365* 60) --- ¡V60¦~

clear_letter()
set_quest_state("collect_quest_lv50", "run")
set_state(__complete)
end

end


state __complete begin
end
end

----------------------------------------------------
--COLLECT QUEST_lv50
--METIN2 Collect Quest
----------------------------------------------------
quest collect_quest_lv50 begin
state start begin
end
state run begin
when login or levelup with pc.level >= 50 and pc.level <= 90 begin
set_state(information)
end
end

state information begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Bioquest")
end
send_letter("Die Forschung des Biologen 3")
end

when button or info begin
say_title("Die Forschung des Biologen 3")
say("")
say("Der Biologe sucht dich!")
say("Gehe zu ih,.")
say("Er sagte, du sollst etwas für ihn finden.")
say("")
end

when __TARGET__.target.click or
20084.chat."Dämonenandenken" begin
target.delete("__TARGET__")
say("Biologe:")
--- l
say("Super, dass du mir wieder hilfst..")
say("Ich freue mich immer, wenn du mir hilfst...")
say("Du kennst ja schon die Dinge, die ich tue...")
say("Also ich hab wieder neue Objekte gefunden...")
say("Dieses mal habe ich mit den Dämonen befasst...")
say("Und zwar suche ich nun Dämonenandenken.")
say("Hilf mir dabei!")
wait()
say("Biologe:")
say("Ich gebe dir natürlich wieder eine")
say("Nützliche Belohnung wenn du mir")
say("Hilfst!")
say("Ich habe aber wieder viel zu tun...")
say("Erledgist du es wieder für mich?")
wait()
say("Biologe:")
say("Ich benötige wie schon gesagt")
say("Dämonenandenken.")
say("Du bekommst sie von Dämonenbogis,")
say("Dämonenspeerkämpfer, Dämonenschamanen")
say("und Dämonensoldaten. Ich brauche 15")
say("Stück davon!")
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("Spezialauftrag sammle Dämonenandenken!")

end
when button or info begin
say_title("Dämonenandenken")
--- l
say("")
say("Der Biologe sagte ich soll")
say("Ihr 15 Dämonenandenken sammeln!")
say("Ich bekomme sie von den meisten im DT.")
say("Auf Ebene 1-3.")
say("")
say_item_vnum(30015)
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("")
say("ÁÙ¤£¥i¥H¨Ï¥Î°g´bÃĤô")
say("")
return
end
if pc.getqf("drink_drug")==1 then
say("")
say("¤w¸g¨Ï¥Î¤F1¦¸")
say("")
return
end
if pc.count_item(30015)==0 then
say("Biologe:")
say("Du musst schon ein Andenken dabei")
say("Haben um es mir zu geben.")
say("")
return
end

item.remove()
pc.setqf("drink_drug",1)
end



when 20084.chat."Dämonenandenken" with pc.count_item(30015) >0 begin
if get_time() > pc.getqf("duration") then
say("Geb' mir nen Moment")
--- l
say("Vielen Dank,")
say("Ich überprüfe das Andenken eben,")
say("Ob das Andenken in Ordnung ist.")
say("")
pc.remove_item(30015, 1)
pc.setqf("duration",get_time()+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")< 14 then --15 Dämonenandenken
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --¨ú±o¤@*Ó®É+1
say("Biologe:")
say("Sehr gut! Dieses Andenken ist gut.")
say("Du hast bis jetzt".." "..15-pc.getqf("collect_count").. "abgegeben!")
say("Bring mir bitte mehr!")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
say("Biologe:")
say("Du hast mir alle 15 Stück gebracht!")
say("Ich habe aber noch eine Bitte!")
say("Und zwar:")
say("Benötige ich wieder einen Seelenstein.")
say("Es handelt sich um Sagyis Seelenstein.")
say("")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(key_item)
return
else
say("Biologe:")
say("Sorry, aber dieses Andenken ist")
say("Mir bei den Untersuchungen abhanden")
say("gekommen, ein Neues bitte!")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
else
say("Biologe:")
say("Tut mir leid..")
say("Ich habe die Untersuchung noch nicht ")
say("abgeschlossen, warte bitte.")
say("")
return
end

end
end


state key_item begin
when letter begin
send_letter("Sagyis Seelenstein")

if pc.count_item(30222)>0 then
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Bioquest")
end
end

end
when button or info begin
if pc.count_item(30222) >0 then
say_title("Sagyis Seelenstein")
say("")
--- l
say("Der Biologe sucht dich.")
say("Gehe zu ihr.")
say("")
return
end

say_title("Sagyis Seelenstein")
say("")
--- l
say("Du hast mir alle Andenken gebracht,")
say("Nun braucne ich einen Seelenstein:")
say("Sagyis Seelenstein!")
say_item_vnum(30222)----------Sagyis Seelenstein
say("Der legendäre Stein, der die")
say("Seele der Sagyis Adligen enthält.")
say("")
end


when 1031.kill or
1032.kill or
1033.kill or
1034.kill begin
local s = number(1, 500)
if s == 1 and pc.count_item(30222)==0 then
pc.give_item2(30222, 1)
send_letter("Sagyis Seelenstein")
end
end




when __TARGET__.target.click or
20084.chat."Sagyis Seelenstein" with pc.count_item(30222) > 0 begin
target.delete("__TARGET__")
say("Biologe:")
say("Du hast hart gekämpft..")
say("Dafür verstärke ich dich..")
say("Ich gebe dir die Infos für Baek-Go")
say("Er wird dir die Belohnung geben...")
say("Danke für deine Hilfe!")
say("Wenn ich wieder was für dich habe,")
say("Dir einen Brief zukommen lassen!")
say("")
pc.remove_item(30222,1)
set_state(__reward)
end

end

state __reward begin
when letter begin
send_letter("Infos des Biologen")

local v = find_npc_by_vnum(20018)
if v != 0 then
target.vid("__TARGET__", v, "Doktor")
end

end
when button or info begin
say_title("Zugang zu den Infos des Biologen!")
--- l
say("Die Quest ist nun fast beendet.")
say("Du musst dir nurnoch deine")
say("Belohnung abholen: ")
say("+60 Verteidigung")
say("Jetzt aber schnell zu Baek-Go.")
say("")
end

when __TARGET__.target.click or
20018.chat." ¬Ý¬ÝÃĤè¦n¶Ü" begin
target.delete("__TARGET__")
say("Baek-Go:")
say("Ich sehe..")
say("Der Biologe hat dich zu mir geschickt?")
say("Achso...damit ich dir deine Belohnung")
say("Gebe, hier hast du sie.")
say("")
say_reward("Auftrag des Biologen erfolgreich")
say_reward("Beendet du erhälst deine Belohnung.")
say_reward("+60 Verteidigung, daurhaft.")
say("")
affect.add_collect(apply.DEF_GRADE_BONUS,60,60*60* 24*365*60) -----¡V60¦~


clear_letter()
set_quest_state("collect_quest_lv60", "run")
set_state(__complete)
end

end


state __complete begin
end
end

----------------------------------------------------
--COLLECT QUEST_lv60
--METIN2 Collect Quest
----------------------------------------------------
quest collect_quest_lv60 begin
state start begin
end
state run begin
when login or levelup with pc.level >= 60 and pc.level <= 90 begin
set_state(information)
end
end

state information begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Bioquest")
end
send_letter("Die Forschung des Biologen 4")
end

when button or info begin
say_title("Die Forschung des Biologen 4")
say("")
say("Der Biologe sucht dich!")
say("Gehe zu ihr.")
say("Er sagte, du sollst etwas für ihn tun.")
say("")
end

when __TARGET__.target.click or
20084.chat."Eiskugeln" begin
target.delete("__TARGET__")
say("Biologe:")
--- l
say("Ich finde es toll, wie gut du")
say("Mich immer unterstüzt.")
say("Nun brauche ich wieder deine")
say("Hilfe...Und zwar habe ich")
say("Dieses Mal etwas auf dem Berg")
say("Sohan gefunden! Es wäre nett,")
say("Wenn du mir dabei helfen könntest.")
wait()
say("Biologe:")
say("Wenn du mir ein weiteres Mal")
say("Helfen willst, dann werde ich")
say("Dich mit einem zauber verstärken",)
say("Der dir Stärke gibt!")
say("Leider bin ich unerfahren und schwach,")
say("Sonst wäre ich selber auf die Suche nach")
say("Eiskugeln gegangen, aber Eisgolems beschützen sie...")
say("")
wait()
say("Biologe:")
say("Wie schon angesprochen sind die Eiskugeln")
say("In der Nähe von Eisgolems...")
say("Um genauer zu sein, kommen die")
say("Eiskugeln von den Eisgolems, d.h. du musst")
say("Ins Eisland.. Ich benötige 20 Stück.")
say("Bitte beeil dich, damit sie nicht schmelzen.")
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("Spezialauftrag sammle Eiskugeln!")

end
when button or info begin
say_title("Eiskugeln")
--- l
say("")
say("Der Biologe gab mir den Auftrag")
say("Ihr 20 Eiskugeln zu holen.")
say("Er sagte, ich bekomme sie von")
say("Den Eisgolems...")
say("Mal sehen, vielleicht geben mir")
say("Die Eisgolems die Dämonenandenken.")
say_reward("Besorge 20 Eiskugeln von den Eisgolems.")
say_item_vnum(30050)
say_reward("Du hast".." "..pc.getqf("collect_count").."abgegeben")
end

when 71035.use begin -- °g´bÃĤô
if get_time() < pc.getqf("duration") then
say("ÁÙ¤£¥i¥H¨Ï¥Î°g´bÃĤô")
return
end
if pc.getqf("drink_drug")==1 then
say("¤w¸g¨Ï¥Î¤F1¦¸")
return
end
if pc.count_item(30050)==0 then
say("Biologe:")
say("Du musst schon eine Eiskugel")
say("Dabei haben, sonst geht's nicht.")
say("")
return
end

item.remove()
pc.setqf("drink_drug",1)
end




when 20084.chat."Eiskugeln" with pc.count_item(30050) >0 begin
if get_time() > pc.getqf("duration") then
say("Biologe:")
--- l
say("Danke!!")
say("Ich werde die Kugel jetzt")
say("Überprüfen, dann sage ich dir")
say("Ob ich sie untersuchen kann.")
say("")
pc.remove_item(30050, 1)
pc.setqf("duration",get_time()+1)¤p®É
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")< 19 then --20*Eiskugeln
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --¨ú±o¤@*Ó®É+1
say("Biologe:")
say("Super, diese Eiskugel ist perfekt!")
say("Du hast bis jetzt".." "..20-pc.getqf("collect_count").. "abgegeben!")
say("Bring mir bitte mehr!")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
say("Biologe:")
say("Sehr gut, du hast alle gesammelt!")
say("Ich konnte meine Untersuchungen,")
say("Erfolgreich beeden!!")
say("Nun benötige ich aber wieder einen Seelenstein.")
say("Aurtumryus Seelenstein")
say("")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(key_item)
return
else
say("Biologe:")
say("Es tut mir Leid, aber")
say("Diese Eiskugel ist grade geschmolzen.")
say("Bring mir bitte eine Neue.")
say("Mach schnell!")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
else
say("Biologe:")
say("Tut mir Leid...")
say("Aber ich habe die Untersuchungen an")
say("der letzten Kugel noch nicht abgeschlossen.")
say("")
return
end

end
end


state key_item begin
when letter begin
send_letter("Aurtumryus Seelenstein")

if pc.count_item(30223)>0 then
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Bioquest")
end
end

end
when button or info begin
if pc.count_item(30223) >0 then
say_title("Aurtumryus Seelenstein")
say("")
--- l
say("Der Biologe sucht dich.)
say("Gehe zu ihr.")
say("")
return
end

say_title("Aurtumryus Seelenstein")
say("")
--- l
say("Du hast mir nun alle Kugel gebracht und")
say("Ich habe sie untersucht.")
say("Bring mir bitte Aurtumryus Seelenstein.")
say_item_vnum(30223)---------- Aurtumryus Seelenstein
say("Der Legendäre Stein,")
say("Der die Seele der Aurtumryus Adligen enthält.")
say("")
end



when 1101.kill or
1102.kill or
1103.kill or
1104.kill or
1105.kill or
1106.kill or
1107.kill begin
local s = number(1, 500)
if s == 1 and pc.count_item(30223)==0 then
pc.give_item2(30223, 1)
send_letter("Aurtumryus Seelenstein")
end
end



when __TARGET__.target.click or
20084.chat."Aurtumryus Seelenstein" with pc.count_item(30223) > 0 begin
target.delete("__TARGET__")
say("Biologe:")
say("Du hast dir dieses Mal aber")
say("Sehr viel Zeit gelassen, hoffe das")
say("Wird nächstes Mal schneller gehen!")
say("Nichtsdestodtrotz hast du die Aufgabe")
say("Bewältigt, hoffe du hilfst mir nächses")
say("Mal wieder dabei!!")
say("Du wirst bald von mir hören!!")
say("")
pc.remove_item(30223,1)
set_state(__reward)
end

end

state __reward begin
when letter begin
send_letter("Infos des Biologen")

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")
--- l
say("Die Quest des Biologen selbst")
say("Ist beendet, gehe dir nun deine")
say("Belohnung bei Baek-Go abholen.")
say("Belohnung:")
say("+50 AW")
say("")
end

when __TARGET__.target.click or
20018.chat."Belohnung" begin
target.delete("__TARGET__")
say("Baek-Go:")
say("Nun, ich kenne dich..")
say("Du warst doch letztes Mal auch bei mir?")
say("Ich erinnere mich...")
say("Du holst dir wieder deine Belohnung ab.")
say("")
say_reward("Auftrag des Biologen erfolgreich")
say_reward("Beendet du erhälst deine Belohnung.")
say_reward("+50 Angriffswert, dauerhaft.")

affect.add_collect(apply.ATT_GRADE_BONUS,50,60*60* 24*365*60)--¡X60¦~

clear_letter()
set_quest_state("collect_quest_lv70", "run")
set_state(__complete)
end

end


state __giveup__ begin
end
state __complete begin
end
end

----------------------------------------------------
--COLLECT QUEST_lv70
--METIN2 collect quest
--By Momoplaya
----------------------------------------------------
quest collect_quest_lv70 begin
state start begin
end
state run begin
when login or levelup with pc.level >= 70 and pc.level <= 90 begin
set_state(information)
end
end

state information begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Bioquest")
end
send_letter("Die Forschung des Biologen 5")
end

when button or info begin
say_title("Die Forschung des Biologen 5")
say("")
say("Der Biologe sucht dich!")
say("Gehe zu ihm.")
say("Er sagte, er hat wieder was für dich.")
say("")
end

when __TARGET__.target.click or
20084.chat."Zelkovas Holzäste" begin
target.delete("__TARGET__")
say("Biologe:")
--- l
say("Wunderbar! Ich finde es toll, dass")
say("Du mir wieder hilfst!")
say("Deine Aufgabe, die ich dir jetzt")
say("Gebe, ist nicht besonders "hell",")
say("Denn jetzt werde ich dich in den")
say("Dunklen Geisterwald schicken.")
say("Die Monster dort, sind nicht sehr nett.")
wait()
say("Biologe:")
say("Da du dieses mal dein Leben riskieren")
say("Musst, um mir das Objekt zu bringen,")
say("welches ich Suche..")
say("Dieses mal bin ich weder zu beschäftigt,")
say("Noch zu schwach..Ich habe einfach nur Angst.")
say("")
wait()
say("Biologe:")
say("Also, da du nun lost musst und mir")
say("Die Onjekte holen musst, sage ich dir")
say("Was ich brauche.")
say("Ich benötige Zelkovas Holzäste")
say("Aber Achtung, sie welken schnell.")
say("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("Spezialauftrag sammle Holzäste!")

end
when button or info begin
say_title("Zelkovas Holzäste")
--- l
say("")
say("Der Biologe gab mir den Auftag,")
say("Ihr 25 Holzäste zu bringen.")
say("Ich bekomme sie von den Mops")
say("Im Geisterwald.. Ich denke mal von Allen.")
say("")
say_item_vnum(30165)
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("ÁÙ¤£¥i¥H¨Ï¥Î°g´bÃĤô")
return
end
if pc.getqf("drink_drug")==1 then
say("¤w¸g¨Ï¥Î¤F1¦¸")
return
end
if pc.count_item(30165)==0 then
say("Biologe:")
say("Du musst schon einen Ast dabei haben,")
say("Denn die Leere kann ich nicht untersuchen.")
say("")
return
end

item.remove()
pc.setqf("drink_drug",1)
end



when 20084.chat."Zelkovas Holzäste" with pc.count_item(30165) >0 begin
if get_time() > pc.getqf("duration") then
say("Biologe:")
--- l
say("Viele Dank, dass du mir")
say("Einen gebracht hast!")
say("Ich werde ihn untersuchen!")
say("")
pc.remove_item(30165, 1)
pc.setqf("duration",get_time()+1) *Ó¤p®É
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")< 24 then --25*Zelkovas Holzäste
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --¨ú±o¤F¤@*Ó+1
say("Biologe:")
say("Perfekt!!Dieser Ast ist einfach nur perfekt!")
say("Du hast bis jetzt".." "..25-pc.getqf("collect_count").. "*abgegeben!")
say("Ich brauche aber noch mehr!")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
say("Biologe:")
say("Du hast alle 25 Stück gesammelt!")
say("Meine Untersuchungen der Äste")
say("Ist nun abgeschlossen!")
say("Du weisst was jetzt kommt oder?")
say("Ich brauche noch Gyimoks Seelenstein.")
say("")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(key_item)
return
else
say("Biologe:")
say("Es tut mir Leid, aber")
say("Dieser Ast ist beim Transport")
say("Verwelkt und ich kann ihn nicht")
say("Mehr untersuchen!")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
else
say("Biologe:")
say("Ich habe die Untersuchengen")
say("Am letzten Ast noch nicht feritg.")
say("Bitte komm später wieder!!")
say("Was guckst du so? Halte mich nicht auf.")
say("")
return
end

end
end


state key_item begin
when letter begin
send_letter("Gyimoks Seelenstein")

if pc.count_item(30224)>0 then
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Bioquest")
end
end

end
when button or info begin
if pc.count_item(30224) >0 then
say_title("Gyimoks Seelenstein")
say("")
--- l
say("Der Biologe hat noch eine Aufgabe")
say("Für dich, gehe zu ihr!")
say("")
return
end

say_title("Gyimoks Seelenstein")
say("")
--- l
say("Du hast mir alle 25 Äste gebracht")
say("Und ich habe sie alle untersucht.")
say("Nun benöte ich noch Gyimoks Seelenstein.")
say_item_vnum(30224)----------Gyimoks Seelenstein
say("Der legendäre Stein,")
say("Der die Seelen Gyimoks Adligen enthält.")
say("")
end



when 2301.kill or
2302.kill or
2303.kill or
2304.kill or
2305.kill or
2311.kill or
2312.kill or
2313.kill or
2314.kill or
2315.kill or
2306.kill or
2307.kill begin
local s = number(1, 500)
if s == 1 and pc.count_item(30224)==0 then
pc.give_item2(30224)
send_letter("Gyimoks Seelenstein")
end
end



when __TARGET__.target.click or
20084.chat."Gyimoks Seelenstein" with pc.count_item(30224) > 0 begin
target.delete("__TARGET__")
say("Biologe:")
say("Diese Aufgabe war wohl doch")
say("Einfacher als erwartet... dann")
say("Lasse ich mir mal etwas schwereres")
say("Einfallen für das nächste Mal!")
say("Aber danke, dass du mir wieder")
say("Geholfen hast!!")
say("Mit Level 80 hörst du wieder von mir!")
say("")
pc.remove_item(30224,1)
set_state(__reward)
end

end

state __reward begin
when letter begin
send_letter("Info des Biologen")

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")
--- l
say("Die Quest des Biologen ist")
say("Beendet, alle 25 Holzäste wurde")
say("Abgegeben. Nun gehe zu")
say("Baek-Go und hole dir deine Belohnung ab:")
say("11% Bewegungsgeschwindigkeit")
say("10% Schadensreduzierung")
say("")
end

when __TARGET__.target.click or
20018.chat."Belohnung" begin
target.delete("__TARGET__")
say("Baek-Go:")
say("Du schon wieder...")
say("Ich weiss, weswegen du hier bist.")
say("Du willst dir deine Belohnung abholen,")
say("Nicht wahr? Hier hast du sie.")
say("")
say_reward("Auftrag des Biologen erfolgreich")
say_reward("Beendet, du erhälst deine Belohnung.")
say_reward("11% Bewegungsgeschwindigkeit und 10% Schadensreduzierung.")
say("")
affect.add_collect(apply.MOV_SPEED,11,60*60*24*365 *60)
affect.add_collect(apply.DEF_GRADE_BONUS,10,60*60* 24*365*60) --60¦~

clear_letter()
set_quest_state("collect_quest_lv80", "run")
set_state(__complete)
end

end


state __complete begin
end
end

----------------------------------------------------
--COLLECT QUEST_lv80
--METIN2 collect quest
----------------------------------------------------
quest collect_quest_lv80 begin
state start begin
end
state run begin
when login or levelup with pc.level >= 80 begin
set_state(information)
end
end

state information begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Bioquest")
end
send_letter("Die Forschung des Biologen 6")
end

when button or info begin
say_title("Die Forschung des Biologen 6")
say("")
say("Der Biologe sucht dich!")
say("Gehe zu ihm.")
say("Er sagte, er hat eine weitere Aufgabe für dich.")
say("")
end

when __TARGET__.target.click or
20084.chat."Tugyis Tafeln" begin
target.delete("__TARGET__")
say("Biologe:")
--- l
say("Sehr schön!!! Ich freue mich, dass du")
say("Mir wieder unter die Arme greifen willst.")
say("Da ich deine letzte Aufgabe, etwas zu leicht")
say("Fand, gebe ich dir nun eine schwerere Aufgabe..")
say("Du hast bestimmt schoneinmal vom Schlangenfeld")
say("Oder Land der Riese gehört, oder?")
wait()
say("Biologe:")
say("Nunja, ich habe dort etwas gefunden,")
say("Was ich gerne untersuchen würde.")
say("Aber dieses Etwas bekommt man nur von")
say("Den dort ansässigen Riesen!")
say("Würdest du für mich dort hin gehen")
say("Und mir Tugyis Tafeln bringen?")
say("Aber bitte pass auf, denn diese Tafeln")
say("Sind schon sehr alt und werden gut")
say("Von den Riesen verteidigt!")
say("")
wait()
say("Biologe:")
say("Ich benötige Tugyis Tafeln")
say("Und zwar, um eine genaue Analyse")
say("Dieser Tafeln zu machen, 30 Stück!")
say("Wärst du so freundlich?")
say("Danke!!")
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("Spezialauftrag sammle Tafeln!")

end
when button or info begin
say_title("Tugyis Tafeln")
--- l
say("")
say("Der Biologe verlangt von mir," )
say("Dass ich ins Schlangenfeld oder")
say("Ins Land der Riesen gehe und dort")
say("30 Tugyis Tafeln besorge..")
say("Das wird bestimmt lustig...")
say("")
say_item_vnum(30166)
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("ÁÙ¤£¥i¥H¨Ï¥Î°g´bÃĤô")
return
end
if pc.getqf("drink_drug")==1 then
say("¤w¸g¨Ï¥Î¤F1¦¸")
return
end
if pc.count_item(30166)==0 then
say("Biologe:")
say("Du musst schon eine Tafel dabei haben")
say("Sonst kann ich nichts untersuchen!")
say("")
return
end

item.remove()
pc.setqf("drink_drug",1)
end

when 1401.kill or
1402.kill or
1403.kill or
1601.kill or
1602.kill or
1603.kill begin
local s = number(1, 100)
if s <= 5 and pc.count_item(30166)==0 then
pc.give_item2(30166, 1)
end
end


when 20084.chat."Tugyis Tafeln" with pc.count_item(30166) >0 begin
if get_time() > pc.getqf("duration") then
say("Biologe:")
--- l
say("Vielen Dank, dass du mir")
say("Eine Tafel gebracht hast.")
say("Ich werde sie jetzt untersuchen.")
say("")
pc.remove_item(30166, 1)
pc.setqf("duration",get_time()+1) ¤p®É
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")< 29 then --30*Tugyis Tafeln
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --¨ú±o»õ¦U±o®É+1
say("Biologe:")
say("Ich muss sagen, eine sehr schöne Tafel.")
say("Du hast bis jetzt".." "..30-pc.getqf("collect_count").. "*abgegeben!")
say("Ich brauche mehr!")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
say("Biologe:")
say("Super du hast 30 Stück gesammelt!")
say("Meine Untersuchungen der Tafeln")
say("Ist abgeschlossen!")
say("Du weisst bestimmt, was ich jetzt brauche?")
say("Ich brauche: Tugyis Seelenstein!")
say("")
say("")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(key_item)
return
else
say("Biologe:")
say("Es tut mir Leid, aber")
say("Diese Tafel ist zu alt,")
say("als dass ich sie untersuchen kann.")
say("Hast du noch eine?")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
else
say("Biologe:")
say("Die Untersuchungen der letzten")
say("Tafel sind noch nicht abgeschlossen.")
say("Warte bitte und komme später wieder.")
say("Guck nicht wie'n Auto und warte..")
say("")
return
end

end
end


state key_item begin
when letter begin
send_letter("Tugyis Tafeln")

if pc.count_item(30225)>0 then
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Bioquest")
end
end

end
when button or info begin
if pc.count_item(30225) >0 then
say_title("Tugyis Seelenstein")
say("")
--- l
say("Der Biologe hat eine Aufgabe..")
say("Gehe zu ihr.")
say("")
return
end

say_title("Tugyis Seelenstein")
say("")
--- l
say("Nun, da du mir alle meine 30")
say("Tafeln geholt hast, benötige")
say("Ich noch den Tugyis Seelenstein.")
say_item_vnum(30225)---------- Tugyis Seelenstein
say("Ein Legendäre Stein, ")
say("der die Seele eines Tugyi Adligen enthält.")
say("")
end


when 1401.kill or
1402.kill or
1403.kill or
1601.kill or
1602.kill or
1603.kill begin
local s = number(1, 200)
if s == 1 and pc.count_item(30225)==0 then
pc.give_item2(30225, 1)
send_letter("Tugyis Seelenstein")
end
end




when __TARGET__.target.click or
20084.chat."Tugyis Seelenstein" with pc.count_item(30225) > 0 begin
target.delete("__TARGET__")
say("Biologe:")
say("Nundenn, du hast die Aufgabe")
say("Schnell und sauber gemeistert!")
say("Ich danke dir dafür.")
say("Um deine Belohnung abzuholen,")
say("Gehe bitte zu Baek-Go")
say("Er wird sie dir geben!")
say("Ich gebe dir noch die Bestätigung.")
say("")
pc.remove_item(30225,1)
set_state(__reward)
end

end

state __reward begin
when letter begin
send_letter("Info des Biologen")

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")
--- l
say("Die Quest des Biologen ist")
say("Beendet und alle 30 Tafeln und")
say("Der Seelenstein wurden abgegeben.")
say("Nun muss ich noch zu Baek-Go")
say("Und die Belohnung holen!")
say("")
end

when __TARGET__.target.click or
20018.chat."Belohnung" begin
target.delete("__TARGET__")
say("Baek-Go:")
say("Ich hoffe, dass ich dich")
say("Nichtmehr oft sehen werde, denn")
say("Immer dieses Zaubern nervt mich")
say("Langsam...")
say("")
say_reward("Auftrag erfolgreich beendet.")
say_reward("Du erhälst deine Belohnung.")
say_reward("+6% Angriffgeschwindigkeit")
say_reward("+10% Schadenserhöhung")

affect.add_collect(apply.ATT_SPEED,6,60*60*24*365* 60) --¡V60¦~
affect.add_collect_point(POINT_ATT_BONUS,10,60*60* 24*365*60) --60³â
clear_letter()
set_quest_state("collect_quest_lv85", "run")
set_state(__complete)
end

end


state __complete begin
end
end

----------------------------------------------------
--COLLECT QUEST_lv85
--METIN2 collect quest
----------------------------------------------------
quest collect_quest_lv85 begin
state start begin
end
state run begin
when login or levelup with pc.level >= 85 begin
set_state(information)
end
end

state information begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Die Bitte des Biologen")
end
send_letter("Die Bitte des Biologen")
end

when button or info begin
say_title("Die Bitte des Biologen:")
say("")
say("Der Hauptmann sage, dass der Biologe")
say("nach dir suche. Vielleicht solltest du")
say("bei ihm vorbei gehen und schauen,")
say("was er von dir wollte.")
say("")
end

when __TARGET__.target.click or
20084.chat."Die Bitte" begin
target.delete("__TARGET__")
say("Biologe:~:")
--- l
say("Meine Forschungen sind nun bald")
say("beendet... aber ich bräuchte noch")
say("ein paar mal deine Hilfe...")
say("")
say("Dieses mal geht es um Bäume...")
say("Um ihre Äste um genau zu sein.")
wait()
say("Biologe:~:")
say("Ich habe vor die Äste")
say("der Roten Bäume zu erforschen.")
say("Sie sollen angeblich heilende")
say("Kräfte besitzen und ich möchte")
say("herausfinden ob dies stimmt.")

say("")
wait()
say("Biologe:~")
say("Du bekommst die Äste von den Monstern")
say("im Roten Wald. Also folgende:")
say("")
say("Roter Geisterbaumstumpf")
say("Roter Geisterbaum")
say("Rote Dryade")
say("Rote Geisterweide")
say("Roter böser Baum")
say("Riesiger Geisterbaum")
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("Die Geisterbaum Äste")

end
when button or info begin
say_title("Die Geisterbaum Äste")
--- l
say("")
say("Der Biologe hat dir den Auftag" )
say("gegeben Geisterbaum Äste zu sammeln.")
say("")
say("Du benötigst 40 Stück davon.")
say("")
say_item_vnum(30167)
say_reward("²Du hast bereits ".." "..pc.getqf("collect_count").." gesammelt.")
say("")
end

when 71035.use begin --°g´bÃĤô
if get_time() < pc.getqf("duration") then
say("ÁÙ¤£¥i¥H¨Ï¥Î°g´bÃĤô")
return
end
if pc.getqf("drink_drug")==1 then
say("¤w¸g¨Ï¥Î¤F1¦¸")
return
end
if pc.count_item(30167)==0 then
say("Biologe:~:")
say("¥ý§ä¨ìÆF»îªº«Hª«¥H«á")
say("¤~¨Ï¥Î°g´bÃĤô¤]¤£·|¦³°ÝÃD")
say("")
return
end

item.remove()
pc.setqf("drink_drug",1)
end

when 2311.kill or
2312.kill or
2313.kill or
2314.kill or
2315.kill or
2306.kill begin
local s = number(1, 100)
if s <= 25 then
pc.give_item2(30167, 1)
end
end


when 20084.chat."Die Geisterbaum Äste" with pc.count_item(30167) >0 begin
if get_time() > pc.getqf("duration") then
say_title("Biologe:")
--- l
say("Oh!!! Du hast einen...")
say("dann gib mal her und lass mich sehen,")
say("ob ich an diesem Exemplar forschen kann.")
say("")
pc.remove_item(30167, 1)
pc.setqf("duration",get_time()+1) ¤p®É
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")< 29 then --30*Ó¥¼º¡
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --¨ú±o»õ¦U±o®É+1
say("Biologe:~:")
say("®@®@~!! ±z°µ±o¯u¦n. ¨¯*W±z¤F...")
say("Es wäre schön wenn du mir")
say("noch".." "..40-pc.getqf("collect_count").. "bringen würdest.")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
say_title("Biologe:")
say("Gut gemacht!")
say("Du hast alle 40 Geisterbaum Äste gesammelt.")
say("")
say("Um die Forschungen abzuschließen benötige ich")
say("allerdings noch einen anderen Gegenstand....")
say("")
say("Den Waldgeist-Seelenstein!")
say("Bitte hole ihn mir.")
say("")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(key_item)
return
else
say_title("Biologe:")
say("Oh dieser Ast ist in nicht so")
say("gutem Zustand... Damt kann ich leider")
say("nicht forschen..")
say("Bitte hole mir einen neuen.")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
else
say_title("Biologe:")
say("Entschuldigung aber ich habe")
say("meine Forschungen noch nicht")
say("abschließen können. Bitte")
say("komm später wieder.")
say("")
return
end

end
end


state key_item begin
when letter begin
send_letter("Waldgeist-Seelenstein")

if pc.count_item(30226)>0 then
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Der Waldgeist Seelenstein")
end
end

end
when button or info begin
if pc.count_item(30226) >0 then
say_title("Waldgeist Seelenstein")
say("")
--- l
say("Du hast den Stein gefunden!")
say("Gehe schnell zum Biologen und zeige")
say("ihm deinen Fund!")
say("")
return
end

say_title("Waldgeist Seelenstein")
say("")
--- l
say("Nachdem du die 40 Geisterbaum Äste")
say("gefunden hast, hat der Biologe dich gebeten")
say("ihm den Waldgeist Seelenstein zu holen.")
say_item_vnum(30226)---------- ÆF»î¥Û
say("Du bekommst ihn im Roten Wald.")
say("")
end


when 2311.kill or
2312.kill or
2313.kill or
2314.kill or
2315.kill or
2306.kill begin
local s = number(1, 200)
if s <= 15 and pc.count_item(30226)==0 then
pc.give_item2(30226, 1)
send_letter("Waldgeist-Seelenstein")
end
end




when __TARGET__.target.click or
20084.chat."Waldgeist Seelenstein" with pc.count_item(30226) > 0 begin
target.delete("__TARGET__")
say("Biologe:")
say("OHH!!! Danke..")
say("Nun kann ich endlich meine Forschungen")
say("zu Ende führen und herausfinden")
say("was es damit aufsich hat was die Leute")
say("erzählen...")
say("")
say("Um deine Belohnung zu erhalten gehe zu Beak-Go")
say("")
pc.remove_item(30226,1)
set_state(__reward__)
end

end

state __reward__ begin
when letter begin
send_letter("Finde Beak-Go")

local v = find_npc_by_vnum(20018)
if v != 0 then
target.vid("__TARGET__", v, "Beak-Go")
end

end
when button or info begin
say_title("Rote Geisterbaum Äste")
--- l
say("Du hast dem Biologen nun die 40")
say("Äste und den Seelenstein gebracht.")
say("")
say("Die Belohnung sollst du nun bei")
say("Beak-Go abhohlen.")
say("")
end

when __TARGET__.target.click or
20018.chat."Roter Geisterbaum Ast" begin
target.delete("__TARGET__")
say_title("Beak-Go:")
say("")
say("Du hast dem Biologen also Geholfen?")
say("Okay... ich gebe dir dann wohl")
say("besser deine Belohnung...")
say("")
say("Gegenstand erhalten:")
say_reward("2x Blauer Ebenholzkasten")
say("Ausserdem erhälst du:")
say_reward("10% Schadensreduzierung gegen andere Spieler.")
pc.give_item2("50114", 1)
pc.give_item2("50114", 1)
wait()
say_title("Beak-Go:")
say("")
say("Machs Gut!")
say("Bis zum nächsten mal.")
say("")


-- 10% Schwertdeff etc. pp. Fertigkeitenschaden wird auch reduziert

affect.add_collect(apply.RESIST_CURSE,10,60*60*24* 365*60)
affect.add_collect(apply.RESIST_MELEE,10,60*60*24* 365*60)
affect.add_collect(apply.RESIST_WIND,10,60*60*24*3 65*60)
affect.add_collect(apply.RESIST_MAGIC,10,60*60*24* 365*60)
affect.add_collect(apply.RESIST_ELEC,10,60*60*24*3 65*60)
affect.add_collect(apply.RESIST_FIRE,10,60*60*24*3 65*60)
affect.add_collect(apply.RESIST_BOW,10,60*60*24*36 5*60)
affect.add_collect(apply.RESIST_FAN,10,60*60*24*36 5*60)
affect.add_collect(apply.RESIST_BELL,10,60*60*24*3 65*60)
affect.add_collect(apply.RESIST_DAGGER,10,60*60*24 *365*60)
affect.add_collect(apply.RESIST_TWOHAND,10,60*60*2 4*365*60)
affect.add_collect(apply.RESIST_SWORD,10,60*60*24* 365*60)

clear_letter()
set_state(__complete__)
end

end


state __complete__ begin
end
end