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)