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:
(http://img121.imageshack.us/img121/1886/asdsadvs.jpg)
Aca el codigo:
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!!!
.
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 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
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
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!!!
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...
(http://www.tranacer.com/img/f18.gif)
P.D.: para el cable se nesesita 1 compañero minimo para hecharte aguas...
Dulces Lunas!¡.
.
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...
(http://www.tranacer.com/img/f18.gif)
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.
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...
Jajaja Muy Bueno, Y lindas anectdotas...
.
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!¡.