Sorry your browser is not supported!

Sync On
Sync Rate 30

Rem make matrix
Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "grass09.bmp",1
Prepare matrix texture 1,1,2,2

Rem Randomize the matrix
randomize matrix 1,250

Rem Place random texture on each matrix tile
For x = 0 to 19
	For z = 0 to 19
		t = rnd(3)+1
		Set Matrix Tile 1,x,z,t
	Next z
Next x

Rem Update the changes to the matrix
update matrix 1

Rem Main loop
Do
	Rem Store Object angle
	CameraAngleY# = Camera angle Y()
	
	Rem Control input for camera
	If Upkey()=1 then Move camera 10
	If Leftkey()=1 then Yrotate Camera Wrapvalue(CameraAngleY#-5)
	If Rightkey()=1 then Yrotate Camera Wrapvalue(CameraAngleY#+5)
	
	If Spacekey()=1
		Fill matrix 1,Rnd(50),Rnd(3)+1
		randomize matrix 1,250
	Endif
	
	X# = Camera position X()
	Z# = Camera position Z()
	Position Camera X#,250,Z#
	
	Rem Refresh Screen
	Sync
Loop

Sync On 
Sync Rate 30 
Hide Mouse 
autocam off 

Backdrop on 
Set camera range 1,5000 

Fog on 
Fog distance 4000 
Fog color RGB(128,128,128) 
Color Backdrop RGB(128,128,128) 

Rem make matrix 
Make matrix 1,10000,10000,20,20 

Rem texture matrix 
Load image "grass09.bmp",1 
Prepare matrix texture 1,1,1,1 
Fill matrix 1,0,1 

rem Randomize the matrix 
randomize matrix 1,125 

rem Load object 
Load object "idle.x",2 
Loop object 2

position object 2,5000,Get Ground Height(1,5000,5500),5500 

Rem Main loop 
Do 
	set cursor 0,0 
	print X# 
	print Y# 
	print Z# 
	
	Rem  Store Object angle 
	CameraAngleY# = Camera angle Y() 
	
	Rem  Control input for camera 
	If Upkey()=1 
		XTest# = Newxvalue(X#,CameraAngleY#,20) 
		ZTest# = Newzvalue(Z#,CameraAngleY#,20) 
		If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
			Move camera 10 
		Endif 
	Endif 
	
	If Leftkey()=1 then Yrotate Camera Wrapvalue(CameraAngleY#-5) 
	If Rightkey()=1 then Yrotate Camera Wrapvalue(CameraAngleY#+5) 
	
	X# = Camera position X()
	Z# = Camera position Z()
	Y# = Get ground height(1,X#,Z#) 
	Position Camera X#,Y#+35,Z# 
	
	Rem Refresh Screen 
	Sync 
Loop