Option Strict Off
Option Explicit On
Friend Class MDIForm1
	Inherits System.Windows.Forms.Form
	
	Private Sub MDIForm1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		
		'UPGRADE_ISSUE: Load statement is not supported. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="B530EFF2-3132-48F8-B8BC-D88AF543D321"'
		Load(Form1)
		
	End Sub
End Class

Option Strict Off
Option Explicit On
Friend Class Form1
	Inherits System.Windows.Forms.Form
	'whack-a-gopher 1.0
	'2005 benjamin hancock
	'assaignment mp07 for class CS220
	
	'there is so much more i could do with this...
	'-add sound, have a crosshair mouse pointer,
	'-add an intro window
	'-i've learned a lot from doing this project
	'-and have really enjoyed it
	
	
	'global variables
	Dim score As Short
	Dim randomNumber As Short
	Dim l4cap As Short
	
	
	'disable all the command buttons
	'-when program is initially loaded
	Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		Dim x As Short
		Dim y As Short
		While (x < 25)
			c1(y).Enabled = False
			x = x + 1
			y = y + 1
		End While
		'end code
	End Sub
	
	
	Public Sub start_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles start.Click
		
		'change caption back to initial value
		Label3.Text = "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.Text = CStr(30)
		
		'enable all command buttons
		Dim x As Short
		Dim y As Short
		While (x < 25)
			c1(y).Enabled = True
			x = x + 1
			y = y + 1
		End While
		'end code
		
	End Sub
	
	Public Sub reset_Renamed_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles reset_Renamed.Click
		
		'change caption back to initial value
		Label3.Text = "WHACK-A-GOPHER!!!"
		
		'"turn off" the gameplay
		
		score = 0
		Label1.Text = CStr(score)
		Timer1.Enabled = False
		Timer2.Enabled = False
		Timer3.Enabled = False
		
		'change all the commandbuttons to their start picture
		Dim x As Short
		Dim y As Short
		x = 0
		y = 0
		
		While (x < 25)
			c1(y).Image = System.Drawing.Image.FromFile(My.Application.Info.DirectoryPath & "\smallBlank.gif")
			x = x + 1
			y = y + 1
		End While
		'end code
		
		'disable all command buttons
		Dim x1 As Short
		Dim y1 As Short
		x1 = 0
		y1 = 0
		While (x1 < 25)
			c1(y1).Enabled = False
			x1 = x1 + 1
			y1 = y1 + 1
		End While
		'end code
		
	End Sub
	
	'end program
	Public Sub exit1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles exit1.Click
		End
	End Sub
	
	'set difficulty to easy
	Public Sub easy_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles easy.Click
		Dim Index As Short = easy.GetIndex(eventSender)
		Timer1.Interval = 1000
	End Sub
	
	'see above
	Public Sub normal_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles normal.Click
		Dim Index As Short = normal.GetIndex(eventSender)
		Timer1.Interval = 750
	End Sub
	
	'see above
	Public Sub hard_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles hard.Click
		Dim Index As Short = hard.GetIndex(eventSender)
		Timer1.Interval = 550
	End Sub
	
	'see above
	Public Sub asinine_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles asinine.Click
		Timer1.Interval = 100
	End Sub
	
	'display form with rules
	Public Sub rules_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles rules.Click
		Dim Index As Short = rules.GetIndex(eventSender)
		
		'UPGRADE_ISSUE: Load statement is not supported. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="B530EFF2-3132-48F8-B8BC-D88AF543D321"'
		Load(Form2)
		
	End Sub
	
	'here's where the fun starts...
	
	Private Sub c1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles c1.Click
		Dim Index As Short = c1.GetIndex(eventSender)
		
		'if you click on a gopher...
		'UPGRADE_ISSUE: CommandButton property c1.Item.Value was not upgraded. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'
		If c1(randomNumber).Value Then
			
			'keep player from double-clicking on the gopher
			c1(randomNumber).Enabled = False
			
			'change command button to x'd-out gopher pic
			c1(randomNumber).Image = System.Drawing.Image.FromFile(My.Application.Info.DirectoryPath & "\deadGopher.gif")
			
			'then give 'em some points!
			score = score + 25
			
			'show 'em their points so far
			Label1.Text = CStr(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.Text = CStr(score)
			
		End If
		
	End Sub
	
	Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
		
		're-enable the last-clicked gopher button
		c1(randomNumber).Enabled = True
		
		'this code basically clears the buttons to blanks every second
		Dim x As Short
		Dim y As Short
		x = 0
		y = 0
		
		While (x < 25)
			c1(y).Image = System.Drawing.Image.FromFile(My.Application.Info.DirectoryPath & "\smallBlank.gif")
			x = x + 1
			y = y + 1
		End While
		'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(randomNumber).Image = System.Drawing.Image.FromFile(My.Application.Info.DirectoryPath & "\smallGopher.gif")
		
	End Sub
	
	Private Sub Timer2_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer2.Tick
		
		'stop the game
		Timer1.Enabled = False
		
		'display game-over dialogue
		Label3.Text = "GAME OVER"
		
		'turn off all the buttons again
		Dim x1 As Short
		Dim y1 As Short
		While (x1 < 25)
			c1(y1).Enabled = False
			x1 = x1 + 1
			y1 = y1 + 1
		End While
		'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_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer3.Tick
		If l4cap > 0 Then
			l4cap = CShort(Label4.Text)
			l4cap = l4cap - 1
			Label4.Text = CStr(l4cap)
		End If
		'end code
		
	End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub
End Class

Option Explicit On
Friend Class Form2
	Inherits System.Windows.Forms.Form
	
	Public Sub back_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles back.Click
		
		Call Me.Close()
		
	End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class