f1ll007 | Date: Среда, 07.07.2010, 21:36 | Message # 1 |
Рядовой
Группа: Пользователи
Сообщений: 1
Статус: Offline
| посмотрел на одном сайте учебник с такой игрой, решил проверить себя и сделал все по-своему, но кубик не останавливается при столкновении со сферами.HELP ME вот код программы: 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
|
|
| |