TCG/Donation Event

//Made by Karul
quiz_02,323,235,3	script	TCG Event	793,{

set .Name$,"[TCG Event]";
if(getgmlevel() < 99) {
	mes "Sorry you must be a Level 99 Admin";
	close;
	}
Main:
mes "What do you want to do?";
	switch(select("Item [" + getitemname(.ItemID) + "]:Start Event:Start Custom Event")) {
				case 1:
					mes "What item would you want for the event?";
					mes "Please input the item ID:";
					input .ItemID;
					goto Main;
				case 2:
					mes "Starting the event now...";
					close2;
					goto OnStart;
				case 3:
					mes "Starting the event now...";
					close2;
					goto OnCustomStart;
}

OnStart:
Announce "Four items were spawned around Prontera!",bc_all;
sleep2 1000;
set $@ran, rand(1,4);
if ($@ran == 1) set .Item,"20041";
if ($@ran == 2) set .Item,"20092";
if ($@ran == 3) set .Item,"20107";
if ($@ran == 4) set .Item,"20126";
sleep2 1000;
set $@ran2, rand(1,4);
if ($@ran2 == 1) set .Item2,"20143";
if ($@ran2 == 2) set .Item2,"20173";
if ($@ran2 == 3) set .Item2,"21000";
if ($@ran2 == 4) set .Item2,"21010";
sleep2 1000;
set $@ran3, rand(1,4);
if ($@ran3 == 1) set .Item3,"21031";
if ($@ran3 == 2) set .Item3,"21024";
if ($@ran3 == 3) set .Item3,"21023";
if ($@ran3 == 4) set .Item3,"21036";
sleep2 1000;
set $@ran4, rand(1,4);
if ($@ran4 == 1) set .Item4,"21039";
if ($@ran4 == 2) set .Item4,"21043";
if ($@ran4 == 3) set .Item4,"21047";
if ($@ran4 == 4) set .Item4,"21048";
sleep2 1000;
makeitem .Item,1,0,0,"prontera";
makeitem .Item2,1,0,0,"prontera";
makeitem .Item3,1,0,0,"prontera";
makeitem .Item4,1,0,0,"prontera";
end;

OnCustomStart:
		if(.ItemID==0) {
		mes "You have no item set up as the prize";
		close;
	}
Announce "One item was spawned around Prontera!",bc_all;
makeitem .ItemID,1,0,0,"prontera";
end;

}