[Juego] Naves :D Estilo Galaga

[79137913]

HOLA!!!

Hoy posteo un juego que arme recien estilo galaga.

No hay mucho que decir, mueven con las flechas y disparan con espacio.

La descarga la deje abajo.

Aca les dejo una captura de pantalla:



Aca el codigo:

Código (vb) [Seleccionar] Expandir

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

Para descargar el source y el exe:

Descargar URL:
http://www.gigasize.com/get.php?d=tcthckoql1f

Mirror:
http://hotfile.com/dl/89217931/902911e/JUEGO_DE_NAVES.rar.html

GRACIAS POR LEER!!!

[BlackZeroX]

.
Esta bonito, lo unico que veo es que salen disparos del enemigo de lugares donde no hay enemigos ¬¬"

P.D.: en México lo conocemos por Galaxy

Temibles Lunas!¡.
.

[Cromatico]

Es verdad salen balas de cualquier lado xD

Otra cosa que le cambiaria es el timer de las Teclas asi:

Private Sub TECLAS_Timer()
        If GetAsyncKeyState(32) = -32767 Then Call DISPARO 'BARRA ESPACIADORA
        If GetAsyncKeyState(37) Then Call IZQUIERDA  'FLECHA IZ
        If GetAsyncKeyState(39) Then Call DERECHA  'FLECHA DER
End Sub

Asi es un movimiento continuo y podes disparar mientras te moves, sino cada ves q disparabas se te frenaba la nave

[ignorantev1.1]

.
Esta bonito, lo unico que veo es que salen disparos del enemigo de lugares donde no hay enemigos ¬¬"

P.D.: en México lo conocemos por Galaxy

Temibles Lunas!¡.
.

Es que hay uno que se llama Galaxian y otro que es Galaga, creo que son diferentes   ... me viene los recuerdos de falcificar fichas para la maquinita  con monedas antiguas o fichas de las cajas electricas  

[79137913]

HOLA!!!

Esta bonito, lo unico que veo es que salen disparos del enemigo de lugares donde no hay enemigos ¬¬"
P.D.: en México lo conocemos por Galaxy

Tenes razon ni me quise enroscar con que salgan disparos de las navecitas XD.

Y tambien es cierto Galaxy y Galaga eran competencia, tambien conozco el galaxy, son practicamente identicos.

GRACIAS POR LEER!!!

[BlackZeroX]

Es que hay uno que se llama Galaxian y otro que es Galaga, creo que son diferentes   ... me viene los recuerdos de falcificar fichas para la maquinita  con monedas antiguas o fichas de las cajas electricas  

Yo lo hacia con un cable estirado como de 15 cm, y una punta asemejando la circunferencia de una moneda... de igual manera con las rondanas, monedas antiguas ( sin valor obvio ), o con las rueditas de las chalupas...



P.D.: para el cable se nesesita 1 compañero minimo para hecharte aguas...

Dulces Lunas!¡.
.

[LeandroA]

Yo lo hacia con un cable estirado como de 15 cm, y una punta asemejando la circunferencia de una moneda... de igual manera con las rondanas, monedas antiguas ( sin valor obvio ), o con las rueditas de las chalupas...



P.D.: para el cable se nesesita 1 compañero minimo para hecharte aguas...

Dulces Lunas!¡.
.

jaja eso es un Argento, yo tambien lo hacia.

[ignorantev1.1]

Y pos en el tema estaria bien que les pusieras un poquito de IA a los enemigos    a ver que tal...


Lo del alambre estirado nunca me lo hice por que habia un mito que decia que un niño se electrocuto haciendo eso  ...

[agus0]

Jajaja Muy Bueno, Y lindas anectdotas...

[BlackZeroX]

.

Lo del alambre estirado nunca me lo hice por que habia un mito que decia que un niño se electrocuto haciendo eso  ...

De niño sufri muchos accidentes con el agua y un calentador electrico, metia o tocaba sin querer dicha agua con corriente electrica, asiq ue eso del cable lo tome como una idiotes y bueno ademas queria jugar... mi padre no me daba dinero, me lo tenia que ganar... o ingeniarmelas para jugar un buen rato, y he de hay lo del cablesito!¡.

Nota: a esa edad jugab mucho con los dispositivos electronicos... a los 8 años rompi un Stereo que no tenia mas de 3 meses que compro mi hermana... fue a martillasos para sacarle un motor y hacer mis experimentos de aquel entonces...

Por otro lado...

jaja eso es un Argento, yo tambien lo hacia.

Si Argento te refieres por "Chalupa Electrica" como se conoce en México ignoro otras partes o te refieres a una expresion pr que en google me aparecio esto

http://www.google.com.mx/images?q=Argento&oe=utf-8&rls=org.mozilla:es-ES:official&client=firefox-a&um=1&ie=UTF-8&source=og&sa=N&hl=es&tab=wi&biw=1024&bih=575

Dulces Lunas!¡.