• Home
 · 
• Games
 · 
• UFO 0.5: An alien invasion game where you are the alien. Control a UFO and ubduct as many people as

UFO 0.5: An alien invasion game where you are the alien. Control a UFO and ubduct as many people as

UFO 0.5: An alien invasion game where you are the alien. Control a UFO and ubduct as many people as you can. But there is a problem with your

API Declarations


Dim CLine As Integer
Dim score As Integer



Rate UFO 0.5: An alien invasion game where you are the alien. Control a UFO and ubduct as many people as

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Cl.Visible = False
CLine = 0
score = 0
End Sub


Private Sub Form_Keydown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
UFO.Top = UFO.Top - 75
Cl.Top = Cl.Top - 75

End If

If KeyCode = vbKeyDown Then
UFO.Top = UFO.Top + 75
Cl.Top = Cl.Top + 75



End If

If KeyCode = vbKeyLeft Then
UFO.Left = UFO.Left - 75
Cl.Left = Cl.Left - 75

End If

If KeyCode = vbKeyRight Then
UFO.Left = UFO.Left + 75
Cl.Left = Cl.Left + 75

End If

If KeyCode = vbKeySpace Then
Cl.Visible = True
For i = 0 To 3


Next i
End If

 

End Sub






Private Sub People1_Timer()
For i = 0 To 8
Person1(i).Left = Person1(i).Left + 100
If Person1(i).Left > Form1.Width Then
Person1(i).Left = 0 - Person1(i).Width
End If
Next i




End Sub



Private Sub Cltimer_Timer()


For i = 0 To 3
If Abs(Cl.Left + 100 - Person1(i).Left) < 250 And Cl.Visible Then
Person1(i).Top = Person1(i).Top - 2000
End If
If Person1(i).Top < 7070 Then
    Person1(i).Top = Person1(i).Top + 75

End If

If Person1(i).Top > 7080 Then
    Person1(i).Visible = False
End If
If Abs(Person1(i).Top - 100 - UFO.Top) < 250 Then
Person1(i).Visible = False
score = score + 1
End If
Next i
Cl.Visible = False
End Sub




Private Sub Form_Keydown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
UFO.Top = UFO.Top - 75
Cl.Top = Cl.Top - 75

End If

If KeyCode = vbKeyDown Then
UFO.Top = UFO.Top + 75
Cl.Top = Cl.Top + 75



End If

If KeyCode = vbKeyLeft Then
UFO.Left = UFO.Left - 75
Cl.Left = Cl.Left - 75

End If

If KeyCode = vbKeyRight Then
UFO.Left = UFO.Left + 75
Cl.Left = Cl.Left + 75

End If

If KeyCode = vbKeySpace Then
Cl.Visible = True
For i = 0 To 3


Next i
End If

 

End Sub






Private Sub People1_Timer()
For i = 0 To 8
Person1(i).Left = Person1(i).Left + 100
If Person1(i).Left > Form1.Width Then
Person1(i).Left = 0 - Person1(i).Width
End If
Next i




End Sub



Private Sub Cltimer_Timer()


For i = 0 To 3
If Abs(Cl.Left + 100 - Person1(i).Left) < 250 And Cl.Visible Then
Person1(i).Top = Person1(i).Top - 2000
End If
If Person1(i).Top < 7070 Then
    Person1(i).Top = Person1(i).Top + 75

End If

If Person1(i).Top > 7080 Then
    Person1(i).Visible = False
End If
If Abs(Person1(i).Top - 100 - UFO.Top) < 250 Then
Person1(i).Visible = False
score = score + 1
End If
Next i
Cl.Visible = False
End Sub