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

itemmall,180,84,2	script	Est-ce moi?	1798,{

	mes "[ Est-ce moi? ]";
	if (!.Status)
		mes "Hi! Daily 3:30 p.m. 6:30 p.m. 9:30 p.m. 0:30 I'd be on a map, find me and you will win a midgard coin";
	else {
		mes "Find the "+.Spawn+" Est-ce Moi 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)+"::OnClock2130";
	mes "[ Est-ce moi? ]";
	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;

OnClock1230:
OnClock1530:
OnClock1830:
OnClock2130:
OnClock0030:
	// 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,"Est-ce moi?",1798,100;
	monster .Map$,0,0,"Est-ce moi?",1798,.Spawn,strnpcinfo(0)+"::OnMobKilled";
	announce "The first to find Est-ce Moi 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 Est-ce Moi ! ",bc_map;
	else {
		announce "[ "+strcharinfo(0)+" ] just kill Est-ce Moi ! See you soon !",0;
		set .Status,0;
	}
	end;
}