JonnyJon scrie:Salut j4m,

As avea si eu nevoie de toate fisierele din /object/20359, daca le are cineva.
Mai exact, iteme din cutia cu manuscrise(Pietrele sufletului) pentru terminarea misiunilor biolog.
Multumesc anticipat !

quest biologist_sequence begin

----------------------------------
-- LvL 30 / Dinti de orc
----------------------------------
state start begin
when login or levelup with pc.level>29 begin
set_state(talk_to_disciple_lv30)
end
end
state talk_to_disciple_lv30 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 10 dinti de orc pentru cercetarea mea.")
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 10,")
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("Dinti de orc")
say("")
say("Biologul ti-a dat mult de lucru,")
say("sa colectezi cei 10 dinti de orc.")
say("Colecteaza-i si adui pe toti la biolog.")
say("")
say_item_vnum(30006)
say_reward("Aveti in prezent "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 20084.chat."Dinti de orc" with pc.count_item(30006)>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("30006", 1)
pc.setqf("duration",get_time()+300)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<10 then
pc.setqf("collect_count", count)
say("Biolog:")
say("Excelent,acest dinte 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 10 dinti.")
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 dintele este")
say("deja putrezit")
say("Te rog sa-mi aduci un alt dinte de orc.")
say("")
end
else
say("Biolog:")
say("Imi pare rau")
say("Studiile nu sunt terminate inca.")
say("Te rog sa imi aduci un alt dinte 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 toti cei 10 dinti de orc")
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 10 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("Viteza de miscare +10% (permanent)")
say("")
affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60)
set_state(collect_quest_lv40)
end
end

Cobra94 scrie:

JonnyJon scrie:Salut j4m,

As avea si eu nevoie de toate fisierele din /object/20359, daca le are cineva.
Mai exact, iteme din cutia cu manuscrise(Pietrele sufletului) pentru terminarea misiunilor biolog.
Multumesc anticipat !

quest biologist_sequence begin

----------------------------------
-- LvL 30 / Dinti de orc
----------------------------------
state start begin
when login or levelup with pc.level>29 begin
set_state(talk_to_disciple_lv30)
end
end
state talk_to_disciple_lv30 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 10 dinti de orc pentru cercetarea mea.")
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 10,")
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("Dinti de orc")
say("")
say("Biologul ti-a dat mult de lucru,")
say("sa colectezi cei 10 dinti de orc.")
say("Colecteaza-i si adui pe toti la biolog.")
say("")
say_item_vnum(30006)
say_reward("Aveti in prezent "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 20084.chat."Dinti de orc" with pc.count_item(30006)>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("30006", 1)
pc.setqf("duration",get_time()+300)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<10 then
pc.setqf("collect_count", count)
say("Biolog:")
say("Excelent,acest dinte 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 10 dinti.")
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 dintele este")
say("deja putrezit")
say("Te rog sa-mi aduci un alt dinte de orc.")
say("")
end
else
say("Biolog:")
say("Imi pare rau")
say("Studiile nu sunt terminate inca.")
say("Te rog sa imi aduci un alt dinte 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 toti cei 10 dinti de orc")
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 10 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("Viteza de miscare +10% (permanent)")
say("")
affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60)
set_state(collect_quest_lv40)
end
end

instaleaza acest quest

quest cutie_manuscrise begin
	state start begin
		when 20395.click begin
			pc.give_item2(aici pui tu cod item, 1)
		end
	end
end