Sorry your browser is not supported!

Sync On
Sync Rate 30

rem grey fog & background
Fog on
Fog distance 4000
Fog color RGB(128,128,128)
Color Backdrop RGB(128,128,128)

Rem make a fairly big matrix
Make matrix 1,5000,5000,20,20

Rem load textures
Load image "C:\Program Files\Dark Basic Software\Dark Basic Professional\Media\Textures\grass_t.bmp",1
Load image "C:\Program Files\Dark Basic Software\Dark Basic Professional\Media\Textures\lead.bmp",2

rem put grass texture on matrix
Prepare matrix texture 1,1,2,2

Rem put random terrain on the matrix
randomize matrix 1,50

rem trying to put a couple of objects on the matrix
Rem Make cube
Make object cube 10,100
position object 10,600,25,600
Texture object 10,2
rem make second cube next to first one
make object cube 11,100
position object 11,700,50,600
texture object 11,2

rem setup camera
set camera range 1,10000
autocam off

Rem 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()
   cameraAngleX# = Camera angle X()

   Rem Control input for camera
If inkey$()="w" then Move camera 10
If inkey$()="s" then Move camera -10
   If inkey$()="q" then Yrotate Camera Wrapvalue(CameraAngleY#-5)
   If inkey$()="e" then Yrotate Camera Wrapvalue(CameraAngleY#+5)
   if upkey()=1 then Xrotate Camera WrapValue(CameraAngleX#-5)
   if downkey()=1 then Xrotate camera WrapValue(CameraAngleX#+5)
rem can't do input from more than 1 key at a time...
   X# = Camera position X()
   Z# = Camera position Z()
   Position Camera X#,160,Z#


rem if inkey$()="w" then pitch camera up 1
rem if inkey$()="s" then pitch camera down 1


   Rem Refresh Screen
   Sync
Loop

`store x and z camera positions in variables
pX#=camera position x(0)
pZ#=camera position z(0)

`get the height of the matrix and increase it by ten so the camera looks like it is 'above' the matrix
YPos#=get ground height(1,pX#,pZ#)+10

`position the camera
position camera pX#,YPos#,pZ#

Do
Text 10,10,Str$(ScanCode())
Loop

Sync On
Sync Rate 30

rem fog & background
Fog on
Fog distance 4000
Fog color RGB(128,128,128)
Color Backdrop RGB(128,128,128)

Rem make matrix
Make matrix 1,5000,5000,25,25

Rem texture matrix
Load image "C:Program FilesDark Basic SoftwareDark Basic 

ProfessionalMediaTexturesgrass_t.bmp",1
Load image "C:Program FilesDark Basic SoftwareDark Basic 

ProfessionalMediaTextureslead.bmp",2
Prepare matrix texture 1,1,2,2

Rem Randomize the matrix
randomize matrix 1,50

rem trying to put objects on the matrix
Rem Make cube
Make object cube 10,100
position object 10,600,25,600
Texture object 10,2
rem make second cube next to first one
make object cube 11,100
position object 11,700,50,600
texture object 11,2

rem setup camera
set camera range 1,10000
autocam off

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 Control input for camera
If keystate(17) then Move camera 10
If keystate(31) then Move camera -10
   If keystate(16) then turn Camera left 5
   If keystate(18) then turn camera right 5
   if upkey()=1 then pitch camera up 5
   if downkey()=1 then pitch camera down 5

pX#=camera position x()
pZ#=camera position z()
YPos#=get ground height(1,pX#,pZ#)+15
position camera pX#,YPos#,pZ#


   Rem Refresh Screen
   Sync
Loop