viewing paste [Evento] Caça aos Porings | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134
//========================================================
//=          ._._____    _    _   _ ___ __  __           =
//=          | |____ |  / \  | | | |_ _|  \/  |          =
//=          | | |_  | / _ \ | |_| || || |\/| |          =
//=       ___| |___| |/ ___ \|  _  || || |  | |          =
//=      |_____|_____/_/   \_\_| |_|___|_|  |_|          =
//=           www.forum.cronus-emulator.com              =
//========================================================
//= Caça aos Porings
//===== Por : ============================================
//= Leahim
//===== Versão Atual: ====================================
//= 1.0
//===== Descrição: =======================================
//= Um simples evento automático onde se inicia x horas.
//= Ao iniciar você poderá acessar o mapa do evento onde
//= centenas de Porings serão invocados,o seu objetivo é
//= matar todos para dropar Moedas Porings,ao término do
//= evento todos os players do mapa serão teleportados a
//= prontera...
//==== Pedido do Autor : =================================
//= Não retire os créditos, pois dá trabalho para fazer.
//========================================================
prontera,151,178,5      script  Caça aos Porings       4_F_TAEKWON,{
 
mes .n$;
mes "Olá "+strcharinfo(0)+", eu sou a Guardiã do Portal";
mes "do Evento Caça aos Porings !";
mes "O que deseja ?";
set .@menu$, "Entrar no Evento (" + (($porin==1) ? "^0055FF Aberto ^000000":"^FF0000 Fechado ^000000")+"):Como Funciona ?:Cancelar";
switch(select(.@menu$)) {
 
        case 1:
        if($porin == 0){
                mes .n$;
                mes "Sinto muito, mas nós estamos fechados no momento...";
                mes "Lembrando que abrimos diariamente as 13:00 horas no horário de Brasília!";
                close;
        }
                mes .n$;
                mes "Corra, estamos para começar o evento !";
                next;
                warp .mp$,.@x,.@y;
                close2;
               
        case 2:
                mes .n$;
                mes "Ah, então você quer saber como funciona? certo, irei te explicar.";
                next;
                mes .n$;
                mes "A idéia é simples, o evento irá abrir todos os dias as 13:00 horas.";
                mes "Quando aberto todos poderam acessar uma arena especial, onde centenas de porings";
                mes "seram invocados dentro de 5 minutos. Seu objetivo é de caçá-los e adquirir o máximo de";
                mes "Moedas Poring possivel !";
                next;
                mes .n$;
                mes "Enfim... vence aquele que obter mais moedas, bem é isso, qualquer coisa é só me chamar novamente.";
                mes "Tenha um ótimo dia "+strcharinfo(0)+".";
                close;
               
        case 3:
                mes .n$;
                mes "Certo, volte quando precisar de meus serviços...";
                close;
}
 
OnClock1300:
        set $porin,1;
        for(set .x,5; .x > 0; set .x,.x-1){
        announce "[ Caça aos Porings ] : O Evento está aberto e começará em "+.x+" minutos.",bc_all;
        sleep 60000;
}
        announce "[ Caça aos Porings ] : A Entrada para o evento foi fechada...",bc_all;
        sleep2 3000;
        mapannounce .mp$,"[ Caça aos Porings ] : Atenção! O Evento se iniciará em instantes, boa sorte a todos!",bc_map;
        set $porin,0;
        sleep 10000;
        mapannounce .mp$,"[ Caça aos Porings ] : O Evento Começou !!!",bc_map;
        monster .mp$,0,0,"[CP] Poring",1002,50,"Caça aos Porings::OnWin";
        monster .mp$,0,0,"[CP] Poring",1002,300,"Caça aos Porings::OnFail";
        end;
 
OnWin:
        if(mobcount(.mp$,"all") == 0){
        announce "[ Caça aos Porings ] : Parece que todos os Porings foram mortos...",bc_all;
        sleep2 2000;
        announce "[ Caça aos Porings ] : O Evento Acabou, agradecemos a todos por participarem!",bc_all;
        sleep2 4000;
        warp "prontera",150,150;
        end;
}
        set .rd, rand(getarraysize(.pm));
        getitem .pm[.rd],.qn[.rd];
        end;
 
OnFail:
        if(mobcount(.mp$,"all") == 0){
        announce "[ Caça aos Porings ] : Parece que todos os Porings foram mortos...",bc_all;
        sleep2 2000;
        announce "[ Caça aos Porings ] : O Evento Acabou, agradecemos a todos por participarem!",bc_all;
        sleep2 4000;
        warp "prontera",150,150;
        end;
}
        dispbottom "Parece que esse não tinha nada...";
        end;
       
OnInit:
//=== Nome do Npc ==========================================================
set .n$,"[^FF0000 Caçadora de Porings ^000000]";
//=== Id da Premiação que será dada. =======================================
setarray .pm[0], 7539,7539,7539;
//=== Quantidade Sorteada ==================================================
setarray .qn[0], 1,2,5;
//=== Mapa que o evento ocorrerá ===========================================
set .mp$,"guild_vs2";
//=== Coordenada de Teleporte X ============================================
set .@x, "0";
//=== Coordenada de Teleporte Y ============================================
set .@y, "0";
//==========================================================================
}
 
//=== Mapflags =============================================================
guild_vs2       mapflag nomemo
guild_vs2       mapflag noreturn
guild_vs2       mapflag nosave
guild_vs2       mapflag nobranch
guild_vs2       mapflag noteleport
guild_vs2       mapflag nowarp
guild_vs2       mapflag nowarpto
guild_vs2       mapflag noicewall
Viewed 621 times, submitted by Mihael.