-	script	jail2	-1,{
OnInit:
	set .GmAccess, 99;
	bindatcmd "jail",strnpcinfo(3)+"::OnAtcommand";
	end;
OnPCLoginEvent:
	for(.@i = 0; .@i < getarraysize(.array$); .@i++){
		if(strcharinfo(0) == .array$[.@i]){
			atcommand "@jail " + .array$[.@i];
			deletearray .array$[.@i], 1;
		}
	}
	end;
OnAtcommand:
	if(getgmlevel()> .GmAccess){
		input .@n$;
		if(attachrid(getcharid(3,.@n$))){
			atcommand "@jail " + .@n$;
		}else{
			dispbottom "Player is not online";
			set .@s, getarraysize(.array$);
			set .array$[.@s], .@n$;
			dispbottom .@s;
		}
		end;
	}else{
		dispbottom "Your GM-Level is too low to do that";
	}
}