Space+UFO+shoots+back

=Space UFO Extension - UFO shoots back= General aim will be to make the UFO fire missiles back at the ship

Action Plan

 * 1) Add a new picturebox to the form and add enemy missile image
 * 2) Add a new timer to handle the enemy missile moving and another to put the ship back after it is shot (called 'tmrRespawnShip' and 'tmrUFOShoot')
 * 3) Write code to make missile move left when timer ticks and enemy missile to come back when off form ( v This code Daniel! v ).

Implementation
**__New Sub-routine:__**

Private Sub tmrUFOShoot_Tick( ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrUFOShoot.Tick 'makes UFO missile move

picUFOMissile.Visible = True

picUFOMissile.Left -= 20 '

If picUFOMissile.Left <= 0 Then ' if off edge of screen

picUFOMissile.Left = picUFO.Left picUFOMissile.Top = picUFO.Top ' move back to UFO position

End If

If Collision(picUFOMissile, picShip) Then

picShip.Visible = False

picExplosion.Visible = True

picExplosion.Location = picShip.Location ' move explosion to UFO

tmrExplosion.Start ' start explosion animation

lblScore.Text -= 3 ' decrease score

picShip.Left = 32 picShip.Top = 120 tmrRespawnShip.Start End If End Sub


 * __New Sub-routine:__**

Private Sub tmrRespawnShip_Tick( ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrRespawnShip.Tick picShip.Visible = True

tmrRespawnShip.Stop End Sub

Private Sub picUFOMissile_LocationChanged( ByVal sender As Object, ByVal e As System.EventArgs) Handles picUFOMissile.LocationChanged If picUFOMissile.Left = 0 Then
 * __New Sub-routine:__ **

tmrUFOShoot.Start End If

End Sub End Class