VB Classic: Snake's Escapade [Source]

[Fedhax]

Language: VB Classic (VB 6)

Taking NoteMe's Snakes tutorial, I implemented it and expanded upon it. It does what NoteMe's program did and more:

• Multiple fruits for different values
• Multiple power-ups
• Tracks levels: increases speed as you level up
• Tracks score: your snake gains body segments every 100 points
• Simple help/about windows to provide control/gameplay assistance
• /debug: Comes with a basic debug mode for testing/development

I've tested it through the first two levels, and it behave a little unbalanced or unpredictable as gameplay continues. There are more things that I've thought about doing for it, but I may move on to another game/format unless someone is curious to see it developed. It come as is. Every function/sub is formatted and has a comment header with everything filled out except for Description, and it comes with a table of contents to easily find code that I grouped together (Game Loop, Image Processing, etc).

Graphics are handled via three image objects and not bitblt, but all of the objects are tracked in corresponding arrays so you would probably only have to rewrite the image routines to make it behave that way.

[Seraphino]

I suppose I better give some feedback .

The game has a minor bug that I am sure is easily fixable, but I am too lazy to fix it atm. Here is the code:

Private Sub GetCommandArguments()
    
    Dim ls                  As String
    Dim lsCommands()        As String
    
    lsCommands = Split(Command$, " ")
    
    For [COLOR=Red]li[/COLOR] = LBound(lsCommands) To UBound(lsCommands)
        Select Case LCase(lsCommands(li))
            Case "/debug"
                mnuDebug.Visible = True
        
        End Select
    Next
 
End Sub

Error: "Variable Not Defined"

[Fedhax]

I suppose I better give some feedback .
The game has a minor bug that I am sure is easily fixable, but I am too lazy to fix it atm.

...

Add a declaration for li.

Private Sub GetCommandArguments()
    
    Dim ls                  As String
    Dim lsCommands()        As String
    [COLOR=Red]Dim li                  As Integer[/COLOR]
    
    lsCommands = Split(Command$, " ")
    
    For li = LBound(lsCommands) To UBound(lsCommands)
        Select Case LCase(lsCommands(li))
            Case "/debug"
                mnuDebug.Visible = True
        
        End Select
    Next
 
End Sub

I've made the change in my code, but I haven't uploaded a new version of the game since it is a single line change.

[gtilles]

giWindowStatus needs to be defined as well
I set it as int, game seems to work ok now.
Private Sub InitializeGame(Optional vbRunGame As Boolean = True)

[Fedhax]

Thanks for the feedback. I've made changes to the source code to get through those two errors. It compiled and ran for me so you shouldn't have any variable isn't defined type messages.

[HaLLa]

Hey I did that tutorial and im working on m own with my own features as well...

I couldnt figure out how to change the speed and saw that you have done that could you give me some help with that.

My movement is the same as the tutorials ... so I dont know if you changed yours... but could you provide me with some code or help. THanks.