quest biologist_sequence begin

----------------------------------
-- LvL 30 / Dinti de orc
----------------------------------
state start begin
when login or levelup with pc.level>25 begin
set_state(talk_to_disciple_lv25)
end
end
state talk_to_disciple_lv25 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Cererea biologului")
end
send_letter("Cererea biologului")
end
when button or info begin
say_title("Cererea biologului")
say("")
say("Biologul are nevoie de ajutorul tau")
say("Dute si vorbeste cu el")
say("")
say_reward("Discuta cu biologul")
say("")
end
when __TARGET__.target.click or 20084.chat."Orkzähne" begin
target.delete("__TARGET__")
say("Biolog:")
say("")
say("Oh,ai venit sa ma ajuti?")
say("Ei bine ...")
say("Eu sunt de altfel biologul")
say("si ma ocup cu studierea numeroaselor plante")
say("Daca ma ajuti cu cercetarea,")
say("eu te voi rasplati din plin")
say("")
wait()
say("Biolog:")
say("Eu va voi rasplati din plin .")
say("Vom face cercetarea pe o legenda")
say("Dar eu trebuie sa fac mai intai in prezent ,")
say("ar fi atat de frumos daca m-ai ajuta")
say("")
wait()
say("Biolog:")
say("Am nevoie de 50 de Potirul Zeului Dragon")
say("Cu toate astea sunt foarte fragili ,")
say("se poate ca la unii dinti")
say("sa nu pot fi analizati")
say("Am nevoie de toti cei 50,")
say("pentru a finaliza cercetarea")
say("")
set_state(collect_orcteeth)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_orcteeth begin
when letter begin
send_letter("Die Forschung des Biologen")
end
when button or info begin
say_title("Potirul Zeului Dragon")
say("")
say("Biologul ti-a dat mult de lucru,")
say("sa colectezi cele 50 de potire.")
say("Colecteaza-i si adui pe toti la biolog.")
say("")
say_item_vnum(70046)
say_reward("Aveti in prezent "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 20084.chat."Potirul Zeului Dragon" with pc.count_item(70046)>0 begin
if get_time()>pc.getqf("duration") then
say("Un moment ...")
say("Iti multumesc mult,")
say("lasa-ma sa revizuiesc rapid")
say("in cazul in care acest dinte este in ordine ...")
say("")
pc.remove_item("70046", 1)
pc.setqf("duration",get_time()+300)
wait()
local rand = number(0,99)
if rand<100 then
local count = pc.getqf("collect_count")+1
if count<50 then
pc.setqf("collect_count", count)
say("Biolog:")
say("Excelent,acest potir este in ordine.")
say("Adu-mi altul.)
say("Se poate cerceta.")
say("")
say_reward("Aveti in prezent"..pc.getqf("collect_count").." abgegeben!")
say("")
else
say("Biolog:")
say("Mi-ai adus 50 de potire.")
say("Acum,te rog s ate duci sa imi aduci piatra Jinunggyis")
say("Pentru a aduce piatra Jinunggyis.")
say("Trebuie sa te duci sa o procuri de la orcii mandrii...")
say("Cred ca esti suficient de puternic pentru ea.")
say("")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_jinunggyis)
end
else
say("Biolog:")
say("Imi pare rau dar acest potir este")
say("spart")
say("Te rog sa-mi aduci un alt potir.")
say("")
end
else
say("Biolog:")
say("Imi pare rau")
say("Studiile nu sunt terminate inca.")
say("Te rog sa imi aduci un alt potir mai tarziu.")
say("")
end
end
end
state collect_jinunggyis begin
when letter begin
send_letter("Piatra Jinunggyis")
end
when button or info begin
say_title("Piatra Jinunggyis")
say("")
say("Felicitari! Aveti toate 50 de potire")
say("Acum aveti nevoie sa capturati piatra Jinunggyis")
say("")
say_item_vnum(30220)
say("Aceasta piatra de fapt contine un suflet")
say("")
end
when 635.kill or 636.kill or 637.kill begin
if pc.count_item(30220)<1 then
local rand = number(0,99)
if rand<5 then pc.give_item2(30220, 1)
end
end
end
when 20084.chat."Piatra Jinunggyis" begin
if pc.count_item(30220)>0 then
say("Biolog:")
say("Datorita muncii dumneavoastra avem acum")
say("legenda pietrei Jinunggyis.")
say("Ai luptat din greu.")
say("Dute si vorbeste cu Baek-Go,")
say("pentru a creste puterea ta interioara.")
say("")
pc.remove_item(30220,1)
set_state(jinunggyis_reward)
else
say("Biolog:")
say("Bravo,mi-ai adus 50 bucati")
say("Acum eu va rog sa-mi aduceti piatra Jinunggyis")
say("Pentru a aduce piatra Jinunggyis")
say("Trebuie sa ucideti Orcii cei mandrii")
say("Cred ca esti suficient de puternic pentru a aduce piatra.")
say("")
end
end
end
state jinunggyis_reward begin
when letter begin
send_letter("Discutati cu Baek-Go")
local v = find_npc_by_vnum(20018)
if v != 0 then target.vid("__TARGET__", v, "Doktor")
end
end
when button or info begin
say("Pentru a primi recomepnsa de la biolog")
say("dute si vorbeste cu baek-go.")
say("Acesta iti va creste competentele permanent!")
say("")
end
when __TARGET__.target.click or 20018.chat."Recompensa de la biolog" begin
target.delete("__TARGET__")
say_title("Baek-Go:")
say("Eu vad...")
say("Biologul v-a trimis la mine.")
say("Iata rasplata ta:")
say("")
say_reward("Veti primi:")
say_reward("Valoarea atacului contra monstrilor +15% (permanent)")
say("")
affect.add_collect(apply.ATT_BONUS_TO_MONSTER, 15, 60*60*24*365*60)
set_state(collect_quest_lv90)
end
end