Чё то у меня коллизия не работает гляньте - вроде я всё правильно сделал
[code]
Graphics3D 1024,768,32,1 ; Устанавливаем графику
SetBuffer BackBuffer() ; Активирум задний буффер
Global Planet2=LoadMesh("textures\Planet2.b3d")
Global Planet1=LoadMesh("textures\Planet1.b3d")
Channel=PlaySound(SpaceMusic)
Lit=CreateLight()
If PlayerShipNum=1
PlayerShip=LoadMesh("Textures\Ship1.b3d")
EndIf
If PlayerShipNum=2
PlayerShip=LoadMesh("Textures\Ship2.b3d")
EndIf
If PlayerShipNum=3
PlayerShip=LoadMesh("Textures\Ship3.b3d")
EndIf
If PlayerShipNum=4
PlayerShip=LoadMesh("Textures\Ship4.b3d")
EndIf
If PlayerShipNum=5
PlayerShip=LoadMesh("Textures\Ship5.b3d")
EndIf
If PlayerShipNum=6
PlayerShip=LoadMesh("Textures\Ship6.b3d")
EndIf
Global FontGame=LoadFont("System",24,True)
Global Cam=CreateCamera()
CameraRange Cam,1,1000000000
PositionEntity Planet1,5000,0,10000 ; Позиция Планены 1
PositionEntity Planet2,3000,0,5000 ; Позиция Планены 2
EntityType Planet2,TypePlanet
EntityType Planet1,TypePlanet
EntityRadius Planet1,10
EntityRadius Planet2,10
PositionEntity PlayerShip,PlayerX,PlayerY,PlayerZ
PositionEntity Cam,PlayerX,PlayerZ+2,PlayerY-50
EntityType PlayerShip,TypePlayer
EntityRadius PlayerShip,10
TurnEntity PlayerShip,0,90,0
EntityParent cam,PlayerShip,True
I PlanetNum =1
PositionEntity Cam,EntityX(PlayerShip),EntityY(PlayerShip),EntityZ(PlayerShip)
EndIf
sky=MakeSkyBox("Textures\skybox\")
ScaleEntity sky, 10000, 10000, 10000
PlanetNum=0
While Not KeyDown(1) ;Главный цикл
Collisions TypePlayer,TypePlayer,2,2
UpdateWorld
dis1= Sqr(dx1*dx1 + dy1*dy1 + dz1*dz1)
dis2= Sqr(dx2*dx2 + dy2*dy2 + dz2*dz2)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
RenderWorld
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Flip
PLanetNum=0
Wend ;Конец цикла 3D
End
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;