prontera,150,150,5	script	Garota dos Eventos	899,{

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;

}