CGetClasses = 1

CJailPlayer

' // Mapper Admin Commands //

' Jail player
                Case "/jail"
                    If GetPlayerAccess(MyIndex) >= ADMIN_CREATOR Then
                        If UBound(Command) >= 1 Then
                            SendData CJailPlayer & SEP_CHAR & Command(1) & END_CHAR
                        End If
                    End If

CGetClasses = 1

CJailPlayer

' :: Quit game packet ::

' ::::::::::::::::::::::::
        ' :: Jail Player Packet ::
        ' ::::::::::::::::::::::::
        Case CJailPlayer
        ' Prevent hacking...
        If GetPlayerAccess(Index) < ADMIN_CREATOR Then
            Call HackingAttempt(Index, "Admin Cloning")
        Exit Sub
    End If

n = FindPlayer(Parse(1))

    If n <> Index Then
    If n > 0 Then
    'Sends messages out
        Call PlayerMsg(n, "You have been jailed by an admin.", BrightRed)
        Call GlobalMsg(GetPlayerName(n) & " has been jailed by an admin.", BrightRed)
    'Warp to Jail map (Change the coordinates to fit your needs)
        Call PlayerWarp(n, 5, 8, 8)
    Else
        Call PlayerMsg(Index, "Player is not online.", White)
    End If
    Else
        Call PlayerMsg(Index, "You cannot jail yourself!", White)
    End If

Exit Sub

 'Warp to starting map
        Call PlayerWarp(n, 5, 8, 8)

' ::::::::::::::::::::::
' :: Quit game packet ::
' ::::::::::::::::::::::
Sub HandleQuit(ByVal Index As Long)
    Call CloseSocket(Index)
End Sub

      ' ::::::::::::::::::::::::
        ' :: Jail Player Packet ::
        ' ::::::::::::::::::::::::
       Case CJailPlayer()
        ' Prevent hacking...
        If GetPlayerAccess(Index) < ADMIN_CREATOR Then
            Call HackingAttempt(Index, "Admin Cloning")
        Exit Sub
    End If

n = FindPlayer(Parse(1))

    If n <> Index Then
    If n > 0 Then
    'Sends messages out
        Call PlayerMsg(n, "You have been jailed by an admin.", BrightRed)
        Call GlobalMsg(GetPlayerName(n) & " has been jailed by an admin.", BrightRed)
    'Warp to Jail map (Change the coordinates to fit your needs)
        Call PlayerWarp(n, 5, 8, 8)
    Else
        Call PlayerMsg(Index, "Player is not online.", White)
    End If
    Else
        Call PlayerMsg(Index, "You cannot jail yourself!", White)
    End If

Exit Sub

Things I've changed:

(Sep 19th, 2008)

Admin Panel (F1)
Member Of the Month
Who's Online that Have PK's.
Right click set access, server menu.
Kill and Jail commmands.
@ = Auction Chat

(Sep 20th, 2008)

Swear Filter
Draw NPC Names
Fixed Nullbanlist error
Fixed Moniter spelling error, with Monitor.
Made it so names can't go off screen.

(Sep 21st, 2008)

Changed /warpto, to /warp
Added /advancedinfo feature
Toggle Shift for run.
Fixed /setaccess bug
Programmed in /setlevel feature

            ' ::::::::::::::::::::::::
            ' :: Jail Player Packet ::
            ' ::::::::::::::::::::::::
Sub HandleJailPlayer(ByVal Index As Long, ByRef Parse() As String)
Dim N

            ' Prevent hacking...
            If GetPlayerAccess(Index) < ADMIN_CREATOR Then
                Call HackingAttempt(Index, "Admin Cloning")
            Exit Sub
        End If

    N = FindPlayer(Parse(1))

        If N <> Index Then
        If N > 0 Then
        'Sends messages out
            Call PlayerMsg(N, "You have been jailed by an admin.", BrightRed)
            Call GlobalMsg(GetPlayerName(N) & " has been jailed by an admin.", BrightRed)
        'Warp to Jail map (Change the coordinates to fit your needs)
            Call PlayerWarp(N, 5, 8, 8)
        Else
            Call PlayerMsg(Index, "Player is not online.", White)
        End If
        Else
            Call PlayerMsg(Index, "You cannot jail yourself!", White)
        End If

    End Sub

Handlekickplayer index, parse

Case CJailPlayer
            HandleJailPlayer Index, Parse