-   script  jail2   -1,{
OnInit:
    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";
    }
}