SavePlayer Faster

[Cruzn]

Fix?

I use this:

Code:

Sub SavePlayer(ByVal Index As Long, ByVal cNum as Byte)
Dim FileName As String
Dim n As Long

    cNum = int(cNum)
    FileName = App.Path & "\accounts\" & Trim(Player(Index).Login) & ".ini"
    
    Call PutVar(FileName, "CHAR" & cNum, "Name", Trim(Player(Index).Char(cNum).Name))
    Call PutVar(FileName, "CHAR" & cNum, "Class", STR(Player(Index).Char(cNum).Class))
    Call PutVar(FileName, "CHAR" & cNum, "Sex", STR(Player(Index).Char(cNum).Sex))
...

End Sub

Code:

Call SavePlayer(Index, CharNum)

Just the way I do it, =P. May not be the best.