// Ariane & Venus
// EternityRO
// A mirage ...

itemmall,175,84,2	script	Kill Le Pouring	1002,{

	mes "[ Kill Le Pouring ]";
	if (!.Status)
		mes "Ploup! Ploup! Ploup! Daily 11:30 a.m. 2:30 p.m. 5:30 p.m. 8:30 p.m. I would be on a map, find me and you will win a midgard coin";
	else {
		mes "Find the "+.Spawn+" Pouring at "+.Map$+"!";
		mes "The first is that a win "+getitemname(.Prize)+"!";
	}
	if (.Status || getgmlevel() < .GM) close;
	mes "Start the event?";
	next;
	if(select("- No:- Yes") == 1) close;
	donpcevent strnpcinfo(0)+"::OnClock2330";
	mes "[ Kill Le Pouring ]";
	mes "Event started!";
	close;

OnInit:
	set .Prize,6242;	// Reward item ID
	set .Amount,1;	// Reward item amount
	set .GM,60;	// GM level required to access NPC
	setarray .Maps$[0],"izlude","geffen","morocc","prontera","hugel","alberta","comodo"; // Possible maps
	end;

OnClock1130:
OnClock1430:
OnClock1730:
OnClock2030:
OnClock2330:
	// Start time (every hour)
	if (.Status) end;
	set .Status,1;
	set .Spawn,rand(1,1);	// How many Mushrooms should spawn?
	set .Map$,.Maps$[rand(getarraysize(.Maps$))];
	killmonster .Map$,"All";
	monster .Map$,0,0,"Poring",1002,250;
	monster .Map$,0,0,"Pouring",1002,.Spawn,strnpcinfo(0)+"::OnMobKilled";
	announce "The first to find the Pouring at "+.Map$+" win 1 "+getitemname(.Prize)+"!",0;
	sleep 2500;
	end;

OnMobKilled:
	set .Spawn,.Spawn - 1;
	getitem 6242,1; //Add the ItemID and Amount you wish to give as a prize. To add more prizes, just add more getitem ID,AMOUNT;
	killmonster .Map$,"All";
	if( .Spawn ) announce "[ "+strcharinfo(0)+" ] just kill Pouring! ",bc_map;
	else {
		announce "[ "+strcharinfo(0)+" ] just kill Pouring! See you soon!",0;
		set .Status,0;
	}
	end;
}