-   script  Poring Premiado HIDDEN_NPC,{
 
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;
}