I hereby want to publish a few English quest.
At first I don't give any support for these 15 Quest's
collect_herb_lv4.quest
PHP Code:
----------------------------------------------------
--MAKE HERB LV4
--METIN2 Herb Quest
----------------------------------------------------
quest make_herb_lv4 begin
state start begin
when login or levelup with pc.get_level() ==4 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, "Biologenquest")
end
send_letter("The biologist's assays(peach blossom)")
end
when button or info begin
say_title("The biologist's assays(peach blossom)")
say("")
say("The biologist need your help!")
say("Go to her.")
say("")
end
when __TARGET__.target.click or
20084.chat."peach blossom" begin
target.delete("__TARGET__")
say("Biologin:")
--- l
say("Oh!!! You're helping me?")
say("All right ...")
say("By the way, I am the biologist.")
say("Ich study various plants.")
say("If you'll help me with my assays,")
say("I gonna richly reward you.")
wait()
say("Biologist:")
say("I just started again ...")
say("I explore some blossoms...")
say("But I'm that stressed,")
say("I need your help...")
say("Collect five peach blossoms and I'll reward you.")
say("You'll receive peach blossoms from hungry alpha wolves.")
say("I wish you the best.")
say("")
set_state(go_to_disciple)
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
end
end
state go_to_disciple begin
when letter begin
send_letter("Herb collection")
end
when button or info begin
say_title("Peach blossoms")
--- l
say("")
say("The biologist gave you the quest")
say("to collect five peach blossoms!")
say("Collect them from hungry alpha wolves")
say("and hand them over to the biologist.")
say("")
say_item_vnum(50701)
say_reward(" You did hand out ".." "..pc.getqf("collect_count").." blossoms yet!")
say("")
end
when 71035.use begin --°g´bÃĤô
if pc.getqf("drink_drug")==1 then
say("")
say("¤w¸g¨Ï¥Î¤F1¦¸")
say("")
return
end
if pc.count_item(50701)==0 then
say("You don't have any!")
say("You don't have any!")
say("But you should bring me some :D")
say("")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 173.kill begin
if pc.count_item(50701)<5-pc.getqf("collect_count") then
pc.give_item2(50701, 1)
end
end
when 20084.chat."peach blossoms" with pc.count_item(50701) >0 begin
say("Wait a moment ...")
--- l
say("Thank you,")
say("let me take a quick look at")
say("the blossom ...")
say("")
pc.remove_item(50701, 1)
wait()
local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=90
else
pass_percent=100
end
local s= number(1,100)
if s<= pass_percent then
if pc.getqf("collect_count")< 4 then --5*Ó¥H¤U
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --¨ú±o¤@* +1
say("Biologist:")
say("All right, this one looks good.")
say("You yet collected ".." "..5-pc.getqf("collect_count").. " blossoms!")
say("Bring me some more!")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
say("Biologist:")
say("Well done, you brought")
say("me five blossoms...")
say("You will be rewared therefor")
say("as promised :D")
say("")
say_reward("You receive an item!")
say_reward("You receive 1kk Yang!")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
clear_letter()
set_state(__complete)
if pc.job==3 then
pc.give_item2(07003)
say_reward("Armor+9")
return
else
pc.give_item2(00019)
say_reward("Sword+9")
end
pc.change_money(1000000)
set_quest_state("levelup","run")
else
say("Biologist:")
say("This blossom is not good at all!")
say("It can't be used.")
say("Bring me a new one, please.")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
end
end
state __complete begin
end
end
PHP Code:
----------------------------------------------------
--MAKE HERB LV7
--METIN2 Herb Quest
----------------------------------------------------
quest make_herb_lv7 begin
state start begin
when login or levelup with pc.get_level() ==7 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, "Biologenquest")
end
send_letter("The biologist's assays(bell flower)")
end
when button or info begin
say_title("The biologist's assays(bell flower)")
say("")
say("The biologist need your help!")
say("Go to her.")
say("")
end
when __TARGET__.target.click or
20084.chat."peack flower" begin
target.delete("__TARGET__")
say("Biologin:")
--- l
say("Oh!!! You're helping me?")
say("All right ...")
say("By the way, I am the biologist.")
say("Ich study various plants.")
say("If you'll help me with my assays,")
say("I gonna richly reward you.")
wait()
say("Biologist:")
say("I just started again ...")
say("I explore some flowers...")
say("But I'm that stressed,")
say("I need your help...")
say("Collect five bell flowers and I'll reward you.")
say("You'll receive bell flowers from hungry alpha wolves.")
say("I wish you the best.")
say("")
set_state(go_to_disciple)
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
end
end
state go_to_disciple begin
when letter begin
send_letter("Herb collection")
end
when button or info begin
say_title("bell flowers")
--- l
say("")
say("The biologist gave you the quest")
say("to collect five bell flowers!")
say("Collect them from hungry alpha blue-wolves")
say("and hand them over to the biologist.")
say("")
say_item_vnum(50702)
say_reward(" You did hand out ".." "..pc.getqf("collect_count").." flowers yet!")
say("")
end
when 71035.use begin --°g´bÃĤô
if pc.getqf("drink_drug")==1 then
say("")
say("¤w¸g¨Ï¥Î¤F1¦¸")
say("")
return
end
if pc.count_item(50702)==0 then
say("You don't have any!")
say("You don't have any!")
say("But you should bring me some :D")
say("")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 175.kill begin
if pc.count_item(50702)< 5 -pc.getqf("collect_count") then
pc.give_item2(50702, 1)
end
end
when 20084.chat."Glockenblume" with pc.count_item(50702) >0 begin
say("Wait a moment ...")
--- l
say("Thank you,")
say("let me take a quick look at")
say("the flower ...")
say("")
pc.remove_item(50702, 1)
wait()
local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=90
else
pass_percent=100
end
local s= number(1,100)
if s<= pass_percent then
if pc.getqf("collect_count")< 4 then --5*Ó¥H¤U
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --¨ú±o¤@* +1
say("Biologist:")
say("All right, this one looks good.")
say("You yet collected ".." "..5-pc.getqf("collect_count").. " flowers!")
say("Bring me some more!")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
say("Biologist:")
say("Well done, you brought")
say("me five flowers...")
say("You will be rewared therefor")
say("as promised :D")
say("")
say_reward("You receive an item!")
say_reward("You receive 2kk Yang!")
if pc.job==0 then
pc.give_item2(11209)
say_reward("Monk's armor+9")
end
if pc.job==1 then
pc.give_item2(11409)
say_reward("Azur body+9")
end
if pc.job==2 then
pc.give_item2(11609)
say_reward("Requiem amor+9")
end
if pc.job==3 then
pc.give_item2(11809)
say_reward("Azur cloths+9")
end
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
clear_letter()
set_state(__complete)
pc.change_money(2000000)
set_quest_state("levelup","run")
return
else
say("Biologist:")
say("This flower is not good at all!")
say("It can't be used.")
say("Bring me a new one, please.")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
end
end
state __complete begin
end
end
PHP Code:
----------------------------------------------------
--MAKE HERB LV10
--METIN2 Herb Quest
----------------------------------------------------
quest make_herb_lv10 begin
state start begin
when login or levelup with pc.get_level() ==10 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, "Biologenquest")
end
send_letter("The biologist's assays(kaki flower)")
end
when button or info begin
say_title("The biologist's assays(kaki flower)")
say("")
say("The biologist need your help!")
say("Go to her.")
say("")
end
when __TARGET__.target.click or
20084.chat."Kakiblüten" begin
target.delete("__TARGET__")
say("Biologin:")
--- l
say("Oh!!! You're helping me?")
say("All right ...")
say("By the way, I am the biologist.")
say("Ich study various plants.")
say("If you'll help me with my assays,")
say("I gonna richly reward you.")
wait()
say("Biologist:")
say("I just started again ...")
say("I explore some flowers...")
say("But I'm that stressed,")
say("I need your help...")
say("Collect five kaki flowers and I'll reward you.")
say("You'll receive kaki flowers from hungry alpha wolves.")
say("I wish you the best.")
say("")
set_state(go_to_disciple)
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
end
end
state go_to_disciple begin
when letter begin
send_letter("Herb collection")
end
when button or info begin
say_title("kaki flowers")
--- l
say("")
say("The biologist gave you the quest")
say("to collect five kaki flowers!")
say("Collect them from hungry alpha wolves")
say("and hand them over to the biologist.")
say("")
say_item_vnum(50703)
say_reward(" Ihr habt derzeit".." "..pc.getqf("collect_count").." abgegeben!")
say("")
end
when 71035.use begin --°g´bÃĤô
if pc.getqf("drink_drug")==1 then
say("")
say("¤w¸g¨Ï¥Î¤F1¦¸")
say("")
return
end
if pc.count_item(50703)==0 then
say("You don't have any!")
say("You don't have any!")
say("But you should bring me some :D")
say("")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 177.kill begin
if pc.count_item(50703)<5- pc.getqf("collect_count")then
pc.give_item2(50703, 1)
end
end
when 20084.chat."kaki flowers" with pc.count_item(50703) >0 begin
say("Wait a moment ...")
--- l
say("Thank you,")
say("let me take a quick look at")
say("the flower ...")
say("")
pc.remove_item(50703, 1)
wait()
local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=90
else
pass_percent=100
end
local s= number(1,100)
if s<= pass_percent then
if pc.getqf("collect_count")< 4 then --5*Ó¥H¤U
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --¨ú±o¤@* +1
ay("Biologist:")
say("All right, this one looks good.")
say("You yet collected ".." "..5-pc.getqf("collect_count").. " flowers!")
say("Bring me some more!")
say(""))
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
say("Biologist:")
say("Well done, you brought")
say("me five flowers...")
say("You will be rewared therefor")
say("as promised :D")
say("")
say_reward("You receive an item!")
say_reward("You receive 3kk Yang!")
say_reward("copper necklage+9")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
clear_letter()
set_state(__complete)
pc.give_item2(16029)
pc.change_money(3000000)
set_quest_state("levelup","run")
return
else
say("Biologist:")
say("This flower is not good at all!")
say("It can't be used.")
say("Bring me a new one, please.")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
end
end
state __complete begin
end
end
PHP Code:
----------------------------------------------------
--MAKE HERB LV15
--METIN2 Herb Quest
----------------------------------------------------
quest make_herb_lv15 begin
state start begin
when login or levelup with pc.get_level() ==15 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, "Biologenquest")
end
send_letter("The biologist's assays(gango root)")
end
when button or info begin
say_title("The biologist's assays(gango root)")
say("")
say("The biologist need your help!")
say("Go to her.")
say("")
end
when __TARGET__.target.click or
20084.chat."Gango-Wurzeln" begin
target.delete("__TARGET__")
say("Biologin:")
--- l
say("Oh!!! You're helping me?")
say("All right ...")
say("By the way, I am the biologist.")
say("Ich study various plants.")
say("If you'll help me with my assays,")
say("I gonna richly reward you.")
wait()
say("Biologist:")
say("I just started again ...")
say("I explore some roots...")
say("But I'm that stressed,")
say("I need your help...")
say("Collect five gango roots and I'll reward you.")
say("You'll receive gango roots from hungry alpha wolves.")
say("I wish you the best.")
say("")
set_state(go_to_disciple)
pc.setqf("collect_count",0)--¨ì²{®É¬°¤î©Ò¦³ª««~¼Æ¥Ø
pc.setqf("drink_drug",0) --·í³Ü¤F°g´bÃĤô 1
end
end
state go_to_disciple begin
when letter begin
end_letter("Herb collection")
end
when button or info begin
say_title("gango roots")
--- l
say("")
say("The biologist gave you the quest")
say("to collect five gango roots!")
say("Collect them from hungry grizzlies")
say("and hand them over to the biologist.")
say("")
say_item_vnum(50704)
say_reward(" Ihr habt".." "..pc.getqf("collect_count").." derzeit abgegeben!")
say("")
end
when 71035.use begin --°g´bÃĤô
if pc.getqf("drink_drug")==1 then
say("")
say("¤w¸g¨Ï¥Î¤F1¦¸")
say("")
return
end
if pc.count_item(50704)==0 then
say("You don't have any!")
say("You don't have any!")
say("But you should bring me some :D")
say("")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 181.kill begin
if pc.count_item(50704)<5- pc.getqf("collect_count")then
pc.give_item2(50704, 1)
end
end
when 20084.chat."gango roots" with pc.count_item(50704) >0 begin
say("Wait a moment ...")
--- l
say("Thank you,")
say("let me take a quick look at")
say("the root ...")
say("")
pc.remove_item(50701, 1)
wait()
local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=90
else
pass_percent=100
end
local s= number(1,100)
if s<= pass_percent then
if pc.getqf("collect_count")< 4 then --5*Ó¥H¤U
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --¨ú±o¤@* +1
say("Biologist:")
say("All right, this one looks good.")
say("You yet collected ".." "..5-pc.getqf("collect_count").. " roots!")
say("Bring me some more!")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
ay("Biologist:")
say("Well done, you brought")
say("me five roots...")
say("You will be rewared therefor")
say("as promised :D")
say("")
say_reward("You receive an item!")
say_reward("You receive 4kk Yang!")
say_reward("copper earring+9")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
clear_letter()
set_state(__complete)
pc.give_item2(17029)
pc.change_money(4000000)
set_quest_state("levelup","run")
return
else
say("Biologist:")
say("This root is not good at all!")
say("It can't be used.")
say("Bring me a new one, please.")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
end
end
state __complete begin
end
end
PHP Code:
----------------------------------------------------
--MAKE HERB LV25
--METIN2 Herb Quest
----------------------------------------------------
quest make_herb_lv25 begin
state start begin
when login or levelup with pc.get_level() ==25 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, "Biologenquest")
end
send_letter("The biologist's assays(tue fungus)")
end
when button or info begin
say_title("The biologist's assays(tue fungus)")
say("")
say("The biologist need your help!")
say("Go to her.")
say("")
end
when __TARGET__.target.click or
20084.chat."Tue-Pilze" begin
target.delete("__TARGET__")
20084.chat."tue fungus" begin
target.delete("__TARGET__")
say("Biologin:")
--- l
say("Oh!!! You're helping me?")
say("All right ...")
say("By the way, I am the biologist.")
say("Ich study various plants.")
say("If you'll help me with my assays,")
say("I gonna richly reward you.")
wait()
say("Biologist:")
say("I just started again ...")
say("I explore some fungi...")
say("But I'm that stressed,")
say("I need your help...")
say("Collect five tue fungi and I'll reward you.")
say("You'll receive tue fungi from hungry bears.")
say("I wish you the best.")
say("")
set_state(go_to_disciple)
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
end
end
state go_to_disciple begin
when letter begin
send_letter("Herb collection")
end
when button or info begin
say_title("tue fungi")
--- l
say("")
say("The biologist gave you the quest")
say("to collect five tue fungi!")
say("Collect them from hungry alpha wolves")
say("and hand them over to the biologist.")
say("")
say_item_vnum(50706)
say_reward(" You did hand out ".." "..pc.getqf("collect_count").." fungi yet!")
say("")
end
when 71035.use begin --°g´bÃĤô
if pc.getqf("drink_drug")==1 then
say("")
say("¤w¸g¨Ï¥Î¤F1¦¸")
say("")
return
end
if pc.count_item(50706)==0 then
say("You don't have any!")
say("You don't have any!")
say("But you should bring me some :D")
say("")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 183.kill begin
if pc.count_item(50706)<10 - pc.getqf("collect_count") then
pc.give_item2(50706, 1)
end
end
when 20084.chat."Tue-Pilze" with pc.count_item(50706) >0 begin
--- l
say("Wait a moment ...")
--- l
say("Thank you,")
say("let me take a quick look at")
say("the fungus ...")
say("")
pc.remove_item(50706, 1)
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 --10*Ó¥H¤U
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --¨ú±o¤@* +1
say("Biologist:")
say("All right, this one looks good.")
say("You yet collected ".." "..5-pc.getqf("collect_count").. " fungi!")
say("Bring me some more!")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
say("Biologist:")
say("Well done, you brought")
say("me five fungi...")
say("You will be rewared therefor")
say("as promised :D")
say("")
say_reward("You receive an item!")
say_reward("You receive 6kk Yang!")
if pc.job==0 then
pc.give_item2(12229)
say_reward("Iron helmet+9")
end
if pc.job==1 then
pc.give_item2(12369)
say_reward("Chain hood+9")
end
if pc.job==2 then
pc.give_item2(12509)
say_reward("Mocking helmet+9")
end
if pc.job==3 then
pc.give_item2(12649)
say_reward(Phoenix hat+9")
end
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
clear_letter()
set_state(__complete)
pc.change_money(6000000)
pc.give_exp2(0)
set_quest_state("levelup","run")
return
else
say("Biologist:")
say("This fungus is not good at all!")
say("It can't be used.")
say("Bring me a new one, please.")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
end
end
state __complete begin
end
end
PHP Code:
----------------------------------------------------
--COLLECT QUEST_lv30
--METIN2 Collect Quest
----------------------------------------------------
quest collect_quest_lv30 begin
state start begin
when login or levelup with pc.level >= 30 and pc.level <= 90 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, "¥Íª«¾ÇªÌ±ç¬f¦~")
end
send_letter("The biologist's assays")
end
when button or info begin
say_title("The biologist's assays")
say("")
say("The biologist need your help!")
say("Go to her.")
say("")
end
when __TARGET__.target.click or
20084.chat."Orkzähne" begin
target.delete("__TARGET__")
say("Biologin:")
--- l
say("Oh!!! You're helping me?")
say("All right ...")
say("By the way, I am the biologist.")
say("Ich study various plants.")
say("If you'll help me with my assays,")
say("I gonna richly reward you.")
wait()
say("Biologist:")
say("I just started again ...")
say("I explore an acient legend...")
say("I'm too stressed now,")
say("so I need your help...")
say("")
say("")
say("")
say("")
wait()
say("I need ten orc theet for my")
say("assays ...")
say("But the theet tend to break easly,")
say("so the can be destroyed")
say("while my assasy.")
say("I need all ten orc theet to unterstand")
say("what exactly is behind")
say("that legend...")
set_state(go_to_disciple)
pc.setqf("duration",0) -- ¥i¥H¸Õ¸Õªº®É¶¡
pc.setqf("collect_count",0) -- ¡X¨ú±o¹Lªºª««~¼Æ¶q
pc.setqf("drink_drug",0) -- ¡X ³Ü°g´bÃĤôªº¸Ü 1
end
end
state go_to_disciple begin
when letter begin
send_letter("The biologist's appeal!")
end
when button or info begin
say_title("Orc theet")
--- l
say("")
say("The biologist gave you the quest")
say("to bring her ten orc theet!")
say("Collect them from orcs and")
say("hand them over to the biologist.")
say("")
say("")
say_item_vnum(30006)
say_reward("You handed out ".." "..pc.getqf("collect_count").." theet!")
say("")
end
when 71035.use begin --°g´bÃĤô
if get_time() < pc.getqf("duration") then
say("")
say("ÁÙ¤£¥i¥H¨Ï¥Î°g´bÃĤô")
say("")
return
end
if pc.getqf("drink_drug")==1 then
say("")
say("¤w¸g¨Ï¥Î¤F1¦¸")
say("")
return
end
if pc.count_item(30006)==0 then
say("What a pity you have")
say("no orc tooth with you.")
say("Please search for a new one!")
say("")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 20084.chat."Orc teeth! " with pc.count_item(30006) >0 begin
if get_time() > pc.getqf("duration") then
say("Wait a moment ...")
--- l
say("Thanks,")
say("I'll take a quick look")
say("if the tooth is still ok ...")
say("")
pc.remove_item("30006", 1)
pc.setqf("duration",get_time()+60*60*22) -----------------------------------22??
wait()
local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=60
else
pass_percent=90
end
local s= number(1,100)
if s<= pass_percent then
if pc.getqf("collect_count")< 9 then --10*Ó¥H¤U
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --¨ú±o¤@* +1
say(pass_percent)
say("Biologist:")
say("Great, this one is ok.")
say("You handed out ".." "..10-pc.getqf("collect_count").. " teeth yet!")
say("bring me some more so")
say("I can finish my assays.")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
say("Biologist:")
say("You brought me ten teeth...")
say("No I want you to bring me")
say("Jinunggyis soul stone.")
say("You'll get it from black orcs ...")
say("You look strong enough")
say("for that.")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(key_item)
return
else
say("Biologist:")
say("Sorry, but this tooth broke")
say("during my assays.")
say("Bring me a new one please!")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
else
say("Biologist:")
say("Oh, I'm sorry, but I haven't")
say("finished my studys yet ...")
say("Please hand me over the tooth")
say("when I'm ready for it.")
return
end
end
end
state key_item begin
when letter begin
send_letter("Jinunggyis soul stone")
if pc.count_item(30220)>0 then
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Biologenquest")
end
end
end
when button or info begin
if pc.count_item(30220) >0 then
say_title("Jinunggyis soul stone")
say("")
--- l
say("The biologist needs your help!")
say("Go to her.")
say("")
return
end
say_title("Jinunggyis soul stone")
say("")
--- l
say("You collect all ten orc teeth")
say("succesfully ...")
say("Now I need you to bring me Jinunggyis soul stone.")
say_item_vnum(30220)----------- ¯u°*±ÚÆF»î¥Û
say("Maybe it really content")
say("a soul?")
say("")
end
when 635.kill or
636.kill or
637.kill begin
local s = number(1, 500)
if s == 1 and pc.count_item(30220)==0 then
pc.give_item2(30220, 1)
send_letter("Jinunggyis soul stone")
end
end
when __TARGET__.target.click or
20084.chat."Jinunggyis soul stone" with pc.count_item(30220) > 0 begin
target.delete("__TARGET__")
say("Biologist:")
say("You took a hard time ...")
say("Therefor I'll increase your inner strenght!")
say("I'll give you a recipe to")
say("increase your inner strenght!")
say("Thanks to you I now unterstand")
say("the legend of Jinunggyis soul stone ...")
say("Take the recipe to Baek-Go.")
say("He'll help you.")
pc.remove_item(30220,1)
set_state(__reward)
end
end
state __reward begin
when letter begin
send_letter("The Biologist's Information")
local v = find_npc_by_vnum(20018)
if v != 0 then
target.vid("__TARGET__", v, "Doktor")
end
end
when button or info begin
say_title("Access to the Biologist's Information!")
--- l
say("To receive the biologist's")
say("reward, take your recipe")
say("to Baek-Go.")
say("")
end
when __TARGET__.target.click or
20018.chat."Recipe for increasing the inner strenght" begin
target.delete("__TARGET__")
say("Baek-Go:")
say("I see ..")
say("The biologist sent you with a recipe?")
say("let me take a look at it ...")
say("All right ... this recipe will increase")
say("your move speed by ten.")
say_reward("You succesfully supported the biologist")
say_reward("As reward, your move speed")
say_reward("was permanently increased by ten!")
affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60) --60¦~
clear_letter()
set_quest_state("collect_quest_lv40", "run")
set_state(__complete)
end
end
state __giveup__ begin
when 20084.chat."You want to try it?" begin
say("Biologist:")
say("You want to try it?")
say("... and your hidden powers?")
say("You need to register here")
say("to revisit the quest.")
say("This can take a few minutes ...")
end
end
state __complete begin
end
end
PHP Code:
----------------------------------------------------
--COLLECT QUEST_lv40
--METIN2 Collect Quest
----------------------------------------------------
quest collect_quest_lv40 begin
state start begin
end
state run begin
when login or levelup with pc.level >= 40 and pc.level <= 90 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, "Biologenquest")
end
send_letter("The biologist's assays 2")
end
when button or info begin
say_title("The biologist's assays 2")
say("")
say("The biologist need your help!")
say("Go to her.")
say("")
end
when __TARGET__.target.click or
20084.chat."Fluchbücher" begin
target.delete("__TARGET__")
say("Oh!!! You're helping me?")
say("All right ...")
say("By the way, I am the biologist.")
say("Ich study various plants.")
say("If you'll help me with my assays,")
say("I gonna richly reward you.")
wait()
say("Biologist:")
say("I just started again ...")
say("I explore an acient legend...")
say("I'm too stressed now,")
say("so I need your help...")
say("")
say("")
say("")
say("")
wait()
say("I need ten curse books for my")
say("assays ...")
say("But the books tend to break easly,")
say("so the can be destroyed")
say("while my assasy.")
say("I need all ten curse books to unterstand")
say("what exactly is behind")
say("that legend...")
say("")
set_state(go_to_disciple)
pc.setqf("duration",0) -- Dauer der Quest
pc.setqf("collect_count",0)---- Fortschritt der quest
pc.setqf("drink_drug",0) ------¡V ³Ü°g´bÃĤôªº¸Ü 1
end
end
state go_to_disciple begin
when letter begin
send_letter("The biologist's appeal!")
end
when button or info begin
say_title("curse books")
--- l
say("")
say("The biologist gave you the quest")
say("to bring her ten curse books!")
say("Collect them from curses and")
say("hand them over to the biologist.")
say("")
say("")
say_reward("You handed over ".." "..pc.getqf("collect_count").." books")
say("")
end
when 71035.use begin --°g´bÃĤô
if get_time() < pc.getqf("duration") then
say("")
say("ÁÙ¤£¥i¥H¨Ï¥Î°g´bÃĤô")
say("")
return
end
if pc.getqf("drink_drug")==1 then
say("")
say("¤w¸g¨Ï¥Î¤F1¦¸")
say("")
return
end
if pc.count_item(30047)==0 then
say("What a pity you have")
say("no curse book with you.")
say("Please search for a new one!")
say("")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 20084.chat."Curse books!" with pc.count_item(30047) >0 begin
if get_time() > pc.getqf("duration") then
ssay("Wait a moment ...")
--- l
say("Thanks,")
say("I'll take a quick look")
say("if the book is still ok ...")
say("")
pc.remove_item(30047, 1)
pc.setqf("duration",get_time()+60*60*22)--------------22*Ó¤p®É
wait()
local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=60
else
pass_percent=90
end
local s= number(1,100)
if s<= pass_percent then
if pc.getqf("collect_count")< 14 then --15 Fluchsammlungen
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) -- ¨ú±o¤F¤@*Ó+1
say("Biologist:")
say("Great, this one is ok.")
say("You handed out ".." "..10-pc.getqf("collect_count").. " books yet!")
say("bring me some more so")
say("I can finish my assays.")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
say("Biologist:")
say("You brought me ten books...")
say("No I want you to bring me")
say("the temple soul stone.")
say("You'll get it from black curses ...")
say("You look strong enough")
say("for that.")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(key_item)
return
else
say("Biologist:")
say("Sorry, but this book broke")
say("during my assays.")
say("Bring me a new one please!")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
else
say("Biologist:")
say("Oh, I'm sorry, but I haven't")
say("finished my studys yet ...")
say("Please hand me over the book")
say("when I'm ready for it.")
return
end
end
end
state key_item begin
when letter begin
send_letter("The temple soul stone")
if pc.count_item(30221)>0 then
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Bioquest")
end
end
end
when button or info begin
if pc.count_item(30221) >0 then
say_title("The temple soul stone")
ay("")
--- l
say("The biologist needs your help!")
say("Go to her.")
say("")
return
end
say_title("The temple soul stone")
say("")
--- l
say("You collect all ten curse books")
say("succesfully ...")
say("Now I need you to bring me Jinunggyis soul stone.")
say_item_vnum(30221)----------
ay("Maybe it really content")
say("a soul?")
say("")
end
when 2032.kill or
2033.kill or
2034.kill or
2035.kill begin
local s = number(1, 500)
if s == 1 and pc.count_item(30221)==0 then
pc.give_item2(30221, 1)
send_letter("Temple soul stone")
end
end
when __TARGET__.target.click or
20084.chat."Tempel Seelenstein" with pc.count_item(30221) > 0 begin
target.delete("__TARGET__")
say("Biologist:")
say("You took a hard time ...")
say("Therefor I'll increase your inner strenght!")
say("I'll give you a recipe to")
say("increase your inner strenght!")
say("Thanks to you I now unterstand")
say("the legend of the temple soul stone ...")
say("Take the recipe to Baek-Go.")
say("He'll help you.")
pc.remove_item(30221,1)
set_state(__reward)
end
end
state __reward begin
when letter begin
send_letter("Infos der Biologin")
local v = find_npc_by_vnum(20018)
if v != 0 then
target.vid("__TARGET__", v, "Doktor")
end
end
when button or info begin
say_title("The Biologist's Information!")
--- l
say("To receive the biologist's")
say("reward, take your recipe")
say("to Baek-Go.")
say("")
end
when __TARGET__.target.click or
20018.chat."Belohnung der Biologin" begin
target.delete("__TARGET__")
say("Baek-Go:")
say("I see ..")
say("The biologist sent you with a recipe?")
say("let me take a look at it ...")
say("All right ... this recipe will increase")
say("your attack speed by ten.")
say_reward("You succesfully supported the biologist")
say_reward("As reward, your attack speed")
say_reward("was permanently increased by ten!")
affect.add_collect(apply.ATT_SPEED,5,60*60*24*365*60) --- ¡V60¦~
clear_letter()
set_quest_state("collect_quest_lv50", "run")
set_state(__complete)
end
end
state __complete begin
end
end
PHP Code:
----------------------------------------------------
--COLLECT QUEST_lv50
--METIN2 Collect Quest
----------------------------------------------------
quest collect_quest_lv50 begin
state start begin
end
state run begin
when login or levelup with pc.level >= 50 and pc.level <= 90 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, "Bioquest")
end
send_letter("The biologist's assays 3")
end
when button or info begin
say_title("The biologist's assays 3")
say("")
say("The biologist need your help!")
say("Go to her.")
say("")
end
when __TARGET__.target.click or
20084.chat."Dämonenandenken" begin
target.delete("__TARGET__")
say("Biologin:")
--- l
say("Oh!!! You're helping me?")
say("All right ...")
say("By the way, I am the biologist.")
say("Ich study various plants.")
say("If you'll help me with my assays,")
say("I gonna richly reward you.")
wait()
say("Biologist:")
say("I just started again ...")
say("I explore an acient legend...")
say("I'm too stressed now,")
say("so I need your help...")
say("")
say("")
say("")
say("")
wait()
say("I need ten daemon theet for my")
say("assays ...")
say("But the theet tend to break easly,")
say("so the can be destroyed")
say("while my assasy.")
say("I need all ten daemon theet to unterstand")
say("what exactly is behind")
say("that legend...")
set_state(go_to_disciple)
pc.setqf("duration",0) --¥i¥H¸Õ¸Õªº®É¶¡
pc.setqf("collect_count",0)-- ¨ú±oªºª««~¼Æ¶q
pc.setqf("drink_drug",0) --³Ü°g´bÃĤôªº¸Ü1
end
end
state go_to_disciple begin
when letter begin
send_letter("The biologist's appeal!")
end
when button or info begin
say_title("daemon theet")
--- l
say("")
say("The biologist gave you the quest")
say("to bring her ten daemon theet!")
say("Collect them from daemons and")
say("hand them over to the biologist.")
say("")
say("")
say_item_vnum(30015)
say_reward("Du hast".." "..pc.getqf("collect_count").."abgegeben")
say("")
end
when 71035.use begin --°g´bÃĤô
if get_time() < pc.getqf("duration") then
say("")
say("ÁÙ¤£¥i¥H¨Ï¥Î°g´bÃĤô")
say("")
return
end
if pc.getqf("drink_drug")==1 then
say("")
say("¤w¸g¨Ï¥Î¤F1¦¸")
say("")
return
end
if pc.count_item(30015)==0 then
say("What a pity you have")
say("no daemon memory with you.")
say("Please search for a new one!")
say("")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 20084.chat."Dämonenandenken" with pc.count_item(30015) >0 begin
if get_time() > pc.getqf("duration") then
say("Wait a moment ...")
--- l
say("Thanks,")
say("I'll take a quick look")
say("if the memory is still ok ...")
say("")
pc.remove_item(30015, 1)
pc.setqf("duration",get_time()+60*60*22) ----------------22??
wait()
local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=60
else
pass_percent=90
end
local s= number(1,100)
if s<= pass_percent then
if pc.getqf("collect_count")< 14 then --15 Dämonenandenken
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --¨ú±o¤@*Ó®É+1
ay("Biologist:")
say("Great, this one is ok.")
say("You handed out ".." "..10-pc.getqf("collect_count").. " memories yet!")
say("bring me some more so")
say("I can finish my assays.")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
ay("Biologist:")
say("You brought me ten memories...")
say("No I want you to bring me")
say("Sagyis soul stone.")
say("You'll get it from black daemons ...")
say("You look strong enough")
say("for that.")
say("")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(key_item)
return
else
say("Biologist:")
say("Sorry, but this memory broke")
say("during my assays.")
say("Bring me a new one please!")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
else
ssay("Biologist:")
say("Oh, I'm sorry, but I haven't")
say("finished my studys yet ...")
say("Please hand me over the memory")
say("when I'm ready for it.")
return
end
end
end
state key_item begin
when letter begin
send_letter("Sagyis soul stone")
if pc.count_item(30222)>0 then
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Bioquest")
end
end
end
when button or info begin
if pc.count_item(30222) >0 then
say_title("Sagyis soul stone")
say("")
--- l
say("The biologist needs your help!")
say("Go to her.")
say("")
return
end
say_title("Sagyis soul stone")
say("")
--- l
say("You collect all ten daemon memories")
say("succesfully ...")
say("Now I need you to bring me Sagyis soul stone.")
say_item_vnum(30222)----------Sagyis soul stone
say("Maybe it really content")
say("a soul?")
say("")
end
when 1031.kill or
1032.kill or
1033.kill or
1034.kill begin
local s = number(1, 500)
if s == 1 and pc.count_item(30222)==0 then
pc.give_item2(30222, 1)
send_letter("Sagyis soul stone")
end
end
when __TARGET__.target.click or
20084.chat."Sagyis soul stone" with pc.count_item(30222) > 0 begin
target.delete("__TARGET__")
say("Biologist:")
say("You took a hard time ...")
say("Therefor I'll increase your inner strenght!")
say("I'll give you a recipe to")
say("increase your inner strenght!")
say("Thanks to you I now unterstand")
say("the legend of Sagyis soul stone ...")
say("Take the recipe to Baek-Go.")
say("He'll help you.")
pc.remove_item(30222,1)
set_state(__reward)
end
end
state __reward begin
when letter begin
send_letter("Infos der Biologin")
local v = find_npc_by_vnum(20018)
if v != 0 then
target.vid("__TARGET__", v, "Doktor")
end
end
when button or info begin
ay_title("Access to the Biologist's Information!")
--- l
say("To receive the biologist's")
say("reward, take your recipe")
say("to Baek-Go.")
say("")
end
when __TARGET__.target.click or
20018.chat." ¬Ý¬ÝÃĤè¦n¶Ü" begin
target.delete("__TARGET__")
ssay("Baek-Go:")
say("I see ..")
say("The biologist sent you with a recipe?")
say("let me take a look at it ...")
say("All right ... this recipe will increase")
say("your defence skill by 60.")
say_reward("You succesfully supported the biologist")
say_reward("As reward, your defence skill")
say_reward("was permanently increased by 60!")
affect.add_collect(apply.DEF_GRADE_BONUS,60,60*60*24*365*60) -----¡V60¦~
clear_letter()
set_quest_state("collect_quest_lv60", "run")
set_state(__complete)
end
end
state __complete begin
end
end
PHP Code:
----------------------------------------------------
--COLLECT QUEST_lv60
--METIN2 Collect Quest
----------------------------------------------------
quest collect_quest_lv60 begin
state start begin
end
state run begin
when login or levelup with pc.level >= 60 and pc.level <= 90 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, "Bioquest")
end
send_letter("The biologist's assays 4")
end
when button or info begin
say_title("The biologist's assays 4")
say("")
say("The biologist need your help!")
say("Go to her.")
say("")
end
when __TARGET__.target.click or
20084.chat."Eiskugeln" begin
target.delete("__TARGET__")
say("Biologin:")
say("Biologin:")
--- l
say("Oh!!! You're helping me?")
say("All right ...")
say("By the way, I am the biologist.")
say("Ich study various plants.")
say("If you'll help me with my assays,")
say("I gonna richly reward you.")
wait()
say("Biologist:")
say("I just started again ...")
say("I explore an acient legend...")
say("I'm too stressed now,")
say("so I need your help...")
say("")
say("")
say("")
say("")
wait()
say("I need ten ice theet for my")
say("assays ...")
say("But the theet tend to break easly,")
say("so the can be destroyed")
say("while my assasy.")
say("I need all ten ice theet to unterstand")
say("what exactly is behind")
say("that legend...")
set_state(go_to_disciple)
pc.setqf("duration",0) -- ¥i¥H¸Õ¸Õªº®É¶¡
pc.setqf("collect_count",0)-- ¨ú±oªºª««~¼Æ¶q
pc.setqf("drink_drug",0) -- ³Ü°g´bÃĤôªº¸Ü1
end
end
state go_to_disciple begin
when letter begin
ssend_letter("The biologist's appeal!")
end
when button or info begin
say_title("ice theet")
--- l
say("")
say("The biologist gave you the quest")
say("to bring her ten ice theet!")
say("Collect them from ices and")
say("hand them over to the biologist.")
say("")
say("")
say_item_vnum(30050)
say_reward("Du hast".." "..pc.getqf("collect_count").."abgegeben")
end
when 71035.use begin -- °g´bÃĤô
if get_time() < pc.getqf("duration") then
say("ÁÙ¤£¥i¥H¨Ï¥Î°g´bÃĤô")
return
end
if pc.getqf("drink_drug")==1 then
say("¤w¸g¨Ï¥Î¤F1¦¸")
return
end
if pc.count_item(30050)==0 then
say("What a pity you have")
say("no ice ball with you.")
say("Please search for a new one!")
say("")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 20084.chat."Eiskugeln" with pc.count_item(30050) >0 begin
if get_time() > pc.getqf("duration") then
say("Wait a moment ...")
--- l
say("Thanks,")
say("I'll take a quick look")
say("if the ball is still ok ...")
say("")
pc.remove_item(30050, 1)
pc.setqf("duration",get_time()+60*60*22)------------------22¤p®É
wait()
local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=60
else
pass_percent=90
end
local s= number(1,100)
if s<= pass_percent then
if pc.getqf("collect_count")< 19 then --20*Eiskugeln
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --¨ú±o¤@*Ó®É+1
ay("Biologist:")
say("Great, this one is ok.")
say("You handed out ".." "..10-pc.getqf("collect_count").. " balls yet!")
say("bring me some more so")
say("I can finish my assays.")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
ay("Biologist:")
say("You brought me ten balls...")
say("No I want you to bring me")
say("Aurtumryus soul stone.")
say("You'll get it from black ices ...")
say("You look strong enough")
say("for that.")
say("")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(key_item)
return
else
say("Biologist:")
say("Sorry, but this ball broke")
say("during my assays.")
say("Bring me a new one please!")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
else
say("Biologist:")
say("Oh, I'm sorry, but I haven't")
say("finished my studys yet ...")
say("Please hand me over the ball")
say("when I'm ready for it.")
return
end
end
end
state key_item begin
when letter begin
send_letter("Aurtumryus soul stone")
if pc.count_item(30223)>0 then
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Bioquest")
end
end
end
when button or info begin
if pc.count_item(30223) >0 then
say_title("Aurtumryus soul stone")
say("")
--- l
say("The biologist needs your help!")
say("Go to her.")
say("")
return
end
say_title("Aurtumryus soul stone")
say("")
--- l
say("You collect all ten ice balls")
say("succesfully ...")
say("Now I need you to bring me Aurtumryus soul stone.")
say_item_vnum(30223)---------- Aurtumryus soul stone
say("Maybe it really content")
say("a soul?")
say(""))
end
when 1101.kill or
1102.kill or
1103.kill or
1104.kill or
1105.kill or
1106.kill or
1107.kill begin
local s = number(1, 500)
if s == 1 and pc.count_item(30223)==0 then
pc.give_item2(30223, 1)
send_letter("Aurtumryus soul stone")
end
end
when __TARGET__.target.click or
20084.chat."Aurtumryus soul stone" with pc.count_item(30223) > 0 begin
target.delete("__TARGET__")
say("Biologist:")
say("You took a hard time ...")
say("Therefor I'll increase your inner strenght!")
say("I'll give you a recipe to")
say("increase your inner strenght!")
say("Thanks to you I now unterstand")
say("the legend of Aurtumryus soul stone ...")
say("Take the recipe to Baek-Go.")
say("He'll help you.")
pc.remove_item(30223,1)
set_state(__reward)
end
end
state __reward begin
when letter begin
send_letter("Infos der Biologin")
local v = find_npc_by_vnum(20018)
if v != 0 then
target.vid("__TARGET__", v, "Baek-Go")
end
end
when button or info begin
ay_title("Access to the Biologist's Information!")
--- l
say("To receive the biologist's")
say("reward, take your recipe")
say("to Baek-Go.")
say("")
end
when __TARGET__.target.click or
20018.chat."Belohnung" begin
target.delete("__TARGET__")
say("Baek-Go:")
say("I see ..")
say("The biologist sent you with a recipe?")
say("let me take a look at it ...")
say("All right ... this recipe will increase")
say("your attack skill by 50.")
say_reward("You succesfully supported the biologist")
say_reward("As reward, your attack skill")
say_reward("was permanently increased by 50!")
affect.add_collect(apply.ATT_GRADE_BONUS,50,60*60*24*365*60)--¡X60¦~
clear_letter()
set_quest_state("collect_quest_lv70", "run")
set_state(__complete)
end
end
state __giveup__ begin
end
state __complete begin
end
end
PHP Code:
----------------------------------------------------
--COLLECT QUEST_lv80
--METIN2 collect quest
----------------------------------------------------
quest collect_quest_lv80 begin
state start begin
end
state run begin
when login or levelup with pc.level >= 80 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, "Bioquest")
end
send_letter("The biologist's assays 5")
end
when button or info begin
say_title("The biologist's assays 5")
say("")
say("The biologist need your help!")
say("Go to her.")
say("")
end
when __TARGET__.target.click or
20084.chat."Tugyis Tafeln" begin
target.delete("__TARGET__")
say("Biologin:")
--- l
say("Oh!!! You're helping me?")
say("All right ...")
say("By the way, I am the biologist.")
say("I study various plants.")
say("If you'll help me with my assays,")
say("I gonna richly reward you.")
wait()
say("Biologist:")
say("I just started again ...")
say("I explore an acient legend...")
say("I'm too stressed now,")
say("so I need your help...")
say("")
say("")
say("")
say("")
wait()
say("I need ten tugys theet for my")
say("assays ...")
say("But the theet tend to break easly,")
say("so the can be destroyed")
say("while my assasy.")
say("I need all ten tugys theet to unterstand")
say("what exactly is behind")
say("that legend...")
set_state(go_to_disciple)
pc.setqf("duration",0) -- ¥i¥H¸Õ¸Õªº®É¶¡
pc.setqf("collect_count",0)-- ¨ú±oªºª««~¼Æ¶q
pc.setqf("drink_drug",0) --³Ü°g´bÃĤôªº¸Ü 1
end
end
state go_to_disciple begin
send_letter("The biologist's appeal!")
end
when button or info begin
say_title("tugys theet")
--- l
say("")
say("The biologist gave you the quest")
say("to bring her ten tugys theet!")
say("Collect them from tugyss and")
say("hand them over to the biologist.")
say("")
say("")
say_item_vnum(30166)
say_reward("Du hast".." "..pc.getqf("collect_count").."abgegeben")
say("")
end
when 71035.use begin --°g´bÃĤô
if get_time() < pc.getqf("duration") then
say("ÁÙ¤£¥i¥H¨Ï¥Î°g´bÃĤô")
return
end
if pc.getqf("drink_drug")==1 then
say("¤w¸g¨Ï¥Î¤F1¦¸")
return
end
if pc.count_item(30166)==0 then
say("What a pity you have")
say("no tugys table with you.")
say("Please search for a new one!")
say("")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 1401.kill or
1402.kill or
1403.kill or
1601.kill or
1602.kill or
1603.kill begin
local s = number(1, 100)
if s <= 5 and pc.count_item(30166)==0 then
pc.give_item2(30166, 1)
end
end
when 20084.chat."Tugyis Tafeln" with pc.count_item(30166) >0 begin
if get_time() > pc.getqf("duration") then
say("Wait a moment ...")
--- l
say("Thanks,")
say("I'll take a quick look")
say("if the table is still ok ...")
say("")
pc.remove_item(30166, 1)
pc.setqf("duration",get_time()+60*60*22)--------------22¤p®É
wait()
local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=60
else
pass_percent=90
end
local s= number(1,100)
if s<= pass_percent then
if pc.getqf("collect_count")< 29 then --30*Tugyis Tafeln
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --¨ú±o»õ¦U±o®É+1
ay("Biologist:")
say("Great, this one is ok.")
say("You handed out ".." "..10-pc.getqf("collect_count").. " tables yet!")
say("bring me some more so")
say("I can finish my assays.")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
ay("Biologist:")
say("You brought me ten tables...")
say("No I want you to bring me")
say("Tugyis soul stone.")
say("You'll get it from black tugyss ...")
say("You look strong enough")
say("for that.")
say("")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(key_item)
return
else
say("Biologist:")
say("Sorry, but this table broke")
say("during my assays.")
say("Bring me a new one please!")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
else
say("Biologist:")
say("Oh, I'm sorry, but I haven't")
say("finished my studys yet ...")
say("Please hand me over the table")
say("when I'm ready for it.")
return
end
end
end
state key_item begin
when letter begin
send_letter("Tugyis Tafeln")
if pc.count_item(30225)>0 then
local v = find_npc_by_vnum(20084)
if v != 0 then
target.vid("__TARGET__", v, "Bioquest")
end
end
end
when button or info begin
if pc.count_item(30225) >0 then
say_title("Tugyis soul stone")
say("")
--- l
say("The biologist needs your help!")
say("Go to her.")
say("")
return
end
say_title("Tugyis soul stone")
say("")
--- l
say("You collect all ten tugys tables")
say("succesfully ...")
say("Now I need you to bring me Tugyis soul stone.")
say_item_vnum(30225)---------- Tugyis soul stone
say("Maybe it really content")
say("a soul?")
say("")
end
when 1401.kill or
1402.kill or
1403.kill or
1601.kill or
1602.kill or
1603.kill begin
local s = number(1, 200)
if s == 1 and pc.count_item(30225)==0 then
pc.give_item2(30225, 1)
send_letter("Tugyis soul stone")
end
end
when __TARGET__.target.click or
20084.chat."Tugyis soul stone" with pc.count_item(30225) > 0 begin
target.delete("__TARGET__")
say("Biologist:")
say("You took a hard time ...")
say("Therefor I'll increase your inner strenght!")
say("I'll give you a recipe to")
say("increase your inner strenght!")
say("Thanks to you I now unterstand")
say("the legend of Tugyis soul stone ...")
say("Take the recipe to Baek-Go.")
say("He'll help you.")
pc.remove_item(30225,1)
set_state(__reward)
end
end
state __reward begin
when letter begin
send_letter("Info der Biologin")
local v = find_npc_by_vnum(20018)
if v != 0 then
target.vid("__TARGET__", v, "Baek-Go)
end
end
when button or info begin
ay_title("Access to the Biologist's Information!")
--- l
say("To receive the biologist's")
say("reward, take your recipe")
say("to Baek-Go.")
say("")
end
when __TARGET__.target.click or
20018.chat."Belohnung" begin
target.delete("__TARGET__")
say("Baek-Go:")
say("I see ..")
say("The biologist sent you with a recipe?")
say("let me take a look at it ...")
say("All right ...")
say_reward("You succesfully supported the biologist")
say_reward("As reward, your attack speed")
say_reward("was permanently increased by six")
say_reward("and your damage")
say_reward("was permanently increased by ten!")
affect.add_collect(apply.ATT_SPEED,6,60*60*24*365*60) --¡V60¦~
affect.add_collect_point(POINT_ATT_BONUS,10,60*60*24*365*60) --60³â
clear_letter()
set_state(__complete)
end
end
state __complete begin
end
end
PHP Code:
-------------------------------------
--Metin2 Premium Zone Pass Quest
------------------------------------
quest check_trans_ticket begin
state start begin
when login or levelup with pc.level >0 begin
set_state(zone_enter)
end
end
state zone_enter begin
when 20088.chat."Entry Inspection" begin
say("")
say("Chuk-Sal:")
say("Oh, I've never seen a man who wants to explore this mysterios dungeon")
say("I am the protector of the magic seal..")
say("Evil creatures can not see me..")
say("First, let me see your pass.")
say("")
wait()
say("")
say("")
if pc.get_premium_remain_sec(PREMIUM_EXP) > 0 then
say("")
say("oh.....you are qualified.")
say("Please go in")
say("As long as you are resistered to the kingdom")
say("You can visit anytime")
wait()
pc.warp(704100,464100)
return
end
if pc.count_item(71095)>0 then
say("")
say("You have the pass certificate.")
say("")
pc.remove_item(71095)
elseif pc.count_item(71096) >0 then
say("")
say("You have the pass certicicate.")
say("")
else
say("You need the pass")
say("I cannot let you know if you don't have the pass.")
return
end
say("Well.....Follow me")
wait()
pc.warp(704100, 464100)
end
end
end
PHP Code:
quest check_collect_reward begin
state start begin
when 20018.chat."Recipe lost" begin
say("You lost the recipe")
say("You are careless!")
say("But I'll give you another chance.")
say("")
wait("")
local value = "557528158"
local a = get_quest_state("collect_quest_lv30")
local b = get_quest_state("collect_quest_lv40")
local c = get_quest_state("collect_quest_lv50")
local d = get_quest_state("collect_quest_lv60")
local e = get_quest_state("collect_quest_lv70")
local f = get_quest_state("collect_quest_lv80")
local a_ = string.format("%d", a)
local b_ = string.format("%d", b)
local c_ = string.format("%d", c)
local d_ = string.format("%d", d)
local e_ = string.format("%d", e)
local f_ = string.format("%d", f)
affect.remove_collect() -- remove all
if a_== value then
affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60)
say("Biologist level 30 compleded")
end
if b_== value then
affect.add_collect(apply.ATT_SPEED,5,60*60*24*365*60)
say("Biologist level 40 compleded")
end
if c_== value then
affect.add_collect(apply.DEF_GRADE_BONUS,60,60*60*24*365*60)
say("Biologist level 50 compleded")
end
if d_== value then
affect.add_collect(apply.ATT_GRADE_BONUS,50,60*60*24*365*60)
say("Biologist level 60 compleded")
end
if e_== value then
affect.add_collect(apply.MOV_SPEED,11,60*60*24*365*60)
affect.add_collect_point(POINT_DEF_BONUS,10,60*60*24*365*60) --60¥¸
say("Task succesfully")
say("Defense 10% of its attribute")
say("This'll be shown in game.")
say("")
end
if f_== value then
affect.add_collect(apply.ATT_SPEED,6,60*60*24*365*60) --60¥¸
affect.add_collect_point(POINT_ATT_BONUS,10,60*60*24*365*60) --60¥¸
say("Task succesfully")
say("Offence power 10% of its attribute")
say("This'll be shown in game.")
say("")
end
wait()
say("")
say("Good bye!.")
say("")
end
end
end
PHP Code:
quest changename begin
state start begin
when 71055.use begin
say_title("Name change:")
say("")
say("With the help of this item you are able to change your name")
say("once, so think wise, whether")
say("you really want to change your name!")
say("")
say_reward("You really want to change your name?")
say("")
local change = select("Yes", "No")
if change == 1 then
say_title("Name change:")
say("")
say("So you really want to change your name!")
say("Before you are allowed to change your name, we have to")
say("check the availability before")
say("ist.")
say("")
say_reward("Type ypur name here:")
say("")
local c_name = input()
local c_search = find_pc_by_name(c_name)
if c_search==0 then
say_title("Name change:")
say("")
say("This one is still available. You sure that")
say("you want to be called "..c_name.."?")
say("")
local secure = select("Yes", "No")
if secure == 1 then
say_title("Name change:")
say("")
say("Congratulations!")
say("")
say("Your name was changed to "..c_name.."!")
say("")
say_reward("Please relog once to")
say_reward("save the change!")
say("")
pc.change_name(c_name)
pc.remove_item(71055, 1)
else
say_title("Name change:")
say("")
say("A pity you decided against,")
say("but you might like to change your name")
say("somewhen other!")
say("")
end
else
say_title("Name change:")
say("")
say("This name is not available, please")
say("look for a new, available one!")
say("")
end
else
return
end
end
end
end
PHP Code:
quest buy_fishrod begin
state start begin
when 9009.chat."Sparpaket" with pc.level>=7 and pc.level<=17 begin
say("Hey lubber")
say("Do you want to buy")
say("a austerity package and participate")
say("in a small fishing")
say("competion?")
say("")
say("It'll cost you about 300 Yang.")
local b=select("Ok", "No, thanks")
if 1==b then
if pc.money>=3000 then
pc.changemoney(-3000)
say("A good choice.")
say("Here's your")
say("austerity package.")
pc.give_item2("27400", 1)
pc.give_item2("27800", 100)
pc.give_item2("27801", 20)
setstate(notify_event)
else
say("Ok")
say("Then it shouldn't be.")
say("Guess there are more important things to do for you.")
end
elseif 2==b then
else
say("UNKNOWN BUTTON ["..b.."]")
end
end
end
state notify_event begin
when letter begin
setskin(NOWINDOW)
makequestbutton("The competion")
q.set_title("The competion")
q.start()
end
when button begin
say(locale.NOTICE_COLOR.."The competion"..locale.NORMAL_COLOR)
say("This small")
say("competion")
say("is about")
say("to fish five zanders")
say("the fastes way possible.")
say("You")
say("ready?")
local b=select("YEAH", "Fishing sucks")
if 1==b then
setstate(play_event)
elseif 2==b then
setstate(__COMPLETE__)
q.done()
else
say("UNKNOWN BUTTON ["..b.."]")
end
end
when info begin
sasay(locale.NOTICE_COLOR.."The competion"..locale.NORMAL_COLOR)
say("This small")
say("competion")
say("is about")
say("to fish five zanders")
say("the fastes way possible.")
say("You")
say("ready?")
local b=select("YEAH", "Fishing sucks")
if 1==b then
setstate(play_event)
elseif 2==b then
setstate(__COMPLETE__)
q.done()
else
say("UNKNOWN BUTTON ["..b.."]")
end
end
end
state play_event begin
when letter begin
setskin(NOWINDOW)
makequestbutton("The competion")
q.set_title("the competion")
q.start()
end
when button begin
say(locale.NOTICE_COLOR.."The competion"..locale.NORMAL_COLOR)
say("You accepted the challenge.")
say("Fish five zanders. Fast!")
end
when info begin
say(locale.NOTICE_COLOR.."The competion"..locale.NORMAL_COLOR)
say("You accepted the challenge.")
say("Fish five zanders. Fast!") end
when 9009.chat."The competion" with pc.countitem("27833")>=5 begin
say("Jesus Christ!")
say("You're really fast.")
setstate(reward)
end
when 9009.chat."The Lord of the Rods Àò±o³¨³½¤ñÁɼú«~" with pc.countitem("27833")<5 begin
say("You yet")
say("don't have")
say("five zanders.")
end
end
state reward begin
when letter begin
setskin(NOWINDOW)
makequestbutton("Winner")
q.set_title("You are the winner!")
q.start()
end
when button begin
say(locale.NOTICE_COLOR.."Winner"..locale.NORMAL_COLOR)
say("You beated the")
say("fisher succesfully.")
say("")
if pc.countitem("27833")>=5 then
pc.removeitem("27833", 5)
say("You reward")
say("")
if pc.job==0 then
local r=number(1, 10)
if r==1 then
pc.give_item2("00013", 1)
elseif r==2 then
pc.give_item2("00023", 1)
elseif r==3 then
pc.give_item2("00033", 1)
elseif r==4 then
pc.give_item2("00043", 1)
elseif r==5 then
pc.give_item2("00053", 1)
elseif r==6 then
pc.give_item2("03003", 1)
elseif r==7 then
pc.give_item2("03013", 1)
elseif r==8 then
pc.give_item2("03023", 1)
elseif r==9 then
pc.give_item2("03033", 1)
elseif r==10 then
pc.give_item2("03043", 1)
end
elseif pc.job==1 then
local r=number(1, 15)
if r==1 then
pc.give_item2("00013", 1)
elseif r==2 then
pc.give_item2("00023", 1)
elseif r==3 then
pc.give_item2("00033", 1)
elseif r==4 then
pc.give_item2("00043", 1)
elseif r==5 then
pc.give_item2("00053", 1)
elseif r==6 then
pc.give_item2("01003", 1)
elseif r==7 then
pc.give_item2("04003", 1)
elseif r==8 then
pc.give_item2("01013", 1)
elseif r==9 then
pc.give_item2("04013", 1)
elseif r==10 then
pc.give_item2("01023", 1)
elseif r==11 then
pc.give_item2("02003", 1)
elseif r==12 then
pc.give_item2("02013", 1)
elseif r==13 then
pc.give_item2("02023", 1)
elseif r==14 then
pc.give_item2("02033", 1)
elseif r==15 then
pc.give_item2("2043", 1)
end
elseif pc.job==2 then
local r=number(1, 6)
if r==1 then
pc.give_item2("00013", 1)
elseif r==2 then
pc.give_item2("00023", 1)
elseif r==3 then
pc.give_item2("00033", 1)
elseif r==4 then
pc.give_item2("00043", 1)
elseif r==5 then
pc.give_item2("00053", 1)
elseif r==6 then
pc.give_item2("00053", 1)
end
elseif pc.job==3 then
local r=number(1, 8)
if r==1 then
pc.give_item2("05003", 1)
elseif r==2 then
pc.give_item2("05013", 1)
elseif r==3 then
pc.give_item2("05023", 1)
elseif r==4 then
pc.give_item2("07003", 1)
elseif r==5 then
pc.give_item2("07013", 1)
elseif r==6 then
pc.give_item2("07023", 1)
elseif r==7 then
pc.give_item2("07033", 1)
elseif r==8 then
pc.give_item2("07043", 1)
end
end
else
say("WOW")
say("What effort!")
say("Salvation's hail!")
end
setstate(__COMPLETE__)
q.done()
end
end
state __COMPLETE__ begin
when enter begin
q.done()
end
end
end
PHP Code:
quest blacksmith begin
state start begin
when blacksmith.chat."I want to enhance smth" begin
say(locale.blacksmith.refine_info)
end
end
end