prontera,150,150,5  script  Garota dos Eventos  4_F_KAFRA8,{
 
set .@name$,"[^cc0000Garota dos Evento^000000]";
 
mes .@name$;
mes "Olá "+strcharinfo(0)+" Seja bem vindo ao sistemas de eventos";
mes "do RagnaSekai. O que deseja?";
next;
switch(select("Participar dos Eventos:Informações:Cancelar")) {
 
    case 1:
        mes .@name$;
        mes "Ok, selecione o evento em que quer participar";
        next;
        set .@menu$, "Poring Prêmiado (" + (($por==1) ? "^0055FF Aberto  ^000000":"^FF0000 Fechado ^000000")+"):Devil Square (" + (($dev==1) ? "^0055FF Aberto  ^000000":"^FF0000 Fechado ^000000")+"):Guerra dos Tesouros (" + (($wot==1) ? "^0055FF Aberto  ^000000":"^FF0000 Fechado ^000000")+"):Sobrevivente (" + (($sob==1) ? "^0055FF Aberto  ^000000":"^FF0000 Fechado ^000000")+"):Cancelar";
        switch(select(.@menu$)) {
 
            case 1:
                callfunc "Poring";
                end;
 
            case 2:
                callfunc "Devil";
                end;
                
            case 3:
                callfunc "WoT";
                end;
            
            case 4:
                callfunc "Sobrevivente";
                end;
                
            case 5:
                mes .@name$;
                mes "Certo, volte quando precisar de meus serviços.";
                close;
            }
            
    case 2:
        mes .@name$;
        mes "Em nosso servidor o sistemas de eventos é integrado.";
        mes "Ou seja, você não precisa se preocupar com perder tempo";
        mes "procurando a entrada de um evento...";
        next;
        mes .@name$;
        mes "Outra coisa que nós temos é o comando @evento, nele você abre";
        mes "minhas falas e pode participar de um evento em qualquer lugar do jogo....";
        next;
        mes .@name$;
        mes "Isso é tudo... espero que goste de nosso servidor !!!";
        close;
        
    case 3:
        mes .@name$;
        mes "Certo, volte quando precisar de meus serviços.";
        close;
OnInit:
waitingroom "[ Eventos  ]",0;
end;
}
}
 
 
function    script  Poring  {
 
OnClock0438:
set $por,1;
for(set .x,1; .x > 0; set .x,.x-1){
announce "[ Garota dos Eventos ] : O Poring Prêmiado está aberto e começará em "+.x+" minutos.",bc_all;
sleep 60000;
}
 
announce "[ Garota dos Eventos ] : A entrada para o Poring Prêmiado foi fechada...",bc_all;
set $por,0;
sleep 10000;
mapannounce .mp$,"[ Garota dos Eventos ] : O Poring Prêmiado começou, boa sorte a todos os participantes !!!",bc_map;
monster .mp$,0,0,"Poring Prêmiado",1002,1,"Poring Premiado::OnPremio";
monster .mp$,0,0,"P0qing Prêmoiado",1002,100,"Poring Premiado::OnDead";
end;
 
OnPremio:
announce "[ Garota dos Eventos ] : "+strcharinfo(0)+" Encontrou o Poring Prêmiado.",bc_all;
killmonsterall .mp$;
set .rd, rand(getarraysize(.pm));
getitem .pm[.rd],.qn[.rd];
sleep2 2000;
announce "[ Garota dos Eventos ] : Evento Encerrado... Obrigada a todos por participarem !",bc_all;
mapwarp .mp$,"aretnorp",219,214;
end;
 
OnDead:
if(mobcount(.mp$,"all") > 0){
mapannounce .mp$,"[ Garota dos Eventos ] : Que pena "+strcharinfo(0)+" esse não era um Poring Prêmiado.",bc_map;
warp "aretnorp",219,214;
end;
}
 
OnInit:
set .mp$, "06guild_01";
setarray .pm[0], 7180,7539,7539; // <- Id dos premios ganhos ao matar o poring premiado( O script vai sortiar um desses premios. )
setarray .qn[0], 5,40,20; // <- Quantidade de itens ganho.
end;
}
 
function    script  Devil   {
 
mes "[^cc0000Garota dos Evento^000000]";
mes "Em Construção !";
close;
 
}
 
function    script  Wot {
 
mes "[^cc0000Garota dos Evento^000000]";
mes "Em Construção !";
close;
 
}
 
function    script  Sobrevivente    {
 
mes "[^cc0000Garota dos Evento^000000]";
mes "Em Construção !";
close;
 
}