Показать сообщение отдельно
Старый 29.08.2007, 10:43   #2
Maestro
ПроЭктировщик
 
Регистрация: 25.07.2007
Сообщений: 151
Написано 0 полезных сообщений
(для 0 пользователей)
Re: Новичёк не понимает... Помогите.

Graphics3D 800,600,32,2
SetBuffer BackBuffer()

Global moveZ#

    ; create car
    car = CreateCube()

    ; create camera
    campivot = CreatePivot()
    cam = CreateCamera(campivot)
    PositionEntity cam,0,120,0
    PointEntity  cam,campivot

    ;create light
    lit = CreateLight(campivot)
    PositionEntity lit,0,60,0
    PointEntity lit,campivot

Repeat

MoveEntity car,0,0,moveZ#

If KeyDown(17) Then
    moveZ = moveZ + .02
Else
    moveZ = moveZ - .01
EndIf
If moveZ < 0 Then MoveZ = 0
If KeyDown(30) Then TurnEntity car,0,2,0
If KeyDown(32) Then TurnEntity car,0,-2,0

UpdateWorld()
RenderWorld()

Flip 
Until KeyHit(1)
(Offline)
 
Ответить с цитированием