Показать сообщение отдельно
Старый 18.07.2011, 17:25   #1
Clip
Оператор ЭВМ
 
Регистрация: 17.04.2011
Сообщений: 45
Написано 7 полезных сообщений
(для 9 пользователей)
Плохо Не работает движение камеры

Что - то не пойму. Камера отказывается двигаться при нажатии клавишь
Graphics3D 640,480
SetBuffer BackBuffer
()

AppTitle "Project"
cam=CreateCamera()
PositionEntity cam,0,5,0

lit
=CreateLight()

pln=CreatePlane()
tex=LoadTexture("picture.bmp")

sp=CreateSphere()
PositionEntity sp,0,5,5

EntityTexture pln
,tex

Include "health.bb"

While Not KeyDown(1)

If 
KeyDown(17Then MoveEntity cam,0,0,1
If KeyDown(31Then MoveEntity cam,0,0,-1
If KeyDown(30Then MoveEntity cam,0,-1,0
If KeyDown(32Then MoveEntity cam,0,1,0

Wend

End 
(Offline)
 
Ответить с цитированием