Mirage Source

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

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

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

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

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

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

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