Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //Created by marikitangakak
- //Edited and Revised by Lunar from MoonlightRO
- //Original Link: [url="http://www.eathena.ws/board/index.php?showtopic=243601"]http://www.eathena.w...howtopic=243601[/url]
- //Edited and Revised Script Link: [url="http://www.eathena.ws/board/index.php?showtopic=243753"]http://www.eathena.w...howtopic=243753[/url]
- //Please do not take this script as your own.
- splendide,185,200,4 script Find the Mushroom 1084,{
- mes "[ Find The Mushroom ]";
- if(getgmlevel() < 50) {
- if(.Event==0) mes "There is no Find the Mushroom event.";
- 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;
- }
- OnMinute51: //CHANGE THIS TO THE MINUTE YOU WOULD LIKE THIS EVENT TO LOAD!
- OnMinute20:
- onstart:
- announce "Find the Mushroom : It's time to play Find the Mushroom!",0;
- sleep2 1000;
- set $@ran, rand(1,11);
- if ($@ran == 11) set .Map$,"splendide";
- if ($@ran == 10) set .Map$,"hugel";
- if ($@ran == 9) set .Map$,"yuno";
- if ($@ran == 8) set .Map$,"comodo";
- if ($@ran == 7) set .Map$,"xmas";
- if ($@ran == 6) set .Map$,"aldebaran";
- if ($@ran == 5) set .Map$,"izlude";
- if ($@ran == 4) set .Map$,"payon";
- if ($@ran == 3) set .Map$,"geffen";
- if ($@ran == 2) set .Map$,"morocc";
- if ($@ran == 1) set .Map$,"prontera";
- sleep2 1000;
- set $@ran2, rand(1,5);
- if ($@ran2 == 5) set .Mushrooms,"5";
- if ($@ran2 == 4) set .Mushrooms,"4";
- if ($@ran2 == 3) set .Mushrooms,"3";
- if ($@ran2 == 2) set .Mushrooms,"2";
- if ($@ran2 == 1) set .Mushrooms,"1";
- announce "Find the Mushroom : The Mushroom 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:
- mapannounce .Map$,"We've got a winner: " + strcharinfo(0) + " Congrats!",0;
- set zeny,zeny+10000000;
- getitem .ItemID,2;
- set .Event,0;
- end;
- }
- prontera,136,171,4 script Super Mario... 1084,{
- mes "[Mushroom]";
- mes "Hi, look at you chat window!";
- dispbottom "Where's Mario? MEXICO!!";
- close;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement