Sub SendPlayerChars(ByVal index As Long)
    Dim Buffer As clsBuffer, tmpName As String, i As Long, tmpSprite As Long, tmpAccess As Long, tmpClass As Long, tmpUsergroup As Long
    Dim SqlClass As String


    If UsingMYSQL Then
        Set MySQLReader = New ADODB.Recordset
        Set Buffer = New clsBuffer
        Buffer.WriteLong SPlayerChars

        SqlClass = "Select * from accounts where account='" & Trim$(GetPlayerLogin(index)) & "'"

        MySQLReader.CursorLocation = adUseServer
        MySQLReader.CursorType = adOpenDynamic
        MySQLReader.LockType = adLockOptimistic
        MySQLReader.Open SqlClass, MySQLConnection
        tmpUsergroup = MySQLReader!Usergroup
        MySQLReader.Close

        Buffer.WriteLong tmpUsergroup

        For i = 1 To MAX_CHARS
            Set MySQLReader = New ADODB.Recordset
            SqlClass = "Select * from characters where account='" & Trim$(GetPlayerLogin(index)) & "' and charID='" & i & "'"

            MySQLReader.CursorLocation = adUseServer
            MySQLReader.CursorType = adOpenDynamic
            MySQLReader.LockType = adLockOptimistic
            MySQLReader.Open SqlClass, MySQLConnection


            If MySQLReader.EOF Then
                tmpName = vbNullString
                tmpSprite = 0
                tmpAccess = 0
                tmpClass = 0
            Else
                tmpName = MySQLReader!Name
                tmpSprite = MySQLReader!Sprite
                tmpAccess = MySQLReader!Access
                tmpClass = MySQLReader!Class
            End If

            Buffer.WriteString tmpName
            Buffer.WriteLong tmpSprite
            Buffer.WriteLong tmpAccess
            Buffer.WriteLong tmpClass
            MySQLReader.Close
        Next
        SendDataTo index, Buffer.ToArray()
        Set Buffer = Nothing
       Exit Sub
    End If

    Set Buffer = New clsBuffer
    Buffer.WriteLong SPlayerChars

    tmpUsergroup = GetVar(App.Path & "\data\accounts\" & SanitiseString(Trim$(Player(index).Login)) & ".ini", "ACCOUNT", "Usergroup")
    Buffer.WriteLong tmpUsergroup

    ' loop through each character. clear, load, add. repeat.
    For i = 1 To MAX_CHARS
        tmpName = GetVar(App.Path & "\data\accounts\" & SanitiseString(Trim$(Player(index).Login)) & ".ini", "CHAR" & i, "Name")
        tmpSprite = Val(GetVar(App.Path & "\data\accounts\" & SanitiseString(Trim$(Player(index).Login)) & ".ini", "CHAR" & i, "Sprite"))
        tmpAccess = Val(GetVar(App.Path & "\data\accounts\" & SanitiseString(Trim$(Player(index).Login)) & ".ini", "CHAR" & i, "Access"))
        tmpClass = Val(GetVar(App.Path & "\data\accounts\" & SanitiseString(Trim$(Player(index).Login)) & ".ini", "CHAR" & i, "Class"))
        Buffer.WriteString tmpName
        Buffer.WriteLong tmpSprite
        Buffer.WriteLong tmpAccess
        Buffer.WriteLong tmpClass
    Next

    SendDataTo index, Buffer.ToArray()
    Set Buffer = Nothing
End Sub