single player. - Printable Version

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