[NitE]

Graphics3D(1024,768,32,2)
SetBuffer(BackBuffer())
HidePointer()

Function Il2ShturmovikKamera(Entity,Camera)

EntityParent(Camera,Entity)

msx#=MouseXSpeed()*MouseSpeed
msy#=MouseYSpeed()*MouseSpeed
msz#=MouseZSpeed()*MouseSpeed/2

vecz#=EntityZ(Camera)-EntityZ(Entity)

MoveEntity(Camera,0,0,-vecz*msz)
TurnEntity(Entity,msy,-msx,0)

End Function

light=CreateLight()
camera=CreateCamera()
cube=CreateCube()

Global CamPivot=CreatePivot()
Global MouseSpeed#=0.5

PositionEntity(CamPivot,EntityX(cube,1),EntityY(cu be,1),EntityZ(cube,1))

MoveEntity camera,0,0,-20

Repeat

Il2ShturmovikKamera(CamPivot,camera)
MoveMouse(GraphicsWidth()/2,GraphicsHeight()/2)

UpdateWorld()
RenderWorld()

Flip()
Until KeyHit(1)
End