Мяф! M.A.Z.E, Игра посвящена котам! Вот так вам! Опции

[Undead]

http://undeadmonster.narod.ru
Как вам игра? (если звук не работает - забейте)

[Undead]

Bourn, сделаю. И разные графические режимы сделаю.

Кто-нибудь из прогеров, у меня проблема! Уже полтора часа не могу сделать идеально катящийся шарик.
Коды самого успешного варианта решения проблемы выкладываю сюда.

Graphics3D 800,600,32,1
SetBuffer BackBuffer()
cam=CreateCamera()
CameraZoom cam,1.5
AntiAlias 1
RotateEntity cam,-15,0,0
l1=CreateLight(1)
RotateEntity l1,15,0,0
LightColor l1,192,192,192

sphere2=CreatePivot()
PositionEntity sphere2,0,0,50
sphere=CreateSphere(24)
PositionEntity sphere,0,0,50

While Not KeyHit(1)
Cls
z=z+1
If Abs(xm#)<0.05 Then xm#=0
If xm#>0.03 Then xm#=xm#-0.01
If xm#<-0.03 Then xm#=xm#+0.01

If KeyDown(200) Then
If xm#<0.6 Then xm#=xm#+0.05
EndIf
If KeyDown(208) Then
If xm#>-0.6 Then xm#=xm#-0.05
EndIf
MoveEntity sphere2,0,xm#,0
If Abs(xr#)<0.5 Then xr#=0
If xr#>0.3 Then xr#=xr#-0.1
If xr#<-0.3 Then xr#=xr#+0.1
If KeyDown(203) Then
If xr#<3 Then xr#=xr#+0.5
EndIf
If KeyDown(205) Then
If xr#>-3 Then xr#=xr#-0.5
EndIf

TurnEntity sphere2,0,0,xr#
TurnEntity sphere,16*xm*Cos(EntityRoll(sphere2)),-16*xm#*Sin(EntityRoll(sphere2)),-16*xm#*Sin(EntityRoll(sphere))
PositionEntity sphere,EntityX#(sphere2),EntityY#(sphere2),EntityZ#(sphere2)
RenderWorld
Flip
Wend


Добавлено ([mergetime]1203427801[/mergetime]):
Прогеры, помогите со строкой TurnEntity sphere,16*xm*Cos(EntityRoll(sphere2)),-16*xm#*Sin(EntityRoll(sphere2)),-16*xm#*Sin(EntityRoll(sphere))
Буду очень благодарен.