; setting graphics mode
Graphics3D 1280, 1024, 32, 1

; creating objects...

; {player}
Type playerType
  Field x#, y#, z#
  Field width#, height#, length#
  Field rotate
  Field turning
  Field model
End Type
player.playerType=New playerType
player\x#=0 : player\y#=0 : player\z#=0
player\model=CreateCube()

; floor
plane=CreatePlane()
PositionEntity plane, 0, -1, 0
tex=LoadTexture("\face.png")
EntityTexture plane, tex

; {camera}
camera=CreateCamera()
PositionEntity camera, 0, 0, -5
RotateEntity camera, 20, 0, 0

; {light}
light=CreateLight()

; main cycle
Repeat

player\turning=False

If KeyDown(208) Then
  player\z#=player\z#-0.3
  If KeyDown(203) Then
   player\x#=player\x#-0.3
   If player\rotate>-45 Then
    player\rotate=player\rotate-5
   EndIf
   player\turning=True
  ElseIf KeyDown(205) Then
   player\x#=player\x#+0.3
   If player\rotate<45 Then
    player\rotate=player\rotate+5
   EndIf
   player\turning=True
  EndIf
ElseIf KeyDown(200) Then
  player\z#=player\z#+0.3
  If KeyDown(203) Then
   player\x#=player\x#-0.3
   If player\rotate<45 Then
    player\rotate=player\rotate+5
   EndIf
   player\turning=True
  ElseIf KeyDown(205) Then
   player\x#=player\x#+0.3
   If player\rotate>-45 Then
    player\rotate=player\rotate-5
   EndIf
   player\turning=True
  EndIf
ElseIf KeyDown(203) Then
  player\x#=player\x#-0.3
ElseIf KeyDown(205) Then
  player\x#=player\x#+0.3
EndIf

; if we should, we normilize rotate of cube
If Not player\turning Then
  If player\rotate>0 Then
   player\rotate=player\rotate-5
  ElseIf player\rotate<0 Then
   player\rotate=player\rotate+5
  EndIf
EndIf

; changing parametrs of models
PositionEntity player\model, player\x#, player\y#, player\z#
RotateEntity player\model, 0, player\rotate, 0
; camera's position...
PositionEntity camera, player\x#, player\y#+7, player\z#-10

; update world!
UpdateWorld : RenderWorld : Flip

; wait...
Delay 25

Until KeyHit(1)

; game finishes
End