//========================================================
//=          ._._____    _    _   _ ___ __  __           =
//=          | |____ |  / \  | | | |_ _|  \/  |          =
//=          | | |_  | / _ \ | |_| || || |\/| |          =
//=       ___| |___| |/ ___ \|  _  || || |  | |          =
//=      |_____|_____/_/   \_\_| |_|___|_|  |_|          =
//=           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 ?";
next;
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";
//==========================================================================
end;
}
 
//=== 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