Nivel 10 - Ajuda para o Sr.Soon

por **Admin** Dom Dez 11, 2016 2:45 am

Ajuda para o Sr.Soon

Código:: quest subquest_5 begin state start begin when login or levelup with pc.level >= 10 and pc.level <= 15 begin set_state(information) end end state information begin when letter begin local v = find_npc_by_vnum(20023) if v != 0 then target.vid("__TARGETF__", v, "Ajuda para o Sr.Soon") end end when __TARGETF__.target.click or 20023.chat."Ajuda para o Sr.Soon" with pc.level >= 10 begin target.delete("__TARGETF__") say_title("Sr.Soon:") say("") say("Bla, bla... Que diabos... Quem é você?") say("Nunca me perturbe enquanto estou a ler!") say("Dei-me apenas um minuto!") say("") say("Desculpe, eu não queria gritar consigo.") say("Às vezes ao ler eu acho algo que não entendo e") say("e isso é muito frustrante.") say("") wait() say_title("Sr.Soon:") say("") say("Eu estou a estudar os Leque usados pelos Xamãs.") say("") say("Estou com alguma dificuldade em descobrir quais são") say("os melhores, e é impossivel para testá-los todos.") say("O Uriel, o sábio, poderia facilmente reconhecer os") say("leques, poderia perguntar a ele?") say("") say("Eu estou interessado nos seguintes tipos de leques:") say("Leque Oceânico, Leque Ave do Paraíso, Leque Triplo,") say("e Leque Asa de Grou.") say("") wait() say_title("Sr.Soon:") say("") say("Eu quero que ele liste todos os leques de acordo com") say("seu valor de ataque.") say("") local s=select("Eu vou perguntar."," Eu não vou perguntar.") if 2==s then say("Realmente quer cancelar esta tarefa?") local a=select("Sim","Não") if 2==a then say_title("Sr.Soon:") say("") say("Isso é bom de se ouvir.") say("Simplesmente volte mais tarde.") return end say_title("Sr.Soon:") say("") say("Que vergonha... ") say("") say("Então deixe-me ler em paz.") say("") clear_letter() set_state(__GIVEUP__) return end say_title("Sr.Soon:") say("") say("Agora estou realmente feliz!") say("") say("Isto vai dar um bom livro.") say("") set_state(ask_to) end end state ask_to begin when info or button begin say_title("Ajuda para o Sr.Soon") say("") say("Vá até Uriel e peça uma lista de leques.") say("") end when letter begin local v = find_npc_by_vnum(20011) if v != 0 then target.vid("__TARGETF__", v, "A favour for Mr.Soon.") end send_letter("Ajuda para o Sr.Soon") end when __TARGETF__.target.click or 20011.chat."Ajuda para o Sr.Soon" begin target.delete("__TARGETF__") say_title("Uriel:") say("") say("O que o traz até mim?") say("O Sr.Soon mandou você?") say("Ele lê sobre tudo, mas às vezes eu gostaria que") say("ele também aprendesse algo.") say("Ele está sempre me perturbando.") say("") say("Bem, diga-me o que ele quer desta vez!") say("") wait() say_title("Uriel:") say("") say("Ele quer que eu liste os leques de acordo com seu") say("valor de ataque?") say("Isso é bastante fácil.") say("") say("Aqui está: Leque Ave do Paraíso, Leque Triplo,") say("Leque Oceânico e Leque Asa de Grou.") say("") say("Ok?") say("") set_state(return_to) end end state return_to begin when letter begin send_letter("Returne ao Sr.Soon.") local v = find_npc_by_vnum(20023) if v != 0 then target.vid("__TARGETF__", v, "Ajuda para o Sr.Soon") end end when info or button begin say_title("Retorne ao Sr.Soon") say("") say("Retorne a Sr.Soon e informe-o sobre os leques.") say("") end when __TARGETF__.target.click or 20023.chat."Lista de Leques" begin target.delete("__TARGETF__") say_title("Sr.Soon:") say("") say("Então, Uriel pode dar uma resposta clara?") say("") local s = select( "Aquatico, Oceanico, Asa de Grou, Triplo.", "Oceanico, Triplo, Aquatico, Asa de Grou.", "Ave do Paraíso, Triplo, Oceânico, Asa de Grou.", "Oh não, eu esqueci.") if s == 2 then say_title("Sr.Soon:") say("") say("Muito obrigado!") say("Agora eu posso ler descansado.") say("") pc.give_exp2(6000) set_quest_state("levelup","run") pc.change_money(10000) say_title("Recompensa:") say("") say_reward("Recebeu 6.000 Pontos de Experiência.") say_reward("Recebeu 10.000 Yang.") say("") clear_letter() set_state(__COMPLETE__) elseif s==4 then say_title("Sr.Soon:") say("") say("Não tenho certeza se isso está correto.") say("Por favor, verifique.") say("") local s=select("Sim, está correto!","Não tenho certeza..") if 2==s then say("Você deseja realmente cancelar esta tarefa?") local a=select("Sim","Não") if 2==a then say_title("Sr.Soon:") say("") say("É bom ouvir, volte mais tarde.") say("") return end say_title("Sr.Soon:") say("") say("Isso não é bom de se ouvir!") say("Vá embora...") say("") set_state(__GIVEUP__) end say_title("Sr.Soon:") say("") say("Maravilhoso, volte mais tarde.") say("") set_state(ask_to) else say_title("Sr.Soon:") say("") say("Tem certeza de que a ordem está correta?") say("") local s=select("Sim, eu tenho.","Não, não tenho.") if 2==s then say("Deseja realmente cancelar esta tarefa?") local a=select("Sim","Não") if 2==a then say_title("Sr.Soon:") say("") say("Que bom!") say("Isso é optimo!") say("Volte Sempre.") say("") return end say_title("Sr.Soon:") say("") say("Teria sido muito bom..") say("") say("Vá se embora...") say("") set_state(__GIVEUP__) end say_title("Sr.Soon:") say("") say("Eu não sei se isso está correto.") say("Por favor, pergunte ao Uriel novamente e preste") say("atenção desta vez.") say("") set_state(ask_to) end end end state __GIVEUP__ begin end state __COMPLETE__ begin when enter begin q.done() end end end