Tipologie server(PvM / PvP):pvm.
*Resursă folosită:
*ServerFiles utilizat:40k
*Syserr:
Poză: POZA
*Detalii suplimentare:
Cod: Selectaţi tot
quest biologist_sequence30 begin
state start begin
when login or levelup with pc.level >= 30 and pc.level <= 100 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, "Cererea biologului")
end
send_letter("Cererea biologului")
end
when button or info begin
say_title("Cererea biologului")
say("Biologul are nevoie de ajutorul tãu dute ºi vezi ce")
say("vrea sã faci pentru el. Bineînþeles vei primi ºi ")
say("o recompensã binemeritatã. ")
end
when __TARGET__.target.click or
20084.chat."Dinþii de Ork " begin
target.delete("__TARGET__")
say_title("Biologul Regatului:")
say("Oh, ai venit sã mã ajuþi? ")
say("Ei bine eu sunt biologul acestui regat, ºi mã ocup")
say("cu studiul numeroaselor plante din regat.")
say("Dacã mã ajuþi cu cercetarea eu te voi rãsplãti din")
say("plin cu diferite obiecte sau experienþã. ")
wait()
say_title("Biologul Regatului:")
say("De aceastã datã eu mã ocup de dinþii de ork, dar ")
say("în acest moment mã ocup de un alt studiu ºi nu")
say("pot pleca în excursie de cercetare. Trebuie sã ")
say("mergi în valea dragonului.")
wait()
say_title("Biologul Regatului:")
say("Odatã ce ai ajuns în valea dragonului va trebui")
say("sã colectezi zece dinþi de ork în perfectã ")
say("stare pentru cercetãrile mele.")
set_state(go_to_disciple)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
end
end
state go_to_disciple begin
when letter begin
send_letter("& Cercetãrile Dintilor de Orc")
end
when button or info begin
say_title("Informaþie:")
say("Biologul te-a trimis în valea dragonului pentru")
say("a colecta zece dinþi de ork. Colecteazã-i pe")
say("toþi ºi dui biologului pe rând câte unul pentru")
say("a finaliza cercetãrile actuale.")
say_item_vnum(30006)
say_reward("Pânã acum ai "..pc.getqf("collect_count").." dinþi de ork.")
end
when 71035.use begin
if get_time() < pc.getqf("duration") then
say("")
say("Puteti reduce timpul de asteptare.")
say("")
return
end
if pc.getqf("drink_drug")==1 then
say("")
say("You already used it.")
say("")
return
end
if pc.count_item(30006)==0 then
say_title("Biologul Regatului:")
say("")
say("Pana ce nu e gata dintele")
say("Acum il puteti folosi.")
say("")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 20084.chat."Elimin limita de timp." with pc.count_item(30006) >0 and pc.is_gm() and get_time() <= pc.getqf("duration") begin
say_title("Biologul Regatului:")
say("Ai eliminat limita de timp.")
pc.setqf("duration", get_time()-1)
return
end
when 20084.chat."Elimin limita de timp." with pc.count_item(70251)>= 1 and get_time() <= pc.getqf("duration") begin
say_title("Biologul Regatului:")
say("Ai eliminat limita de timp datorita acestei flori.")
say_item_vnum(70251)
pc.setqf("duration", get_time()-1)
pc.remove_item("70251",1)
return
end
when 20084.chat."Am un dinte de ork." with pc.count_item(30006) >0 begin
if get_time() > pc.getqf("duration") then
if pc.count_item(30006) >0 then
say("Dã-mi un moment te rog. Mulþumesc pentru")
say("timpul acordat. Acum voi verifica sã vãd")
say("dacã dintele acesta este folositor.")
pc.remove_item("30006",1)
if is_test_server() then
pc.setqf("duration",get_time()+2*60*60)
else
pc.setqf("duration",get_time()+2*60*60)
end
wait()
local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=40
else
pass_percent=60
end
local s= number(1,100)
if s<= pass_percent then
if pc.getqf("collect_count")< 9 then
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index)
say_title("Biologul Regatului:")
say("Foarte bine, acest dinte este foarte bun.")
say_reward("Ai pânã în prezent".." "..10-pc.getqf("collect_count").. " dint(e)þi colectaþi.")
pc.setqf("drink_drug",0)
return
end
say_title("Biologul Regatului:")
say("Se pare cã ai adunat toþi dinþii de ork.")
say("Totuºi mai am o micã sarcinã. Am nevoie de")
say("încã o bijuterie a sufletului.")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(key_item)
return
else
say_title("Biologul Regatului:")
say("Aceastã dinte este de calitate proastã.")
say("Adu-mi altu te rog frumos.")
pc.setqf("drink_drug",0)
return
end
else
say_title("Biologul Regatului:")
say("Nu ai nici un "..item_name(30006).." !")
return
end
else
say_title("Biologul Regatului:")
say("Studiile nu sunt terminate încã. ")
say("Te rog sã îmi aduci un alt dinte mai târziu.")
return
end
end
end
state key_item begin
when letter begin
send_letter("& P. sufletului Jinunggyi")
if pc.count_item(30220)>0 then
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "")
end
end
end
when button or info begin
if pc.count_item(30220) >0 then
say_title("P. sufletului Jinunggyi")
--- l
say("Ai gãsit piatra întoarcete la Biologul Regatului.")
say("Pentru a primi recompensa.")
return
end
say_title("P. sufletului Jinunggyi")
say("Felicitãri! Ai toþi cei 10 dinþi de ork ")
say("Acum ai nevoie sã capturaþi piatra Jinunggyis")
say_item_vnum(30220)
say_reward("Aceastã piatrã de fapt conþine un suflet.")
end
when 635.kill or
636.kill or
637.kill begin
local s = number(1, 100)
if s == 1 and pc.count_item(30220)==0 then
pc.give_item2(30220, 1)
send_letter("&Ai primit: P. sufletului Jinunggyi.")
end
end
when __TARGET__.target.click or
20084.chat."P. sufletului Jinunggyi." with pc.count_item(30220) > 0 begin
target.delete("__TARGET__")
if pc.count_item(30220) > 0 then
say_title("Biologe Chaegirab")
say("Felicitãrile mele ucenicule, se pare cã ai la")
say("tine P. sufletului Jinunggyi.")
say("Cãutare noastrã este pe sfârºit acum mergi la")
say("Baek-Go, ºi dui aceastã reþetã.")
pc.remove_item(30220,1)
set_state(__reward)
else
say_title("Biologul Regatului")
say("Nu ai gãsit "..item_name(30220).." !")
say("")
return
end
end
end
state __reward begin
when letter begin
send_letter("&Gãseºtel pe 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("Gãseºtel pe Baek-Go:")
say("La-i ajutat pe Biolog sã studieze dinþii de")
say("Ork. Acum mergi la Baek-Go.")
end
when __TARGET__.target.click or
20018.chat."Reþeta secretã." begin
target.delete("__TARGET__")
say_title("Baek-Go:")
say("Bun venit la mine strãine(ã) Ce este cu aceastã ")
say("reþetã ? Oh, biologul te-a trimis la mine ?")
wait()
say_title("Baek-Go:")
say("Aceastã reþetã trimisã de biolog trebuie sã o")
say("procur pentru tine. Este deja gata.")
say("")
say_reward("Ai primit 15% vitezã de miºcare (permanent")
wait()
----------- l
affect.add_collect(apply.MOV_SPEED, 15, 60*60*24*365*60)
clear_letter()
set_quest_state("biologist_sequence40", "run")
set_state(__complete)
end
end
state __giveup__ begin
when 20084.chat."Un alt progres." begin
say_title("Biologul Regatului:")
say("Mai am ceva misiuni pentru tine. revino la un")
say("nivel mai mare.")
set_state(start)
end
end
state __complete begin
end
end
de 
de 
de