Private Declare Function GetAsyncKeyState _
    Lib "user32" ( _
        ByVal vKey As Long) As Integer
 
Dim CT As Integer
 
 
Private Sub ATAQUES_Timer()
Dim FLAG3 As Boolean
FLAG3 = False
Randomize
    For X = 4 To 7
        If BALA(X).Visible = False And FLAG3 = False Then
        FLAG3 = True
        BALA(X).Top = 0
        BALA(X).Left = 120 + Int(Rnd() * 7560)
        BALA(X).Visible = True
        End If
    Next
End Sub
 
Private Sub MOVER_BALAS_Timer()
    For X = 0 To 3
        'MUEVE LAS BALAS
        If BALA(X).Visible = True Then BALA(X).Top = BALA(X).Top - 120
        'SI SE VA DE LA PANTALLA LA OCULTA
        If BALA(X).Top < 0 Then BALA(X).Visible = False
        'VERIFICA GOLPES BAJOS
        If BALA(X).Top = 1680 Then
            For Y = 22 To 25
                If ENEMIGO(Y).Visible = True Then
                    If BALA(X).Left >= ENEMIGO(Y).Left And BALA(X).Left < ENEMIGO(Y).Left + ENEMIGO(Y).Width Then
                        ENEMIGO(Y).Visible = False
                        BALA(X).Visible = False
                        BALA(X).Top = -5
                    End If
                End If
            Next
        End If
        'VERIFICA GOLPES MEDIOS
        If BALA(X).Top = 1080 Then
            For Y = 11 To 21
                If ENEMIGO(Y).Visible = True Then
                    If BALA(X).Left >= ENEMIGO(Y).Left And BALA(X).Left < ENEMIGO(Y).Left + ENEMIGO(Y).Width Then
                        ENEMIGO(Y).Visible = False
                        BALA(X).Visible = False
                        BALA(X).Top = -5
                    End If
                End If
            Next
        End If
        'VERIFICA GOLPES ALTOS
        If BALA(X).Top = 480 Then
            For Y = 0 To 10
                If ENEMIGO(Y).Visible = True Then
                    If BALA(X).Left >= ENEMIGO(Y).Left And BALA(X).Left < ENEMIGO(Y).Left + ENEMIGO(Y).Width Then
                        ENEMIGO(Y).Visible = False
                        BALA(X).Visible = False
                        BALA(X).Top = -5
                    End If
                End If
            Next
        End If
    Next
    For X = 4 To 7
        'MUEVE LAS BALAS
        If BALA(X).Visible = True Then BALA(X).Top = BALA(X).Top + 120
        'OCULTA SI SE VA DE FOCO
        If BALA(X).Top > 5700 Then BALA(X).Visible = False
        'VERIFICA GOLPES CON LA NAVE
        If BALA(X).Top = 5280 Then
            If BALA(X).Left >= NAVE.Left And BALA(X).Left < NAVE.Left + NAVE.Width Then
                VIDAS.Caption = Str(Val(VIDAS.Caption) - 1)
                If Val(VIDAS.Caption) = 0 Then
                    MsgBox "PERDISTE"
                End
                End If
            End If
            BALA(X).Visible = False
            BALA(X).Top = -5
        End If
    Next
End Sub
 
Private Sub MOVER_NAVES_Timer()
Dim FLAG2 As Boolean
    CT = CT + 1
    If CT < 16 Then
        For X = 0 To 25
            ENEMIGO(X).Left = ENEMIGO(X).Left + 80
        Next
    ElseIf CT < 31 Then
        For X = 0 To 25
            ENEMIGO(X).Left = ENEMIGO(X).Left - 80
        Next
    ElseIf CT = 31 Then CT = 0
    End If
    FLAG2 = False
    For X = 0 To 25
        If ENEMIGO(X).Visible = True Then FLAG2 = True
    Next
    If FLAG2 = False Then
        MsgBox "GANASTE"
        End
    End If
End Sub
 
Private Sub TECLAS_Timer()
        If GetAsyncKeyState(32) = -32767 Then Call DISPARO 'BARRA ESPACIADORA
        If GetAsyncKeyState(37) = -32767 Then Call IZQUIERDA 'FLECHA IZ
        If GetAsyncKeyState(39) = -32767 Then Call DERECHA 'FLECHA DER
End Sub
 
Private Sub DISPARO()
Dim FLAG As Boolean
FLAG = False
    For X = 0 To 3
        If BALA(X).Visible = False And FLAG = False Then
            FLAG = True
            BALA(X).Left = NAVE.Left + 160
            BALA(X).Top = 5160
            BALA(X).Visible = True
        End If
    Next
End Sub
 
Private Sub IZQUIERDA()
If NAVE.Left >= 80 Then
    NAVE.Left = NAVE.Left - 80
End If
End Sub
Private Sub DERECHA()
If NAVE.Left <= 7320 Then
    NAVE.Left = NAVE.Left + 80
End If
End Sub