[Juego] Naves :D Estilo Galaga

Iniciado por 79137913, 13 Diciembre 2010, 18:54 PM

0 Miembros y 1 Visitante están viendo este tema.

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]
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!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

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!¡.
.
The Dark Shadow is my passion.

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 :P

ignorantev1.1

Cita de: BlackZeroX▓▓▒▒░░ en 13 Diciembre 2010, 19:53 PM
.
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 :laugh:  :xD

79137913

HOLA!!!

Cita de: BlackZeroX▓▓▒▒░░ en 13 Diciembre 2010, 19:53 PM
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 :P 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!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

BlackZeroX

#5
Cita de: ignorantev1.1 en 13 Diciembre 2010, 20:47 PM
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 :laugh:  :xD


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!¡.
.
The Dark Shadow is my passion.

LeandroA

Cita de: BlackZeroX▓▓▒▒░░ en 14 Diciembre 2010, 00:44 AM
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  :o...

agus0

Jajaja Muy Bueno, Y lindas anectdotas...

BlackZeroX

#9
.
Cita de: ignorantev1.1 en 14 Diciembre 2010, 01:33 AM
Lo del alambre estirado nunca me lo hice por que habia un mito que decia que un niño se electrocuto haciendo eso  :o...

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...

Cita de: LeandroA en 14 Diciembre 2010, 01:26 AM
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!¡.
The Dark Shadow is my passion.