mushroom event

[darking123]

how to make the prize to be set in the script not ingame because every server restart i should set the prize and i dont like it

splendide,185,200,4 script Find the Mushroom 1084,{

mes "[ Find The Mushroom ]";
if(getgmlevel() < 90) {
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;
}

OnClock0400:
OnClock0800:
OnClock1200:
OnClock1600:
OnClock2300:
OnStart:
announce "Find the Mushroom : It's time to play Find the Mushroom!",0;
sleep2 1000;
set $@ran, rand(1,14);
if ($@ran == 14) set .Map$,"alberta";
if ($@ran == 13) set .Map$,"umbala";
if ($@ran == 12) set .Map$,"niflheim";
if ($@ran == 11) set .Map$,"ayothaya";
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;
getitem .ItemID,2;
set .Event,0;
end;

}

[Mystery]

Have you checked the one inside the SVN? It's inside the script with the OnInIt function.

OnInit:
set .Prize,512;	// Reward item ID
set .Amount,10;	// Reward item amount
set .GM,60;	// GM level required to access NPC
setarray .Maps$[0],"izlude","geffen","morocc","prontera"; // Possible maps
end;

There's also this one in my own SVN. Additionally, your script is a little outdated.

[darking123]

im using eathena svn i will try this

[Patskie]

OnMobKilled:
mapannounce .Map$,"We've got a winner: " + strcharinfo(0) + " Congrats!",0;
getitem <item id>,<item amount>; 
set .Event,0;
end;