Custom Mob Kill Room

prontera,115,181,5	script	Sample	718,{

/* Map or Room Option */
setarray .Map$[0],
		"guild_vs1",
		"guild_vs2",
		"guild_vs3",
		"guild_vs4",
		"guild_vs5";

/* Map Flags Lists */
setarray .Mapflag[0],0,2,3,13,22,33,34,37,41,43;

/* Initial Monster Amount */
set .MobStart,30;
/* Increase Monster Amount per Kill */
set .MobSpawn,1;
/* Maximum Limit of Monster to Reach */
set .MobLimit,300;
/* Maximum Time Limit ( In Minutes ) to stay in each Room */
set .TimeLimit,10;

mes "Choose your Room...";
mes "And Kill ^FF0000"+.MobLimit+"^000000 Monsters within ^FF0000"+.TimeLimit+" Minutes^000000 to Win.";
next;
for( set .@i,0; .@i < getarraysize( .Map$ ); set .@i,.@i + 1 ){
	set .@Map$,.@Map$ + "^0000FFRoom "+(.@i+1)+"^000000 - [ "+(( .Status[.@i] )?"^FF0000Taken":"^0000FFAvailable")+" ]^000000"+":";
	}
for( set .@i,0; .@i < getarraysize( .Mapflag ); set .@i,.@i + 1 ){
	setmapflag .Map$[.@i],.Mapflag[.@i];
	}
set .@i,select( .@Map$ )-1;
if( .Status[.@i] ){
	mes "The Room is ^FF0000Taken^000000 by other users currently...";
	close;
}else{
	warp .Map$[.@i],0,0;
	set .Status[.@i],0;
	killmonster .Map$[.@i],"All";
	addtimer ( .TimeLimit * 60000 ),strnpcinfo(0)+"::OnPCLogoutEvent";
	monster .Map$[.@i],0,0,"--ja--",1002,.MobStart,strnpcinfo(0)+"::OnMobKill";
	end;
}

/* Respawn Monster until limit reached */
OnMobKill:
for( set .@i,0; .@i < getarraysize( .Map$ ); set .@i,.@i + 1 ){
	if( strcharinfo(3) == .Map$[.@i] ){
		if( .Status[.@i] < .MobLimit ){
			set .Status[.@i],.Status[.@i] + 1;
			monster .Map$[.@i],0,0,"--ja--",1002,.MobSpawn,strnpcinfo(0)+"::OnMobKill";
		}else{
			killmonster .Map$[.@i],"All";
			monster .Map$[.@i],0,0,"--ja--",1732,1,strnpcinfo(0)+"::OnBoxBreaked";
		}
		end;
	}
}

/* Set Item Rewards upon breaked the Treasure Box */
OnBoxBreaked:
	getitem 7539,1;
	getitem 607,10;
	getitem 608,15;

/* On time's up ( in Minutes ) / Or attached player Quit or Died... */
OnPCLogoutEvent:
OnPCDieEvent:
for( set .@i,0; .@i < getarraysize( .Map$ ); set .@i,.@i + 1 ){
	if( strcharinfo(3) == .Map$[.@i] ){
		message strcharinfo(0),"Time's UP !!";
		killmonster .Map$[.@i],"All";
		set .Status[.@i],0;
		sleep2 3000;
		mapwarp .Map$[.@i],"prontera",155,181;
		}
	}
end;
}