[Devilox]

Хотя нет, работает. Самый примитив(столкновение с кубом):

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