Help with collisions

Hi. I hope help me with a trouble of collisions. Here my code:

Graphics3D 640,480,16,1

SetBuffer BackBuffer()

Const FPS=60

global rayo,platillo,enem,metal,secuencia

x_flot1=0
y_flot1=-0.25

camara=CreateCamera()
CameraRange camara,0.05,10

luz=CreateLight()

platillo=LoadAnimMesh("platillo.b3d")
ScaleEntity platillo,0.04,0.08,0.08
RotateEntity platillo,0,90,0
PositionEntity platillo,0,-0.2,0.5
ExtractAnimSeq(platillo,0,40);Secuencia 1
ExtractAnimSeq(platillo,40,60);Secuencia 2
secuencia=1
animate platillo,1,1,secuencia,0

rayo=loadsprite("rayo.bmp")
hideentity rayo

enem=loadmesh("enemigo.b3d")
hideentity enem

metal=loadtexture("metal.bmp")

If KeyHit(32) Then   
   crea_disparo()
   SoundVolume sonido_laser,0.5
   PlaySound sonido_laser
endif 

Type disparo
   Field tipo
   Field vel#
End Type

Function crea_disparo()
   ray.disparo=New disparo
   ray\tipo=CopyEntity(rayo)
   ScaleSprite ray\tipo,0.02,0.02
   EntityType ray\tipo,1
   EntityRadius ray\tipo,0.02

   If secuencia=1 Then
      PositionEntity ray\tipo,EntityX(platillo)+0.05,EntityY(platillo)+0.015,EntityZ(platillo)
      ray\vel=0.05
   ElseIf secuencia=2 Then
     PositionEntity ray\tipo,EntityX(platillo)-0.05,EntityY(platillo)+0.015,EntityZ(platillo)
      ray\vel=-0.05
   EndIf
End Function 

Function mueve_destruye_disparo()
   For ray.disparo=Each disparo
       MoveEntity ray\tipo,ray\vel,0,0
       If EntityX(ray\tipo)>EntityX(platillo)+1 Or EntityX(ray\tipo)<EntityX(platillo)-1 Then
          FreeEntity ray\tipo
          Delete ray
       EndIf
   Next
End Function

Function destruye_disparo()
For ray.disparo=Each disparo
    If EntityCollided(ray\tipo,3) Then
       FreeEntity ray\tipo
       Delete ray
    EndIf
Next
end function 

Type flotilla1
   Field tipo
   Field vel#
End Type

Function crea_flotilla1()
 For i=1 To 5
       flot1.flotilla1=New flotilla1
       x_flot1=Rnd(1,2)*p_flot1
       flot1\tipo=CopyEntity(enem)
       ScaleEntity flot1\tipo,0.08,0.08,0.08
       PositionEntity flot1\tipo,x_flot1,y_flot1,0.5
       EntityTexture flot1\tipo,metal,0,1
       NameEntity flot1\tipo,i
       EntityType flot1\tipo,3
       EntityBox flot1\tipo,-0.04,-0.04,-0.04,0.08,0.08,0.08
       y_flot1=y_flot1+0.1
       flot1\vel=0.01*v_flot1
       v_flot1=v_flot1*-1
       p_flot1=p_flot1*-1
   Next
End Function 

crea_flotilla1()

Function repos_flotilla1()
   For flot1.flotilla1=Each flotilla1       
       If EntityX(flot1\tipo)>0.6 Or EntityCollided(flot1\tipo,1) Then
          If EntityName(flot1\tipo)=1 Then
             PositionEntity flot1\tipo,Rnd(-1.3,-0.6),-0.25,0.5
          EndIf
          If EntityName(flot1\tipo)=3 Then
             PositionEntity flot1\tipo,Rnd(-1.3,-0.6),0,0.5
          EndIf
          If EntityName(flot1\tipo)=5 Then
             PositionEntity flot1\tipo,Rnd(-1.3,-0.6),0.25,0.5
          EndIf
        EndIf 

       If EntityX(flot1\tipo)<-0.6 Or EntityCollided(flot1\tipo,1) Then
          If EntityName(flot1\tipo)=2 Then 
             PositionEntity flot1\tipo,Rnd(1.3,0.6),-0.125,0.5
          EndIf
          If EntityName(flot1\tipo)=4 Then
             PositionEntity flot1\tipo,Rnd(1.3,0.6),0.125,0.5
          EndIf
        EndIf
Next
End Function 

Function mueve_flotilla1()
   For flot1.flotilla1=Each flotilla1
       MoveEntity flot1\tipo,flot1\vel,0,0
   Next
End Function

period=1000/FPS
time=MilliSecs()-period

Collisions 1,3,3,1

While Not KeyHit(1)

       Repeat
	elapsed=MilliSecs()-time
       Until elapsed
       ticks=elapsed/period	
       tween#=Float(elapsed Mod period)/Float(period)

	For k=1 To ticks
	    repos_flotilla1()
            If k=ticks Then CaptureWorld
            time=time+period
            mueve_flotilla1()
            mueve_destruye_disparo()
            destruye_disparo()
            updateworld
        next

   RenderWorld tween

   Flip

wend
End

the first time (before return to start position) , all work fine:

http://img129.imageshack.us/img129/9248/img1kb5.th.jpg

