//========================================================
//=          ._._____    _    _   _ ___ __  __           =
//=          | |____ |  / \  | | | |_ _|  \/  |          =
//=          | | |_  | / _ \ | |_| || || |\/| |          =
//=       ___| |___| |/ ___ \|  _  || || |  | |          =
//=      |_____|_____/_/   \_\_| |_|___|_|  |_|          =
//=           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