Pesquisa Biólogo Nivel 92

[[Admin] tierrilopes]

------------------------------------------------------COLLECT QUEST_lv92--METIN2 Collection Quest----------------------------------------------------quest collect_quest_lv92 begin state start begin end state run begin when login or levelup with pc.level >= 92 begin set_state(information) end end state information begin when letter begin local v = find_npc_by_vnum(20091) if v != 0 then target.vid("__TARGET__", v, "Seon-Pyeong") end q.set_icon("scroll_open_green.tga") send_letter("Pesquisa de Seon-Pyeong") end when button or info begin say_title("Pesquisa de Seon-Pyeong") say("") say("Seon-Pyeong está no Vale Seungryong") say("à tua procura.") say("Vai ver o que se passa.") say("") end when __TARGET__.target.click or 20091.chat."Weapon collecter Seon-Pyeong" begin target.delete("__TARGET__") --- l say_title("Seon-Pyeong:") say("") say("Oh.. Bravo Guerreiro! Estava à tua procura!") say("Preciso que me ajudes, os monstros da Gruta das Almas têm") say("jóias importantes para me ajudar na minha pesquisa!") say("") wait() say_title("Seon-Pyeong:") say("") say("As jóias têm que ser perfeitas!") say("Quando me trouxeres uma eu avalio-as!") say("Por favor, traz-me 10 Jóias da Malevolência!") say("Boa Sorte!") 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 de Seon-Pyeong") end when button or info begin say_title("Jóias da Malevolência") --- l say("Seon-Pyeong, precisa que colecciones") say("Jóias da Malevolência para ajudar com a pesquisa dele.") say("Estas jóias podem ser arranjadas nos seguintes monstros:") say_reward("Golem do Gelo Negro | Homem do Gelo Negro") say_item_vnum(30251) say_reward("Entregas-te".." "..pc.getqf("collect_count").." jóias.") say("") end when 71035.use or 76020.use begin if get_time() < pc.getqf("duration") then syschat("Ainda não podes.") return end if pc.getqf("drink_drug")==1 then syschat("Já usas-te.") return end if pc.count_item(30251)==0 then syschat("Poderás usar quando tiveres os Jóias da Malevolência.") 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 Golden Sky Gem to Chaegirab.") end when 1135.kill or 1137.kill begin local s = number(1, 100) if s <= 1 then pc.give_item2(30251, 1) send_letter("Obtiveste Jóias da Malevolência") end end when 20091.chat."Trouxes-te uma Jóia da Malevolência? " with pc.count_item(30251) >0 begin if get_time() < pc.getqf("duration") then local hoursleft = math.ceil((pc.getqf("duration")-get_time())/60/60) say_title("Seon-Pyeong:") say("") say("Ainda não acabei de analisar a última....") say("Hmm.....Poderias trazer") say("daqui a "..hoursleft.." horas?") say("") return end if pc.count_item(30251) <= 0 then say_title("Seon-Pyeong:") say("") say("Volta quando encontrares: "..item_name(30251)..".") return end say_title("Seon-Pyeong:") say("") --- l say("Oh!! Trouxes-te...") say("Dá-me um momento...") say("") pc.remove_item(30251, 1) if is_test_server() then pc.setqf("duration",get_time()+2) else pc.setqf("duration",get_time()+60*60*6) -----------------------------------6hours end wait() local pass_percent if pc.getqf("drink_drug")==0 then pass_percent = 35 else pass_percent = 80 end local s= number(1,100) if s<= pass_percent then if pc.getqf("collect_count")< 9 then --less than 10 local index =pc.getqf("collect_count")+1 pc.setqf("collect_count",index) say_title("Seon-Pyeong:") say("") say("Oh Oh!! Excelente! Fizes-te um bom tabalho...") say("Traz-me mais "..10-pc.getqf("collect_count").. "!!") say("Continua assim!!") say("") pc.setqf("drink_drug",0) --Potion reset else pc.setqf("duration", 0) say_title("Seon-Pyeong:") say("") say("Já entregas-te todas as Jóias!") say("") say("Escolhe a tua recompensa!") say("") pc.setqf("collect_count",10) local s = select("Max VD +1000","Defesa +300","Valor Ataque +100") if 1 == s then affect.add_collect(1, 1000, 60*60*24*365*60) --hp+1000 Hp is 1 pc.setqf("block_id",1) elseif 2 == s then affect.add_collect(apply.DEF_GRADE_BONUS, 300, 60*60*24*365*60) pc.setqf("block_id",2) elseif 3 == s then affect.add_collect(apply.ATT_GRADE_BONUS,100,60*60*24*365*60)--60years pc.setqf("block_id",3) end clear_letter() set_quest_state("collect_quest_lv94", "run") set_state(__complete2__) end return else pc.setqf("drink_drug",0) --Potion reset say("Seon-Pyeong:") say("Esta não serve..") say("Traz outra.") say("") return end endend state __complete begin end state __complete2__ begin endend

biologo_lvl92.quest