---------------------------------------------------- --COLLECT QUEST_lv85 --METIN2 Collection Quest ---------------------------------------------------- quest collect_quest_lv85 begin state start begin end state run begin when login or levelup with pc.level >= 85 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 Biologo") end when button or info begin ----"12345678901234567890123456789012345678901234567890"| say_title("Pesquisa do Biologo") say("") say("Chaegirab, aprendiz de Uriel precisa da tua ajuda.") say("") say("Vai ver o que ele precisa.") say("") end when __TARGET__.target.click or 20084.chat."Please listen to me" begin target.delete("__TARGET__") say_title("Chaegirab:") say("") say("Ouch!!! Por favor ouve-me...") say("Agradeco imenso o que tens feito por mim mas,") say("preciso que me ajudes outra vez..") say("Ando a escrever um livro sobre a Floresta Vermelha.") say("Infelizmente nao tenho informacoes suficientes, por isso,") say("gostaria que me trouxesses algo de la.") say("Certamente seras recompensado por me ajudares.") say("") say("Preciso que me tragas 40 Ramos Vermelhos.") say("") say("") set_state(go_to_disciple) pc.setqf("duration",0) -- Time limit pc.setqf("collect_count",0)--Items collected pc.setqf("drink_drug",0) --quest potion 1 end end state go_to_disciple begin when letter begin send_letter("Pesquisa do Biologo") end when button or info begin say_title("Arranja informacoes sobre a Floresta Vermelha.") say("") say("Chaegirab esta a pesquisar a Floresta Vermelha e") say("precisa que lhe tragas 40 Ramos Vermelhos.") say("") say_item_vnum(30167) say_reward("De momento ja entregas-te".." "..pc.getqf("collect_count").." ramos.") say("") end when 71035.use or 76020.use begin if get_time() < pc.getqf("duration") then syschat("Ainda nao podes usar.") return end if pc.getqf("drink_drug")==1 then syschat("Ja usas-te.") return end if pc.count_item(30167)==0 then syschat("Poderas usar assim que tiveres Ramos Vermelhos.") return end item.remove() pc.setqf("drink_drug",1) end when 70030.use begin if get_time() > pc.getqf("redm_duration") then pc.setqf("monocles_used", 0) end if get_time() > pc.getqf("duration") then syschat("You can already give the next item to Chaegirab. No Monocle needed.") return end if pc.getqf("monocles_used") > 2 then syschat("You have already used 3 Red Monocles today.") return end if pc.getqf("monocles_used") == 0 then pc.setqf("redm_duration", get_time()+24*60*60) end item.remove() pc.setqf("duration", get_time()-1) local use = pc.getqf("monocles_used")+1 pc.setqf("monocles_used",use) syschat("You have used a Red Monocle. You can give the next Red Wood Branch to Chaegirab.") end when 2311.kill or 2312.kill or 2313.kill or 2314.kill or 2315.kill begin local s = number(1, 150) if s == 1 then pc.give_item2(30167) send_letter("&You have obtained a Red Wood Branch!") end end when 20084.chat."Trouxes-te um Ramo? " with pc.count_item(30167) >0 begin if get_time() > pc.getqf("duration") then say_title("Chaegirab:") say("") say("Oh!! Trouxes-te-me um ramo!") say("Da-me um segundo...") say("") pc.remove_item(30167, 1) if is_test_server() then pc.setqf("duration",get_time()+2) else pc.setqf("duration",get_time()+60*60*14) -----------------------------------22½Ã°£ end wait() local pass_percent if pc.getqf("drink_drug")==0 then pass_percent=60 else pass_percent=95 end local s= number(1,100) if s<= pass_percent then if pc.getqf("collect_count")< 39 then --Less than 40 local index =pc.getqf("collect_count")+1 pc.setqf("collect_count",index) say_title("Chaegirab:") say("") say("Oh! Excelente!") say("Ja so preciso de "..40-pc.getqf("collect_count").. " ramos!!") say("Obrigado!") say("") pc.setqf("drink_drug",0) --Potion reset return end say_title("Chaegirab:") say("") say("Entregas-te todos!!") say("Agora preciso que me tragas: Pedra-Espirita Vermelha.") 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("hmmm...") say("Este nao serve..") say("E muito fraco e esta partido...") say("") pc.setqf("drink_drug",0) --Reset potion return end else say_title("Biologist Chaegirab:") say("") local hours = math.floor((pc.getqf("duration")-get_time())/60/60) local remaining = hours.." hours" if hours < 1 then remaining = "daqui a uns minutos" elseif hours < 2 then remaining = "mais logo" end say("Peco desculpa mas ainda nao acabei de analisar") say("o ultimo que trouxes-te. Vem "..remaining.."?") say("") end end end state key_item begin when letter begin send_letter("Pesquisa do Biologo") if pc.count_item(30226)>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(30226) >0 then say_title("Arranjas-te a Pedra-Espirita Vermelha.") say("") --- l say("Entrega-a a Chaegirab") say("") return end say_title("Pedra-Espirita Vermelha") say("") --- l say("Para acabar a pesquisa") say("o biologo precisa que lhe entregues uma") say("Pedra-Espirita Vermelha!") say_item_vnum(30226) say("Poderas arranja-la atraves dos monstros da Floresta Vermelha!") say("") end when 2311.kill or 2312.kill or 2313.kill or 2314.kill or 2315.kill begin local s = number(1, 500) if s == 1 and pc.count_item(30226)==0 then pc.give_item2(30226) send_letter("Pedra-Espirita Vermelha") end end when __TARGET__.target.click or 20084.chat."Pedra-Espirita Vermelha" with pc.count_item(30226) > 0 begin target.delete("__TARGET__") say_title("Chaegirab") say("") say("Maravilhoso! Fizeste um optimo trabalho!!") say("Como recompensa leva esta receita a Baek-Go.") say("Ele sabera o que fazer com ela.") say("") pc.remove_item(30226,1) set_state(__reward) end end state __reward begin when letter begin send_letter("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("Recompensa de Chaegirab") --- l say("Como recompensa por ajudares o biologo,") say("Chaegirab, deu-te uma receita.") say("Entrega-a a Baek-go para ele fazer uma pocao.") say("Esta pocao vai aumentar os teus poderes.") say("") end when __TARGET__.target.click or 20018.chat."Take a look at this prescription" begin target.delete("__TARGET__") say_title("Baek-go:") say("") say("Hmm, deixa-me ver..") say("Receita do Chaegirab?") say("Hmm. +10% de reducao de danos de Jogadores.") say("") wait() say_title("Baek-go:") say("") say("Nao te esquecas da caixa!") say("") say_reward("Recompensa de ajudar Chaegirab:") say_reward("+10% de reducao de danos de Jogadores.") say_reward("Este efeito e permanente.") say("") pc.give_item2(50115) clear_letter() affect.add_collect_point(POINT_RESIST_WARRIOR,10,60*60*24*365*60) --60³â affect.add_collect_point(POINT_RESIST_ASSASSIN,10,60*60*24*365*60) --60³â affect.add_collect_point(POINT_RESIST_SURA,10,60*60*24*365*60) --60³â affect.add_collect_point(POINT_RESIST_SHAMAN,10,60*60*24*365*60) --60³â set_quest_state("collect_quest_lv90", "run") set_state(__complete) end end state __complete begin end end