' Banned Player
    Banned As Byte

Player(BanPlayerIndex).Char(Player(BanPlayerIndex).Charnum).Banned = 1

Function IsCharBanned(ByVal index As Long) As Boolean
    IsCharBanned = False
   
    If Player(index).Char(Player(index).Charnum).Banned = 1 Then
        IsCharBanned = True
    End If
End Function

    ' ::::::::::::::::::::::::::::
    ' :: Using character packet ::
    ' ::::::::::::::::::::::::::::
    If LCase(Parse(0)) = "usechar" Then
        If Not IsPlaying(index) Then
            Charnum = Val(Parse(1))
       
            ' Prevent hacking
            If Charnum < 1 Or Charnum > MAX_CHARS Then
                Call HackingAttempt(index, "Invalid CharNum")
                Exit Sub
            End If
       
            ' Check to make sure the character exists and if so, set it as its current char
            If CharExist(index, Charnum) Then
                Player(index).Charnum = Charnum

                If IsCharBanned(index) = True Then
                    Call AlertMsg(index, "Sorry, you are banned from playing this server.")
                    Exit Sub
                End If

        Call PutVar(FileName, "CHAR" & i, "Banned", STR(Player(index).Char(i).Banned))

        Player(index).Char(i).Banned = Val(GetVar(FileName, "CHAR" & i, "Banned"))