Option Explicit

'global variables
Dim score As Integer
Dim randomNumber As Integer
Dim l4cap As Integer


'disable all the command buttons
'-when program is initially loaded
Private Sub Form_Load()
Dim x As Integer
Dim y As Integer
While (x < 25)
    c1.Item(y).Enabled = False
    x = x + 1
    y = y + 1
Wend
'end code
End Sub


Private Sub start_Click()

'change caption back to initial value
Label3.Caption = "WHACK-A-GOPHER!!!"

'start all timers
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True

'set timer3 variable
l4cap = 30

'set initial countdown time to 30
Label4.Caption = 30

'enable all command buttons
Dim x As Integer
Dim y As Integer
While (x < 25)
    c1.Item(y).Enabled = True
    x = x + 1
    y = y + 1
Wend
'end code

End Sub

Private Sub reset_Click()

'change caption back to initial value
Label3.Caption = "WHACK-A-GOPHER!!!"

'"turn off" the gameplay

score = 0
Label1.Caption = score
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False

'change all the commandbuttons to their start picture
Dim x As Integer
Dim y As Integer
x = 0
y = 0

While (x < 25)
    c1.Item(y).Picture = LoadPicture(App.Path + "\smallBlank.gif")
    x = x + 1
    y = y + 1
Wend
'end code

'disable all command buttons
Dim x1 As Integer
Dim y1 As Integer
x1 = 0
y1 = 0
While (x1 < 25)
    c1.Item(y1).Enabled = False
    x1 = x1 + 1
    y1 = y1 + 1
Wend
'end code

End Sub

'end program
Private Sub exit1_Click()
End
End Sub

'set difficulty to easy
Private Sub easy_Click(Index As Integer)
Timer1.Interval = 1000
End Sub

'see above
Private Sub normal_Click(Index As Integer)
Timer1.Interval = 750
End Sub

'see above
Private Sub hard_Click(Index As Integer)
Timer1.Interval = 550
End Sub

'see above
Private Sub asinine_Click()
Timer1.Interval = 100
End Sub

'display form with rules
Private Sub rules_Click(Index As Integer)

Call Load(Form2)

End Sub

'here's where the fun starts...

Private Sub c1_Click(Index As Integer)

'if you click on a gopher...
If c1.Item(randomNumber) Then

'keep player from double-clicking on the gopher
c1.Item(randomNumber).Enabled = False

'change command button to x'd-out gopher pic
c1.Item(randomNumber).Picture = LoadPicture(App.Path + "\deadGopher.gif")

'then give 'em some points!
score = score + 25

'show 'em their points so far
Label1.Caption = score

Else

'if they click on a blank they lose ten points
'(double-clicking on blanks is allowed)
score = score - 10

'show 'em their crappy score change
Label1.Caption = score

End If

End Sub

Private Sub Timer1_Timer()

're-enable the last-clicked gopher button
c1.Item(randomNumber).Enabled = True

'this code basically clears the buttons to blanks every second
Dim x As Integer
Dim y As Integer
x = 0
y = 0

While (x < 25)
    c1.Item(y).Picture = LoadPicture(App.Path + "\smallBlank.gif")
    x = x + 1
    y = y + 1
Wend
'end code

'start generating a random number
Call Randomize

'between 0 and 24
randomNumber = Int(25 * Rnd())
 
'assaign command button array element
'-to the random number generated above
'-and give it the gopher picture
c1.Item(randomNumber).Picture = LoadPicture(App.Path + "\smallGopher.gif")

End Sub

Private Sub Timer2_Timer()

'stop the game
Timer1.Enabled = False

'display game-over dialogue
Label3.Caption = "GAME OVER"

'turn off all the buttons again
Dim x1 As Integer
Dim y1 As Integer
While (x1 < 25)
    c1.Item(y1).Enabled = False
    x1 = x1 + 1
    y1 = y1 + 1
Wend
'end code

End Sub

'this is just the code for the countdown timer
'-in the lower right-hand corner
'-so player is aware of their impending failure (or success)
Private Sub Timer3_Timer()
If l4cap > 0 Then
    l4cap = Label4.Caption
    l4cap = l4cap - 1
    Label4.Caption = l4cap
End If
'end code

End Sub

If Secs = 0 Then
        Accel = Accel     'same as tmrRoad
        Secs = 1
    ElseIf Secs = 1 Then
        Accel = Accel + 0.5
        Secs = 2
    ElseIf Secs = 2 Then
        Accel = Accel + 0.5
        Secs = 3