forum.boolean.name - Help! Проблемы с collisions

Посмотрел на одном сайте учебник с такой игрой,
решил проверить себя и сделал все по-своему,
но кубик не останавливается при столкновении со сферами.Вот код программы:

Код:

Graphics3D 1024,768 

SetBuffer BackBuffer() 

Global cub=CreateCube() 

Const cubb=1 

EntityType cub,cubb 

EntityRadius cub,5 

Global x#,y#,z# 

Global c_bot=Rand(3,7) 

PositionEntity cub,0,2,6 

ScaleEntity cub,0.2,2,0.5 

cam=CreateCamera(cub) 

PositionEntity cam,0,3,-10 

Type stolb 

Field entity 

End Type 

Function create_world() 

plan=CreatePlane() 

PositionEntity plan,0,-2,0 

EntityColor plan,0,0,255 

light=CreateLight() 

End Function 

Function update_cub() 

v#=0.3 

If KeyDown(200) Then MoveEntity cub,0,0,v# 

If KeyDown(208) Then MoveEntity cub,0,0,-v# 

If KeyDown(203) Then TurnEntity cub,0,1,0 

If KeyDown(205) Then TurnEntity cub,0,-1,0 

End Function 

Function create_stolb() 

For i=1 To 6 

s.stolb=New stolb 

s\entity=CreateSphere() 

PositionEntity s\entity,Rand(-10,10),0,Rand(6,10) 

ScaleEntity s\entity,0.2,9,0.3 

EntityType s\entity,3 

Next 

Return True 

End Function 

create_world() 

create_stolb() 

Collisions(cubb,3,2,3) 

While Not KeyHit(1)=1 

update_cub() 

RenderWorld 

Flip 

Wend 

End