TCG Event v2.2

//==ExcaliburRO
//==Made by Karul
//--------------------
//Edited by zero84ena[meru]
//http://pastebin.com/dRAZdxPG
//v2.1 [Some text pozition Bugs]
//v2.2 [group item spawn yes/no configurable] [bug fix!]
prt_in,43,94,9	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:
OnClock1500:
OnClock2100:
OnClock0300:
OnClock0900:
OnClock2342:


deletearray $@towns$;
deletearray $@cordsx;
deletearray $@cordsy;
deletearray $@displayname$;
deletearray $@items;
deletearray $@noum$;
deletearray $@equipment;

setarray $@towns$[0],"prontera","prt_in","prt_in";
setarray $@cordsx[0],115,195,32,44,127,131;
setarray $@cordsy[0],164,244,96,115,69,74;
setarray $@displayname$[0],"Center Prontera","Prontera Starting House","Prontera Tool Shop";
//setarray $@towns$[0],"prt_in";
//setarray $@cordsx[0],32,44;
//setarray $@cordsy[0],96,115;
//setarray $@displayname$[0],"Starting House";
setarray $@items[0],675,503,504,505;
setarray $@equipment[0],2631,1143,1159;
setarray $@noum$[0],"One","Two","Three","Four","Five","Six","Seven";
set $@group_up,0; // 1 or 0 for true or false // is to group items up or each have they own x,y coords

//randomize
set $@t, rand(getarraysize($@towns$));
set $@town$, $@towns$[$@t];
set $@displ$, $@displayname$[$@t];
set $@t, $@t * 2;
set $@randomx,rand($@cordsx[$@t],$@cordsx[$@t+1]);
set $@randomy,rand($@cordsy[$@t],$@cordsy[$@t+1]);
//this 2 rows are for dinamic spawn cycle or Fixed comment uncomment if u wish to use the other.
set $@spawn_loop, rand(1,getarraysize($@noum$));
//set $@spawn_loop,5;
//
set $@spawned,0;

Announce $@noum$[$@spawn_loop-1]+" items are spawning @ "+$@displ$+"! (90secitemlife)",bc_all;

for(set .@i,0; .@i < $@spawn_loop; set .@i, .@i+1) {
	sleep2 1500;
	if ($@group_up == 0) {
		set $@randomx,rand($@cordsx[$@t],$@cordsx[$@t+1]);
		set $@randomy,rand($@cordsy[$@t],$@cordsy[$@t+1]);
	}
	if($@spawned != 1) {
		set $@eq, rand(0,1);
	}
	if($@eq == 1) {
		//this is equipment so we dont need the qty...
		set .item, $@equipment[rand(getarraysize($@equipment))];
		makeitem .item,1,$@town$,$@randomx,$@randomy;
		set $@spawned, 1; //only 1 equipment should be spawned! 0 - for 50%
		set $@eq, 0;
	}else{
		set $@spawn_qty,rand(10,100);//So that every spawnd items qty differs!
		set .item, $@items[rand(getarraysize($@items))];
		makeitem .item,$@spawn_qty,$@town$,$@randomx,$@randomy;
	}
}
end;

OnCustomStart:
		if(.ItemID==0) {
		mes "You have no item set up as the prize";
		close;
	}
Announce "One item was spawned around Strhouse!",bc_all;
//This will make item spawn in protera in by the flower girl!
makeitem .ItemID,1,"prt_in",rand(32,44),rand(96,115);
end;

}