CGetClasses = 1

CWarnPlayer

' // Mapper Admin Commands //

' Warn player
                Case "/warn"
                    If GetPlayerAccess(MyIndex) >= ADMIN_CREATOR Then
                        If UBound(Command) >= 1 Then
                            SendData CWarnPlayer & SEP_CHAR & Command(1) & END_CHAR
                        End If
                    End If

CGetClasses = 1

CWarnPlayer

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

            ' ::::::::::::::::::::::::
            ' :: Warn Player Packet ::
            ' ::::::::::::::::::::::::
Sub HandleWarnPlayer(ByVal Index As Long, ByRef Parse() As String)
Dim n As Long

            ' 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 Warned by an admin.", BrightRed)
            Call GlobalMsg(GetPlayerName(n) & " has been Warned by an admin.", BrightRed)
        Else
            Call PlayerMsg(Index, "Player is not online.", White)
        End If
        Else
            Call PlayerMsg(Index, "You cannot Warn yourself!", White)
        End If

    End Sub

If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
            Call SendData(CWarnPlayer & SEP_CHAR & txtPlayerAdmin.Text & END_CHAR)
        End If