Visual Basic - problemilla

Life is soft - evento anual de software empresarial
 
Vista:

problemilla

Publicado por sergio (14 intervenciones) el 15/03/2002 16:45:43
hola, tengo un peque ño problema: estoy haciendo un juego en visual, se trata de dos pistoleros que se mueven por medio del teclado y el otro por medio del mouse, tambien hay unos bichos que se mueven de arriba a abajo por medio de un timer (desaparecen al llegar a arriba, aparecen al llegar a abajo), cuando un disparo toca un bicho de estos estos se convierten en fuego, pero desaparecen como fuego y aparecen como fuego lo que quiero es que desaparescan como fue go y aparescan como bichos es algo asi:
Private Sub Timer2_Timer()
Const BichoIncrement = 80
Const NumBich = 2
Dim i As Integer
Dim u As Integer
For u = 0 To NumBich - 1

imgbicho(u).Top = imgbicho(u).Top - BichoIncrement
If imgbicho(u).Top < -imgbicho(u).Height Then
imgbicho(u).Top = picDesert.Height

End If
Next
If Collided(imgLBullet(i), imgbicho(0)) Then
imgLBullet(i).Visible = False
imgbicho(0).Picture = imgfuego.Picture
ElseIf Collided(imgLBullet(i), imgbicho(1)) Then
imgLBullet(i).Visible = False
imgbicho(1).Picture = imgfuego.Picture
ElseIf imgLBullet(i).Left > picDesert.ScaleWidth Then
imgLBullet(i).Visible = False
End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:problemilla

Publicado por ElJose (103 intervenciones) el 18/03/2002 03:59:29
En este código no está la parte donde muestras lo bichos, si al principio te salen bien y es cuando les alcanzas que aparecen como fuego ten encuenta que estableces esa imagen (imgbicho(1).Picture = imgfuego.Picture) y como aquí no se ve si luego la cambias igual puede ser eso
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar