Game Question

[Gorf]

I was wondering if anyone knows the code to implement a save and load feature into a game, plz post a snippet of code or detailed example, i know a fair amount but adviously not that much.

Please don't make it some incredibly hard small code, id'd rather have a huge easy to understand code.

Gorf

[PsychoMark]

http://forums.vb-world.net/showthrea...ght=save+games

[plenderj]

Well you basically just have to know what you want to load/save.
Here is a sample :

Option Explicit

'Code assumes save.game is in following format :
'
'name           =Blah Blah Blah
'age            =334
'TotalKills     =3493
'ExperienceLevel=324
'

Private thePlayer As playerType
Private Type playerType
    Name As String
    Age As Integer
    TotalKills As Long
    ExperienceLevel As Long
    'and others if applicable
End Type

Private Sub LoadGame()
    Dim varTemp As String
    Open App.Path & "\game.save" For Input As #1
        Do Until EOF(1)
            DoEvents
            Line Input #1, varTemp
            Select Case Left(varTemp, 16)
                Case "name           =":
                    thePlayer.Name = Mid(varTemp, 17)
                Case "age            =":
                    thePlayer.Age = Mid(varTemp, 17)
                Case "TotalKills     =":
                    thePlayer.TotalKills = Mid(varTemp, 17)
                Case "ExperienceLevel=":
                    thePlayer.ExperienceLevel = Mid(varTemp, 17)
            End Select
        Loop
    Close #1
    MsgBox "Game Loaded !"
End Sub

Private Sub SaveGame()
    Open App.Path & "\game.save" For Output As #1
        With thePlayer
            Print #1, "name           =" & .Name
            Print #1, "age            =" & .Age
            Print #1, "TotalKills     =" & .TotalKills
            Print #1, "ExperienceLevel=" & .ExperienceLevel
        End With
    Close #1
End Sub

[PsychoMark]

plenderj, if you've followed the link you'll notice that I'm using the UDT too, but instead of manually writing and reading each line, I'm writing the whole UDT at once, which is much easier...

[plenderj]

Sorry, It took me so long to write the post I had never read yours
Anyway yeah I had never actually use UDTs like that before ... I never even knew you could.

Well we all learn things