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