-	script	flag	-1,{
OnInit:
	bindatcmd "flag",strnpcinfo(0)+"::OnAtCommand";
	setarray .flag_list,48,49,50,51;
	.flag_list_size = getarraysize( .flag_list );
	end;

OnAtCommand:
	.@num = atoi( .@atcmd_parameters$[0] ) - 1;
	if( @delay > gettimetick(2) ){
			dispbottom "Delaying...3 Seconds.";
	}else if( .@num >= 0 && .@num < .flag_list_size ){
		unitemote getcharid(3),.flag_list[ .@num ];
		@delay = gettimetick(2) + 3;
	}else{
		dispbottom "Use @flag <1 ~ "+.flag_list_size+">";
	}
	end;
}