1.

2.

If KeyDown(57) z#=z#+.1
Delay 100
MoveEntity stealth,0,0,z#
If z#>=3 Then KeyDown(57)=False

Добавлено (13.11.2009, 14:54)
---------------------------------------------
всётаки нет, не мой не Ваш способы не работают правильно.
мой способ:
разгоняясь так как мне необходимо, проходя z3 объект разгоняется дальше.
Ваш способ:
разгоняется так как мне необходимо, но дойдя до придела если повторно нажать клавишу разгона, объкт приобретает скорость равную начисляемой при разгоне.
Всё же спасибо Вам за попытку помочь, буду пробовать дальше) Удачи Вам.

Graphics3D 640,480,128,0
SetBuffer BackBuffer()

Global rootx#,rootz#

lit=CreateLight()
pln=CreatePlane()
EntityColor pln,30,200,16

stealth=LoadMesh("models/stealth.3ds")
ScaleMesh stealth,.05,.05,.05
PositionEntity stealth,0,5,10
RotateMesh stealth,0,180,0

Global cam=CreateCamera(stealth)
PositionEntity cam,0,13,-30
RotateEntity cam,20,0,0

cub=CreateCube()
PositionEntity cub,0,0,300
ScaleMesh cub,10,10,10

Repeat
; nazatie A
If KeyDown(30) rootz#=rootz#+3
Delay 30
RotateEntity stealth,0,0,rootz#

; nazatie W
If KeyDown(17) rootx#=rootx#-1
Delay 10
RotateEntity stealth,rootx#,0,0

; nazatie D
If KeyDown(32) rootz#=rootz#-3
Delay 30
RotateEntity stealth,0,0,rootz#

; razgon samolota po narastauysei do 10
If KeyDown(57) z#=z#+.3
If z#>=10 Then z#=z#-.3
Delay 10
MoveEntity stealth,0,0,z#

UpdateWorld
RenderWorld
Text 100,30, "угол X:" +rootx#,True,True
Text 100,20, "угол Z:" +rootz#,True,True
Text 100,10, "Скорость:" +z#,True,True

Flip
Until KeyHit(1)
End

когда я пишу этот код, то нажатие клавиши А, D работает нормально,а нажатие клавиши W, вообще не работает. посмотрите пожалуйста и исправте меня. заранее спасибо.

Во вторых временно удали привязку объекта от камеры Global cam=CreateCamera(stealth) замени на
Global cam=CreateCamera()

В третьих исправь цикл