Pesquisa Biólogo Nivel 50

[[Admin] tierrilopes]

------------------------------------------------------COLLECT QUEST_lv50--METIN2 Collecting Quest----------------------------------------------------quest collect_quest_lv50 begin state start begin end state run begin when login or levelup with pc.level >= 50 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, "Chaegirab") end q.set_icon("scroll_open_green.tga") send_letter("Pesquisa do Biólogo") end when button or info begin say_title("Pesquisa do Biólogo") say("") say("O Biólogo Chaegirab, aprendiz do Uriel,") say("precisa da tua ajuda urgentemente.") say("Corre e vai ajudá-lo.") say("") end when __TARGET__.target.click or 20084.chat."Ouve" begin target.delete("__TARGET__") say_title("Chaegirab:") say("") --- l say("Olá!") say("") say("Desta vez estou a escrever sobre diferentes monstros no nosso mundo,") say("mas infelizmente, não o consigo fazer sozinho.") say("") say("Eu até arranjava as informações sozionho, mas é difícil.") say("Os monstros são muito fortes para mim,") say("por isso, poderias-me recolher algumas informações por mim?") say("Certamente, receberás uma boa recompensa por me ajudares.") say("") wait() say_title("Chaegirab:") say("") say("Gostaria de saber algo sobre os demónios da") say("Torre dos Demónios.") say("Consegues pressentir o mal só de olhar.") say("") say("Nesta pesquisa preciso de Lembranças do Demónio.") say("") wait() say_title("Chaegirab:") say("") say("Quanto tempo achas que demoras a juntar") say("algumas Lembranças do Demónio?") say("Estas Lembranças têm diferentes qualidades,") say("por isso, não me tragas lembranças de demónios fracos.") say("Vou precisar cerca de 15 Lembranças do Demónio para esta pesquisa...") say("Boa sorte!") say("") set_state(go_to_disciple) pc.setqf("duration",0) pc.setqf("collect_count",0) pc.setqf("drink_drug",0) end end state go_to_disciple begin when letter begin send_letter("As Lembranças do Demónio") end when button or info begin say_title("As Lembranças do Demónio") ----"123456789012345678901234567890123456789012345678901234567890"| say("") say("O Biólogo Chaegirab precisa que lhe tragas Lembranças do Demónio.") say("Estas lembranças podem ser encontradas na Torre dos Demónios.") say("São precisas 15 Lembranças do Demónio.") say("Lembra-te, só poderás entregar uma de cada vez.") say("") say_reward("Já entregas-te "..pc.getqf("collect_count").." lembranças até agora.") say("") end when 71035.use or 76020.use begin if get_time() < pc.getqf("duration") then syschat("Ainda não podes usar a poção.") return end if pc.getqf("drink_drug")==1 then syschat("Já usas-te a poção.") return end if pc.count_item(30015)==0 then syschat("Poderás usar o Elixir do Investigador quando tiveres Lembranças do Demónio.") return end item.remove() pc.setqf("drink_drug",1) end when 20084.chat."GM: collect_quest_lv50.skip_delay" with pc.count_item(30015) >0 and pc.is_gm() and get_time() <= pc.getqf("duration") begin say(mob_name(20084)) say("You are GM, OK") pc.setqf("duration", get_time()-1) return end when 20084.chat."As Lembranças do Demónio?" with pc.count_item(30015) >0 begin if get_time() > pc.getqf("duration") then say_title("Chaegirab:") say("") --- l say("Oh!! Trouxes-te uma Lembrança!") say("") say("Dá-me um segundo, preciso de a verificar.") say("") pc.remove_item(30015, 1) pc.setqf("duration",get_time()+60*60*6) 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 local index =pc.getqf("collect_count")+1 pc.setqf("collect_count",index) say_title("Chaegirab:") say("") say("Isto é exatamente o que estou à procura! Obrigado!") say("Já só preciso de mais ".." "..15-pc.getqf("collect_count").. " Lembranças!") say("") say("Boa sorte!") say("") pc.setqf("drink_drug",0) return end say_title("Chaegirab:") say("") --- l say("Entregas-te todas as 15 Lembranças do Demónio!") say("") say("Agora só preciso da Pedra-Espírita Sagyi,") say("ela funciona como uma espécie de chave.") say("Esta Pedra também é encontrada nos demónios da Torre.") say("") say("Podes-me arranjar uma por mim?") say("") pc.setqf("collect_count",0) pc.setqf("drink_drug",0) pc.setqf("duration",0) set_state(key_item) return else say_title("Chaegirab:") say("") say("Peço desculpa, mas não consigo usar esta lembrança...") say("Ela pertencia a um demónio fraco.") say("Encontra-me outra por favor.") say("") pc.setqf("drink_drug",0) return end else say_title("Biólogo Chaegirab:") say("") local hours = math.floor((pc.getqf("duration")-get_time())/60/60) local remaining = hours.." horas" if hours < 1 then remaining = "alguns minutos" elseif hours < 2 then remaining = " 1 hora" end say("Peço desculpa ainda não acabei de examinar a última lembrança.") say("Podes voltar daqui a "..remaining.."?") say("") end endend state key_item begin when letter begin send_letter("Pesquisa do Biólogo") if pc.count_item(30222)>0 then local v = find_npc_by_vnum(20084) if v != 0 then target.vid("__TARGET__", v, "Chaegirab") end end end when button or info begin if pc.count_item(30222) >0 then say_title("A Pedra-Espírita Sagyi") say("") --- l say("Finalmente encontras-te a Pedra-Espírita Sagyi!") say("Entrega-a ao Chaegirab.") say("") return end say_title("Pedra-Espírita Sagyi") say("") --- l say("Para esta pesquisa do Biólogo entregas-te") say("15 Lembranças do Demónio") say("A única coisa que lhe falta é a") say("Pedra-Espírita Sagyi") say("") say_item_vnum(30222) say("da Torre dos Demónios.") say("Entrega-a a Chaegirab.") say("") end when 1001.kill or 1002.kill or 1003.kill or 1004.kill begin local s = number(1, 500) if s == 1 and pc.count_item(30222)==0 then pc.give_item2(30222, 1) send_letter("Pedra-Espírita Sagyi!") end end when __TARGET__.target.click or 20084.chat."Encontras-te a Pedra-Espírita Sagyi!" with pc.count_item(30222) > 0 begin target.delete("__TARGET__") say_title("Chaegirab:") say("") --- l say("Oh!!! Muito obrigado..") say("Como recompensa tornar-te-ei mais forte.") say("") say("Leva esta receita secreta a Baek-Go.") say("Ele criará uma poção que te tornará mais forte.") say("") say("Graças a ti ganhei conhecimentos sobre os demónios.") say("") pc.remove_item(30222,1) set_state(__reward) end end state __reward begin when letter begin send_letter("A recompensa de Chaegirab") local v = find_npc_by_vnum(20018) if v != 0 then target.vid("__TARGET__", v, "Baek-Go") end end when button or info begin say_title("A recompensa de Chaegirab") say("") --- l say("Como recompensa por entregares as lembranças e a") say("pedra-espírita, o Biólogo Chaegirab deu-te uma") say("receita para uma poção secreta. Entrega-a a Baek-Go") say("e ele criará a poção.") say("") end when __TARGET__.target.click or 20018.chat."A receita secreta" begin target.delete("__TARGET__") say_title("Baek Go:") say("") --- l say("Deixa-me cá ver") say("Esta é a receita que o Chaegirab te deu?") say("Hmm, +60 Defesa.") say("Já agora, leva também esta caixa.") say("Aqui está a poção.") say("") ----------- l say_reward("Como recompensa por ajudares Chaegirab, recebes-te") say_reward("+60 Defesa.") say_reward("Esta recompensa não é temporária, mas sim permanente.") say("") affect.add_collect(apply.DEF_GRADE_BONUS,60,60*60*24*365*60) pc.give_item2(50111) clear_letter() set_quest_state("collect_quest_lv60", "run") set_state(__complete) end end state __complete begin endend

biologo_lvl50.quest