A quest do biologo que estou usando vai ate o lvl 90.
Quando completo a ultima quest, ele me manda ir no baek go receber a recompensa.
Eu vou, recebo a recompensa.
Ao logar a conta novamente, ele me manda ir no baek go novamente e recebo a recompensa. E assim fica se repetindo toda vez que logo.
Só acontece isso na ultima.
Como resolvo.
Abaixo estou inserindo a missão do biologo:
----------------------------------
-- LvL 30 / Dentes de Orc
----------------------------------
quest bio begin
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, "Biologe")
end
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("A Pesquisa do Biólogo")
say("Girab o Biólogo precisa de sua ajuda.")
say("")
say_reward("Fale com o Biólogo.")
end
when __TARGET__.target.click or 20084.chat."Dentes de Orc" begin
target.delete("__TARGET__")
say_title("Girab o Biólogo")
say("Oh, você quer me ajudar?")
say("Bom...")
say("Como você sabe eu sou o Biólogo,")
say("e gosto muito de fazer pesquisas sobre")
say("os monstros que habitam-se em outros locais.")
say("Se me ajudar, será muito bem recompensado.")
wait()
say_title("Girab o Biólogo")
say("Recentemente começei uma nova pesquisa...")
say("É sobre uma antiga lenda...")
say("Mas no momento estou muito ocupado")
say("e seria ótimo se você me ajudasse...")
wait()
say_title("Girab o Biólogo")
say("Eu preciso de 10 Dentes de Orc para minha pesquisa.")
say("No entando, alguns são muito frágeis, por isso,")
say("pode ser que alguns se quebrem na pesquisa.")
say("Os Dentes podem ser encontrados no Vale Suryong.")
say("")
say_reward("Monstros: Orc Negro Bravo e Orc Negro Gigante Bravo.")
set_state(collect_orcteeth)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_orcteeth begin
when letter begin
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("Os Orcs do Vale Suryong")
say("Girab o Biólogo precisa de 10 Dentes de Orc")
say("do Vale Suryong para examinar.")
say("Traga somente um de cada vez.")
say("")
say_reward("Monstros: Orc Negro Bravo e Orc Negro Gigante Bravo.")
say("")
say_item_vnum(30006)
say_reward("Você já entregou "..pc.getqf("collect_count").." Dentes de Orc.")
end
when 71035.use begin --Quest Potion
if pc.getqf("drink_drug")==1 then
say("O Soro da Persuasão já está em uso.")
return
end
if pc.count_item(30006)==0 then
say_title("Girab o Biólogo")
say("Ainda não é possível tomar o Soro da Persuasão.")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 636.kill or 637.kill begin
local rand = number(0,99)
if rand<5 then pc.give_item2(30006, 1)
end
end
when 20084.chat."Os Dentes de Orc" with pc.count_item(30006)>0 begin
if get_time()>pc.getqf("duration") then
say_title("Girab o Biólogo")
say("Oh, você trouxe um Dente...")
say("Tenho que testá-lo primeiro...")
say("Preciso de tempo. O teste pode demorar um pouco.")
pc.remove_item("30006", 1)
pc.setqf("duration",get_time() + 1*1)
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_title("Girab o Biólogo")
say("Excelente!")
say("Este Dente está em perfeitas condições.")
say("Traga-me mais Dentes com está qualidade.")
say("")
say_reward("Você já entregou "..pc.getqf("collect_count").." Dentes de Orc.")
else
say_title("Girab o Biólogo")
say("Parabéns!")
say("Você me trouxe todos os 10 Dentes de Orc.")
say("Agora para finalizar minha pesquisa preciso")
say("da Pedra da Alma Orc. Que você pode conseguir")
say("no Vale Suryong.")
say("")
say_reward("Monstros: Orc Negro Bravo e Orc Negro Gigante Bravo.")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_jinunggyis)
end
else
say_title("Girab o Biólogo")
say("Hum... infelizmente o Dente está quebrado...")
say("Desculpe, mas não posso usar para a pesquisa.")
say("Por favor, traga-me outro Dente de Orc.")
end
else
say_title("Girab o Biólogo")
say("Eu sinto muito...")
say("Mas ainda não analizei o Dente que me trouxe antes.")
say("Poderia me trazer outro depois?")
end
end
end
state collect_jinunggyis begin
when letter begin
send_letter("A Pedra da Alma Orc")
end
when button or info begin
say_title("A Pedra da Alma Orc")
say("Você já me entregou todos os 10 Dentes de Orc.")
say("Agora preciso que você me traga a Pedra da Alma Orc.")
say("")
say_reward("Monstros: Orc Negro Bravo e Orc Negro Gigante Bravo.")
say("")
say_item_vnum(30220)
say("Será que essa pedra contém uma Alma de Orc?")
end
when 636.kill or 637.kill begin
if pc.count_item(30220)<1 then
local rand = number(0,99)
if rand<3 then pc.give_item2(30220, 1)
end
end
end
when 20084.chat."A Pedra da Alma Orc" begin
if pc.count_item(30220)>0 then
say_title("Girab o Biólogo")
say("Graças a você agora eu entendo a lenda sobre")
say("a Pedra da Alma Orc.")
say("Você batalhou muito para isso.Fale com o Baek Go")
say("ele vai ajudar a você aumentar a sua")
say("força interior.")
pc.remove_item(30220,1)
set_state(jinunggyis_reward)
else
say_title("Girab o Biólogo")
say("Você me trouxe os 10 Dentes de Orc.")
say("Agora preciso que você me traga a Pedra da Alma Orc.")
say("Você pode conseguir essa pedra no Vale Suryong.")
say("")
say_reward("Monstros:Orc Negro Bravo e Orc Negro Gigante Bravo.")
end
end
end
state jinunggyis_reward begin
when letter begin
send_letter("Fale com 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_title("Recompensa do Biólogo")
say("Para receber a recompensa da ajuda feita")
say("para a pesquisa sobre os Dentes de Orc do Biólogo")
say("você precisa ir até o Baek Go.")
end
when __TARGET__.target.click or 20018.chat."Recompensa do Biólogo" begin
target.delete("__TARGET__")
say_title("Baek Go")
say("Hum...")
say("O Biólogo pediu para você vir até mim?")
say("Aqui está a sua recompensa...")
say("")
say_reward("Você vai receber:")
say_reward("10% de Velocidade de Movimento (Permanente)")
affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60)
set_state(collect_quest_lv40)
end
end
----------------------------------
-- LvL 40 / Livro de Maldições
----------------------------------
state collect_quest_lv40 begin
when login or levelup with pc.level>39 begin
set_state(talk_to_disciple_lv40)
end
end
state talk_to_disciple_lv40 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("A Pesquisa do Biólogo")
say("")
say("Girab o Biólogo precisa de você novamente.")
say("Ele disse que precisa de ajuda para")
say("conseguir alguns itens específicos")
say("para sua nova pesquisa.")
say("")
say_reward("Fale com Girab o Biólogo.")
end
when __TARGET__.target.click or 20084.chat."Os Livros de Maldições" begin
target.delete("__TARGET__")
say_title("Girab o Biólogo")
say("Oh, que bom que você veio...")
say("A pesquisa sobre os Dentes de Orc eu terminei.")
say("Agora eu encontrei novos objetos")
say("que gostaria muito de examinar.")
wait()
say_title("Girab o Biólogo")
say("Eu até poderia fazer isso, mas como")
say("você sabe, eu tenho muitas coisas para fazer...")
say("Seria ótimo se você podesse me ajudar")
say("a conseguir esses objetos.")
wait()
say_title("Girab o Biólogo")
say("Quero investigar os Livros de Maldições.")
say("Para realizar a investigação, vou precisar")
say("de 15 Livros. No entanto os livros são antigos")
say("e podem haver páginas rasgadas.")
say("Você pode os encontrar no Vale Suryong.")
say("")
say_reward("Monstros:Fanático Evocador e Fanático Torturador.")
set_state(collect_cursebook)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_cursebook begin
when letter begin
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("Os Livros de Maldições")
say("Girab o Biólogo precisa de 15 Livros de Maldições")
say("do Vale Suryong para examinar.")
say("Traga somente um de cada vez.")
say("")
say_reward("Monstros:Fanático Evocador e Fanático Torturador.")
say_item_vnum(30047)
say_reward("Você já entregou "..pc.getqf("collect_count").." Livros das Maldições.")
end
when 71035.use begin --Quest Potion
if pc.getqf("drink_drug")==1 then
say("O Soro da Persuasão já está em uso.")
return
end
if pc.count_item(30047)==0 then
say_title("Girab o Biólogo")
say("Ainda não é possível tomar o Soro da Persuasão.")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 706.kill or 707.kill begin
local rand = number(0,99)
if rand<5 then pc.give_item2(30047, 1)
end
end
when 20084.chat."Os Livros de Maldições" with pc.count_item(30047)>0 begin
if get_time()>pc.getqf("duration") then
say_title("Girab o Biólogo")
say("Oh, você trouxe um Livro...")
say("Tenho que testá-lo primeiro...")
say("Preciso de tempo. O teste pode demorar um pouco.")
pc.remove_item("30047", 1)
pc.setqf("duration",get_time() + 1*1)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<15 then
pc.setqf("collect_count", count)
say_title("Girab o Biólogo")
say("Excelente!")
say("Este Livro está em perfeitas condições.")
say("Traga-me mais Livros desta qualidade.")
say("")
say_reward("Você já entregou "..pc.getqf("collect_count").." Livros de Maldições.")
else
say_title("Girab o Biólogo")
say("Parabéns!")
say("Você trouxe todos os 15 Livros de Maldições.")
say("Agora para finalizar minha pesquisa preciso")
say("da Pedra da Alma Fanática. Que você pode conseguir")
say("derrotando as Aranhas do primeiro andar da Gomi.")
say("")
say_reward("Monstros:Aranha Vermelha Mortal, Aranha de Garra Motal,")
say_reward("Aranha Soldado Mortal, Aranha Soldado Agressiva.")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_templekey)
end
else
say_title("Girab o Biólogo")
say("Hum... infelizmente o Livro está rasgado...")
say("Desculpe, mas não posso usar para a pesquisa.")
say("Por favor, traga-me outro Livro de Maldições.")
end
else
say_title("Girab o Biólogo")
say("Eu sinto muito...")
say("Mas ainda não analizei o Livro que me trouxe antes.")
say("Poderia me trazer outro depois?")
end
end
end
state collect_templekey begin
when letter begin
send_letter("A Pedra da Alma Fanática")
end
when button or info begin
say_title("A Pedra da Alma Fanática")
say("Você já me entregou os 15 Livros de Maldições.")
say("Agora preciso que você me traga a Pedra da Alma Fanática.")
say("")
say_reward("Monstros:Aranha Vermelha Mortal, Aranha de Garra Motal,")
say_reward("Aranha Soldado Mortal, Aranha Soldado Agressiva.")
say_item_vnum(30221)
say("Será que essa pedra contém uma Alma de Fanático?")
end
when 2033.kill or 2034.kill or 2035.kill or 2036.kill begin
if pc.count_item(30221)<1 then
local rand = number(0,99)
if rand<3 then pc.give_item2(30221, 1)
end
end
end
when 20084.chat."A Pedra da Alma Fanática" begin
if pc.count_item(30221)>0 then
say_title("Girab o Biólogo")
say("Graças a você agora eu entendo a lenda sobre")
say("a Pedra da Alma Fanática.")
say("Você batalhou muito para isso.Fale com o Baek Go")
say("ele vai ajudar a você aumentar a sua")
say("força interior.")
pc.remove_item(30221,1)
set_state(templekey_reward)
else
say_title("Girab o Biólogo")
say("Você me trouxe os 15 Livros de Maldições.")
say("Agora preciso da Pedra da Alma Fanática.")
say("Você pode conseguir essa pedra derrotando")
say("as Aranhas do primeiro andar da Gruta Gomi.")
say("")
say_reward("Monstros:Aranha Vermelha Mortal, Aranha de Garra Motal,")
say_reward("Aranha Soldado Mortal, Aranha Soldado Agressiva.")
end
end
end
state templekey_reward begin
when letter begin
send_letter("Fale com 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_title("Recompensa do Biólogo")
say("Para receber a recompensa da ajuda feita")
say("para a pesquisa sobre os Livros de Maldições")
say("do biólogo, você precisa ir até o Baek Go.")
end
when __TARGET__.target.click or 20018.chat."Recompensa do Biólogo" begin
target.delete("__TARGET__")
say_title("Baek Go")
say("Hum...")
say("O Biólogo pediu para você vir até mim?")
say("Aqui está a sua recompensa...")
say("")
say_reward("Você vai receber:")
say_reward("5% Velocidade de Ataque (Permanente)")
affect.add_collect(apply.ATT_SPEED,5,60*60*24*365*60)
set_state(collect_quest_lv50)
end
end
----------------------------------
-- LvL 50 / Lembranças Demoníacas
----------------------------------
state collect_quest_lv50 begin
when login or levelup with pc.level>49 begin
set_state(talk_to_disciple_lv50)
end
end
state talk_to_disciple_lv50 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("A Pesquisa do Biólogo")
say("Girab o Biólogo precisa de você novamente.")
say("Ele disse que precisa de ajuda para")
say("conseguir alguns itens específicos")
say("para sua nova pesquisa.")
say("")
say_reward("Fale com Girab o Biólogo.")
end
when __TARGET__.target.click or 20084.chat."Lembranças Demoníacas" begin
target.delete("__TARGET__")
say_title("Girab o Biólogo")
say("Oh, que bom que você veio...")
say("A pesquisa sobre os Livros das Maldições eu terminei.")
say("Agora eu encontrei novos objetos")
say("que gostaria muito de examinar.")
wait()
say_title("Girab o Biólogo")
say("Eu até poderia fazer isso, mas como")
say("você sabe, eu tenho muitas coisas para fazer...")
say("Seria ótimo se você podesse me ajudar")
say("a conseguir esses objetos.")
wait()
say_title("Girab o Biólogo")
say("Quero pesquisar sobre as Lembranças Demoníacas.")
say("Para realizar a pesquisa, vou precisar")
say("de 15 Lembranças. No entanto as Lembranças")
say("são fracas e podem se quebrar facilmente.")
say("Você pode as encontrar na Torre Sakita.")
say("")
say_reward("Monstros:Demônio, Demônio Arqueiro")
say_reward("Demônio Lanceiro e Demônio Shaman.")
set_state(collect_deamonitem)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_deamonitem begin
when letter begin
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("As Lembranças Demoníacas")
say("Girab o Biólogo precisa de 15 Lembranças Demoníacas")
say("da Torre Sakita para examinar.")
say("Traga somente um de cada vez.")
say("")
say_reward("Monstros:Demônio, Demônio Arqueiro")
say_reward("Demônio Lanceiro e Demônio Shaman.")
say_item_vnum(30015)
say_reward("Você já entregou "..pc.getqf("collect_count").." Lembranças Demoníacas.")
end
when 71035.use begin --Quest Potion
if pc.getqf("drink_drug")==1 then
say("O Soro da Persuasão já está em uso.")
return
end
if pc.count_item(30015)==0 then
say_title("Girab o Biólogo")
say("Ainda não é possível tomar o Soro da Persuasão.")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 1001.kill or 1002.kill or 1003.kill or 1004.kill begin
local rand = number(0,99)
if rand<5 then pc.give_item2(30015, 1)
end
end
when 20084.chat."As Lembranças Demoníacas" with pc.count_item(30015)>0 begin
if get_time()>pc.getqf("duration") then
say("Oh, você me trouxe uma Lembrança...")
say("Tenho que testá-la primeiro...")
say("Preciso de tempo. O teste pode demorar um pouco.")
pc.remove_item("30015", 1)
pc.setqf("duration",get_time() + 1*1)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<15 then
pc.setqf("collect_count", count)
say_title("Girab o Biólogo")
say("Excelente!")
say("Esta Lembrança está em perfeitas condições.")
say("Traga-me mais Lembranças desta qualidade.")
say("")
say_reward("Você já entregou "..pc.getqf("collect_count").." Lembranças Demoníacas.")
else
say_title("Girab o Biólogo")
say("Parabéns!")
say("Você trouxe todas as 15 Lembranças Demoníacas.")
say("Agora para finalizar minha pesquisa preciso")
say("da Pedra da Alma Demoníaca. Que você pode conseguir")
say("derrotando os Demônios da Torre Sakita.")
say("")
say_reward("Monstros:Demônio, Demônio Arqueiro")
say_reward("Demônio Lanceiro e Demônio Shaman.")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_sagyis)
end
else
say_title("Girab o Biólogo")
say("Hum... infelizmente a Lembrança está quebrada...")
say("Desculpe, mas não posso usar para a pesquisa.")
say("Por favor, traga-me outra Lembrança Demoníaca.")
end
else
say_title("Girab o Biólogo")
say("Eu sinto muito...")
say("Mas ainda não analizei a Lembrança que me trouxe.")
say("Poderia me trazer outra depois?")
end
end
end
state collect_sagyis begin
when letter begin
send_letter("A Lembrança Demoníaca")
end
when button or info begin
say_title("A Lembrança Demoníaca")
say("Você já me entregou as 15 Lembranças Demoníacas.")
say("Agora preciso que você me traga a Pedra da Alma Demoníaca.")
say("")
say_reward("Monstros:Demônio, Demônio Arqueiro")
say_reward("Demônio Lanceiro e Demônio Shaman.")
say_item_vnum(30222)
say("Será que essa pedra contém uma Alma de Demônio?")
end
when 1001.kill or 1002.kill or 1003.kill or 1004.kill begin
if pc.count_item(30222)<1 then
local rand = number(0,99)
if rand<3 then pc.give_item2(30222, 1)
end
end
end
when 20084.chat."A Pedra da Alma Demoníaca" begin
target.delete("__TARGET__")
if pc.count_item(30222)>0 then
say_title("Girab o Biólogo")
say("Graças a você agora eu entendo a lenda sobre")
say("a Pedra da Alma Demoníaca.")
say("Você batalhou muito para isso.Fale com o Baek Go")
say("ele vai ajudar a você aumentar a sua")
say("força interior.")
pc.remove_item(30222,1)
set_state(sagyis_reward)
else
say_title("Girab o Biólogo")
say("Você me trouxe as 15 Lembranças Demoníacas.")
say("Agora preciso da Pedra da Alma Demoníaca.")
say("Você pode conseguir essa pedra derrotando")
say("os Demônios da Torre Sakita.")
say("")
say_reward("Monstros:Demônio, Demônio Arqueiro")
say_reward("Demônio Lanceiro e Demônio Shaman.")
end
end
end
state sagyis_reward begin
when letter begin
send_letter("Fale com 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_title("Recompensa do Biólogo")
say("Para receber a recompensa da ajuda feita")
say("para a pesquisa sobre as Lembranças Demoníacas")
say("do Biólogo, você precisa ir até o Baek Go.")
end
when __TARGET__.target.click or 20018.chat."Recompensa do Biólogo" begin
target.delete("__TARGET__")
say_title("Baek Go")
say("Hum...")
say("O Biólogo pediu para você vir até mim?")
say("Aqui está a sua recompensa...")
say("")
say_reward("Você vai receber:")
say_reward("Defesa +60 (Permanente)")
affect.add_collect(apply.DEF_GRADE_BONUS,60,60*60*24*365*60)
set_state(collect_quest_lv60)
end
end
----------------------------------
-- LvL 60 / Esferas de Gelo
----------------------------------
state collect_quest_lv60 begin
when login or levelup with pc.level>59 begin
set_state(talk_to_disciple_lv60)
end
end
state talk_to_disciple_lv60 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("A Pesquisa do Biólogo")
say("")
say("Girab o Biólogo precisa de você novamente.")
say("Ele disse que precisa de ajuda para")
say("conseguir alguns itens específicos")
say("para sua nova pesquisa.")
say("")
say_reward("Fale com Girab o Biólogo.")
end
when __TARGET__.target.click or 20084.chat."As Esferas de Gelo" begin
target.delete("__TARGET__")
say_title("Girab o Biólogo")
say("Oh, que bom que você veio...")
say("A pesquisa sobre as Lembranças Demoníacas eu terminei.")
say("Agora eu encontrei novos objetos")
say("que gostaria muito de examinar.")
wait()
say_title("Girab o Biólogo")
say("Eu até poderia fazer isso, mas como")
say("você sabe, eu tenho muitas coisas para fazer...")
say("Seria ótimo se você podesse me ajudar")
say("a conseguir esses objetos.")
wait()
say_title("Girab o Biólogo")
say("Quero investigar as Esferas de Gelo.")
say("Para realizar a investigação, vou precisar")
say("de 20 Esferas. No entanto algumas Esferas podem")
say("derreter antes que eu acabe.")
say("Você pode as encontrar na Montanha Sohan.")
say("")
say_reward("Monstro: Golem de Gelo.")
set_state(collect_scoops)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_scoops begin
when letter begin
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("As Esferas de Gelo")
say("Girab o Biólogo precisa de 20 Esferas de Gelo")
say("da Montanha Sohan para examinar.")
say("Traga somente um de cada vez.")
say("")
say_reward("Monstro: Golem de Gelo.")
say_item_vnum(30050)
say_reward("Você já entregou "..pc.getqf("collect_count").." Esferas de Gelo!")
say("")
end
when 71035.use begin --Quest Potion
if pc.getqf("drink_drug")==1 then
say("O Soro da Persuasão já está em uso.")
return
end
if pc.count_item(30050)==0 then
say_title("Girab o Biólogo")
say("Ainda não é possível tomar o Soro da Persuasão.")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 1007.kill begin
local rand = number(0,99)
if rand<5 then pc.give_item2(30050, 1)
end
end
when 20084.chat."As Esferas de Gelo" with pc.count_item(30050)>0 begin
if get_time()>pc.getqf("duration") then
say_title("Girab o Biólogo")
say("Oh, você trouxe uma Esfera...")
say("Tenho que testá-la primeiro...")
say("Preciso de tempo. O teste pode demorar um pouco.")
pc.remove_item("30050", 1)
pc.setqf("duration",get_time() + 1*1)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<20 then
pc.setqf("collect_count", count)
say_title("Girab o Biólogo")
say("Excelente!")
say("Esta Esfera está em perfeitas condições.")
say("Traga-me mais Esferas desta qualidade.")
say_reward("Você já entregou "..pc.getqf("collect_count").." Esferas de Gelo.")
else
say_title("Girab o Biólogo")
say("Parabéns!")
say("Você trouxe todas as 20 Esferas de Gelo.")
say("Agora para finalizar minha pesquisa preciso")
say("da Pedra da Alma Gelada. Que você pode conseguir")
say("na Montanha Sohan.")
say("")
say_reward("Monstros: Orca de Gelo, Leão do Gelo e Homem do Gelo.")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_aurtumryus)
end
else
say_title("Girab o Biólogo")
say("Hum... infelizmente a Esfera derreteu...")
say("Desculpe, mas não posso usar para a pesquisa.")
say("Por favor, traga-me outra Esfera de Gelo.")
end
else
say_title("Girab o Biólogo")
say("Eu sinto muito...")
say("Mas ainda não analizei a Esfera que me trouxe antes.")
say("Poderia me trazer outra depois?")
end
end
end
state collect_aurtumryus begin
when letter begin
send_letter("A Pedra da Alma Gelada")
end
when button or info begin
say_title("A Pedra da Alma Gelada")
say("Você já me entregou as 20 Esferas de Gelo.")
say("Agora preciso que você me traga a Pedra da Alma Gelada.")
say("")
say_reward("Monstros: Orca de Gelo, Leão do Gelo e Homem do Gelo.")
say_item_vnum(30223)
say("Será que essa pedra contém uma Alma de Golem?")
end
when 1102.kill or 1104.kill or 1105.kill begin
if pc.count_item(30223)<1 then
local rand = number(0,99)
if rand<3 then pc.give_item2(30223, 1)
end
end
end
when 20084.chat."A Pedra da Alma Gelada" begin
if pc.count_item(30223)>0 then
say_title("Girab o Biólogo")
say("Graças a você agora eu entendo a lenda sobre")
say("a Pedra da Alma Gelada.")
say("Você batalhou muito para isso.Fale com o Baek Go")
say("ele vai ajudar a você aumentar a sua")
say("força interior.")
pc.remove_item(30223,1)
set_state(aurtumryus_reward)
else
say_title("Girab o Biólogo")
say("Você me trouxe as 20 Esferas de Gelo.")
say("Agora preciso da Pedra da Alma Gelada.")
say("Você pode conseguir essa pedra derrotando")
say("os Monstros da Montanha Sohan.")
say("")
say_reward("Monstros: Orca de Gelo, Leão do Gelo e Homem do Gelo.")
end
end
end
state aurtumryus_reward begin
when letter begin
send_letter("Fale com 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_title("Recompensa do Biólogo")
say("Para receber a recompensa da ajuda feita")
say("para a pesquisa sobre as Esferas de Gelo")
say("do biólogo, você precisa ir até o Baek Go.")
end
when __TARGET__.target.click or 20018.chat."Recompensa do Biólogo" begin
target.delete("__TARGET__")
say_title("Baek Go")
say("Hum...")
say("O Biólogo pediu para você vir até mim?")
say("Aqui está a sua recompensa...")
say("")
say_reward("Você vai receber:")
say_reward("Ataque +50 (Permanente)")
affect.add_collect(apply.ATT_GRADE_BONUS,50,60*60*24*365*60)
set_state(collect_quest_lv70)
end
end
----------------------------------
-- LvL 70 / Galhos Folhados
----------------------------------
state collect_quest_lv70 begin
when login or levelup with pc.level>69 begin
set_state(talk_to_disciple_lv70)
end
end
state talk_to_disciple_lv70 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("A Pesquisa do Biólogo")
say("Girab o Biólogo precisa de você novamente.")
say("Ele disse que precisa de ajuda para")
say("conseguir alguns itens específicos")
say("para sua nova pesquisa.")
say("")
say_reward("Fale com Girab o Biólogo.")
end
when __TARGET__.target.click or 20084.chat."Os Galhos Folhados" begin
target.delete("__TARGET__")
say_title("Girab o Biólogo")
say("Oh, que bom que você veio...")
say("A pesquisa sobre as Esferas de Gelo eu terminei.")
say("Agora eu encontrei novos objetos")
say("que gostaria muito de examinar.")
wait()
say_title("Girab o Biólogo")
say("Eu até poderia fazer isso, mas como")
say("você sabe, eu tenho muitas coisas para fazer...")
say("Seria ótimo se você podesse me ajudar")
say("a conseguir esses objetos.")
wait()
say_title("Girab o Biólogo")
say("Quero investigar os Galhos Folhados.")
say("Para realizar a investigação, vou precisar")
say("de 25 Galhos. No entanto os galhos são finos")
say("e podem se quebrar facilmente.")
say("Você pode os encontrar nas Florestas.")
say("")
say_reward("Monstros: Árvore Fantasma, Tronco Fantasma, Driade")
say_reward("Salgueiro Fantasma, Árvore Maligna, Árvore Fantasma Roxa")
say_reward("Tronco Fantasma Roxo, Driade Roxa")
say_reward("Salgueiro Fantasma Roxo e Árvore Maligna Roxa.")
set_state(collect_branches)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_branches begin
when letter begin
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("Os Galhos Folhados")
say("Girab o Biólogo precisa de 25 Galhos Folhados")
say("das Florestas para examinar.")
say("Traga somente um de cada vez.")
say("")
say_reward("Monstros: Árvore Fantasma, Tronco Fantasma, Driade")
say_reward("Salgueiro Fantasma, Árvore Maligna, Árvore Fantasma Roxa")
say_reward("Tronco Fantasma Roxo, Driade Roxa")
say_reward("Salgueiro Fantasma Roxo e Árvore Maligna Roxa.")
say_item_vnum(30165)
say_reward("Você já entregou "..pc.getqf("collect_count").." Galhos Folhados.")
end
when 71035.use begin --Quest Potion
if pc.getqf("drink_drug")==1 then
say("O Soro da Persuasão já está em uso.")
return
end
if pc.count_item(30165)==0 then
say_title("Girab o Biólogo")
say("Ainda não é possível tomar o Soro da Persuasão.")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 2301.kill or 2302.kill or 2303.kill or 2304.kill or 2305.kill or 2311.kill or
2312.kill or 2313.kill or 2314.kill or 2315.kill begin
local rand = number(0,99)
if rand<5 then pc.give_item2(30165, 1)
end
end
when 20084.chat."Os Galhos Folhados" with pc.count_item(30165)>0 begin
if get_time()>pc.getqf("duration") then
say_title("Girab o Biólogo")
say("Oh, você trouxe um Galho...")
say("Tenho que testá-lo primeiro...")
say("Preciso de tempo. O teste pode demorar um pouco.")
pc.remove_item("30165", 1)
pc.setqf("duration",get_time() + 1*1)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<25 then
pc.setqf("collect_count", count)
say_title("Girab o Biólogo")
say("Excelente!")
say("Este Galho está em perfeitas condições.")
say("Traga-me mais Galhos desta qualidade.")
say("")
say_reward("Você já entregou "..pc.getqf("collect_count").." Galhos Folhados.")
else
say_title("Girab o Biólogo")
say("Parabéns!")
say("Você trouxe todos os 25 Galhos Folhados.")
say("Agora para finalizar minha pesquisa preciso")
say("da Pedra da Alma Fantasma. Que você pode conseguir")
say("derrotando os Monstros das Florestas.")
say("")
say_reward("Monstros:Árvore Fantasma, Tronco Fantasma, Driade")
say_reward("Salgueiro Fantasma, Árvore Maligna, Árvore Fantasma Roxa")
say_reward("Tronco Fantasma Roxo, Driade Roxa")
say_reward("Salgueiro Fantasma Roxo e Árvore Maligna Roxa.")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_gyimoks)
end
else
say_title("Girab o Biólogo")
say("Hum... infelizmente o Galho está quebrado...")
say("Desculpe, mas não posso usar para a pesquisa.")
say("Por favor, traga-me outro Galho Folhado.")
end
else
say_title("Girab o Biólogo")
say("Eu sinto muito...")
say("Mas ainda não analizei o Galho que me trouxe antes.")
say("Poderia me trazer outro depois?")
end
end
end
state collect_gyimoks begin
when letter begin
send_letter("A Pedra da Alma Fantasma")
end
when button or info begin
say_title("A Pedra da Alma Fantasma")
say("Você já me entregou os 25 Galhos Folhados.")
say("Agora preciso que você me traga a Pedra da Alma Fantasma.")
say("")
say_reward("Monstros: Árvore Fantasma, Tronco Fantasma, Driade")
say_reward("Salgueiro Fantasma, Árvore Maligna, Árvore Fantasma Roxa")
say_reward("Tronco Fantasma Roxo, Driade Roxa")
say_reward("Salgueiro Fantasma Roxo e Árvore Maligna Roxa.")
say_item_vnum(30224)
say("Será que essa pedra contém uma Alma de Driade?")
end
when 2301.kill or 2302.kill or 2303.kill or 2304.kill or 2305.kill or 2311.kill or
2312.kill or 2313.kill or 2314.kill or 2315.kill begin
if pc.count_item(30224)<1 then
local rand = number(0,99)
if rand<3 then pc.give_item2(30224, 1)
end
end
end
when 20084.chat."A Pedra da Alma Fantasma" begin
target.delete("__TARGET__")
if pc.count_item(30224)>0 then
say_title("Girab o Biólogo")
say("Graças a você agora eu entendo a lenda sobre")
say("a Pedra da Alma Fantasma.")
say("Você batalhou muito para isso.Fale com o Baek Go")
say("ele vai ajudar a você aumentar a sua")
say("força interior.")
pc.remove_item(30224,1)
set_state(gyimoks_reward)
else
say_title("Girab o Biólogo")
say("Você me trouxe os 25 Galhos Folhados.")
say("Agora preciso da Pedra da Alma Fantasma.")
say("Você pode conseguir essa pedra derrotando")
say("os Monstros das Florestas.")
say("")
say_reward("Monstros:Árvore Fantasma, Tronco Fantasma, Driade")
say_reward("Salgueiro Fantasma, Árvore Maligna, Árvore Fantasma Roxa")
say_reward("Tronco Fantasma Roxo, Driade Roxa")
say_reward("Salgueiro Fantasma Roxo e Árvore Maligna Roxa.")
end
end
end
state gyimoks_reward begin
when letter begin
send_letter("Fale com 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_title("Recompensa do Biólogo")
say("Para receber a recompensa da ajuda feita")
say("para a pesquisa sobre os Galhos Folhados")
say("do biólogo, você precisa ir até o Baek Go.")
end
when __TARGET__.target.click or 20018.chat."Recompensa do Biólogo" begin
target.delete("__TARGET__")
say_title("Baek Go")
say("Hum...")
say("O Biólogo pediu para você vir até mim?")
say("Aqui está a sua recompensa...")
say("")
say_reward("Você vai receber:")
say_reward("11% Velocidade de Movimento (Permanente)")
say_reward("10% Defesa (Permanente)")
affect.add_collect(apply.MOV_SPEED,11,60*60*24*365*60)
affect.add_collect(apply.DEF_GRADE_BONUS,10,60*60*24*365*60)
set_state(collect_quest_lv80)
end
end
----------------------------------
-- LvL 80 / Símbolos Fantasmas
----------------------------------
state collect_quest_lv80 begin
when login or levelup with pc.level>79 begin
set_state(talk_to_disciple_lv80)
end
end
state talk_to_disciple_lv80 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("A Pesquisa do Biólogo")
say("Girab o Biólogo precisa de você novamente.")
say("Ele disse que precisa de ajuda para")
say("conseguir alguns itens específicos")
say("para sua nova pesquisa.")
say("")
say_reward("Fale com Girab o Biólogo.")
end
when __TARGET__.target.click or 20084.chat."Os Símbolos Fantasmas" begin
target.delete("__TARGET__")
say_title("Girab o Biólogo")
say("Oh, que bom que você veio...")
say("A pesquisa sobre os Galhos Folhados eu terminei.")
say("Agora eu encontrei novos objetos")
say("que gostaria muito de examinar.")
wait()
say_title("Girab o Biólogo")
say("Eu até poderia fazer isso, mas como")
say("você sabe, eu tenho muitas coisas para fazer...")
say("Seria ótimo se você podesse me ajudar")
say("a conseguir esses objetos.")
wait()
say_title("Girab o Biólogo")
say("Quero investigar os Símbolos Fantasmas.")
say("Para realizar a investigação, vou precisar")
say("de 30 Símbolos. No entanto os símbolos são antigos")
say("e podem haver manchas nas escritas..")
say("Você pode os encontrar nos Gigantes do Deserto 2.")
say("")
say_reward("Monstros: Gigante Soldado, Gigante Batedor, Gigante Herói")
say_reward("Gigante Operário, Gigante Supervisor, Gigante Gladiador.")
set_state(collect_plates)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_plates begin
when letter begin
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("Os Símbolos Fantasmas")
say("Girab o Biólogo precisa de 30 Símbolos Fantasmas")
say("do Deserto 2 para examinar.")
say("Traga somente um de cada vez.")
say("")
say_reward("Monstros: Gigante Soldado, Gigante Batedor, Gigante Herói")
say_reward("Gigante Operário, Gigante Supervisor, Gigante Gladiador.")
say_item_vnum(30166)
say_reward("Você já entregou "..pc.getqf("collect_count").." Símbolos Fantasmas.")
end
when 71035.use begin --Quest Potion
if pc.getqf("drink_drug")==1 then
say("O Soro da Persuasão já está em uso.")
return
end
if pc.count_item(30166)==0 then
say_title("Girab o Biólogo")
say("Ainda não é possível tomar o Soro da Persuasão.")
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 rand = number(0,99)
if rand<5 then pc.give_item2(30166, 1)
end
end
when 20084.chat."Os Símbolos Fantasmas" with pc.count_item(30166)>0 begin
if get_time()>pc.getqf("duration") then
say_title("Girab o Biólogo")
say("Oh, você trouxe um Símbolo...")
say("Tenho que testá-lo primeiro...")
say("Preciso de tempo. O teste pode demorar um pouco.")
pc.remove_item("30166", 1)
pc.setqf("duration",get_time() + 1*1)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<30 then
pc.setqf("collect_count", count)
say_title("Girab o Biólogo")
say("Excelente!")
say("Este Símbolo está em perfeitas condições.")
say("Traga-me mais Símbolos desta qualidade.")
say("")
say_reward("Você já entregou "..pc.getqf("collect_count").." Símbolos Fantasmas.")
else
say_title("Girab o Biólogo")
say("Parabéns!")
say("Você trouxe todos os 30 Símbolos Fantasmas.")
say("Agora para finalizar minha pesquisa preciso")
say("da Pedra da Alma Fantasma. Que você pode conseguir")
say("derrotando os Gigantes no Deserto 2.")
say("")
say_reward("Monstros: Gigante Soldado, Gigante Batedor, Gigante Herói")
say_reward("Gigante Operário, Gigante Supervisor, Gigante Gladiador.")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_tugyis)
end
else
say_title("Girab o Biólogo")
say("Hum... infelizmente o Símbolo está manchado...")
say("Desculpe, mas não posso usar para a pesquisa.")
say("Por favor, traga-me outro Símbolo Fantasma.")
end
else
say_title("Girab o Biólogo")
say("Eu sinto muito...")
say("Mas ainda não analizei o Livro que me trouxe antes.")
say("Poderia me trazer outro depois?")
end
end
end
state collect_tugyis begin
when letter begin
send_letter("A Pedra da Alma Gigante")
end
when button or info begin
say_title("A Pedra da Alma Gigante")
say("Você já me entregou os 30 Símbolos Fantasmas.")
say("Agora preciso que você me traga a Pedra da Alma Gigante.")
say("")
say_reward("Monstros: Gigante Soldado, Gigante Batedor, Gigante Herói")
say_reward("Gigante Operário, Gigante Supervisor, Gigante Gladiador.")
say_item_vnum(30225)
say("Será que essa pedra contém uma Alma de um Gigante?")
end
when 1401.kill or 1402.kill or 1403.kill or 1601.kill or 1602.kill or 1603.kill begin
if pc.count_item(30225)<1 then
local rand = number(0,99)
if rand<3 then pc.give_item2(30225, 1)
end
end
end
when 20084.chat."A Pedra da Alma Gigante" begin
if pc.count_item(30225)>0 then
say_title("Girab o Biólogo")
say("Graças a você agora eu entendo a lenda sobre")
say("a Pedra da Alma Gigante.")
say("Você batalhou muito para isso.Fale com o Baek Go")
say("ele vai ajudar a você aumentar a sua")
say("força interior.")
pc.remove_item(30225,1)
set_state(tugyis_reward)
else
say_title("Girab o Biólogo")
say("Você me trouxe os 30 Símbolos Fantasmas.")
say("Agora preciso da Pedra da Alma Gigante.")
say("Você pode conseguir essa pedra derrotando")
say("os Gigantes no Deserto 2.")
say("")
say_reward("Monstros: Gigante Soldado, Gigante Batedor, Gigante Herói")
say_reward("Gigante Operário, Gigante Supervisor, Gigante Gladiador.")
end
end
end
state tugyis_reward begin
when letter begin
send_letter("Fale com 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_title("Recompensa do Biólogo")
say("Para receber a recompensa da ajuda feita")
say("para a pesquisa sobre os Símbolos Fantasmas")
say("do biólogo, você precisa ir até o Baek Go.")
end
when __TARGET__.target.click or 20018.chat."Recompensa do Biólogo" begin
target.delete("__TARGET__")
say_title("Baek Go")
say("Hum...")
say("O Biólogo pediu para você vir até mim?")
say("Aqui está a sua recompensa...")
say("")
say_reward("Você vai receber:")
say_reward("6% Velocidade de Ataque (Permanente)")
say_reward("10% Ataque (Permanente)")
affect.add_collect(apply.ATT_SPEED,6,60*60*24*365*60)
affect.add_collect_point(POINT_ATT_BONUS,10,60*60*24*365*60)
set_state(collect_quest_lv90)
end
end
----------------------------------
-- LvL 90 / Emblemas do Rei Negro
----------------------------------
state collect_quest_lv90 begin
when login or levelup with pc.level>89 begin
set_state(talk_to_disciple_lv90)
end
end
state talk_to_disciple_lv90 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("A Pesquisa do Biólogo")
say("")
say("Girab o Biólogo precisa de você novamente.")
say("Ele disse que precisa de ajuda para")
say("conseguir alguns itens específicos")
say("para sua nova pesquisa.")
say("")
say_reward("Fale com Girab o Biólogo.")
end
when __TARGET__.target.click or 20084.chat."Emblemas do Rei Negro" begin
target.delete("__TARGET__")
say_title("Girab o Biólogo")
say("Oh, que bom que você veio...")
say("A pesquisa sobre os Símbolos Fantasmas eu terminei.")
say("Agora eu encontrei novos objetos")
say("que gostaria muito de examinar.")
wait()
say_title("Girab o Biólogo")
say("Eu até poderia fazer isso, mas como")
say("você sabe, eu tenho muitas coisas para fazer...")
say("Seria ótimo se você podesse me ajudar")
say("a conseguir esses objetos.")
wait()
say_title("Girab o Biólogo")
say("Quero investigar os Emblemas do Rei Negro.")
say("Para realizar a investigação, vou precisar")
say("de 50 Emblemas. No entanto os emblemas são antigos")
say("e podem haver anotações ilegíveis.")
say("Você pode os encontrar nos Boses dos Mapas.")
set_state(collect_notices)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_notices begin
when letter begin
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("Os Emblemas do Rei Negro")
say("Girab o Biólogo precisa de 50 Emblemas do Rei Negro")
say("dos montros mais fortes dos Mapas para examinar.")
say("Traga somente um de cada vez.")
say("")
say_item_vnum(30168)
say_reward("Você já entregou "..pc.getqf("collect_count").." Emblemas do Rei Negro.")
end
when 71035.use begin --Quest Potion
if pc.getqf("drink_drug")==1 then
say("O Soro da Persuasão já está em uso.")
return
end
if pc.count_item(30168)==0 then
say_title("Girab o Biólogo")
say("Ainda não é possível tomar o Soro da Persuasão.")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 691.kill or 791.kill or 793.kill or 1091.kill or 1092.kill or 1093.kill or 1304.kill or
1403.kill or 2091.kill or 2191.kill or 2206.kill or 2207.kill or 2493.kill or 2492.kill begin
local rand = number(0,99)
if rand<5 then pc.give_item2(30168, 1)
end
end
when 20084.chat."Os Emblemas do Rei Negro" with pc.count_item(30168)>0 begin
if get_time()>pc.getqf("duration") then
say_title("Girab o Biólogo")
say("Oh, você trouxe um Emblema...")
say("Tenho que testá-lo primeiro...")
say("Preciso de tempo. O teste pode demorar um pouco.")
pc.remove_item("30168", 1)
pc.setqf("duration",get_time() + 1*1)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<50 then
pc.setqf("collect_count", count)
say_title("Girab o Biólogo")
say("Excelente!")
say("Este Emblema está em perfeitas condições.")
say("Traga-me mais Emblemas desta qualidade.")
say("")
say_reward("Você já entregou "..pc.getqf("collect_count").." Emblemas do Rei Negro.")
else
say_title("Girab o Biólogo")
say("Parabéns!")
say("Você trouxe todos os 50 Emblemas do Rei Negro.")
say("Agora para finalizar minha pesquisa preciso")
say("da Pedra da Alma Real. Que você pode conseguir")
say("derrotando os Boses dos Mapas.")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_bossKey)
end
else
say_title("Girab o Biólogo")
say("Hum... infelizmente o Emblema está ilegível...")
say("Desculpe, mas não posso usar para a pesquisa.")
say("Por favor, traga-me outro Emblema do Rei Negro.")
end
else
say_title("Girab o Biólogo")
say("Eu sinto muito...")
say("Mas ainda não analizei o Emblema que me trouxe antes.")
say("Poderia me trazer outro depois?")
end
end
end
state collect_bossKey begin
when letter begin
send_letter("A Pedra da Alma Real")
end
when button or info begin
say_title("A Pedra da Alma Real")
say("Você já me entregou os 50 Emblemas do Rei Negro.")
say("Agora preciso que você me traga a Pedra da Alma Real.")
say("")
say_item_vnum(30227)
say("Será que essa pedra contém uma Alma de um Rei?")
end
when 691.kill or 791.kill or 793.kill or 1091.kill or 1092.kill or 1093.kill or 1304.kill or
1403.kill or 2091.kill or 2191.kill or 2206.kill or 2207.kill or 2493.kill or 2492.kill begin
if pc.count_item(30227)<1 then
local rand = number(0,99)
if rand<3 then pc.give_item2(30227, 1)
end
end
end
when 20084.chat."A Pedra da Alma Real" begin
if pc.count_item(30227)>0 then
say_title("Girab o Biólogo")
say("Graças a você agora eu entendo a lenda sobre")
say("a Pedra da Alma Real.")
say("Você batalhou muito para isso.Fale com o Baek Go")
say("ele vai ajudar a você aumentar a sua")
say("força interior.")
pc.remove_item(30227,1)
set_state(bossKey_reward)
else
say_title("Girab o Biólogo")
say("Você me trouxe os 50 Emblemas do Rei Negro.")
say("Agora preciso da Pedra da Alma Real.")
say("Você pode conseguir essa pedra derrotando")
say("os Boses dos Mapas.")
say("Eu acho você forte o suficiente para isso.")
end
end
end
state bossKey_reward begin
when letter begin
send_letter("Fale com 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_title("Recompensa do Biólogo")
say("Para receber a recompensa da ajuda feita")
say("para a pesquisa sobre os Emblemas do Rei Negro")
say("do biólogo, você precisa ir até o Baek Go.")
end
when __TARGET__.target.click or 20018.chat."Recompensa do Biólogo" begin
target.delete("__TARGET__")
say_title("Baek Go")
say("Hum...")
say("O Biólogo pediu para você vir até mim?")
say("Aqui está a sua recompensa...")
say("")
say_reward("Você vai receber:")
say_reward("10% Bônus Humanoídes (Permanente)")
say("")
affect.add_collect(apply.ATTBONUS_HUMAN,10,60*60*24*365*60)
end
state __complete begin
end
end
A quest do biologo que estou usando vai ate o lvl 90.
Quando completo a ultima quest, ele me manda ir no baek go receber a recompensa.
Eu vou, recebo a recompensa.
Ao logar a conta novamente, ele me manda ir no baek go novamente e recebo a recompensa. E assim fica se repetindo toda vez que logo.
Só acontece isso na ultima.
Como resolvo.
Abaixo estou inserindo a missão do biologo:
----------------------------------
-- LvL 30 / Dentes de Orc
----------------------------------
quest bio begin
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, "Biologe")
end
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("A Pesquisa do Biólogo")
say("Girab o Biólogo precisa de sua ajuda.")
say("")
say_reward("Fale com o Biólogo.")
end
when __TARGET__.target.click or 20084.chat."Dentes de Orc" begin
target.delete("__TARGET__")
say_title("Girab o Biólogo")
say("Oh, você quer me ajudar?")
say("Bom...")
say("Como você sabe eu sou o Biólogo,")
say("e gosto muito de fazer pesquisas sobre")
say("os monstros que habitam-se em outros locais.")
say("Se me ajudar, será muito bem recompensado.")
wait()
say_title("Girab o Biólogo")
say("Recentemente começei uma nova pesquisa...")
say("É sobre uma antiga lenda...")
say("Mas no momento estou muito ocupado")
say("e seria ótimo se você me ajudasse...")
wait()
say_title("Girab o Biólogo")
say("Eu preciso de 10 Dentes de Orc para minha pesquisa.")
say("No entando, alguns são muito frágeis, por isso,")
say("pode ser que alguns se quebrem na pesquisa.")
say("Os Dentes podem ser encontrados no Vale Suryong.")
say("")
say_reward("Monstros: Orc Negro Bravo e Orc Negro Gigante Bravo.")
set_state(collect_orcteeth)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_orcteeth begin
when letter begin
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("Os Orcs do Vale Suryong")
say("Girab o Biólogo precisa de 10 Dentes de Orc")
say("do Vale Suryong para examinar.")
say("Traga somente um de cada vez.")
say("")
say_reward("Monstros: Orc Negro Bravo e Orc Negro Gigante Bravo.")
say("")
say_item_vnum(30006)
say_reward("Você já entregou "..pc.getqf("collect_count").." Dentes de Orc.")
end
when 71035.use begin --Quest Potion
if pc.getqf("drink_drug")==1 then
say("O Soro da Persuasão já está em uso.")
return
end
if pc.count_item(30006)==0 then
say_title("Girab o Biólogo")
say("Ainda não é possível tomar o Soro da Persuasão.")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 636.kill or 637.kill begin
local rand = number(0,99)
if rand<5 then pc.give_item2(30006, 1)
end
end
when 20084.chat."Os Dentes de Orc" with pc.count_item(30006)>0 begin
if get_time()>pc.getqf("duration") then
say_title("Girab o Biólogo")
say("Oh, você trouxe um Dente...")
say("Tenho que testá-lo primeiro...")
say("Preciso de tempo. O teste pode demorar um pouco.")
pc.remove_item("30006", 1)
pc.setqf("duration",get_time() + 1*1)
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_title("Girab o Biólogo")
say("Excelente!")
say("Este Dente está em perfeitas condições.")
say("Traga-me mais Dentes com está qualidade.")
say("")
say_reward("Você já entregou "..pc.getqf("collect_count").." Dentes de Orc.")
else
say_title("Girab o Biólogo")
say("Parabéns!")
say("Você me trouxe todos os 10 Dentes de Orc.")
say("Agora para finalizar minha pesquisa preciso")
say("da Pedra da Alma Orc. Que você pode conseguir")
say("no Vale Suryong.")
say("")
say_reward("Monstros: Orc Negro Bravo e Orc Negro Gigante Bravo.")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_jinunggyis)
end
else
say_title("Girab o Biólogo")
say("Hum... infelizmente o Dente está quebrado...")
say("Desculpe, mas não posso usar para a pesquisa.")
say("Por favor, traga-me outro Dente de Orc.")
end
else
say_title("Girab o Biólogo")
say("Eu sinto muito...")
say("Mas ainda não analizei o Dente que me trouxe antes.")
say("Poderia me trazer outro depois?")
end
end
end
state collect_jinunggyis begin
when letter begin
send_letter("A Pedra da Alma Orc")
end
when button or info begin
say_title("A Pedra da Alma Orc")
say("Você já me entregou todos os 10 Dentes de Orc.")
say("Agora preciso que você me traga a Pedra da Alma Orc.")
say("")
say_reward("Monstros: Orc Negro Bravo e Orc Negro Gigante Bravo.")
say("")
say_item_vnum(30220)
say("Será que essa pedra contém uma Alma de Orc?")
end
when 636.kill or 637.kill begin
if pc.count_item(30220)<1 then
local rand = number(0,99)
if rand<3 then pc.give_item2(30220, 1)
end
end
end
when 20084.chat."A Pedra da Alma Orc" begin
if pc.count_item(30220)>0 then
say_title("Girab o Biólogo")
say("Graças a você agora eu entendo a lenda sobre")
say("a Pedra da Alma Orc.")
say("Você batalhou muito para isso.Fale com o Baek Go")
say("ele vai ajudar a você aumentar a sua")
say("força interior.")
pc.remove_item(30220,1)
set_state(jinunggyis_reward)
else
say_title("Girab o Biólogo")
say("Você me trouxe os 10 Dentes de Orc.")
say("Agora preciso que você me traga a Pedra da Alma Orc.")
say("Você pode conseguir essa pedra no Vale Suryong.")
say("")
say_reward("Monstros:Orc Negro Bravo e Orc Negro Gigante Bravo.")
end
end
end
state jinunggyis_reward begin
when letter begin
send_letter("Fale com 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_title("Recompensa do Biólogo")
say("Para receber a recompensa da ajuda feita")
say("para a pesquisa sobre os Dentes de Orc do Biólogo")
say("você precisa ir até o Baek Go.")
end
when __TARGET__.target.click or 20018.chat."Recompensa do Biólogo" begin
target.delete("__TARGET__")
say_title("Baek Go")
say("Hum...")
say("O Biólogo pediu para você vir até mim?")
say("Aqui está a sua recompensa...")
say("")
say_reward("Você vai receber:")
say_reward("10% de Velocidade de Movimento (Permanente)")
affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60)
set_state(collect_quest_lv40)
end
end
----------------------------------
-- LvL 40 / Livro de Maldições
----------------------------------
state collect_quest_lv40 begin
when login or levelup with pc.level>39 begin
set_state(talk_to_disciple_lv40)
end
end
state talk_to_disciple_lv40 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("A Pesquisa do Biólogo")
say("")
say("Girab o Biólogo precisa de você novamente.")
say("Ele disse que precisa de ajuda para")
say("conseguir alguns itens específicos")
say("para sua nova pesquisa.")
say("")
say_reward("Fale com Girab o Biólogo.")
end
when __TARGET__.target.click or 20084.chat."Os Livros de Maldições" begin
target.delete("__TARGET__")
say_title("Girab o Biólogo")
say("Oh, que bom que você veio...")
say("A pesquisa sobre os Dentes de Orc eu terminei.")
say("Agora eu encontrei novos objetos")
say("que gostaria muito de examinar.")
wait()
say_title("Girab o Biólogo")
say("Eu até poderia fazer isso, mas como")
say("você sabe, eu tenho muitas coisas para fazer...")
say("Seria ótimo se você podesse me ajudar")
say("a conseguir esses objetos.")
wait()
say_title("Girab o Biólogo")
say("Quero investigar os Livros de Maldições.")
say("Para realizar a investigação, vou precisar")
say("de 15 Livros. No entanto os livros são antigos")
say("e podem haver páginas rasgadas.")
say("Você pode os encontrar no Vale Suryong.")
say("")
say_reward("Monstros:Fanático Evocador e Fanático Torturador.")
set_state(collect_cursebook)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_cursebook begin
when letter begin
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("Os Livros de Maldições")
say("Girab o Biólogo precisa de 15 Livros de Maldições")
say("do Vale Suryong para examinar.")
say("Traga somente um de cada vez.")
say("")
say_reward("Monstros:Fanático Evocador e Fanático Torturador.")
say_item_vnum(30047)
say_reward("Você já entregou "..pc.getqf("collect_count").." Livros das Maldições.")
end
when 71035.use begin --Quest Potion
if pc.getqf("drink_drug")==1 then
say("O Soro da Persuasão já está em uso.")
return
end
if pc.count_item(30047)==0 then
say_title("Girab o Biólogo")
say("Ainda não é possível tomar o Soro da Persuasão.")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 706.kill or 707.kill begin
local rand = number(0,99)
if rand<5 then pc.give_item2(30047, 1)
end
end
when 20084.chat."Os Livros de Maldições" with pc.count_item(30047)>0 begin
if get_time()>pc.getqf("duration") then
say_title("Girab o Biólogo")
say("Oh, você trouxe um Livro...")
say("Tenho que testá-lo primeiro...")
say("Preciso de tempo. O teste pode demorar um pouco.")
pc.remove_item("30047", 1)
pc.setqf("duration",get_time() + 1*1)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<15 then
pc.setqf("collect_count", count)
say_title("Girab o Biólogo")
say("Excelente!")
say("Este Livro está em perfeitas condições.")
say("Traga-me mais Livros desta qualidade.")
say("")
say_reward("Você já entregou "..pc.getqf("collect_count").." Livros de Maldições.")
else
say_title("Girab o Biólogo")
say("Parabéns!")
say("Você trouxe todos os 15 Livros de Maldições.")
say("Agora para finalizar minha pesquisa preciso")
say("da Pedra da Alma Fanática. Que você pode conseguir")
say("derrotando as Aranhas do primeiro andar da Gomi.")
say("")
say_reward("Monstros:Aranha Vermelha Mortal, Aranha de Garra Motal,")
say_reward("Aranha Soldado Mortal, Aranha Soldado Agressiva.")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_templekey)
end
else
say_title("Girab o Biólogo")
say("Hum... infelizmente o Livro está rasgado...")
say("Desculpe, mas não posso usar para a pesquisa.")
say("Por favor, traga-me outro Livro de Maldições.")
end
else
say_title("Girab o Biólogo")
say("Eu sinto muito...")
say("Mas ainda não analizei o Livro que me trouxe antes.")
say("Poderia me trazer outro depois?")
end
end
end
state collect_templekey begin
when letter begin
send_letter("A Pedra da Alma Fanática")
end
when button or info begin
say_title("A Pedra da Alma Fanática")
say("Você já me entregou os 15 Livros de Maldições.")
say("Agora preciso que você me traga a Pedra da Alma Fanática.")
say("")
say_reward("Monstros:Aranha Vermelha Mortal, Aranha de Garra Motal,")
say_reward("Aranha Soldado Mortal, Aranha Soldado Agressiva.")
say_item_vnum(30221)
say("Será que essa pedra contém uma Alma de Fanático?")
end
when 2033.kill or 2034.kill or 2035.kill or 2036.kill begin
if pc.count_item(30221)<1 then
local rand = number(0,99)
if rand<3 then pc.give_item2(30221, 1)
end
end
end
when 20084.chat."A Pedra da Alma Fanática" begin
if pc.count_item(30221)>0 then
say_title("Girab o Biólogo")
say("Graças a você agora eu entendo a lenda sobre")
say("a Pedra da Alma Fanática.")
say("Você batalhou muito para isso.Fale com o Baek Go")
say("ele vai ajudar a você aumentar a sua")
say("força interior.")
pc.remove_item(30221,1)
set_state(templekey_reward)
else
say_title("Girab o Biólogo")
say("Você me trouxe os 15 Livros de Maldições.")
say("Agora preciso da Pedra da Alma Fanática.")
say("Você pode conseguir essa pedra derrotando")
say("as Aranhas do primeiro andar da Gruta Gomi.")
say("")
say_reward("Monstros:Aranha Vermelha Mortal, Aranha de Garra Motal,")
say_reward("Aranha Soldado Mortal, Aranha Soldado Agressiva.")
end
end
end
state templekey_reward begin
when letter begin
send_letter("Fale com 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_title("Recompensa do Biólogo")
say("Para receber a recompensa da ajuda feita")
say("para a pesquisa sobre os Livros de Maldições")
say("do biólogo, você precisa ir até o Baek Go.")
end
when __TARGET__.target.click or 20018.chat."Recompensa do Biólogo" begin
target.delete("__TARGET__")
say_title("Baek Go")
say("Hum...")
say("O Biólogo pediu para você vir até mim?")
say("Aqui está a sua recompensa...")
say("")
say_reward("Você vai receber:")
say_reward("5% Velocidade de Ataque (Permanente)")
affect.add_collect(apply.ATT_SPEED,5,60*60*24*365*60)
set_state(collect_quest_lv50)
end
end
----------------------------------
-- LvL 50 / Lembranças Demoníacas
----------------------------------
state collect_quest_lv50 begin
when login or levelup with pc.level>49 begin
set_state(talk_to_disciple_lv50)
end
end
state talk_to_disciple_lv50 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("A Pesquisa do Biólogo")
say("Girab o Biólogo precisa de você novamente.")
say("Ele disse que precisa de ajuda para")
say("conseguir alguns itens específicos")
say("para sua nova pesquisa.")
say("")
say_reward("Fale com Girab o Biólogo.")
end
when __TARGET__.target.click or 20084.chat."Lembranças Demoníacas" begin
target.delete("__TARGET__")
say_title("Girab o Biólogo")
say("Oh, que bom que você veio...")
say("A pesquisa sobre os Livros das Maldições eu terminei.")
say("Agora eu encontrei novos objetos")
say("que gostaria muito de examinar.")
wait()
say_title("Girab o Biólogo")
say("Eu até poderia fazer isso, mas como")
say("você sabe, eu tenho muitas coisas para fazer...")
say("Seria ótimo se você podesse me ajudar")
say("a conseguir esses objetos.")
wait()
say_title("Girab o Biólogo")
say("Quero pesquisar sobre as Lembranças Demoníacas.")
say("Para realizar a pesquisa, vou precisar")
say("de 15 Lembranças. No entanto as Lembranças")
say("são fracas e podem se quebrar facilmente.")
say("Você pode as encontrar na Torre Sakita.")
say("")
say_reward("Monstros:Demônio, Demônio Arqueiro")
say_reward("Demônio Lanceiro e Demônio Shaman.")
set_state(collect_deamonitem)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_deamonitem begin
when letter begin
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("As Lembranças Demoníacas")
say("Girab o Biólogo precisa de 15 Lembranças Demoníacas")
say("da Torre Sakita para examinar.")
say("Traga somente um de cada vez.")
say("")
say_reward("Monstros:Demônio, Demônio Arqueiro")
say_reward("Demônio Lanceiro e Demônio Shaman.")
say_item_vnum(30015)
say_reward("Você já entregou "..pc.getqf("collect_count").." Lembranças Demoníacas.")
end
when 71035.use begin --Quest Potion
if pc.getqf("drink_drug")==1 then
say("O Soro da Persuasão já está em uso.")
return
end
if pc.count_item(30015)==0 then
say_title("Girab o Biólogo")
say("Ainda não é possível tomar o Soro da Persuasão.")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 1001.kill or 1002.kill or 1003.kill or 1004.kill begin
local rand = number(0,99)
if rand<5 then pc.give_item2(30015, 1)
end
end
when 20084.chat."As Lembranças Demoníacas" with pc.count_item(30015)>0 begin
if get_time()>pc.getqf("duration") then
say("Oh, você me trouxe uma Lembrança...")
say("Tenho que testá-la primeiro...")
say("Preciso de tempo. O teste pode demorar um pouco.")
pc.remove_item("30015", 1)
pc.setqf("duration",get_time() + 1*1)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<15 then
pc.setqf("collect_count", count)
say_title("Girab o Biólogo")
say("Excelente!")
say("Esta Lembrança está em perfeitas condições.")
say("Traga-me mais Lembranças desta qualidade.")
say("")
say_reward("Você já entregou "..pc.getqf("collect_count").." Lembranças Demoníacas.")
else
say_title("Girab o Biólogo")
say("Parabéns!")
say("Você trouxe todas as 15 Lembranças Demoníacas.")
say("Agora para finalizar minha pesquisa preciso")
say("da Pedra da Alma Demoníaca. Que você pode conseguir")
say("derrotando os Demônios da Torre Sakita.")
say("")
say_reward("Monstros:Demônio, Demônio Arqueiro")
say_reward("Demônio Lanceiro e Demônio Shaman.")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_sagyis)
end
else
say_title("Girab o Biólogo")
say("Hum... infelizmente a Lembrança está quebrada...")
say("Desculpe, mas não posso usar para a pesquisa.")
say("Por favor, traga-me outra Lembrança Demoníaca.")
end
else
say_title("Girab o Biólogo")
say("Eu sinto muito...")
say("Mas ainda não analizei a Lembrança que me trouxe.")
say("Poderia me trazer outra depois?")
end
end
end
state collect_sagyis begin
when letter begin
send_letter("A Lembrança Demoníaca")
end
when button or info begin
say_title("A Lembrança Demoníaca")
say("Você já me entregou as 15 Lembranças Demoníacas.")
say("Agora preciso que você me traga a Pedra da Alma Demoníaca.")
say("")
say_reward("Monstros:Demônio, Demônio Arqueiro")
say_reward("Demônio Lanceiro e Demônio Shaman.")
say_item_vnum(30222)
say("Será que essa pedra contém uma Alma de Demônio?")
end
when 1001.kill or 1002.kill or 1003.kill or 1004.kill begin
if pc.count_item(30222)<1 then
local rand = number(0,99)
if rand<3 then pc.give_item2(30222, 1)
end
end
end
when 20084.chat."A Pedra da Alma Demoníaca" begin
target.delete("__TARGET__")
if pc.count_item(30222)>0 then
say_title("Girab o Biólogo")
say("Graças a você agora eu entendo a lenda sobre")
say("a Pedra da Alma Demoníaca.")
say("Você batalhou muito para isso.Fale com o Baek Go")
say("ele vai ajudar a você aumentar a sua")
say("força interior.")
pc.remove_item(30222,1)
set_state(sagyis_reward)
else
say_title("Girab o Biólogo")
say("Você me trouxe as 15 Lembranças Demoníacas.")
say("Agora preciso da Pedra da Alma Demoníaca.")
say("Você pode conseguir essa pedra derrotando")
say("os Demônios da Torre Sakita.")
say("")
say_reward("Monstros:Demônio, Demônio Arqueiro")
say_reward("Demônio Lanceiro e Demônio Shaman.")
end
end
end
state sagyis_reward begin
when letter begin
send_letter("Fale com 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_title("Recompensa do Biólogo")
say("Para receber a recompensa da ajuda feita")
say("para a pesquisa sobre as Lembranças Demoníacas")
say("do Biólogo, você precisa ir até o Baek Go.")
end
when __TARGET__.target.click or 20018.chat."Recompensa do Biólogo" begin
target.delete("__TARGET__")
say_title("Baek Go")
say("Hum...")
say("O Biólogo pediu para você vir até mim?")
say("Aqui está a sua recompensa...")
say("")
say_reward("Você vai receber:")
say_reward("Defesa +60 (Permanente)")
affect.add_collect(apply.DEF_GRADE_BONUS,60,60*60*24*365*60)
set_state(collect_quest_lv60)
end
end
----------------------------------
-- LvL 60 / Esferas de Gelo
----------------------------------
state collect_quest_lv60 begin
when login or levelup with pc.level>59 begin
set_state(talk_to_disciple_lv60)
end
end
state talk_to_disciple_lv60 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("A Pesquisa do Biólogo")
say("")
say("Girab o Biólogo precisa de você novamente.")
say("Ele disse que precisa de ajuda para")
say("conseguir alguns itens específicos")
say("para sua nova pesquisa.")
say("")
say_reward("Fale com Girab o Biólogo.")
end
when __TARGET__.target.click or 20084.chat."As Esferas de Gelo" begin
target.delete("__TARGET__")
say_title("Girab o Biólogo")
say("Oh, que bom que você veio...")
say("A pesquisa sobre as Lembranças Demoníacas eu terminei.")
say("Agora eu encontrei novos objetos")
say("que gostaria muito de examinar.")
wait()
say_title("Girab o Biólogo")
say("Eu até poderia fazer isso, mas como")
say("você sabe, eu tenho muitas coisas para fazer...")
say("Seria ótimo se você podesse me ajudar")
say("a conseguir esses objetos.")
wait()
say_title("Girab o Biólogo")
say("Quero investigar as Esferas de Gelo.")
say("Para realizar a investigação, vou precisar")
say("de 20 Esferas. No entanto algumas Esferas podem")
say("derreter antes que eu acabe.")
say("Você pode as encontrar na Montanha Sohan.")
say("")
say_reward("Monstro: Golem de Gelo.")
set_state(collect_scoops)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_scoops begin
when letter begin
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("As Esferas de Gelo")
say("Girab o Biólogo precisa de 20 Esferas de Gelo")
say("da Montanha Sohan para examinar.")
say("Traga somente um de cada vez.")
say("")
say_reward("Monstro: Golem de Gelo.")
say_item_vnum(30050)
say_reward("Você já entregou "..pc.getqf("collect_count").." Esferas de Gelo!")
say("")
end
when 71035.use begin --Quest Potion
if pc.getqf("drink_drug")==1 then
say("O Soro da Persuasão já está em uso.")
return
end
if pc.count_item(30050)==0 then
say_title("Girab o Biólogo")
say("Ainda não é possível tomar o Soro da Persuasão.")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 1007.kill begin
local rand = number(0,99)
if rand<5 then pc.give_item2(30050, 1)
end
end
when 20084.chat."As Esferas de Gelo" with pc.count_item(30050)>0 begin
if get_time()>pc.getqf("duration") then
say_title("Girab o Biólogo")
say("Oh, você trouxe uma Esfera...")
say("Tenho que testá-la primeiro...")
say("Preciso de tempo. O teste pode demorar um pouco.")
pc.remove_item("30050", 1)
pc.setqf("duration",get_time() + 1*1)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<20 then
pc.setqf("collect_count", count)
say_title("Girab o Biólogo")
say("Excelente!")
say("Esta Esfera está em perfeitas condições.")
say("Traga-me mais Esferas desta qualidade.")
say_reward("Você já entregou "..pc.getqf("collect_count").." Esferas de Gelo.")
else
say_title("Girab o Biólogo")
say("Parabéns!")
say("Você trouxe todas as 20 Esferas de Gelo.")
say("Agora para finalizar minha pesquisa preciso")
say("da Pedra da Alma Gelada. Que você pode conseguir")
say("na Montanha Sohan.")
say("")
say_reward("Monstros: Orca de Gelo, Leão do Gelo e Homem do Gelo.")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_aurtumryus)
end
else
say_title("Girab o Biólogo")
say("Hum... infelizmente a Esfera derreteu...")
say("Desculpe, mas não posso usar para a pesquisa.")
say("Por favor, traga-me outra Esfera de Gelo.")
end
else
say_title("Girab o Biólogo")
say("Eu sinto muito...")
say("Mas ainda não analizei a Esfera que me trouxe antes.")
say("Poderia me trazer outra depois?")
end
end
end
state collect_aurtumryus begin
when letter begin
send_letter("A Pedra da Alma Gelada")
end
when button or info begin
say_title("A Pedra da Alma Gelada")
say("Você já me entregou as 20 Esferas de Gelo.")
say("Agora preciso que você me traga a Pedra da Alma Gelada.")
say("")
say_reward("Monstros: Orca de Gelo, Leão do Gelo e Homem do Gelo.")
say_item_vnum(30223)
say("Será que essa pedra contém uma Alma de Golem?")
end
when 1102.kill or 1104.kill or 1105.kill begin
if pc.count_item(30223)<1 then
local rand = number(0,99)
if rand<3 then pc.give_item2(30223, 1)
end
end
end
when 20084.chat."A Pedra da Alma Gelada" begin
if pc.count_item(30223)>0 then
say_title("Girab o Biólogo")
say("Graças a você agora eu entendo a lenda sobre")
say("a Pedra da Alma Gelada.")
say("Você batalhou muito para isso.Fale com o Baek Go")
say("ele vai ajudar a você aumentar a sua")
say("força interior.")
pc.remove_item(30223,1)
set_state(aurtumryus_reward)
else
say_title("Girab o Biólogo")
say("Você me trouxe as 20 Esferas de Gelo.")
say("Agora preciso da Pedra da Alma Gelada.")
say("Você pode conseguir essa pedra derrotando")
say("os Monstros da Montanha Sohan.")
say("")
say_reward("Monstros: Orca de Gelo, Leão do Gelo e Homem do Gelo.")
end
end
end
state aurtumryus_reward begin
when letter begin
send_letter("Fale com 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_title("Recompensa do Biólogo")
say("Para receber a recompensa da ajuda feita")
say("para a pesquisa sobre as Esferas de Gelo")
say("do biólogo, você precisa ir até o Baek Go.")
end
when __TARGET__.target.click or 20018.chat."Recompensa do Biólogo" begin
target.delete("__TARGET__")
say_title("Baek Go")
say("Hum...")
say("O Biólogo pediu para você vir até mim?")
say("Aqui está a sua recompensa...")
say("")
say_reward("Você vai receber:")
say_reward("Ataque +50 (Permanente)")
affect.add_collect(apply.ATT_GRADE_BONUS,50,60*60*24*365*60)
set_state(collect_quest_lv70)
end
end
----------------------------------
-- LvL 70 / Galhos Folhados
----------------------------------
state collect_quest_lv70 begin
when login or levelup with pc.level>69 begin
set_state(talk_to_disciple_lv70)
end
end
state talk_to_disciple_lv70 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("A Pesquisa do Biólogo")
say("Girab o Biólogo precisa de você novamente.")
say("Ele disse que precisa de ajuda para")
say("conseguir alguns itens específicos")
say("para sua nova pesquisa.")
say("")
say_reward("Fale com Girab o Biólogo.")
end
when __TARGET__.target.click or 20084.chat."Os Galhos Folhados" begin
target.delete("__TARGET__")
say_title("Girab o Biólogo")
say("Oh, que bom que você veio...")
say("A pesquisa sobre as Esferas de Gelo eu terminei.")
say("Agora eu encontrei novos objetos")
say("que gostaria muito de examinar.")
wait()
say_title("Girab o Biólogo")
say("Eu até poderia fazer isso, mas como")
say("você sabe, eu tenho muitas coisas para fazer...")
say("Seria ótimo se você podesse me ajudar")
say("a conseguir esses objetos.")
wait()
say_title("Girab o Biólogo")
say("Quero investigar os Galhos Folhados.")
say("Para realizar a investigação, vou precisar")
say("de 25 Galhos. No entanto os galhos são finos")
say("e podem se quebrar facilmente.")
say("Você pode os encontrar nas Florestas.")
say("")
say_reward("Monstros: Árvore Fantasma, Tronco Fantasma, Driade")
say_reward("Salgueiro Fantasma, Árvore Maligna, Árvore Fantasma Roxa")
say_reward("Tronco Fantasma Roxo, Driade Roxa")
say_reward("Salgueiro Fantasma Roxo e Árvore Maligna Roxa.")
set_state(collect_branches)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_branches begin
when letter begin
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("Os Galhos Folhados")
say("Girab o Biólogo precisa de 25 Galhos Folhados")
say("das Florestas para examinar.")
say("Traga somente um de cada vez.")
say("")
say_reward("Monstros: Árvore Fantasma, Tronco Fantasma, Driade")
say_reward("Salgueiro Fantasma, Árvore Maligna, Árvore Fantasma Roxa")
say_reward("Tronco Fantasma Roxo, Driade Roxa")
say_reward("Salgueiro Fantasma Roxo e Árvore Maligna Roxa.")
say_item_vnum(30165)
say_reward("Você já entregou "..pc.getqf("collect_count").." Galhos Folhados.")
end
when 71035.use begin --Quest Potion
if pc.getqf("drink_drug")==1 then
say("O Soro da Persuasão já está em uso.")
return
end
if pc.count_item(30165)==0 then
say_title("Girab o Biólogo")
say("Ainda não é possível tomar o Soro da Persuasão.")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 2301.kill or 2302.kill or 2303.kill or 2304.kill or 2305.kill or 2311.kill or
2312.kill or 2313.kill or 2314.kill or 2315.kill begin
local rand = number(0,99)
if rand<5 then pc.give_item2(30165, 1)
end
end
when 20084.chat."Os Galhos Folhados" with pc.count_item(30165)>0 begin
if get_time()>pc.getqf("duration") then
say_title("Girab o Biólogo")
say("Oh, você trouxe um Galho...")
say("Tenho que testá-lo primeiro...")
say("Preciso de tempo. O teste pode demorar um pouco.")
pc.remove_item("30165", 1)
pc.setqf("duration",get_time() + 1*1)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<25 then
pc.setqf("collect_count", count)
say_title("Girab o Biólogo")
say("Excelente!")
say("Este Galho está em perfeitas condições.")
say("Traga-me mais Galhos desta qualidade.")
say("")
say_reward("Você já entregou "..pc.getqf("collect_count").." Galhos Folhados.")
else
say_title("Girab o Biólogo")
say("Parabéns!")
say("Você trouxe todos os 25 Galhos Folhados.")
say("Agora para finalizar minha pesquisa preciso")
say("da Pedra da Alma Fantasma. Que você pode conseguir")
say("derrotando os Monstros das Florestas.")
say("")
say_reward("Monstros:Árvore Fantasma, Tronco Fantasma, Driade")
say_reward("Salgueiro Fantasma, Árvore Maligna, Árvore Fantasma Roxa")
say_reward("Tronco Fantasma Roxo, Driade Roxa")
say_reward("Salgueiro Fantasma Roxo e Árvore Maligna Roxa.")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_gyimoks)
end
else
say_title("Girab o Biólogo")
say("Hum... infelizmente o Galho está quebrado...")
say("Desculpe, mas não posso usar para a pesquisa.")
say("Por favor, traga-me outro Galho Folhado.")
end
else
say_title("Girab o Biólogo")
say("Eu sinto muito...")
say("Mas ainda não analizei o Galho que me trouxe antes.")
say("Poderia me trazer outro depois?")
end
end
end
state collect_gyimoks begin
when letter begin
send_letter("A Pedra da Alma Fantasma")
end
when button or info begin
say_title("A Pedra da Alma Fantasma")
say("Você já me entregou os 25 Galhos Folhados.")
say("Agora preciso que você me traga a Pedra da Alma Fantasma.")
say("")
say_reward("Monstros: Árvore Fantasma, Tronco Fantasma, Driade")
say_reward("Salgueiro Fantasma, Árvore Maligna, Árvore Fantasma Roxa")
say_reward("Tronco Fantasma Roxo, Driade Roxa")
say_reward("Salgueiro Fantasma Roxo e Árvore Maligna Roxa.")
say_item_vnum(30224)
say("Será que essa pedra contém uma Alma de Driade?")
end
when 2301.kill or 2302.kill or 2303.kill or 2304.kill or 2305.kill or 2311.kill or
2312.kill or 2313.kill or 2314.kill or 2315.kill begin
if pc.count_item(30224)<1 then
local rand = number(0,99)
if rand<3 then pc.give_item2(30224, 1)
end
end
end
when 20084.chat."A Pedra da Alma Fantasma" begin
target.delete("__TARGET__")
if pc.count_item(30224)>0 then
say_title("Girab o Biólogo")
say("Graças a você agora eu entendo a lenda sobre")
say("a Pedra da Alma Fantasma.")
say("Você batalhou muito para isso.Fale com o Baek Go")
say("ele vai ajudar a você aumentar a sua")
say("força interior.")
pc.remove_item(30224,1)
set_state(gyimoks_reward)
else
say_title("Girab o Biólogo")
say("Você me trouxe os 25 Galhos Folhados.")
say("Agora preciso da Pedra da Alma Fantasma.")
say("Você pode conseguir essa pedra derrotando")
say("os Monstros das Florestas.")
say("")
say_reward("Monstros:Árvore Fantasma, Tronco Fantasma, Driade")
say_reward("Salgueiro Fantasma, Árvore Maligna, Árvore Fantasma Roxa")
say_reward("Tronco Fantasma Roxo, Driade Roxa")
say_reward("Salgueiro Fantasma Roxo e Árvore Maligna Roxa.")
end
end
end
state gyimoks_reward begin
when letter begin
send_letter("Fale com 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_title("Recompensa do Biólogo")
say("Para receber a recompensa da ajuda feita")
say("para a pesquisa sobre os Galhos Folhados")
say("do biólogo, você precisa ir até o Baek Go.")
end
when __TARGET__.target.click or 20018.chat."Recompensa do Biólogo" begin
target.delete("__TARGET__")
say_title("Baek Go")
say("Hum...")
say("O Biólogo pediu para você vir até mim?")
say("Aqui está a sua recompensa...")
say("")
say_reward("Você vai receber:")
say_reward("11% Velocidade de Movimento (Permanente)")
say_reward("10% Defesa (Permanente)")
affect.add_collect(apply.MOV_SPEED,11,60*60*24*365*60)
affect.add_collect(apply.DEF_GRADE_BONUS,10,60*60*24*365*60)
set_state(collect_quest_lv80)
end
end
----------------------------------
-- LvL 80 / Símbolos Fantasmas
----------------------------------
state collect_quest_lv80 begin
when login or levelup with pc.level>79 begin
set_state(talk_to_disciple_lv80)
end
end
state talk_to_disciple_lv80 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("A Pesquisa do Biólogo")
say("Girab o Biólogo precisa de você novamente.")
say("Ele disse que precisa de ajuda para")
say("conseguir alguns itens específicos")
say("para sua nova pesquisa.")
say("")
say_reward("Fale com Girab o Biólogo.")
end
when __TARGET__.target.click or 20084.chat."Os Símbolos Fantasmas" begin
target.delete("__TARGET__")
say_title("Girab o Biólogo")
say("Oh, que bom que você veio...")
say("A pesquisa sobre os Galhos Folhados eu terminei.")
say("Agora eu encontrei novos objetos")
say("que gostaria muito de examinar.")
wait()
say_title("Girab o Biólogo")
say("Eu até poderia fazer isso, mas como")
say("você sabe, eu tenho muitas coisas para fazer...")
say("Seria ótimo se você podesse me ajudar")
say("a conseguir esses objetos.")
wait()
say_title("Girab o Biólogo")
say("Quero investigar os Símbolos Fantasmas.")
say("Para realizar a investigação, vou precisar")
say("de 30 Símbolos. No entanto os símbolos são antigos")
say("e podem haver manchas nas escritas..")
say("Você pode os encontrar nos Gigantes do Deserto 2.")
say("")
say_reward("Monstros: Gigante Soldado, Gigante Batedor, Gigante Herói")
say_reward("Gigante Operário, Gigante Supervisor, Gigante Gladiador.")
set_state(collect_plates)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_plates begin
when letter begin
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("Os Símbolos Fantasmas")
say("Girab o Biólogo precisa de 30 Símbolos Fantasmas")
say("do Deserto 2 para examinar.")
say("Traga somente um de cada vez.")
say("")
say_reward("Monstros: Gigante Soldado, Gigante Batedor, Gigante Herói")
say_reward("Gigante Operário, Gigante Supervisor, Gigante Gladiador.")
say_item_vnum(30166)
say_reward("Você já entregou "..pc.getqf("collect_count").." Símbolos Fantasmas.")
end
when 71035.use begin --Quest Potion
if pc.getqf("drink_drug")==1 then
say("O Soro da Persuasão já está em uso.")
return
end
if pc.count_item(30166)==0 then
say_title("Girab o Biólogo")
say("Ainda não é possível tomar o Soro da Persuasão.")
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 rand = number(0,99)
if rand<5 then pc.give_item2(30166, 1)
end
end
when 20084.chat."Os Símbolos Fantasmas" with pc.count_item(30166)>0 begin
if get_time()>pc.getqf("duration") then
say_title("Girab o Biólogo")
say("Oh, você trouxe um Símbolo...")
say("Tenho que testá-lo primeiro...")
say("Preciso de tempo. O teste pode demorar um pouco.")
pc.remove_item("30166", 1)
pc.setqf("duration",get_time() + 1*1)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<30 then
pc.setqf("collect_count", count)
say_title("Girab o Biólogo")
say("Excelente!")
say("Este Símbolo está em perfeitas condições.")
say("Traga-me mais Símbolos desta qualidade.")
say("")
say_reward("Você já entregou "..pc.getqf("collect_count").." Símbolos Fantasmas.")
else
say_title("Girab o Biólogo")
say("Parabéns!")
say("Você trouxe todos os 30 Símbolos Fantasmas.")
say("Agora para finalizar minha pesquisa preciso")
say("da Pedra da Alma Fantasma. Que você pode conseguir")
say("derrotando os Gigantes no Deserto 2.")
say("")
say_reward("Monstros: Gigante Soldado, Gigante Batedor, Gigante Herói")
say_reward("Gigante Operário, Gigante Supervisor, Gigante Gladiador.")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_tugyis)
end
else
say_title("Girab o Biólogo")
say("Hum... infelizmente o Símbolo está manchado...")
say("Desculpe, mas não posso usar para a pesquisa.")
say("Por favor, traga-me outro Símbolo Fantasma.")
end
else
say_title("Girab o Biólogo")
say("Eu sinto muito...")
say("Mas ainda não analizei o Livro que me trouxe antes.")
say("Poderia me trazer outro depois?")
end
end
end
state collect_tugyis begin
when letter begin
send_letter("A Pedra da Alma Gigante")
end
when button or info begin
say_title("A Pedra da Alma Gigante")
say("Você já me entregou os 30 Símbolos Fantasmas.")
say("Agora preciso que você me traga a Pedra da Alma Gigante.")
say("")
say_reward("Monstros: Gigante Soldado, Gigante Batedor, Gigante Herói")
say_reward("Gigante Operário, Gigante Supervisor, Gigante Gladiador.")
say_item_vnum(30225)
say("Será que essa pedra contém uma Alma de um Gigante?")
end
when 1401.kill or 1402.kill or 1403.kill or 1601.kill or 1602.kill or 1603.kill begin
if pc.count_item(30225)<1 then
local rand = number(0,99)
if rand<3 then pc.give_item2(30225, 1)
end
end
end
when 20084.chat."A Pedra da Alma Gigante" begin
if pc.count_item(30225)>0 then
say_title("Girab o Biólogo")
say("Graças a você agora eu entendo a lenda sobre")
say("a Pedra da Alma Gigante.")
say("Você batalhou muito para isso.Fale com o Baek Go")
say("ele vai ajudar a você aumentar a sua")
say("força interior.")
pc.remove_item(30225,1)
set_state(tugyis_reward)
else
say_title("Girab o Biólogo")
say("Você me trouxe os 30 Símbolos Fantasmas.")
say("Agora preciso da Pedra da Alma Gigante.")
say("Você pode conseguir essa pedra derrotando")
say("os Gigantes no Deserto 2.")
say("")
say_reward("Monstros: Gigante Soldado, Gigante Batedor, Gigante Herói")
say_reward("Gigante Operário, Gigante Supervisor, Gigante Gladiador.")
end
end
end
state tugyis_reward begin
when letter begin
send_letter("Fale com 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_title("Recompensa do Biólogo")
say("Para receber a recompensa da ajuda feita")
say("para a pesquisa sobre os Símbolos Fantasmas")
say("do biólogo, você precisa ir até o Baek Go.")
end
when __TARGET__.target.click or 20018.chat."Recompensa do Biólogo" begin
target.delete("__TARGET__")
say_title("Baek Go")
say("Hum...")
say("O Biólogo pediu para você vir até mim?")
say("Aqui está a sua recompensa...")
say("")
say_reward("Você vai receber:")
say_reward("6% Velocidade de Ataque (Permanente)")
say_reward("10% Ataque (Permanente)")
affect.add_collect(apply.ATT_SPEED,6,60*60*24*365*60)
affect.add_collect_point(POINT_ATT_BONUS,10,60*60*24*365*60)
set_state(collect_quest_lv90)
end
end
----------------------------------
-- LvL 90 / Emblemas do Rei Negro
----------------------------------
state collect_quest_lv90 begin
when login or levelup with pc.level>89 begin
set_state(talk_to_disciple_lv90)
end
end
state talk_to_disciple_lv90 begin
when letter begin
local v = find_npc_by_vnum(20084)
if v != 0 then target.vid("__TARGET__", v, "Biologe")
end
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("A Pesquisa do Biólogo")
say("")
say("Girab o Biólogo precisa de você novamente.")
say("Ele disse que precisa de ajuda para")
say("conseguir alguns itens específicos")
say("para sua nova pesquisa.")
say("")
say_reward("Fale com Girab o Biólogo.")
end
when __TARGET__.target.click or 20084.chat."Emblemas do Rei Negro" begin
target.delete("__TARGET__")
say_title("Girab o Biólogo")
say("Oh, que bom que você veio...")
say("A pesquisa sobre os Símbolos Fantasmas eu terminei.")
say("Agora eu encontrei novos objetos")
say("que gostaria muito de examinar.")
wait()
say_title("Girab o Biólogo")
say("Eu até poderia fazer isso, mas como")
say("você sabe, eu tenho muitas coisas para fazer...")
say("Seria ótimo se você podesse me ajudar")
say("a conseguir esses objetos.")
wait()
say_title("Girab o Biólogo")
say("Quero investigar os Emblemas do Rei Negro.")
say("Para realizar a investigação, vou precisar")
say("de 50 Emblemas. No entanto os emblemas são antigos")
say("e podem haver anotações ilegíveis.")
say("Você pode os encontrar nos Boses dos Mapas.")
set_state(collect_notices)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
end
end
state collect_notices begin
when letter begin
send_letter("A Pesquisa do Biólogo")
end
when button or info begin
say_title("Os Emblemas do Rei Negro")
say("Girab o Biólogo precisa de 50 Emblemas do Rei Negro")
say("dos montros mais fortes dos Mapas para examinar.")
say("Traga somente um de cada vez.")
say("")
say_item_vnum(30168)
say_reward("Você já entregou "..pc.getqf("collect_count").." Emblemas do Rei Negro.")
end
when 71035.use begin --Quest Potion
if pc.getqf("drink_drug")==1 then
say("O Soro da Persuasão já está em uso.")
return
end
if pc.count_item(30168)==0 then
say_title("Girab o Biólogo")
say("Ainda não é possível tomar o Soro da Persuasão.")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 691.kill or 791.kill or 793.kill or 1091.kill or 1092.kill or 1093.kill or 1304.kill or
1403.kill or 2091.kill or 2191.kill or 2206.kill or 2207.kill or 2493.kill or 2492.kill begin
local rand = number(0,99)
if rand<5 then pc.give_item2(30168, 1)
end
end
when 20084.chat."Os Emblemas do Rei Negro" with pc.count_item(30168)>0 begin
if get_time()>pc.getqf("duration") then
say_title("Girab o Biólogo")
say("Oh, você trouxe um Emblema...")
say("Tenho que testá-lo primeiro...")
say("Preciso de tempo. O teste pode demorar um pouco.")
pc.remove_item("30168", 1)
pc.setqf("duration",get_time() + 1*1)
wait()
local rand = number(0,99)
if rand<50 then
local count = pc.getqf("collect_count")+1
if count<50 then
pc.setqf("collect_count", count)
say_title("Girab o Biólogo")
say("Excelente!")
say("Este Emblema está em perfeitas condições.")
say("Traga-me mais Emblemas desta qualidade.")
say("")
say_reward("Você já entregou "..pc.getqf("collect_count").." Emblemas do Rei Negro.")
else
say_title("Girab o Biólogo")
say("Parabéns!")
say("Você trouxe todos os 50 Emblemas do Rei Negro.")
say("Agora para finalizar minha pesquisa preciso")
say("da Pedra da Alma Real. Que você pode conseguir")
say("derrotando os Boses dos Mapas.")
pc.setqf("collect_count",0)
pc.setqf("duration",0)
set_state(collect_bossKey)
end
else
say_title("Girab o Biólogo")
say("Hum... infelizmente o Emblema está ilegível...")
say("Desculpe, mas não posso usar para a pesquisa.")
say("Por favor, traga-me outro Emblema do Rei Negro.")
end
else
say_title("Girab o Biólogo")
say("Eu sinto muito...")
say("Mas ainda não analizei o Emblema que me trouxe antes.")
say("Poderia me trazer outro depois?")
end
end
end
state collect_bossKey begin
when letter begin
send_letter("A Pedra da Alma Real")
end
when button or info begin
say_title("A Pedra da Alma Real")
say("Você já me entregou os 50 Emblemas do Rei Negro.")
say("Agora preciso que você me traga a Pedra da Alma Real.")
say("")
say_item_vnum(30227)
say("Será que essa pedra contém uma Alma de um Rei?")
end
when 691.kill or 791.kill or 793.kill or 1091.kill or 1092.kill or 1093.kill or 1304.kill or
1403.kill or 2091.kill or 2191.kill or 2206.kill or 2207.kill or 2493.kill or 2492.kill begin
if pc.count_item(30227)<1 then
local rand = number(0,99)
if rand<3 then pc.give_item2(30227, 1)
end
end
end
when 20084.chat."A Pedra da Alma Real" begin
if pc.count_item(30227)>0 then
say_title("Girab o Biólogo")
say("Graças a você agora eu entendo a lenda sobre")
say("a Pedra da Alma Real.")
say("Você batalhou muito para isso.Fale com o Baek Go")
say("ele vai ajudar a você aumentar a sua")
say("força interior.")
pc.remove_item(30227,1)
set_state(bossKey_reward)
else
say_title("Girab o Biólogo")
say("Você me trouxe os 50 Emblemas do Rei Negro.")
say("Agora preciso da Pedra da Alma Real.")
say("Você pode conseguir essa pedra derrotando")
say("os Boses dos Mapas.")
say("Eu acho você forte o suficiente para isso.")
end
end
end
state bossKey_reward begin
when letter begin
send_letter("Fale com 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_title("Recompensa do Biólogo")
say("Para receber a recompensa da ajuda feita")
say("para a pesquisa sobre os Emblemas do Rei Negro")
say("do biólogo, você precisa ir até o Baek Go.")
end
when __TARGET__.target.click or 20018.chat."Recompensa do Biólogo" begin
target.delete("__TARGET__")
say_title("Baek Go")
say("Hum...")
say("O Biólogo pediu para você vir até mim?")
say("Aqui está a sua recompensa...")
say("")
say_reward("Você vai receber:")
say_reward("10% Bônus Humanoídes (Permanente)")
say("")
affect.add_collect(apply.ATTBONUS_HUMAN,10,60*60*24*365*60)
end
state __complete begin
end
end
Share this post
Link to post
Share on other sites