Space+UFO+Multiplayer+version

= =

Space UFO Extension - Multiplayer Mode

To make the game playable by two players at the same time.
=Things needed:= 1. Case statements for the arrow keys for player two and missile fire. 2. Add another picture of missile (reverse). 3. Case statement for another missile. 4. Change the timer for UFO so it doesn't automatically move. (this can be changed to the UFO MIsssile). 5. Add statements similiar to the Ship but reverse. 6. Another label for player 2's score.

=Codes:= 1. * Case Keys.Up ' move UFO up picUFO.Top -= 10 Case Keys.Down ' move UFO down picUFO.Top += 10

Case Keys.NumPad0 ' fire a missile CentreOn(picUFO, picUFOMissile) picUFOMissile.Visible = True tmrUFO.Start Private Sub tmrUFO_Tick( ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles tmrUFO.Tick picUFOMissile.Left -= 30 ' move missile to left End Sub Private Sub picUFOMissile_LocationChanged( ByVal sender As Object, ByVal e As _ System.EventArgs) Handles picUFOMissile.LocationChanged ' if there is a collision between the missile and the spaceship

If Collision(picShip, picUFOMissile) Then

picUFOMissile.Visible = False

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

picExplosion.Visible = True

tmrExplosion.Start ' start explosion animation

lblScorePlayer2.Text += 1 ' INcrease score

' if missile has gone off the form then stop

ElseIf picUFOMissile.Left >= Me .Width Then

picMissile.Visible = False

tmrMissile.Stop End If

End **Sub You May need to delete some code such as UFO going off bottom of screen and not being visable if it gets hit with the ships missile.