after return to start position, laser collides with enemy, but enemy is in another side :-(

http://img353.imageshack.us/img353/4147/img2jf1.th.jpg

What´s wrong. :-(

Thank you very much to help me. :-)

Without the media, I find it difficult to help out. The problem you're describing however, could be collision related. When you 'warp' an entity, that is, re-position it with PositionEntity, it still responds to collisions. To avoid this, use ResetEntity after repositioning.

I tried it but does not work... :-( Please help meeee!

Try the resetentity or ( hideentity / positionentity / showentity ) and comment out the rendertweening code to see if that works.

I've heard about strange things happening with re-positioning and render-tweening although there have been a few good solutions posted if you do a search.

Other than that post the code without the need for external media - just use cubes and the like.

Nop, not is the command Render tween. Here is the code an can try you it.

;Javier Ramírez...

Graphics3D 640,480,16,1

SetBuffer BackBuffer()

Global platillo,txt_plat,x#,y#,v,p,disp

y=-0.3
v=1
p=-1

camara=CreateCamera()
CameraRange camara,0.01,10

luz=CreateLight()

platillo=CreateSphere()
ScaleEntity platillo,0.03,0.03,0.015
PositionEntity platillo,0,-0.18,0.5
;PositionEntity platillo,0,0.12,0.5

Type balas
  Field tipo
End Type 

Function crea_balas()
  bal.balas=New balas
  bal\tipo=CreateSphere()
  ScaleEntity bal\tipo,0.01,0.01,0.01
  PositionEntity bal\tipo,EntityX(platillo),EntityY(platillo),EntityZ(platillo)
  EntityType bal\tipo,1
  EntityRadius bal\tipo,0.01
End Function 

Function mueve_balas()
  For bal.balas=Each balas
      MoveEntity bal\tipo,-0.02,0,0
      If EntityX(bal\tipo)<-0.5 Or EntityCollided(bal\tipo,3) Then
         FreeEntity bal\tipo
         Delete bal
      EndIf 
  Next
End Function 

Function movimientos_disparo()

 ;If EntityY(platillo)<0.3 Then
 ;   If KeyDown(200) Then MoveEntity platillo,0,0.01,0
 ;EndIf
 ;If EntityY(platillo)>-0.3 Then
 ;   If KeyDown(208) Then MoveEntity platillo,0,-0.01,0
 ;EndIf
 ;If EntityX(platillo)>-0.4 Then
 ;   If KeyDown(203) Then MoveEntity platillo,-0.01,0,0
 ;EndIf
 ;If EntityX(platillo)<0.4 Then
 ;   If KeyDown(205) Then MoveEntity platillo,0.01,0,0
 ;EndIf

 If KeyHit(32) Then
    crea_balas()
 EndIf
    
End Function 

Type enemigos
   Field tipo[5]
   Field vel#[5]
   Field ex[5]
   Field tv[5]
End Type

Function crea_enemigos()
 enem.enemigos=New enemigos
   For i=1 To 5
       x=Rnd(1,2)*p
       enem\tipo[i]=CreateCube()
       ScaleEntity enem\tipo[i],0.04,0.04,0.04
       PositionEntity enem\tipo[i],x,y,0.5
       EntityType enem\tipo[i],3
       EntityBox enem\tipo[i],-0.02,-0.02,-0.02,0.04,0.04,0.04
       y=y+0.15
       enem\vel[i]=0.01*v
       v=v*-1
       p=p*-1
   Next
End Function 

crea_enemigos()

Function mueve_enemigos()
   For enem.enemigos=Each enemigos
       For i=1 To 5
           MoveEntity enem\tipo[i],enem\vel[i],0,0
       Next

          If EntityX(enem\tipo[1])>0.6 Or EntityCollided(enem\tipo[1],1) Then
             PositionEntity enem\tipo[1],Rnd(-1.3,-0.6),-0.3,0.5
             ResetEntity enem\tipo[1]
          EndIf

          If EntityX(enem\tipo[3])>0.6 Or EntityCollided(enem\tipo[3],1) Then
             PositionEntity enem\tipo[3],Rnd(-1.3,-0.6),0,0.5
             ResetEntity enem\tipo[3]
          EndIf

          If EntityX(enem\tipo[5])>0.6 Or EntityCollided(enem\tipo[5],1) Then
             PositionEntity enem\tipo[5],Rnd(-1.3,-0.6),0.3,0.5
             ResetEntity enem\tipo[5]
          EndIf

          If EntityX(enem\tipo[2])<-0.6 Or EntityCollided(enem\tipo[2],1) Then
             ;HideEntity enem\tipo[2]
             PositionEntity enem\tipo[2],Rnd(0.6,1.3),-0.15,0.5
             ResetEntity enem\tipo[2]
             ;ShowEntity enem\tipo[2]
          EndIf

          If EntityX(enem\tipo[4])<-0.6 Or EntityCollided(enem\tipo[4],1) Then
             ;HideEntity enem\tipo[4]
             PositionEntity enem\tipo[4],Rnd(0.6,1.3),0.15,0.5
             ResetEntity enem\tipo[4]
             ;ShowEntity enem\tipo[4]
          EndIf

   Next
End Function 

Collisions 1,3,3,1
;With this don´t work good :-(. it´s a bug?

;Collisions 1,3,2,1
;With this, work fine! :-) but... why?

While Not KeyHit(1)

movimientos_disparo()
mueve_balas()
mueve_enemigos()

UpdateWorld	
RenderWorld

Text 10,20,"Posición Y: " + EntityY(platillo) 

Flip

Wend
End

the solution is "Collisions 1,3,2,1" but....Why?. I think that then is a bug with entitybox and collisions.

Gracias. :-)

Nae bother Yoda!