//===== eAthena Script =======================================
//= Poring Event
//===== By: ==================================================
//= hellflaem aka Nezra.
//===== Current Version: =====================================
//= 2.1
//===== Compatible With: =====================================
//= eAthena SVN & Cronus SVN
//===== Description: =========================================
//= An event with 100 false porings and 1 really poring.
//===== Additional Comments: =================================
//= 1.0 script created.	~ hellflaem
//= 2.0 translated to portuguese. ~ Macabu
//= 2.1 fixed somethings. ~ Macabu
//===== Variables: ===========================================
-	script	Evento Poring#var	-1,{
end;
	OnInit:
		//- ID do item do prêmio.
		set $ipe, 607;

		//- Quantidade do item do prêmio.
		set $qpe, 5;

		//- Tirar 50% de HP quando matar
		//- um poring falso?
		//- [0=NÃO|1=SIM]
		set $hpe, 0;
	end;
}
//===== Script: ==============================================
prontera,147,171,3	script	Evento Poring	763,{

	if(getgmlevel() < 50)
	{
		if(!.poringcatch)
		{
			mes "[Evento Poring]";
			mes "Não tem evento por inquanto.";
			close;
		}
		mes "[Evento Poring]";
		mes "Olá "+strcharinfo(0)+" o que posso fazer por você?";
		next;
		switch(select("Entrar no evento.:Informação."))
		{
			case 1:
				mes "[Evento Poring]";
				mes "Divirta-se!";
				next;
				warp "poring_c01", 100, 100;
				end;

			case 2:
				mes "[Evento Poring]";
				mes "São invocados 100 Porings.";
				mes "Só UM é verdadeiro e você tem que acha-lo.";
				mes "Caso consiga, ganhará um item.";
				mes "Boa Sorte.";
				close;
		}
	}
	mes "[Evento Poring]";
	mes "Olá "+strcharinfo(0)+" o que posso fazer por você?";
	next;
	if(select("Ligar evento.:Entrar no evento.") == 1) callsub OnStart;
	mes "[Evento Poring]";
	mes "Divirta-se!";
	next;
	warp "poring_c01", 100, 100;
	end;

		Onclock0200: callsub OnEventStart;
		Onclock0030: callsub OnEventStart;
		OnClock1630: callsub OnEventStart;
		OnClock0500: callsub OnEventStart;
		OnClock2000: callsub OnEventStart;
		OnClock1900: callsub OnEventStart;

		OnEventStart:
			announce "[Evento Poring]: Gente, é hora do evento. Falem comigo para entrar.",0;
			initnpctimer;
			monster "poring_c01",0,0,"Poring",1002,1,strnpcinfo(0)+"::OnMobKilled";
			monster "poring_c01",0,0,"Pouring",1002,10,strnpcinfo(0)+"::OnWrongKilled";
			monster "poring_c01",0,0,"Proing",1002,10,strnpcinfo(0)+"::OnWrongKilled";
			monster "poring_c01",0,0,"Poirng",1002,10,strnpcinfo(0)+"::OnWrongKilled";
			monster "poring_c01",0,0,"Poing",1002,10,strnpcinfo(0)+"::OnWrongKilled";
			monster "poring_c01",0,0,"Porimg",1002,5,strnpcinfo(0)+"::OnWrongKilled";
			monster "poring_c01",0,0,"Porinq",1002,1,strnpcinfo(0)+"::OnWrongKilled";
			monster "poring_c01",0,0,"Poring",1113,1,strnpcinfo(0)+"::OnWrongKilled";
			monster "poring_c01",0,0,"Poring",1062,1,strnpcinfo(0)+"::OnWrongKilled";
			monster "poring_c01",0,0,"Por|ng",1002,10,strnpcinfo(0)+"::OnWrongKilled";
			monster "poring_c01",0,0,"Por1ng",1002,10,strnpcinfo(0)+"::OnWrongKilled";
			monster "poring_c01",0,0,"Porong",1002,10,strnpcinfo(0)+"::OnWrongKilled";
			monster "poring_c01",0,0,"P0ring",1002,10,strnpcinfo(0)+"::OnWrongKilled";
			monster "poring_c01",0,0,"P@ring",1002,10,strnpcinfo(0)+"::OnWrongKilled";
			monster "poring_c01",0,0,"Porng",1002,1,strnpcinfo(0)+"::OnWrongKilled";
			set .poringcatch,1;
			end;
			return;

		OnTimer600000:
			stopnpctimer;
			announce "[Evento Poring]: O tempo acabou, tente na próxima vez.",0;
			set .poringcatch,0;
			killmonsterall "poring_c01";
			end;

		OnMobKilled:
			stopnpctimer;
			announce "[Evento Poring]: "+strcharinfo(0)+" encontrou o Poring. Tente denovo na próxima vez.",0;
			dispbottom "Parabéns, você me achou.";
			getitem $ipe,$qpe;
			killmonsterall "poring_c01";
			set .poringcatch,0;
			end;

		OnWrongKilled:
			dispbottom "Whaa, você errou feio.";
			if($hpe) percentheal -50,0;
			warp "prontera",157,175;
			end;
}