vreau 100%
de unde modific de aici ?
Cod: Selectaţi tot
----------------------------------
-- LvL 30 / Orkzähne
----------------------------------
quest bio_m2Sapphire begin
state start begin
when login or levelup with pc.level >= 30 begin
set_state(vb_bio1)
pc.setqf("bio_donex", 0)
end
end
state vb_bio1 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("Colectarea dintilor de ork.")
end
when button or info begin
say_title("Cererea biologului")
say("Biologul are nevoie de ajutorul tau dute si vezi ce")
say("vrea sa faci pentru el. Bineinteles vei primi si ")
say("o recompensa binemeritata. ")
say("Hint:Sarcinile biologulu iti ofera atac/aparare etc. ")
end
when __TARGET__.target.click or 20084.chat."Dintii de ork." with pc.getqf("bio_donex", 0) begin
target.delete("__TARGET__")
say_title("Biologul Regatului:")
say("Oh, ai venit sa ma ajuti? ")
say("Ei bine eu sunt biologul acestui regat, si ma ocup")
say("cu studiul numeroaselor plante din regat.")
say("Daca ma ajuti cu cercetarea eu te voi rasplati din")
say("plin cu retete secrete ce iti vor imbunatatii.")
say("calitatile de luptator.")
wait()
say_title("Biologul Regatului:")
say("De aceasta data eu ma ocup de dintii de ork, dar ")
say("in acest moment ma ocup de un alt studiu si nu")
say("pot pleca in excursie de cercetare. Trebuie sa ")
say("mergi in valea dragonului.")
wait()
say_title("Biologul Regatului:")
say("Odata ce ai ajuns in valea dragonului va trebui")
say("sa colectezi zece dinti de ork in perfecta ")
say("stare pentru cercetarile mele.")
set_state(colecteaza_dinti)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state colecteaza_dinti begin
when letter begin
send_letter("Colectarea dintilor de ork.")
end
when button or info begin
say_title("LostWorld2 - Dintii de orc")
say("Biologul te-a trimis in valea dragonului pentru")
say("a colecta zece dinti de ork. Colecteaza-i pe")
say("toti si dui biologului pe rand cate unul pentru")
say("a finaliza cercetarile actuale.")
say("Hint:Poti duce un dinte la : scurt timp ..")
say("(Informatie)Imediat ce termini biologul cu dintii")
say("vei primii urmatorul biolog.")
say_item_vnum(30006)
say("Pana acum ai "..pc.getqf("collect_count").." dinti de ork.")
say("")
end
when 20084.chat."Am un dinte de orc." with pc.count_item(30006)>0 begin
if get_time() > pc.getqf("duration") then
say_title("Biologul Chaerigrab:")
say("Da-mi un moment te rog. Multumesc pentru")
say("timpul acordat. Acum voi verifica sa vad")
say("daca acest dinte este folositor.")
pc.remove_item(30006, 1)
wait()
local rand = number(0,100)
if rand > 20 then
local count = pc.getqf("collect_count")+1
if count<10 then
pc.setqf("collect_count", count)
say_title("Biologul:")
say("")
say("Foarte bine, acest dinte este foarte bun.")
say("Voi putea extrage energia de apasare din el.")
say("Pana acum "..pc.getqf("collect_count").." dinti stransi!")
say("")
else
say_title("Biologul Regatului:")
say("Se pare ca ai adunat toti dintii.")
say("Totusi mai am o mica sarcina. Am nevoie de")
say("o bijuterie a sufletului pentru a sigilia dintiie..")
say("")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(colecteaza_piatra_dinti)
end
else
say_title("Biologul Regatului:")
say("Acest dinte este de calitate proasta.")
say("Adu-mi altul mai tarziu.Totusi va dura.")
say("vreo : scurt timp . sa il distrug pe acesta.Existenta lui.")
say("nu aduce nimic bun.")
end
else
say_title("Biologul:")
say("Imi pare rau,dar nu am reusit sa termin")
say("de studiat,ultimul dinte adus de tine.")
say_item_vnum(30006)
end
end
when 20084.chat."Dinte de orc-Elimina timp" with get_time() <= pc.getqf("duration") begin
say_title("Biologul Regatului:")
say("Planta magica contine acid sulfuric")
say("Doar o picatura din ea pe un obiect si")
say("a fost distrus!Daca imi oferi una voi putea")
say("sparge dintele mai repede!Ai una?")
say_item("Floarea biologului","31066","")
local s = select ("Da,am la mine.", "Inapoi")
if s == 2 then
return
elseif s == 1 then
if pc.count_item(31066) > 0 then
say_title("Biologul:")
say("Aceasta planta este magnifica.Voi putea distruge")
say("dintele imediat.")
say(" . . . ")
say(" . . . ")
say("Gata.Dintele a fost distrus.Acum astept sa imi")
say("dai altul pentru cercetari!")
pc.remove_item(31066, 1)
pc.setqf("duration", get_time()-1)
end
elseif pc.count_item(31066) == 0 then
say_title("Biologul:")
say("Nu detii nici o planta de acest gen.")
say("Ce e drept..este destul de rara.")
say("Iti dau un sfat:O vei gasii in cufarul")
say("floral.")
say_item_vnum(30006)
end
end
end
state colecteaza_piatra_dinti begin
when letter begin
send_letter("Piatra sufletului Jinunggyis")
end
when button or info begin
say_title("P. sufletului Jinunggyi")
say("Felicitari! Ai colectat toti cei 10 dinti de ork")
say("Acum ai nevoie sa capturati piatra Jinunggyis")
say_item_vnum(30220)
say("Aceasta piatra sigilieaza dintii de ork.")
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."Am p.sufletului Jinunggyis" begin
if pc.count_item(30220)>0 then
say_title("Biologul LostWorld2:")
say("Foarte bine!Aceasta este piatra de care")
say("aveam nevoie.Acum,va trebuii sa extrag")
say("energia din ea!Totusi,intelegerea este")
say("intelegere.Vorbeste cu Baek-go")
say("pentru a-ti lua recompensa!")
say("")
pc.remove_item(30220,1)
set_state(recompensa_dinti)
else
say("Biologul regatului:")
say("")
say("In inventarul tau nu observ nici o piatra")
say("pentru dintii de orc!Esti sigur ca ai inteles")
say("ce trebuie sa obtii?Se gaseste la Orcii negrii!")
say_item_vnum(30220)
say("")
end
end
end
state recompensa_dinti begin
when letter begin
send_letter("Vorbeste 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("La-i ajutat pe Biolog sa studieze dintii de")
say("Ork. Acum mergi la Baek-Go.")
say("")
end
when __TARGET__.target.click or 20018.chat."Recompensa mea!" begin
target.delete("__TARGET__")
say_title("Baek-Go:")
say("Bun venit la mine straine(o) Ce este cu aceasta ")
say("reteta ? Oh, biologul te-a trimis la mine ?")
say("Aceasta reteta permite posesorului sau sa aibe")
say("ceva atac in plus,si un procent de putere.")
say("impotriva monstrilor.")
horse.set_level(21)
wait()
say_title("Baek-Go:")
say("Aceasta reteta trimisa de biolog trebuie sa o")
say("procur pentru tine. Este deja gata.")
say("AI PRIMIT 30 VALOARE ATAC!")
wait()
affect.add_collect(apply.ATT_GRADE_BONUS,30,60*60*24*365*60)
pc.give_item2("50109")
set_state(colecteaza_blesteme_lv40)
end
end
.
de 
de