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