Login Stuck

[jsventor]

When I choose a character, it gets stuck on "Connected, sending char data..."

I tried checking out the "usechar" packet, but everything seemed fine...
Any help is appreciated (Using mirage 3.0.3 and its not a blank source, BUT, this did just start happening, so it can't be anything I added or that was added)

[Stomach Pulser]

That soemtimes randomly occurs to me, check packets and calls for login.

[jsventor]

Yup, I reviewed everything, I'll try deleting the accounts and making new ones or something

[William]

Hehe, I remeber this happening to me back when I first started with MS, I had tons of problems finding that problem back then.

First Delete Accounts.

Did you add binary recently?

[jsventor]

yup, they are Binary, and I tried Deleting them, still nothing

[Coke]

I'm 99% certain its to do with timers on the server being retarded.

[jsventor]

Hmm.. timers, I'll check it out

[seraphelic]

You know what would be awesome is a program to compare two sources, and then ignore some comparisons that you know arent causing the problem. You could compare your source to a fresh ms and find the problem pronto. I'll lol if this exists >.>

[William]

It's called that your type on the server isnt the same as the client one. So when logging in your binary gets messed up.

[jsventor]

I tried comparing, everything is good, And the types are the same

[William]

Post your save and load char subs.

[jsventor]

Load Player
[spoiler]

Code:

Sub LoadPlayer(ByVal Index As Long, ByVal Name As String)
Dim filename As String
Dim FileName2 As String
Dim CharName As String * NAME_LENGTH
Dim i As Long
Dim N As Long
Dim f As Long

    Call ClearPlayer(Index)
    
    filename = App.Path & "\main\Accounts\" & Trim$(Name)
    
    f = FreeFile
    Open filename & "\Account.dat" For Binary As #f
        Get #f, , Player(Index).Login
        Get #f, , Player(Index).Password
        For i = 1 To MAX_CHARS
            Get #f, , CharName
            FileName2 = filename & "\" & Trim$(CharName) & "\Char.dat"
            If FileExist("main\Accounts\" & Trim$(Name) & "\" & Trim$(CharName) & "\Char.dat") Then
                N = FreeFile
                Open FileName2 For Binary As #N
                    Get #N, , Player(Index).Char(i)
                Close #N
            End If
        Next i
    Close #f
Exit Sub
End Sub

[/spoiler]

Save Player
[spoiler]

Code:

Sub SavePlayer(ByVal Index As Long)
Dim filename As String
Dim PlayerName As String
Dim CharName As String
Dim i As Long
Dim N As Long
Dim f As Long

    PlayerName = Trim$(Player(Index).Login)
    If Dir(App.Path & "\main\Accounts\" & PlayerName, vbDirectory) = "" Then MkDir App.Path & "\main\Accounts\" & PlayerName
    filename = App.Path & "\main\Accounts\" & PlayerName & "\Account.dat"
    
    f = FreeFile
    Open filename For Binary As #f
        Put #f, , Player(Index).Login
        Put #f, , Player(Index).Password
        For i = 1 To MAX_CHARS
            Put #f, , Player(Index).Char(i).Name
        Next i
    Close #f
    
    For i = 1 To MAX_CHARS
        If Trim$(Player(Index).Char(i).Name)  "" Then
            CharName = Trim$(Player(Index).Char(i).Name)
            filename = App.Path & "\main\Accounts\" & PlayerName & "\" & CharName
            If Dir(filename, vbDirectory) = "" Then MkDir filename
            filename = filename & "\Char.dat"
            
            f = FreeFile
            Open filename For Binary As #f
                Put #f, , Player(Index).Char(i)
            Close #f
        End If
    Next i
End Sub

[/spoiler]

[Coke]

William I think he's talking about the random login sticks you get if you don't remove all the server timers, could be wrong though..