prontera,152,212,4	script	Find the Mushroom	1084,{

mes "[ Find The Mushroom ]";
if(getgmlevel() < 98) {
	if(.Event==0) mes "We have Find the Mushroom Event at random times of the day/night. We are giving away hundreds of "+ getitemname(.ItemID)+"s for every mushroom found! Standby for my broadcasts!";
	else {
		mes "There is a Find the Mushroom event on now!";
		mes "Location: "+ .Map$;
		mes "Prize: " + getitemname(.ItemID);
		mes "Number of Mushrooms: " + .Mushrooms;
	}
	close;
}
	mes "Hello "+strcharinfo(0)+"! Please customize this event:";
Main:
next;
mes "[ Find The Mushroom ]";
	switch(select("Item [" + getitemname(.ItemID) + "]:Start Event:End Event")) {
		case 1:
			mes "Which item would you like the Mushroom to drop?";
			mes "Please input the item ID:";
			input .ItemID;
			goto Main;
		case 2:
			mes "Starting the event now...";
			set .Event,1;
			close2;
			goto OnStart;

		case 3:
			mes "Ending the event now...";
			if(.Event) announce ""+strcharinfo(0)+" ended Find the Mushroom Event!",bc_all;
			killmonster  .Map$,"All";
			set .Event,0;
		close;
}

OnInit:
setarray .map_list$,"pvp_y_room";
set .map_list_size,getarraysize( .map_list$ );
end;

OnClock0548:
OnClock0800:
OnClock1000:
OnClock1200:
OnClock1415:
OnClock1601:
OnClock1800:
OnClock2030:
OnClock2230:
OnClock0100:
OnClock0300:


OnStart:
	set .Map$,.map_list$[ rand( .map_list_size ) ];
	announce "Mushroom NPC : It's time to play Find the Mushroom Event in PvP!",0;
	sleep2 10000;
	set $@ran2, rand(1,5);
	if ($@ran2 == 5) set .Mushrooms,9;
	if ($@ran2 == 4) set .Mushrooms,7;
	if ($@ran2 == 3) set .Mushrooms,7;
	if ($@ran2 == 2) set .Mushrooms,5;
	if ($@ran2 == 1) set .Mushrooms,3;

	announce "Mushroom NPC : " + .Mushrooms + " Mushrooms have spawned in map ["+ .Map$ +" pvp] with 200 pcs. "+getitemname(.ItemID)+"s bounty for each! Gear up for battle now!",0;
	sleep2 10000;
	monster .Map$,0,0,"Don't kill me please!",8084,.Mushrooms,"Find the Mushroom::OnMobKilled";
	end;

OnMobKilled:
	mapannounce .Map$,"Mushroom NPC: " + strcharinfo(0) + " has obtained 200 pcs. "+getitemname(.ItemID)+"s for finding a mushroom!",0;

	// item drop on ground
	getmapxy( .@map$,.@x,.@y,0 );
	makeitem .ItemID,200,.@map$,.@x,.@y
	set .Event,0;
	end;

}