Graphics3D 800,600,0,1
SetBuffer BackBuffer ()
Global cam=CreateCamera()
PositionEntity cam,300,50,300
CameraRange cam,1,1000000

AmbientLight 255,255,255		

terrain=LoadTerrain(\"height.bmp\")
ScaleEntity terrain,5,100,5
PositionEntity terrain,0,5,0
tex=LoadTexture(\"tex1.bmp\")
ScaleTexture tex,3,3
EntityTexture terrain,tex
TerrainShading terrain,1
EntityType terrain,3

Const v% =-1
Type TEntity
	Field entity%
	Field x#
	Field y#
	Field z#
End Type 

tree_sprite2=LoadSprite(\"xxx.png\",2) 

For h = 1 To 1
CreateTEntity(tree_sprite2)
Next

Function CreateTEntity(entity%)
Local c#,d#
e.TEntity = New TEntity
e\entity = CopyEntity(entity)
HandleSprite e\entity,0,-1
ScaleSprite e\entity,8,16
c = Rnd(0,2000)
d = Rnd(0,2000)
e\x = c
e\y = 500
e\z = d
PositionEntity e\entity,e\x,e\y,e\z
SpriteViewMode e\entity,3
EntityAutoFade e\entity,10,65000
ScaleEntity e\entity,50,50,50
EntityType e\entity,11
End Function 

Collisions 11,3,1,1

Repeat 

For e.TEntity = Each TEntity
	PositionEntity e\entity,e\x,e\y,e\z
	e\y=e\y+v
Next 	

If KeyDown(17) Then MoveEntity cam,0,0,5
If KeyDown(31) Then MoveEntity cam,0,0,-1
If KeyDown(32) Then MoveEntity cam,1,0,0
If KeyDown(30) Then MoveEntity cam,-1,0,0
		
	   mxs= MouseXSpeed()
		mys = MouseYSpeed()
		dest_xang# = dest_xang + mys
		dest_yang# = dest_yang - mxs
		xang# = xang#+((dest_xang#-xang#)/5)		
		yang# = yang#+((dest_yang#-yang#)/5)

		RotateEntity cam, xang#, yang#, 0

MoveMouse 1024/2,768/2


RenderWorld : UpdateWorld 

Flip 
Until KeyHit(1)
End