//===== Hercules Script ======================================================
//= Find the mushroom
//===== By: ==================================================================
//= Created by marikitangakak
//= Enhanced, debugged, optimized and automated by Ridley
//===== Current Version: =====================================================
//= 1.0
//===== Description: =========================================================
//= Allows authorized GMs to disable all automated events
//= Allows authorized GMs to disable specific events from the automated rotation
//= --View active/inactive events
//= Allows authorized GMs to manually activate specific events
//============================================================================
dali,68,127,4	script	Find the Mushroom	702,{
set .name$, "[^0000FFFind the Mushroom^000000]";
set .menu$, "Times:Information:Leave";
mes .name$;
	mes "Welcome to ^ff0000Find the Mushroom^000000.";
	next;
	switch(select(.menu$)) {
		case 1:
			mes .name$;
			mes "^ff0000Find the Mushroom^000000 is started randomly by the automated events manager.";
			mes "Keep an eye out for broadcasts about this or other events!";
			close;

		case 2:
			mes .name$;
			mes "^ff0000Find the Mushroom^000000";
			mes "is a game where you need to";
			mes "find and kill mushrooms spawned on random maps.";
			next;
			mes .name$;
			mes "Their ammount is also choosen random.";
			next;
			mes .name$;
			mes "To claim a prize, you need to kill a ^ff0000Mushroom^000000.";
			close;

		case 3:
			close;

	}

OnAuto:
	set .Event,1;
	bindatcmd "showmobs",strnpcinfo(3)+"::OnAtcommand";
	announce "[Find the Mushroom] : It's time to play Find the Mushroom!",0;
	soundeffectall "mush1.wav",0,"prontera";
	soundeffectall "mush1.wav",0,"dali";
	
	sleep2 1000;
	set $@ranmush, rand(1,11);
	if ($@ranmush == 11) set .Map$,"splendide";
	if ($@ranmush == 10) set .Map$,"hugel";
	if ($@ranmush == 9) set .Map$,"yuno";
	if ($@ranmush == 8) set .Map$,"comodo";
	if ($@ranmush == 7) set .Map$,"xmas";
	if ($@ranmush == 6) set .Map$,"aldebaran";
	if ($@ranmush == 5) set .Map$,"izlude";
	if ($@ranmush == 4) set .Map$,"payon";
	if ($@ranmush == 3) set .Map$,"geffen";
	if ($@ranmush == 2) set .Map$,"morocc";
	if ($@ranmush == 1) set .Map$,"prontera";
	sleep2 1000;
	set $@ranmush2, rand(1,5);
	if ($@ranmush2 == 5) set .Mushrooms,"5";
	if ($@ranmush2 == 4) set .Mushrooms,"4";
	if ($@ranmush2 == 3) set .Mushrooms,"3";
	if ($@ranmush2 == 2) set .Mushrooms,"2";
	if ($@ranmush2 == 1) set .Mushrooms,"1";
	announce "[Find the Mushroom] : The Mushroom(s) has spawned in "+ .Map$ +"!",0;
	sleep2 10000;
	announce "[Find the Mushroom] : " + .Mushrooms + " Mushrooms have spawned in "+ .Map$ +"!",0;
	sleep2 10000;
	monster .Map$,0,0,"Don't kill me please!",1084,.Mushrooms,"Find the Mushroom::OnMobKilled";
	end;

OnMobKilled:
	set .Mushrooms, .Mushrooms - 1;
	callfunc "AutoReward",getcharid(0);
	if(.Mushrooms <= 0){
      mapannounce .Map$,strcharinfo(0)+" found the last mushroom! Congrats!",0;
      set .Event,0;
	unbindatcmd "showmobs";
      end;
	}
	mapannounce .Map$,strcharinfo(0)+" killed a mushroom! There are "+.Mushrooms+" mushrooms left!",0;
	end;

OnAtcommand:
  message strcharinfo(0),"Showmobs is currently disabled";
end;

}