Need Auto Stop

[Lenya]

Hi,

 

I need a auto Stop for this "Find the Mushroom" Event. Mushrooms will be spawned in a random town. But mostly the players can't find all mushrooms. And the Event only finish if every mushroom is killed.

 

Now I want to make a auto event finish script. It should end 30 minutes after the Mushroom event start.

 

But I need our help.

 

Here is the ittle script :=}

 

prt_vilg,122,128,5	script	Mushroom	1084,{
mes "[ Find The Mushroom ]";
if (!.Status)
mes "Im moment ist kein Event!";
else {
mes "Es sind "+.Spawn+" Mushrooms übrig "+.Map$+"!";
mes "Finde und töte die mushrooms um "+getitemname(.Prize)+" zu gewinnen!";
}
if (.Status || getgmlevel() < .GM) close;
mes "Event starten?";
next;
if(select("- Nein:- Ja") == 1) close;
donpcevent strnpcinfo(0)+"::OnMinute10";
mes "[ Find The Mushroom ]";
mes "Event wurde gestartet!";
close;

OnInit:
set .Prize,7539; // Reward item ID
set .Amount,1; // Reward item amount
set .GM,99; // GM level required to access NPC
setarray .Maps$[0],"morocc","prt_vilg","prontera","aldebaran"; // Possible maps
end;

OnMinute10: // Start time (every hour)
if (.Status) end;
set .Status,1;
set .Spawn,rand(4,8); // How many Mushrooms should spawn?
set .Map$,.Maps$[rand(getarraysize(.Maps$))];
killmonster .Map$,"All";
monster .Map$,0,0,"Töte mich!",1084,.Spawn,strnpcinfo(0)+"::OnMobKilled";
announce "Finde den Mushroom : Es wurdem insgesamt "+.Spawn+" Mushrooms in "+.Map$+" gespawnt!",0;
sleep 2500;
announce "Finde den Mushroom : Für jeden Mushroom, den du tötest erhälst du einen "+getitemname(.Prize)+"!",0;
end;

OnMobKilled:
set .Spawn, .Spawn - 1;
getitem .Prize, .Amount;
if (.Spawn) announce "[ "+strcharinfo(0)+" ] hat einen Mushroom getötet. Es sind noch "+.Spawn+" Mushroom(s) übrig.",bc_map;
else {
announce "Das The Find the Mushroom Event ist zu ende. Alle Mushrooms wurden getötet.",0;
set .Status,0;
}
end;
}

 

 

[Cydh]

try this my edit.

FindTheMushroom.txt

[nanakiwurtz]

Add another label, +30 min from start.

OnMinute40:
killmonster .Map$,"All";
set .Status,0;
end;

[Lenya]

Thank you both. I used the first post :3