-	script	Sample	-1,{
OnInit:
bindatcmd("eventon",strnpcinfo(0)+"::OnAtCommand1");
bindatcmd("eventoff",strnpcinfo(0)+"::OnAtCommand2");

.map$ = "1@room";
setmapflag .map$,mf_loadevent;
end;

OnAtCommand1:
.status = 1;
pvpoff .map$;
for( .@i = 0; .@i < getarraysize( .user_list ); .@i++ )
	pcblockmove .user_list[.@i],1;

for( .@i = 3; .@i > 0; .@i-- ){
	announce "Event start within "+.@i+" seconds.",0;
	sleep2 1000;
}

for( .@i = 0; .@i < getarraysize( .user_list ); .@i++ )
	pcblockmove .user_list[.@i],0;
pvpon .map$;
end;

OnAtCommand2:
.status = 0;
announce "Event cancelled.",0;
for( .@i = 0; .@i < getarraysize( .user_list ); .@i++ )
	pcblockmove .user_list[.@i],0;
pvpoff .map$;
sleep2 2000;
mapwarp .map$,"prontera",155,18;
end;

OnPCLoadMapEvent:
if( strcharinfo(3) == .map$ ){
	pcblockmove .user_list[.@i],1;
	for( .@i = 0; .@i < getarraysize( .user_list ); .@i++ )
		if( .user_list[.@i] == getcharid(3) ) end;
	.user_list[getarraysize( .user_list )] = getcharid(3);
}
end;
}