[Crystal]

GomZik
Надо было весь код выложить чёб все поняли.
я ваще не пойму нах там пивоты.

короче щас тебе пример коллизии и гравитации напишу:

Graphics3D 800, 600, 32
SetBuffer BackBuffer()
HidePointer

Global Red=100
Global Green=150
Global Blue=200

Global User
Global Zemla
Global G#=1
Global l = CreateLight()

Const TypeUser=1,TypeZemla=2,Gravitaciya#=1

User = CreateSphere(10)
ScaleEntity User,1,1,1
PositionEntity User,0,200,0
EntityType User,TypeUser
EntityColor User,90,10,10
EntityRadius User,1


Camera = CreateCamera(User)
PositionEntity Camera,0,30,-20
RotateEntity Camera,35,0,0
CameraClsColor Camera,red,green,Blue


Zemla = CreatePlane()
PositionEntity Zemla,0,-20,0
EntityType Zemla,TypeZemla
EntityColor Zemla,100,200,100

Collisions TypeUser,TypeZemla,2,3

While Not KeyDown(1)

If G#=1 Then TranslateEntity User,0,-Gravitaciya#,0

UpdateWorld
RenderWorld
Flip
Wend
End