Am acest quest la biolog pe server, functioneaza ok dar nu pica dintii, sansa de drop se modifica aici "local s= number(1,100)", nu?
Cod: Selectaţi tot
----------------------------------------------------
--COLLECT QUEST_lv30
--METIN2 Collecting Quest
----------------------------------------------------
quest collect_quest_lv30 begin
state start begin
when login or levelup with pc.level >= 30 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, "Biologul Chaegirab")
end
send_letter("Cercetarile Biologului")
end
when button or info begin
say_title("Cercetarile Biologului")
say("")
----"123456789012345678901234567890123456789012345678901234567890"|
say("Biologul Chaegirab, ucenicul lui Uriel,")
say("are nevoie de ajuorul tau.")
say("")
say("Grabeste-te si vorbeste cu el.")
say("")
end
when __TARGET__.target.click or 20084.chat."Am nevoie de ajutorul tau!" begin
target.delete("__TARGET__")
say_title("Biologul Chaegirab:")
----"123456789012345678901234567890123456789012345678901234567890"|
say("")
say("Oh!! Te rog ajuta-ma....")
say("")
say("Eu colectez informatii despre monstrii din regatul nostru, dar")
say("Nu nu ma pot descurca pe cont propriu...As vrea sa le colectez")
say("eu, dar iti poti imagina, am probleme cu studiile iar eu sunt doar un simplu om de stiinta.")
say("")
say("")
say("Te rog ajuta-ma ! Si vei fi rasplatit pe masura!")
say("")
wait()
say_title("Biologul Chaegirab:")
say("")
----"123456789012345678901234567890123456789012345678901234567890"|
say("Acum fac studii pe oricii din Valea Seungryoung. Dintele")
say("de orc este foarte dur, poate zdrobi orice.")
say("")
say("De aceea este foarte important pentru studiile mele.")
say("")
say("Teoria mea este ca noi avem legaturi cu orcii. Dintii de orc")
say("ar putea fi o cheie spre evolutie")
say("")
wait()
say_title("Biologul Chaegirab")
say("")
----"123456789012345678901234567890123456789012345678901234567890"|
say("Poti sa imi faci rost de Dinti de orc ?")
say("")
say("Dar te rog adumi-le la un interval de timp, pentru a le putea")
say("examina corespunzator. Mult noroc !")
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("Dintii de orc")
end
when button or info begin
say_title("Dintii de orc din Valea Seungryoung")
----"123456789012345678901234567890123456789012345678901234567890"|
say("")
say("Biologul Chaegirab are nevoie de dintii de orc din")
say("Valea Seungryoung pentru examinarea sa")
say("")
say("Adu-i cate unu la un interval de timp, astfel incat el sa poate sa le examineze.")
say("")
say("")
say_reward("Ai adus "..pc.getqf("collect_count").." dinti de orc.")
say("")
end
when 71035.use or 76020.use begin
if get_time() < pc.getqf("duration") then
syschat("Nu poti folosi potiunea misiunii inca.")
return
end
if pc.getqf("drink_drug")==1 then
syschat("Deja ai folosit-o.")
return
end
if pc.count_item(30006)==0 then
syschat("Poti utiliza misiunea potiunii odata ce ai gasit un Dinte de orc.")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 20084.chat."GM: Skip Delay Quest lv30" with pc.count_item(30006) >0 and pc.is_gm() and get_time() <= pc.getqf("duration") begin
say(mob_name(20084))
say("Esti GM, OK")
pc.setqf("duration", get_time()-1)
return
end
when 20084.chat."Dinte de Orc" with pc.count_item(30006) >0 begin
if get_time() > pc.getqf("duration") then
if pc.count_item(30006) >0 then
say_title("Biologul Chaegirab")
---
say("")
say("Salutare! Mi-ai adus un Dinte de orc?")
say("Trebuie sa-l verific mai intai...")
say("Dami un minut.")
say("")
pc.remove_item("30006",1)
pc.setqf("duration",get_time())
wait()
local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=70
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("Biologul Chaegirab")
say("")
say("Ohhh!! You are the best...")
say("Te rog sa-mi aduci inca "..10-pc.getqf("collect_count").. " dinti de orc")
say("Am nevoie de multe pentru a termina examenele.")
say("Iti doresc mult noroc")
say("")
pc.setqf("drink_drug",0)
return
end
say_title("Biologul Chaegirab:")
say("")
say("Ai colectat toti dintii de orc")
say("")
say("Dar acum am nevoie de o piatra speciala, se numeste")
say("Piatra Orcilor")
say("")
say("Poti sa faci rost de ea omorand Orci..")
say("")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(key_item)
return
else
say_title("Chaegirab:")
say("")
say("Hum...Din pacate, aceasta este sparta")
say("Imi pare rau.Nu o pot utiliza..")
say("Poti sa imi faci rost de alta, nu-i asa?")
say("")
pc.setqf("drink_drug",0)
return
end
else
say_title("Chaegirab:")
say("")
say("Nu ai o "..item_name(30006).."!")
return
end
else
say_title("Chaegirab:")
say("")
--- l
local hoursleft = math.floor((pc.getqf("duration")-get_time()))
say("Imi pare foarte rau...")
say("Nu am analizat ultimul dinte pe care mi l-ai dat.")
say("Imi pare foarte rau... Poti sa-mi faci rost de inca unul")
say("in alte"..hoursleft.." ore")
say("")
return
end
end
end
state key_item begin
when letter begin
send_letter("Cercetarile Biologului")
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("Piatra orcilor")
say("")
--- l
say_reward("Ai gasit Piatra orcilor")
say_reward("Grabeste-te si spune-i Biologului")
say_reward("El te asteapta.")
say("")
return
end
say_title("Piatra orcilor")
say("")
--- l
say("Ai colectat deja 10 dinti de orc.")
say("Pentru examinarile sale Biologul Chaegirab")
say("are nevoie, deasemenea, de Piatra Orcilor.")
say("")
say_item_vnum(30220)
say("Du-i piatra biologului")
say("cand ai gasit-o.")
say("Poti face rost de piatra omorand "..mob_name(635)..", ")
say(""..mob_name(636).." and "..mob_name(637)..".")
say("")
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 gasit piatra orcilor!")
end
end
when __TARGET__.target.click or 20084.chat."Am gasit Piatra Orcilor" with pc.count_item(30220) > 0 begin
target.delete("__TARGET__")
if pc.count_item(30220) > 0 then
say_title("Biologul Chaegirab")
--- l
say("")
say("Ohh!!! Iti multumesc foarte mult!")
say("Ca recompensa, voi ridica puterea ta interioara ..")
say("Aceasta este o reteta secreta, care contine")
say("informatii despre putere...")
say("Dai-o lui Baek-Go, el va produce")
say("Potiunea puterii. Distraza-te!")
say("Cu ajutorul tau am invatat o multime de lucruri despre orci")
say("")
pc.remove_item(30220,1)
set_state(__reward)
else
say_title("Biologul Chaegirab")
say("Nu ai un "..item_name(30220).."!")
say("")
return
end
end
end
state __reward begin
when letter begin
send_letter("Reteta secreta")
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("Rasplata de la Biolog")
--- l
say("")
say("Ca recompensa pentru Dintii de orc si Piatra orcilor")
say("Biologul Chaegirab ti-a dat o reteta.")
say("Dute la Baek-Go si el iti va crea")
say("o potiune speciala.")
say("")
end
when __TARGET__.target.click or 20018.chat."Reteta secreta" begin
target.delete("__TARGET__")
say_title("Baek-Go:")
say("")
say("Lasa-ma sa ma uit")
say("Deci, aceasta e reteta pe care Chaegira ti-a dat-o?")
say("Hmm, a crescut viteza de miscare. Nu-i rau nu-i asa??")
say("Oh! Aici esti, o cutie de Red Ebony !!")
say("Poftim.")
say("")
----------- l
say_reward("Ca rasplata pentru misiunea Biologului Chaegirab")
say_reward("ai primit +10 viteza de miscare")
say("")
say_reward("Acest efect nu este temporat, ci PERMANENT !")
affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60) -- 60Years
pc.give_item2(50109)
clear_letter()
set_quest_state("collect_quest_lv40", "run")
set_state(__complete)
end
end
state __complete begin
end
end
*
de 
de