//========================================================
//=          ._._____    _    _   _ ___ __  __           =
//=          | |____ |  / \  | | | |_ _|  \/  |          =
//=          | | |_  | / _ \ | |_| || || |\/| |          =
//=       ___| |___| |/ ___ \|  _  || || |  | |          =
//=      |_____|_____/_/   \_\_| |_|___|_|  |_|          =
//=           www.forum.cronus-emulator.com              =
//========================================================
//= Caça aos Porings
//===== Por : ============================================
//= Leahim
//===== Versão Atual: ====================================
//= 1.0
//===== Descrição: =======================================
//= Um simples evento automático que abre 3 vezes ao dia.
//= Ao iniciar você poderá acessar o mapa do evento onde
//= um número x de Monstros Cristalóides serão invocados,
//= mate todos para dropar Bandeiras Nacionais, terminando
//= o 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,160,186,4  script  Sala dos Cristais   4_M_BOSSCAT,{
 
mes .n$;
mes "Olá "+strcharinfo(0)+", eu sou o Mestre";
mes "do Evento Sala dos Cristais !";
mes "Posso te ajudar em alguma coisa ?";
set .@menu$, "Entrar no Evento (" + (($cri==1) ? "^0055FF Aberto ^000000":"^FF0000 Fechado ^000000")+"):Como Funciona ?:Cancelar";
switch(select(.@menu$)) {
 
    case 1:
    if($cri == 0){
        next;
        mes .n$;
        mes "Sinto muito, mas nós estamos fechados no momento...";
        mes "Nós abrimos 3 vezes ao dia ás :";
        mes "• ^FF000009:15H ~ 15:15H ~ 01:15H^000000 •";
        mes "Enfim ~ Aguardo sua Presença !";
        close;
    }
        next;
        mes .n$;
        mes "Corra, estamos para começar o evento !";
        next;
        warp .mp$,.@x,.@y;
        sleep2 4000;
        message strcharinfo(0),"[ Sala dos Cristais ] : Começaremos o Evento em Instantes !";
        end;
        
    case 2:
        next;
        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.";
        mes "Quando aberto todos poderam acessar a Sala dos Cristais, onde vários monstros";
        mes "seram invocados. Seu objetivo é de caçá-los e adquirir o máximo de";
        mes "Bandeiras Nacionais possiveis !";
        next;
        mes .n$;
        mes "Enfim... vence aquele que obter mais bandeiras, bem é isso, qualquer coisa é só me chamar novamente.";
        mes "Tenha um ótimo dia "+strcharinfo(0)+".";
        close;
        
    case 3:
        next;
        mes .n$;
        mes "Certo, volte quando precisar de meus serviços...";
        close;
}
 
OnClock0915:
OnClock1515:
OnClock0115:
    set $cri,1;
    killmonsterall .mp$;
    for(set .x,5; .x > 0; set .x,.x-1){
    announce "[ Sala dos Cristais ] : A Entrada para o evento está aberta e começaremos em "+.x+" minutos.",bc_all;
    sleep 60000;
}
    announce "[ Sala dos Cristais ] : A Entrada para o evento foi fechada... mais sorte da próxima vez!",bc_all;
    sleep2 3000;
    mapannounce .mp$,"[ Sala dos Cristais ] : Atenção! Iniciaremos em instantes, boa sorte a todos!",bc_map;
    set $cri,0;
    sleep 10000;
    if(getmapusers("nyd_dun02") < 2) {
    announce "[ Sala dos  Cristais ] : O evento foi cancelado por falta de participantes...",bc_all;
    sleep2 4000;
    mapwarp .mp$,"prontera",156,191;
    end;
    }
    mapannounce .mp$,"[ Sala dos Cristais ] : Os Cristais Apareceram !!!",bc_map;
    monster .mp$,0,0,"Cristal Encantado",1953,400,"Sala dos Cristais::OnMatou";
    end;
 
OnMatou:
    if(mobcount(.mp$,"all") == 0){
    announce "[ Sala dos Cristais ] : Parece que todos os Cristais Encantados foram derrotados...",bc_all;
    sleep2 2000;
    announce "[ Sala dos Cristais ] : O Evento Acabou, agradecemos a todos por participarem!",bc_all;
    sleep2 4000;
    mapwarp .mp$,"prontera",156,191;
    end;
}
    set .rd, rand(getarraysize(.pm));
    getitem .pm[.rd],.qn[.rd];
    end;
    
OnInit:
//=== Nome do Npc ==========================================================
set .n$,"[^FF0000 Sala dos Cristais ^000000]";
//=== Id da Premiação que será dada. =======================================
setarray .pm[0], 7549,7549,7549,7549,7549;
//=== Quantidade Sorteada ==================================================
setarray .qn[0], 1,3,5,7,10;
//=== Mapa que o evento ocorrerá ===========================================
set .mp$,"nyd_dun02";
//=== Coordenada de Teleporte X ============================================
set .@x, 0;
//=== Coordenada de Teleporte Y ============================================
set .@y, 0;
//=== Balão de Chat sobre o Npc ============================================
waitingroom "Sala dos Cristais",0;
//==========================================================================
end;
}
 
//=== Mapflags =============================================================
nyd_dun02   mapflag nomemo
nyd_dun02   mapflag noreturn
nyd_dun02   mapflag nosave
nyd_dun02   mapflag nobranch
nyd_dun02   mapflag noteleport
nyd_dun02   mapflag nowarp
nyd_dun02   mapflag nowarpto
nyd_dun02   mapflag noicewall
nyd_dun02   mapflag nodrop
nyd_dun02   mapflag noskill