For g.TODEGeom=Each TODEGeom
If ODE_dBodyGetCollisionsCount(g\body)
PlaySound sound
EntityColor g\mesh,255,0,0
Else
EntityColor g\mesh,255,255,255
Endif
Next
If ODE_dBodyGetCollisionsCount(g\body)
PlaySound sound
EntityColor g\mesh,255,0,0
Else
EntityColor g\mesh,255,255,255
Endif
Next