Juego de Naves

estoy tratando de hacer un juego de naves en visual basic tipo "LaserAge"
hasta ahora logro hacer que la nave dispare al hacer clic con el mouse y reprodusca un sonido de disparo.

la pregunta es ¿como hacer que el tiro (es un shape un forma redonda)al pasar por el enemigo que se mueve de un costado a otro de la pantalla (es un image con la imagen de una nave) lo haga desaparecer.¿alguien que me oriente ?

prueba,enemigo.visible=true

if rayo.... toca al enemigo entoces
enemigo.visible=true

perdon:

enemigo.visible = false

Lo primero que para utilizar controles de Visual Basic para hacer un juego o una aplicacion grafica, que te limitan demasiado a la hora de hacer duplicaciones de una imagen (los disparos por ejemplo) o aplicar efectos a a la imagen (degradados, decoloraciones, rotaciones, escalados uniformes y suaves, etc...) te recomendaria utilizar mi libreria, que tambien te solventaria el problema de audio y las colisiones entres objetos.

Centrandonos ahora mismo, tus objetos si lo piensas son cajas con una posicion y una altura y achura. La idea seria comprobar que ambas cajas no esten irtercediendo una con la otra. Lo suyo seria tener dos variables con una estructura tipo RECT y utilizar esta funcion del API de Windows para comprobar dicha interseccion. Para comprobar si existe colision entre los dos objetos te pongo un ejemplo:

Código:

---

Option Explicit

Private Type RECT
 Left As Long
 Top As Long
 Right As Long
 Bottom As Long

End Type

Private Declare Function IntersectRect Lib "user32.dll" (ByRef lpDestRect As RECT, ByRef lpSrc1Rect As RECT, ByRef lpSrc2Rect As RECT) As Long

Private Sub Form_Load()
Dim a As RECT, b As RECT
 
 a.Left = Shape1.Left
 a.Top = Shape1.Top
 a.Right = a.Left + Shape1.Width
 a.Bottom = a.Top + Shape1.Height

 b.Left = Shape2.Left
 b.Top = Shape2.Top
 b.Right = b.Left + Shape2.Width
 b.Bottom = b.Top + Shape2.Height
 
 If CBool(IntersectRect(a, b, a)) Then MsgBox "Colision"

End Sub

---

El ejemplo creo que es facil de comprender. Lo que tienes que tener en cuenta es que la comprobacion de colision en el caso de un juego de naves se debe hacer o bien por parte del objeto disparo o bien por parte de cada uno de los objetos enemigos, y dicha comprobacion se debe hacer en evento donde dicho objeto se mueva, por ejemplo, cuando avance el disparo que compruebe si colisiona con algun objeto enemigo de una lista que tengas definida.

Salu2...

!!!!!! http://www.canalvisualbasic.net/foro...s/smiley32.gifhttp://www.canalvisualbasic.net/foro...s/smiley32.gifhttp://www.canalvisualbasic.net/foro...s/smiley32.gifhttp://www.canalvisualbasic.net/foro...s/smiley32.gif Buenisimo tu ejemplo [EX3] http://www.canalvisualbasic.net/foro...s/smiley32.gifhttp://www.canalvisualbasic.net/foro...s/smiley32.gifhttp://www.canalvisualbasic.net/foro...s/smiley32.gifhttp://www.canalvisualbasic.net/foro...s/smiley32.gif !!!!!!

es facil de comprender como dijiste y facil de implementar en el programa.no es un juego muy bueno ni con graficos ni nada pero por lo menos es algo.

saludos!!http://www.canalvisualbasic.net/foro...s/smiley36.gif

Complejo o no, te aseguro que con la dx_lib32 te quedaria mas claro al ser solo un fomrulario, 4 funciones y un bucle principal que gestione el flujo del programa, sin contar que tendrias todo centralizado en una sola libreria: graficos, audio, video, entrada de perifericos (teclado, raton, y joysticks) y otras funciones de ayuda como las de colision.

Si mas adelante me da la vena quizas haga un sencillo tutorial de un matamarcianos con mi libreria, que seguro que alguno le vendria bien para empezar con la libreria.

Salu2...

es bueno...

Y como uno puede hacer para que la otra nave se mueva intentando dispararte