*Tipologie server: PvM Hard
*ServerFiles utilizat: just4metin
*Resursă folosită: Quest Biolog
*Syserr: -
*Detalii suplimentare: Questul era bun inainte sa-i modific textul, probabil am pus eu o virgula aiurea sau am apasat un enter ori un tab, nu am idee.
syntax error : [string "__reward"]:5: `)' expected (to close `(' at line 4) near `say'biologlv30.quest:255:Abort (core dumped)
Cod: Selectaţi tot
quest biologist_sequence30 begin
state start begin
when login or levelup with pc.level >= 30 and pc.level <= 105 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_center("[COLOR r;0|g;1.6|b;0.6]Cercetarea biologului[/COLOR]")
say("")
say("Biologul are nevoie de ajutorul tău du-te şi vezi ce")
say("vrea să faci pentru el. Bine-nţeles vei primi şi ")
say("o recompensă binemeritată. ")
say("")
end
when __TARGET__.target.click or
20084.chat."Dinţii de Ork " begin
target.delete("__TARGET__")
say_title_center("[COLOR r;0|g;1.6|b;0.6]Biologul satului:[/COLOR]")
say("")
say("Oh, ai venit să mă ajuţi? ")
say("Ei bine eu sunt biologul acestui sat, şi mă ocup")
say("cu studiul numeroaselor plante din regat.")
say("Odată cu apusul soarelui apar nişte creaturi cu")
say("puteri nemaivăzute, de o frumuseţe rară!")
say("")
wait()
say_title_center("[COLOR r;0|g;1.6|b;0.6]Biologul satului:[/COLOR]")
say("")
say("Nişte săteni au văzut recent creaturile ")
say("în Valea Orcilor.")
say("")
say("Trebuie să-i analizez, trebuie!")
say_rosu("Mergi în Valea Orcilor!")
say("")
wait()
say_title_center("[COLOR r;0|g;1.6|b;0.6]Biologul satului:[/COLOR]")
say("")
say("Odată ajuns în Valea orcilor va trebui")
say("să colectezi zece dinţi de ork în perfectă ")
say("stare pentru cercetările mele.")
say("")
say("Arată cam aşa:")
say_item ( "Dinte de ork" , 30006 , "" )
say("")
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 Dinţilor de Orc")
end
when button or info begin
say_title_center("Informaţie:")
say("")
say("Biologul te-a trimis în Valea Orcilor pentru")
say("a colecta zece dinţi de ork. Colectează-i pe")
say("toţi şi dăi biologului pe rând câte unul pentru")
say("a finaliza cercetările actuale.")
say_item ( "Dinte de ork" , 30006 , "" )
say("")
say_verde("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(70251)>= 1 and get_time() <= pc.getqf("duration") begin
say_title_center("[COLOR r;0|g;1.6|b;0.6]Biologul satului:[/COLOR]")
say("")
say("Ai eliminat limita de timp datorita acestei flori.")
say_item ( "Buruiană roşie" , 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_title_center("[COLOR r;0|g;1.6|b;0.6]Biologul satului:[/COLOR]")
say("")
say("Dă-mi un moment te rog.")
say("")
pc.remove_item("30006",1)
if is_test_server() then
pc.setqf("duration",get_time()+60)
else
pc.setqf("duration",get_time()+60)
end
wait()
local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=85
else
pass_percent=100
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_center("[COLOR r;0|g;1.6|b;0.6]Biologul satului:[/COLOR]")
say("")
say("Foarte bine, acest dinte este foarte bun.")
say("")
say_verde("Mai ai de adus".." "..10-pc.getqf("collect_count").. " !")
say("")
pc.setqf("drink_drug",0)
return
end
say_title_center("[COLOR r;0|g;1.6|b;0.6]Biologul satului:[/COLOR]")
say("")
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.")
say("")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(key_item)
return
else
say_title_center("[COLOR r;0|g;1.6|b;0.6]Biologul satului:[/COLOR]")
say("")
say("Acest dinte este de calitate proastă.")
say("Adu-mi altu te rog frumos.")
say("")
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_center("[COLOR r;0|g;1.6|b;0.6]Biologul satului:[/COLOR]")
say("")
say("Studiile nu sunt terminate încă. ")
say("Te rog să îmi aduci un alt dinte mai târziu.")
say("")
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_center("[COLOR r;0|g;1.6|b;0.6]Biologul satului:[/COLOR]")
say("")
--- l
say("Ai găsit piatra, întoarce-te la mine")
say("pentru a primi recompensa.")
say("")
return
end
say_title_center("[COLOR r;0|g;1.6|b;0.6]Biologul satului:[/COLOR]")
say("")
say("Felicitări! Ai toţi cei 10 dinţi de ork ")
say("Am auzit că unul din orci a capturat sufletul")
say("unei creaturi şi l-a pus intr-o piatră!")
say_item ( "P. sufletului Jinunggyi" , 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_center("[COLOR r;0|g;1.6|b;0.6]Biologul satului:[/COLOR]")
say("")
say("Felicitările mele ucenicule, se pare că ai la")
say("tine P. sufletului Jinunggyi.")
say("Căutare noastră este pe sfârşit.")
say("Acum mergi la Baek-Go, cu această reţetă.")
say("")
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şte-l 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_center("Găseşte-l pe Baek-Go:")
say("")
say("La-i ajutat pe Biolog să studieze")
say("dinţii de Ork."
say("")
say("Acum mergi la Baek-Go.")
end
when __TARGET__.target.click or
20018.chat."Reţeta secretă." begin
target.delete("__TARGET__")
say_title_center("Baek-Go:")
say("")
say("Bun venit la mine străine! Ce este cu această ")
say("reţetă? Oh, biologul te-a trimis la mine?")
say("")
wait()
say_title_center("Baek-Go:")
say("")
say("Trebuie să fac rost de aceste ingrediente dar")
say("asta nu este problema ta!")
say("Mulţumesc pentru reţetă!")
say("")
say_verde("Ai primit 15% viteză de mişcare (permanent)"
say("")
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_center("Biologul Regatului:")
say("")
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 
de