Хотя нет, работает. Самый примитив(столкновение с кубом):
Function CollisionDetection()
surf = GetSurface(sphere,1)
For k = 1 To CountVertices(surf)
If (VertexX(surf,k) + EntityX(sphere)) >= x1 And (VertexX(surf,k) + EntityX(sphere)) <= x2
If (VertexY(surf,k) + EntityY(sphere)) >= y1 And (VertexY(surf,k) + EntityY(sphere)) <= y2
If (VertexZ(surf,k) + EntityZ(sphere)) >= z1 And (VertexZ(surf,k) + EntityZ(sphere)) <= z2
MoveEntity sphere,0,0,-v
EndIf
EndIf
EndIf
Next
End Function