//===== 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;
 
}