some suggestion ^^
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";
you can simple change to this ^^
Setting :
setarray .Map$[0],"splendide","hugel","yuno","comodo",",xmas","aldebaran";
set .Mushrooms, rand(1,5);
To Summon :
monster .Map$[ rand( getarraysize( .Map$ )) ],0,0,"Don't kill me please!",1084,.Mushrooms,"Find the Mushroom::OnMobKilled";