Stuck on sending data

[Matt]

Wow.

Just so you know, I have a tut for fully function guilds if you want it.

Here is my sub sendchars

Code:

Sub SendChars(ByVal index As Long)
Dim packet As String
Dim i As Long
    
    packet = "ALLCHARS" & SEP_CHAR
    For i = 1 To MAX_CHARS
        packet = packet & Trim(Player(index).Char(i).Name) & SEP_CHAR & Trim(Class(Player(index).Char(i).Class).Name) & SEP_CHAR & Player(index).Char(i).Level & SEP_CHAR
    Next i
    packet = packet & END_CHAR
    
    Call SendDataTo(index, packet)
End Sub

Here is how the client recieves it:

Code:

' :::::::::::::::::::::::::::
    ' :: All characters packet ::
    ' :::::::::::::::::::::::::::
    If LCase(Parse(0)) = "allchars" Then
        n = 1
        
        'frmChars.Visible = True
        frmSendGetData.Visible = False
        
            frmMain.lstChars.Clear
        
        For i = 1 To MAX_CHARS
            Name = Parse(n)
            Msg = Parse(n + 1)
            Level = Val(Parse(n + 2))
            

            If Trim(Name) = "" Then
                frmMain.lstChars.AddItem "Free Character Slot"
            Else
                frmMain.lstChars.AddItem Name & " a level " & Level & " " & Msg
            End If
            
            n = n + 3
        Next i
        
        frmMain.lstChars.ListIndex = 0
        
        Exit Sub
    End If

I've removed the frmChars though, just so you know.