single player.

[genusis]

Well i have changed everything in 3.60 from characters to account and i was wondering how would i set this.

Code:

Function GetPlayerX(ByVal Index As Long) As Long
    GetPlayerX = Player(Index).Char(TempPlayer(Index).CharNum).x
End Function

Code:

Sub SetPlayerX(ByVal Index As Long, ByVal x As Long)
    Player(Index).Char(TempPlayer(Index).CharNum).x = x
End Sub

Code:

Function GetPlayerY(ByVal Index As Long) As Long
    GetPlayerY = Player(Index).Char(TempPlayer(Index).CharNum).y
End Function

Code:

Sub SetPlayerY(ByVal Index As Long, ByVal y As Long)
    Player(Index).Char(TempPlayer(Index).CharNum).y = y
End Sub

Code:

Function GetPlayerDir(ByVal Index As Long) As Long
    GetPlayerDir = Player(Index).Char(TempPlayer(Index).CharNum).Dir
End Function

Code:

Sub SetPlayerDir(ByVal Index As Long, ByVal Dir As Long)
    Player(Index).Char(TempPlayer(Index).CharNum).Dir = Dir
End Sub

Code:

Sub AddAccount(ByVal Index As Long, ByVal Name As String, ByVal Password As String, ByVal Sex As Byte, ByVal ClassNum As Byte)
Dim f As Long
Dim n As Long

'If LenB(Trim$(Player(Index).Name)) = 0 Then
        'TempPlayer(Index).CharNum = CharNum
        
    Player(Index).Login = Name
    Player(Index).Password = Password
    
        Player(Index).Sex = Sex
        Player(Index).Class = ClassNum
        
        If Player(Index).Sex = SEX_MALE Then
            Player(Index).Sprite = Class(ClassNum).Sprite
        Else
            Player(Index).Sprite = Class(ClassNum).Sprite
        End If
        
        Player(Index).Level = 1

        For n = 1 To Stats.Stat_Count - 1
            Player(Index).Stat(n) = Class(ClassNum).Stat(n)
        Next n
        
        Player(Index).Map = START_MAP
        Player(Index).x = START_X
        Player(Index).y = START_Y
            
        Player(Index).Vital(Vitals.HP) = GetPlayerMaxVital(Index, Vitals.HP)
        Player(Index).Vital(Vitals.MP) = GetPlayerMaxVital(Index, Vitals.MP)
        Player(Index).Vital(Vitals.SP) = GetPlayerMaxVital(Index, Vitals.SP)
  
    ' Append name to file
        f = FreeFile
        Open App.Path & "\accounts\playerlist.txt" For Append As #f
            Print #f, Name
        Close #f
        
    Call SavePlayer(Index)
End Sub

that's just some of them. but how would i change these to read from account instead of from character.
Thank you For your help.