API tools faq
paste
Advertisement
juliocf

WoE Event - Ragnarok (TecnoCronus)

juliocf
Jun 4th, 2015
272
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C 13.70 KB | None | 0 0
raw download clone embed print report
  1. /*    ___       ___       ___       ___       ___       ___       ___       ___       ___       ___       ___  
  2.          /\  \     /\  \     /\  \     /\__\     /\  \     /\  \     /\  \     /\  \     /\__\     /\__\     /\  \  
  3.          \:\  \   /::\  \   /::\  \   /:| _|_   /::\  \   /::\  \   /::\  \   /::\  \   /:| _|_   /:/ _/_   /::\  \
  4.          /::\__\ /::\:\__\ /:/\:\__\ /::|/\__\ /:/\:\__\ /:/\:\__\ /::\:\__\ /:/\:\__\ /::|/\__\ /:/_/\__\ /\:\:\__\
  5.         /:/\/__/ \:\:\/  / \:\ \/__/ \/|::/  / \:\/:/  / \:\ \/__/ \;:::/  / \:\/:/  / \/|::/  / \:\/:/  / \:\:\/__/
  6.         \/__/     \:\/  /   \:\__\     |:/  /   \::/  /   \:\__\    |:\/__/   \::/  /    |:/  /   \::/  /   \::/  /
  7.                \/__/     \/__/     \/__/     \/__/     \/__/     \|__|     \/__/     \/__/     \/__/     \/__/
  8.  
  9.  
  10.  
  11.                       (C) Copyright TecnoCronus 03/06/15
  12.                        
  13.     *--------------------------------------------eAthena Script---------------------------------------------*
  14.     *- Evento Guerra do Empério                                            *
  15.     *------------------------------------------------ By: --------------------------------------------------*
  16.     *- TecnoCronus                                                                                          *
  17.     *------------------------------------------ Current Version: -------------------------------------------*
  18.     *- 2.0                                                      *
  19.     *------------------------------------------ Description: -----------------------------------------------*
  20.     *                                                   *
  21.     * - NPC de evento, Não-Oficial, criado por mim, com base na História do Ragnarok. Toda vez que a      *
  22.     *   WOE começar, existe uma chance de esse evento começar, e o NPC íris vai ser ativado, quem falar  *
  23.     *   com o NPC enquanto o evento estiver ativo poderá fazer a quest primeiro para poder participar  *
  24.     *   do evento, que é trazer 100 mantos e estar usando um manto sagrado. O Objetivo é matar 100 players    *
  25.     *   (por padrão) na WOE para ganhar o prêmio que é uma Coroa do Deus-Sol ()              *
  26.     *                                                   *
  27.     *---------------------------------------- Additional Comments: -----------------------------------------*
  28.     *                                                   *
  29.     * - Enquanto o jogador estiver no evento, há uma chance de ele ser bufado e ganhar porção branca *
  30.     * - O NPC vai dar prêmio somente para 1 jogador, ou seja, o primeiro a matar 100 players       *
  31.     *                                                       *
  32.     *-------------------------------------------- Changelog ------------------------------------------------*
  33.     *- http://trac.xp-dev.com/TC_Scripts/log/scripts/PT/Woe Event.txt                       *
  34.     *-------------------------------------------------------------------------------------------------------*/
  35.  
  36.  
  37. prontera,168,187,4  script  Íris   117,{
  38.  
  39. OnClick:
  40.     if($WEventON == 1) {
  41.  
  42.         set @PName$, strcharinfo(0);
  43.  
  44.         if(IrisH==1) {
  45.  
  46.             mes "^D8202F [Íris] ^000000";
  47.             mes "^3FF000 "+ @PName$ +" ^000000, meu Subordinado, lhe esqueci de contar algo:";
  48.             mes "O Feitiço de Chaos sempre existirá, Os Corações Humanos almadiaçoados pela ganância";
  49.             mes "é a sua fonte de poder, que pena você não poder mais me Ajudar, agora preciso";
  50.             mes "tentar novamente me libertar, mas somente um Guerreiro Mais Forte que você pode me ajudar";
  51.             close;
  52.         }
  53.  
  54.         if(IrisComplete==1) {
  55.  
  56.             mes "^D8202F [Íris] ^000000";
  57.             mes "Meu mais importante subordinado, você completou sua jornada, e me ajudou";
  58.             mes "Você, ^0F0F0F "+ @PName$ +" ^000000, provou sua Honra e Coragem, agora";
  59.             mes "você receberá aquilo que lhe prometi, um ^FF0000 Coroa do Deus Sol ^000000, os deuses";
  60.             mes "de Rune Midgard estão felizes, pois consegui prová-los que sou uma boa líder";
  61.             mes "e agora eles me libertarão daqui, como prometido...";
  62.             getitem 5022, 1;
  63.             close2;
  64.             npctalk "Obrigado "+ @PName$ +" agora estou livre";
  65.             sleep2 1500;
  66.             npctalk "Estarei no Céu, sempre olhando por você....";
  67.             set Iriscomplete, 0;
  68.             set IrisHelper, 0;
  69.             set IrisTest, 0;
  70.             set IrisKill, 0;
  71.             set IrisH, 1;
  72.             callfunc "Ending";
  73.             end;
  74.         }
  75.  
  76.         if(IrisHelper==1) {
  77.  
  78.             callfunc "IrisHelper";
  79.             mes "^D8202F [Íris] ^000000";
  80.  
  81.             if(@MyQuest<100 || isequipped(2325) != 1) {
  82.  
  83.                 mes "Escute, ^6E26D7 "+ @PName$ +" ^000000, complete os requisitos para começar sua missão";
  84.                 mes "São eles: ^FF0000 100 Mantos Cerimoniais Celestiais ^000000";
  85.                 mes "e estar usando um Manto Sagrado (Armadura)";
  86.                 mes "Você já tem ^333333 "+ @MyQuest +" ^000000 Manto(s) Sagrado(s)";
  87.                 mes "e/ou ainda não está usando o Manto Sagrado";
  88.                 close;
  89.             }
  90.  
  91.             mes "Parabéns meu Fiél Subordinado, você provou que tem Força e Honra suficiente";
  92.             mes "Para ser meu subordinado, Meus Parabéns, agora você já pode começar sua missão";
  93.             mes "Você se Lembra dela?";
  94.             next;
  95.  
  96.             if(select("Sim Mestre","Desculpe-me Mestre, esqueci)==2) {
  97.  
  98.                 mes "^D8202F [Íris] ^000000";
  99.                 mes "Não precisa se desculpar, sua Missão é a seguinte:";
  100.                 mes "^D39337 Matar 100 Humanos na Guerra do Empério ^000000 nos Castelos de ^0FF000 Prontera ^000000";
  101.                 mes "Quando você fizer isso, eu lhe invocarei aqui e lhe darei sua Recompença";
  102.                 mes "Uma Lendário ^FF0000 Coroa do Deus Sol ^000000, que ganhei de presente dos Deuses";
  103.                 mes "Vamos começar o Ritual, você receberá 50 Porções Brancas agora";
  104.                 mes "E receberá meus Buffs agora e quando matar...";
  105.                 set IrisTest, 1;
  106.                 close2;
  107.                 callfunc "StartingMainQuest";
  108.                 end;
  109.             }
  110.  
  111.             mes "Certo, agora devo lhe contar sua recompença, é algo muito valioso,";
  112.             mes "Uma Lendária ^FF0000 Coroa do Deus Sol ^000000, que ganhei de presente dos Deuses";
  113.             mes "Agora vá e Complete sua Missão";
  114.             mes "Vamos começar o Ritual, você receberá 50 Porções Brancas agora";
  115.             mes "E receberá meus Buffs agora e quando matar...";
  116.             set IrisTest, 1;
  117.             close2;
  118.             callfunc "StartingMainQuest";
  119.             end;
  120.         }
  121.  
  122.         if (BaseLevel<60 || Upper < 1) {
  123.  
  124.             mes "^D8202F [Íris] ^000000";
  125.             mes "Desculpe-me, ^6E26D7 "+ @PName$ +" ^000000, não preciso de sua ajuda,";
  126.             mes "Você é muito fraco";
  127.         }
  128.  
  129.         mes "^D8202F [Íris] ^000000";
  130.         mes "Olá ^6E26D7 "+ @PName$ +" ^000000, eu me chamo íris";
  131.         mes "sou uma Guerreira muito antiga, e estou procurando por fiéis Guerreiros";
  132.         mes "Você deseja ouvir minha História ?";
  133.  
  134.         if(select("Sim, Me Conte mais","Não, estou Ocupado") ==2) {
  135.  
  136.             mes "Que pena ^6E26D7 "+ @PName$ +" ^000000...";
  137.             mes "É uma grande honra poder ajudar uma guerreira valkíria.";
  138.             close;
  139.  
  140.         }
  141.  
  142.         mes "Há muito, MUITO tempo atrás os Deuses de Rune Midgard estavam anciosos.";
  143.         mes "Eles temiam o Fim do Mundo, O Terrível ^FF1200 Ragnarok ^000000, o dia em que o mundo acabaria";
  144.         mes "nesses tempos de preocupações, os deuses selecionavam, em toda Rune Midgard";
  145.         mes "os guerreiros mais valentes para formar a Guarda Celestial, que protegeria os Humanos.";
  146.         next;
  147.         mes "^D8202F [Íris] ^000000";
  148.         mes "Os Guerreiros da Guarda Celestial eram muito Fortes e temidos";
  149.         mes "por toda Rune Midgard, eles eram abençoados pelos deuses e";
  150.         mes "adorados pelos mortais...";
  151.         next;
  152.         mes "^D8202F [Íris] ^000000";
  153.         mes "Eu, era a Líder da primeira Guarda celestial";
  154.         mes "os deuses de Rune Midgard me abençoaram com a imortalidade";
  155.         mes "Mas, o meu principal Subordinado e membro da Guarda Celestial";
  156.         mes "Chaos guardava muita inveja em seu coração e,";
  157.         mes "Ajudado pelos Demônios que queriam acabar com Rune Midgard,";
  158.         mes "Conseguiu me enfeitiçar e retirar minha imortalidade...";
  159.         next;
  160.         mes "^D8202F [Íris] ^000000";
  161.         mes "Todos os Deuses ficaram muito preocupados, mas não sabiam";
  162.         mes "Sobre a Traição de ^080833 Chaos ^000000, e assim o elegeram";
  163.         mes "Novo Líder da Guarda Celestial";
  164.         next;
  165.         mes "^D8202F [Íris] ^000000";
  166.         mes "Chaos, juntamente com os Demônios, se rebeleram contra os";
  167.         mes "deuses de Rune Midgard, Assim Começou Temido ^FF1200 Ragnarok ^000000";
  168.         mes "Deuses e Demônios travaram uma batalha Terrível,";
  169.         mes "Que durou 7 Dias e 7 Noites, O Terror estava espalhado por Rune Midgard,";
  170.         mes "os Deuses venceram, mas, antes de ser destruído, Chaos";
  171.         mes "Lançou seu último e mais Malígno feitiço";
  172.         next;
  173.         mes "^D8202F [Íris] ^000000";
  174.         mes "Ele conseguiu o que queria, plantou o Mal, a Ambição nos Corações dos Mortais";
  175.         mes "Ele criou a ^A6A413 Guerra do Empério ^000000, onde os mortais procurariam cada";
  176.         mes "vez mais e mais o poder, Ele Amaldiçoou os 17 Templos dos deuses, onde os Humanos";
  177.         mes "Procurariam por Poder, os Deuses não podiam ficar mais em Rune Midgard, pois estavam";
  178.         mes "muito fracos e não conseguiram retirar seu feitiço até hoje,";
  179.         mes "Assim Os Deuses de Rune Midgard Subirão ao Céu, onde lá estão";
  180.         next;
  181.         mes "^D8202F [Íris] ^000000";
  182.         mes "Disse Chaos que eu os Deuses só me libertariam dessa prisão, quando eu";
  183.         mes "provar novamente que mereço ser Líder da Guarda Celestial, então, eu";
  184.         mes "procuro por guerreiros que possa me ajudar em minha longa Jornada...";
  185.         mes "Os Deuses Ficaram impedidos de me liberta, somente quando eu comcluir minha missão";
  186.         mes "Mas, como seu último ato, os Deuses me deram uma ^FF0000 Coroa do Deus Sol ^000000, para";
  187.         mes "recompensar aqueles que me ajudarem...";
  188.         next;
  189.         mes "^D8202F [Íris] ^000000";
  190.         mes "Mas, Primeiramete, você tem que passar no meu teste,";
  191.         mes "para provar sua força, eu preciso que você mate ^D39337 100 ^000000";
  192.         mes "Humanos na ^A6A413 Guerra do Empério ^000000 nos Castelos de ^0FF000 Prontera ^000000";
  193.         mes "Mas Primeirante, precisamos iniciar nosso ritual, assim";
  194.         mes "provará que é forte o Bastante para me ajudar a sair";
  195.         mes "dessa maldita prisão, eu lhe irei ajudar, como disse, ainda tenho";
  196.         mes "alguns poderes...";
  197.         next;
  198.         mes "^D8202F [Íris] ^000000";
  199.         mes "Bem, ^6E26D7 "+ @PName$ +" ^000000, primeiramente me traga alguns items";
  200.         mes "Para que eu lhe poça curar e abençoar durante sua missão";
  201.         mes "Mas, antes de tudo desejo saber se você pode me ajudar...";
  202.  
  203.         if(select("Certamente, serei seu mais Fiél Subordinado","Não, Sou Muito Fraco...")==2) {
  204.  
  205.             emotion 23;
  206.             mes "Que pena, ^6E26D7 "+ @PName$ +" ^000000, vejo que você";
  207.             mes "é realmente fraco e Covarde, vá embora!";
  208.             close;
  209.         }
  210.  
  211.         next;
  212.         emotion 21;
  213.         mes "^D8202F [Íris] ^000000";
  214.         mes "Muito Obrigada, ^6E26D7 "+ @PName$ +" ^000000, para começar sua jornada, traga-me";
  215.         mes "--- ^FF0000 100 Mantos Cerimoniais Celestiais ^000000 ---";//7165
  216.         mes "E Use um ^FF0000 Manto Sagrado ^000000, esses são os requisitos";//2325
  217.         mes "Para que eu possa começar o Ritual Sagrado, que permitirá que eu lhe";
  218.         mes "transfira minha força para você, vá meu caro subordinado, não demore";
  219.         mes "volte antes que a ^A6A413 Guerra do Empério ^000000 acabe, pois só posso";
  220.         mes "surgir enquanto ela durar, quando ela acaba, sou levada misteriosamente";
  221.         mes "para outro lugar...";
  222.         set IrisHelper, 1;
  223.         close;
  224.  
  225.     }
  226.  
  227. end;
  228.  
  229.  
  230. }
  231.  
  232. function    script  IrisHelper  {
  233.  
  234.         set @MyQuest, countitem(7165);
  235.         return @MyQuest;
  236.  
  237. }
  238.  
  239. function    script  StartingMainQuest   {
  240.  
  241.         delitem 7165, 100;
  242.         percentheal 100,100;
  243.         sc_start 32,240000,10; //Increase Agi.
  244.         sc_start 30,240000,10; //Blessing
  245.         sc_start 39,240000,10; //Kyrie Eleison
  246.         sc_start 21,240000,10; //Endure
  247.         sc_start 43,240000,10; //Adrenaline Rush
  248.         sc_start 46,240000,10; //Maximize Power
  249.         sc_start 110,240000,10; //Improve Concentration
  250.         sc_start 40,240000,10; //Magnificat
  251.         getitem 505, 50;
  252.  
  253. }
  254.  
  255. function    script  Ending  {
  256.  
  257.         set @FirstRandomNumber, rand(100,600);
  258.         set @SecondRandomNumber, rand(100,600);
  259.         movenpc "Íris",@FirstRandomNumber,@SecondRandomNumber;
  260.         end;
  261.    
  262. }
  263.  
  264. -   script  OnPCKillEvent   -1,{
  265.  
  266.         if(IrisTest!=1) end;
  267.         if(IrisH == 1) end;
  268.         if (getmapxy(@mapname$,@mapx,@mapy,0) == -1) end;
  269.  
  270.         if (@mapname$ == "prtg_cas01") || (@mapname$ == "prtg_cas02") || (@mapname$ == "prtg_cas03") || (@mapname$ == "prtg_cas04") || (@mapname$ == "prtg_cas05") {
  271.  
  272.             set IrisKill, Iriskill+1;
  273.  
  274.             if(IrisKill==$WEPKAmount) {
  275.  
  276.                 set IrisComplet, 1;
  277.                 announce "Mensagem de Íris: Você completou sua Missão, Venha receber sua recompensa",bc_self,0;
  278.                 sleep2 2000;
  279.                 warp "prontera",166,185;
  280.                 end;
  281.  
  282.             }
  283.  
  284.         dispbottom "VOZ PROFUNDA: Parabéns Meu Subordinado, continue assim, até matar os 100...";
  285.         set @IrisTestRandTakePotion, rand(1,100);
  286.  
  287.         if (@IrisTestRandTakePotion<=$WEBuffChance) {
  288.  
  289.             percentheal 100,100;
  290.             sc_start 32,240000,10;  //Increase Agi.
  291.             sc_start 30,240000,10;  //Blessing
  292.             sc_start 39,240000,10;  //Kyrie Eleison
  293.             sc_start 21,240000,10;  //Endure
  294.             sc_start 43,240000,10;  //Adrenaline Rush
  295.             sc_start 46,240000,10;  //Maximize Power
  296.             sc_start 110,240000,10; //Improve Concentration
  297.             sc_start 40,240000,10;  //Magnificat
  298.  
  299.         if(checkweight(505,50)==1) getitem 505,50;
  300.  
  301.             dispbottom "VOZ PROFUNDA: Íris está te ajudando...";
  302.             end;
  303.         }
  304.  
  305.         end;
  306. }
  307.            
  308. -   script  WEventControl   -1,{
  309.  
  310.     end;
  311.  
  312. OnInit:
  313.  
  314.     // Chance pro evento começar, em porcentagem. (1%-100%)
  315.     set $WEChance, 10;
  316.  
  317.     // Chance pros jogadores ser bufados quando matar alguém, em porcentagem.
  318.     set $WEBuffChance, 10;
  319.  
  320.     // Quantidade de jogadores que deve se matar para ganhar o prêmio.
  321.     set $WEPKAmount, 100;
  322.  
  323.     disablenpc "Íris";
  324.     end;
  325.  
  326. OnAgitStart:
  327.    
  328.  
  329.     set $RandomChanceToStart, rand(1,100);
  330.  
  331.     if($RandomChanceToStart<=$WEChance) {
  332.  
  333.         enablenpc "Íris";
  334.         announce "VOZ PROFUNDA: Uma Lendária Guerreira precisa de Ajuda, ela se encontra em Prontera e Procura por Guerreiros para lhe ajudar...",0;
  335.         set $WEventON, 1;
  336.  
  337.     }
  338.     end;
  339.  
  340. OnAgitEnd:
  341.        
  342.     if($WEvent == 1) {
  343.  
  344.         set $WEvent, 0;
  345.         disablenpc "Íris";
  346.         announce "VOZ PROFUNDA: Algo de muito estranho aconteceu, A Guerreira Íris que estava em Prontera sumiu Misteriosamente...",0;
  347.  
  348.     }
  349.  
  350.     end;
  351.  
  352. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!