Graphics3D 640,480
SetBuffer BackBuffer()

camera=CreateCamera()
PositionEntity camera,0,10,0
TurnEntity camera,90,0,0

light=CreateLight()
RotateEntity light,90,0,0

; Create terrain
;terrain=CreateTerrain(128)
terrain=LoadTerrain( "height_map.bmp" )
TerrainDetail terrain,2000,True
ScaleEntity terrain,0.2,3,0.2

; Texture terrain
grass_tex=LoadTexture( "mossyground.bmp" )
ScaleTexture grass_tex,75,75
EntityTexture terrain,grass_tex

While Not KeyDown( 1 )

If KeyDown( 208)=True Then MoveEntity camera,0,-0.5 ,0
If KeyDown( 200)=True Then MoveEntity camera,0,0.5 ,0

If KeyDown( 74 )=True Then MoveEntity camera,0,0,-0.5
If KeyDown( 78)=True Then MoveEntity camera,0,0,0.5

If KeyDown( 203 )=True Then MoveEntity camera,-0.5,0,0
If KeyDown( 205 )=True Then MoveEntity camera,0.5,0,0

If EntityX(camera) < 1
  PositionEntity camera,1,EntityY(camera),EntityZ(camera)
EndIf

If EntityX(camera) > 50
  PositionEntity camera,50,EntityY(camera),EntityZ(camera)
EndIf

If EntityY(camera) < 10
  PositionEntity camera,EntityX(camera),10,EntityZ(camera)
EndIf

If EntityY(camera) > 50
  PositionEntity camera,EntityX(camera),50,EntityZ(camera)
EndIf

If EntityZ(camera) < 1
  PositionEntity camera,EntityX(camera),EntityY(camera),1
EndIf

If EntityZ(camera) > 50
  PositionEntity camera,EntityX(camera),EntityY(camera),50
EndIf

; Load mesh
gargoyle=LoadMesh("oildrum.3ds")


;PositionEntity gargoyle,5,1,20
ScaleEntity gargoyle,0.015,0.015,0.015

For z=0 To 10 Step 1

newgarg=CopyEntity(gargoyle)
PositionEntity newgarg,5+(z*1),5,20

Next



RenderWorld

Text 0,0,"Use cursor keys to move about the terrain"

Flip

Wend

End