viewing paste Unknown #14317 | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
//===== 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";
 
}
Viewed 309 times, submitted by Ridley8819.