Space+UFO+Increase+speed

=Space UFO Extension - Increase speed of UFO when hit= General aim will be to make the game harder and harder as the player hits the UFO

Action Plan

 * 1) make a new variable to track how fast the UFO is currently moving. (intUFOSpeed)
 * 2) add 1 to intUFOSpeed every time there is a collision between missile and UFO
 * 3) change the amount the UFO moves down each tick by intUFOSpeed.

Code Changes
At top of form declaration: code format="vbnet" ' ********* Start of changes ********** ACB 10/06/09 DIM intUFOSpeed as Integer = 8 ' ********* End of changes ***************

code

In tmrUFO_Tick: code format="vbnet" Private Sub tmrUFO_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles tmrUFO.Tick ' ********* Start of changes ********** ACB 10/06/09 picUFO.Top += intUFOSpeed ' move the UFO down the form ' ********* End of changes *************** End Sub code

In picMissile_LocationChanged: code format="vbnet" Private Sub picMissile_LocationChanged(ByVal sender As Object, ByVal e As _           System.EventArgs) Handles picMissile.LocationChanged ' if there is a collision between the missile and the UFO If Collision(picUFO, picMissile) Then picMissile.Visible = False picExplosion.Location = picUFO.Location ' move explosion to UFO picExplosion.Visible = True picUFO.Top = -picUFO.Height ' move UFO to top of form tmrExplosion.Start ' start explosion animation lblScore.Text += 1 ' increase score ' ********** Start of changes ******************** ACB 10/06/09 intUFOSpeed +=1 ' increase the difficulty of hitting the next UFO ' ********** End of changes ***********************

' if missile has gone off the form then stop ElseIf picMissile.Left >= Me.Width Then picMissile.Visible = False tmrMissile.Stop End If End Sub code