Graphics3D 1024,768,32,2

Global camera=CreateCamera()
light=CreateLight(2)
camlight=CreateLight(2,camera)
EntityType camera,2

HidePointer

WireFrame 0

CreateGameCube(0,0,0)

Repeat
   EntityBox camera,EntityX(camera),EntityY(camera),EntityZ(camera),1,1,1
   If MoveMouseCount=30 Then MoveMouse 512,384:MoveMouseCount=0 Else MoveMouseCount=MoveMouseCount+1
   Movement

   Collisions 2,1,3,1
   countcollisions(camera)
   UpdateWorld
   RenderWorld
   Flip
If KeyHit(1) Then Exit
Forever

Function Movement()
  mspeedx=MouseXSpeed()
  mspeedy=MouseYSpeed()
  msensivityX#=mspeedx/2
  msensivityY#=mspeedy/2
If mspeedy<>0 Then TurnEntity camera,msensivityy,0 ,0
If mspeedx<>0 Then TurnEntity camera,0,-msensivityX,0
  If KeyDown(54) Then movespeed#=0.3 Else movespeed=1
  If KeyDown(205)=True Then MoveEntity camera, movespeed, 0, 0
  If KeyDown(203)=True Then MoveEntity camera,-movespeed, 0, 0
  If KeyDown(201)=True Then MoveEntity camera, 0, movespeed, 0
  If KeyDown(209)=True Then MoveEntity camera, 0,-movespeed, 0
  If KeyDown(208)=True Then MoveEntity camera, 0, 0,-movespeed
  If KeyDown(200)=True Then MoveEntity camera, 0, 0, movespeed
End Function

Function CreateGameCube(Posx,Posy,Posz)
Texture=LoadTexture("TexturS.bmp",4)
W1=CreateCube()
EntityTexture W1,texture
ScaleEntity W1,20,20,1
PositionEntity W1,0+PosX,0+PosY,0+PosZ
EntityType W1,1

W2=CreateCube()
EntityTexture W2,texture
ScaleEntity W2,1,20,20
PositionEntity W2,21+PosX,0+PosY,21+PosZ
EntityType W2,1
End Function