Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Sub SavePlayer(ByVal Index As Long)
- Dim FileName As String
- FileName = "\data\accounts\" & Trim$(Player(Index).Login) & ".ini"
- PutVar App.path & FileName, Trim$(Player(Index).Login), "Login", Player(Index).Login
- PutVar App.path & FileName, Trim$(Player(Index).Login), "Login", Player(Index).Name
- ' Etc.
- End Sub
- Public Sub LoadPlayer(ByVal Index As Long)
- Dim FileName As String
- FileName = "\data\accounts\" & Trim$(Player(Index).Login) & ".ini"
- GetVar App.path & FileName, Trim$(Player(Index).Login), Player(Index).Login
- ' Etc.
- End Sub
Add Comment
Please, Sign In to add comment