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

itemmall,184,84,2	script	Trouve le Mushroom	1085,{

	mes "[ Trouve le Mushroom ]";
	if (!.Status)
		mes "Hey you! I'm a Mushroom but it had seen you! Daily 10:30 a.m. 1:30 p.m. 4:30 p.m. 7:30 p.m. I hide on a map Find me and you'll win a midgard coin ";
	else {
		mes "There is "+.Spawn+" Mushroom 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)+"::OnClock1330";
	mes "[ Find The Mushroom ]";
	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;

OnClock1030:
OnClock1330:
OnClock1630:
OnClock1930:
OnClock2230:
	// 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,"Please don't kill me!",1085,.Spawn,strnpcinfo(0)+"::OnMobKilled";
	announce "The first to find the Mushroom 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;
	if( .Spawn ) announce "[ "+strcharinfo(0)+" ] ] just destroy the Mushroom! ",bc_map;
	else {
		announce "[ "+strcharinfo(0)+" ] just destroy the Mushroom! See you soon for a new hunting Mushroom!",0;
		set .Status,0;
	}
	end;
}