Biologen Quest

quest make_herb_lv10 begin
state start begin
when login or levelup with pc.get_level() ==10 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 Untersuchung des Biologen(Kakiblüte)")
end

when button or info begin
say_title("Die Untersuchung des Biologen(Kakiblüte)")
say("")
say("Die Biologin braucht deine Hilfe!")
say("Gehe zu ihr.")
say("")
end

when __TARGET__.target.click or
20084.chat."Kakiblüten" begin
target.delete("__TARGET__")
say("Biologin:")
--- l
say("Oh!!! Du hilfst mir?")
say("Gut ...")
say("Ich bin übrigenz die Biologin")
say("ich studiere zahlreiches aus der Pflanzenwelt.")
say("Wenn du mir bei meinen Forschungen hilfst,")
say("werde ich dich Reich Belohnen")
wait()
say("Biologin:")
say("Ich habe vor kurzem wieder angefangen ...")
say("Ich Forsche an Blüten...")
say("Ich habe derzeit viel zu tun,")
say("es währe also nett wenn du mir hilfst...")
say("Sammel 5 Kakiblüten und ich werde dich Belohnen")
say("Du bekommst die Blüten von Hungrigen Alpha-Grauwölfen")
say("Nun Geh, Ich wünsche euch viel Glück")
say("")
set_state(go_to_disciple)
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
end
end

state go_to_disciple begin
when letter begin
send_letter("Sammlung der Kräuter")

end
when button or info begin
say_title("Kakiblüten")
--- l
say("")
say("Die Biologin gab euch den Auftrag")
say("5 Blüten zu sammeln!")
say("Sammelt sie von Hungrigen Alpha-Grauwölfen")
say("und gebt sie der Biologin.")
say("")
say_item_vnum(50703)
say_reward("Du hast".." "..pc.getqf("collect_count").." abgegeben!")
say("")
end

when 71035.use begin --°g´bÃĤô

if pc.getqf("drink_drug")==1 then
say("")
say("¤w¸g¨Ï¥Î¤F1¦¸")
say("")

return
end
if pc.count_item(50703)==0 then
say("Biologin:")
say("Du hast keine!")
say("Du sollst mir aber welche bringen.")
say("")
return
end
item.remove()
pc.setqf("drink_drug",1)
end


when 177.kill begin
if pc.count_item(50703)<5- pc.getqf("collect_count")then
pc.give_item2(50703, 1)
end
end

when 20084.chat."Kakiblüte" with pc.count_item(50703) >0 begin
say("Einen Moment ...")
--- l
say("Vielen Dank,")
say("lasst es mich schnell überprüfen")
say("ob diese Blüte in Ordnung ist ...")
say("")
pc.remove_item(50703, 1)
wait()

local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=90
else
pass_percent=100
end

local s= number(1,100)
if s<= pass_percent then
if pc.getqf("collect_count")< 4 then --5*Ó¥H¤U
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --¨ú±o¤@* +1
say("Biologin:")
say("Hervorragend diese Blüte ist in Ordnung")
say("Du hast".." "..5-pc.getqf("collect_count").. " abgegeben!")
say("Bring mir noch welche!")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
say("Biologin:")
say("Hervorragend du hast")
say("mir die 5 Stück gebracht...")
say("Dafür werde ich dich wie versprochen")
say("Belohnen.")
say("")
say_reward("Du Bekommst ein Anfängerpferd!")

pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)

clear_letter()
set_state(__complete)

horse . advance ( )
set_quest_state("levelup","run")


return
else
say("Biologin:")
say("Diese Blüte ist von schlechter Qualität!")
say("sie kann nicht verwendet werden")
say("bitte hole mir eine neue.")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end

end
end



state __complete begin
end
end