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