Collisions.....help!

Blitz3D Forums/Blitz3D Programming/Collisions.....help!

slenkar(Posted 2003) [#1]
Hi, I can get collisions to work fine but I have never found how to identify which entity was involved in the collision.

heres one method:
k=0
For p.blue_ship=Each blue_ship
k=k+1
For t = 1 To CountCollisions(redbullets(k))
HideEntity CollisionEntity (redbullets(k),t)

Next
next

didnt work
another method:

For tr= 1 To 100

For jr = 1 To CountCollisions (bluebullets(tr))
hit_ship= CollisionEntity(bluebullets(tr),jr)
If hit_ship<>0
HideEntity hit_ship
EndIf
Next

didnt work
and last of all:

For blue_p.blue_ship=Each blue_ship
For z= 1 To 100
If EntityCollided (redbullets(z),2)=blue_p\ship_handle
HideEntity blue_p\ship_handle
EndIf
Next
next

didnt work

I have also tried to get other variations but with no success.

The only time I have been able to do something with collisions is if I identify the entity that is colliding and just ask blitz for a yes/no and then do something to that entity.
This means I would have to set-up a collision type for each individual entity which slows the game down to 2 FPS.

Someone must have some experience with this, please help!


Rob(Posted 2003) [#2]
Collided = EntityCollided(ent,col_type)
If Collided then EntityColor Collided,255,0,0

This will turn them red when collided.


slenkar(Posted 2003) [#3]
For blue_p.blue_ship=Each blue_ship
For z= 1 To 100
If EntityCollided (redbullets(z),2)=blue_p\ship_handle
HideEntity blue_p\ship_handle
EndIf
Next
next


Isnt this the same thing?


slenkar(Posted 2003) [#4]
entitytype redship,1

For blue_p.blue_ship=Each blue_ship
collided=EntityCollided (blue_p\bullet_handle,1)
If collided
HideEntity collided
EndIf


Tried this, still doesnt work!