Graphics3D 640, 480

SetBuffer BackBuffer()

cube = CreateCube()

EntityType cube, 2

ScaleEntity cube, 10, 10, 10

camera = CreateCamera()

PositionEntity camera, 0, 40, -8

Global  mario=LoadMesh( "haus.3ds" )

ScaleEntity mario, 0.2, 0.2, 0.2

EntityType mario, 1





While Not KeyHit(1)

If KeyDown( 203 )=True Then x#=x#-0.30
If KeyDown( 205 )=True Then x#=x#+0.30
If KeyDown( 208 )=True Then y#=y#-0.30
If KeyDown( 200 )=True Then y#=y#+0.30
If KeyDown( 76 )=True Then z#=z#-0.10
If KeyDown( 79 )=True Then z#=z#+0.10
If KeyDown( 205 )=True Then TurnEntity cube,0,-1,0
If KeyDown( 203 )=True Then TurnEntity cube,0,1,0
If KeyDown( 208 )=True Then MoveEntity cube,0,0,-1
If KeyDown( 200 )=True Then MoveEntity cube,0,0,1
 
x#=EntityX(camera)
y#=EntityY(camera)
z#=EntityZ(camera)

Collisions 2, 1, 1, 2

WireFrame(0)

UpdateWorld

RenderWorld

Flip

Wend