Sorry your browser is not supported!

set display mode 1280,1024,32
sync on:sync rate 30

c_posX#=500
c_posY#=50
c_posZ#=500

   make matrix 1,1500,1500,30,30
gosub setup_color
gosub setup_water
gosub setup_height
Normalise(1)

fog on
fog color rgb(181,219,221)
fog distance 1000
color backdrop rgb(181,219,221)


do
   set cursor 0,0 : print c_posY#

   if spacekey()=1 and sp=0 then c_rout=(c_rout=0):sp=1
   if spacekey()=0 then sp=0

   if c_rout = 0 then gosub c_routine0
   if c_rout = 1 then gosub c_routine1

   if c_posY# > -10 and switch=0 then set gamma 255,255,255:switch=1
   if c_posY# < -10 and switch=1 then set gamma 100,100,150:switch=0

   rotate camera wrapvalue(c_angX#),wrapvalue(c_angY#),wrapvalue(c_angZ#)
   position camera c_posX#,c_posY#,c_posZ#
sync
loop

setup_water:
   ink rgb(100,100,150),0:box 0,0,40,40
   get image 2,0,0,41,41

   make matrix 2,1500,1500,1,1
   prepare matrix texture 2,2,1,1
   position matrix 2,0,-10,0
   ghost matrix on 2
return

setup_height:
   for x = 0 to 30
      for z = 0 to 30
         read height
         set matrix height 1,x,z,height * 25
      next z
   next x
   update matrix 1

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0,-1,-1,-1, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0,-1,-2,-2,-2,-2,-2,-2,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
return

setup_color:
   ink rgb(142,171,135),0:box 0,0,40,40
   ink rgb(122,151,115),0:line 0,0,40,0:line 0,0,0,40:line 40,40,40,0:line 40,40,0,40
   get image 1,0,0,41,41
   prepare matrix texture 1,1,1,1
return

c_routine0:
   if mouseclick()=1
      c_posm# = c_posm# + 0 - mousemoveY() / 2
   endif
   if mouseclick()=2
      c_angYm# = c_angYm# + mousemoveX() / 5
      c_angXm# = c_angXm# + mousemoveY() / 5
   endif
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.5
   c_angXm# = c_angXm# * 0.5

   c_posX# = newXvalue(c_posX#,c_angY#,c_posm#)
   c_posY# = newYvalue(c_posY#,c_angX#,c_posm#)
   c_posZ# = newZvalue(c_posZ#,c_angY#,c_posm#)
   c_posm# = c_posm# * 0.7
return

c_routine1:
   c_angYm# = c_angYm# + mousemoveX() / 5
   c_angXm# = c_angXm# + mousemoveY() / 5
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.7
   c_angXm# = c_angXm# * 0.5

   c_posX# = newXvalue(c_posX#,c_angY#,((upkey()=1)-(downkey()=1))*5)
   c_posZ# = newZvalue(c_posZ#,c_angY#,((upkey()=1)-(downkey()=1))*5)
   c_velY# = c_velY# + 3
   c_posY# = c_posY# - c_velY#
   if c_posY# < get ground height(1,c_posX#,c_posZ#) + 10 then c_posY# = get ground height(1,c_posX#,c_posZ#) + 10 : c_velY# = 0
return

Function Normalise(MatNum)
  Rem By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
  For z=1 to 30
    For x=1 to 30
      h8#=get matrix height(MatNum,x,z-1)*5
      h4#=get matrix height(MatNum,x-1,z)*5
      h#=get matrix height(MatNum,x,z)*5
      h2#=get matrix height(MatNum,x,z)*5
      x1#=(x-1)*25.0
      y1#=h#
      x2#=(x+0)*25.0
      y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)
      z1#=(z-1)*25.0
      y1#=h2#
      z2#=(z+0)*25.0
      y2#=h8#
      dz#=z2#-z1#
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)
      Set matrix normal MatNum,x,z,nx#,ny#,nz#
    next x
  next z
  Update Matrix MatNum
EndFunction

set display mode 1280,1024,32
sync on:sync rate 30
hide mouse

gosub setup_crosshair

c_posX#=500
c_posY#=50
c_posZ#=500

   make matrix 1,1500,1500,30,30
gosub setup_color
gosub setup_water
gosub setup_height
Normalise(1)

fog on
fog color rgb(181,219,221)
fog distance 1000
color backdrop rgb(181,219,221)


do

   if spacekey()=1 and sp=0
      c_rout=(c_rout=0)
      sp=1
      if c_rout=1
         hide object 1
      else
         show object 1
      endif
   endif
   if spacekey()=0 then sp=0

   if c_rout = 0 then gosub c_routine0
   if c_rout = 1 then gosub c_routine1

   if c_posY# > -10 and switch=0 then set gamma 255,255,255:switch=1
   if c_posY# < -10 and switch=1 then set gamma 100,100,150:switch=0

   rotate camera wrapvalue(c_angX#),wrapvalue(c_angY#),wrapvalue(c_angZ#)
   position camera c_posX#,c_posY#,c_posZ#
sync
loop

`the water in the map, need to make it more blue
setup_water:
   ink rgb(100,100,150),0:box 0,0,40,40
   get image 2,0,0,41,41

   make matrix 2,1500,1500,1,1
   prepare matrix texture 2,2,1,1
   position matrix 2,0,-10,0
   ghost matrix on 2
return

`a heightmap, every number is multiplied by 25, giving a stylisch feel to the map
setup_height:
   for x = 0 to 30
      for z = 0 to 30
         read height
         set matrix height 1,x,z,height * 25
      next z
   next x
   update matrix 1

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0,-1,-1,-1, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0,-1,-1,-1,-1,-1, 0, 0, 0, 0,-2, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0,-1, 0, 1, 2, 2, 2, 1, 1, 1, 0, 0,-1,-1, 0, 0,-1,-1, 0, 0,-2,-3,-2,-2, 0, 0

   data  0, 0, 0, 0, 0, 0,-1,-1, 0, 2, 2, 2, 2, 1, 1, 1, 0, 0, 0, 0, 0,-1,-1,-1,-2,-3,-3,-2,-2, 0, 0
   data  0, 0, 0, 0, 0, 0,-1,-1, 0, 1, 2, 2, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0,-2,-3,-4,-4,-3,-2,-1, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-2, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-1, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-1, 0

   data  0, 0, 0, 0, 0, 0, 0,-1,-2,-2,-2,-2,-2,-2,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-4,-3, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0,-3,-3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1,-1,-1, 1, 1, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1,-1,-1, 1, 1, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 0, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
return

`the block texture of the map
setup_color:
   ink rgb(142,171,135),0:box 0,0,40,40
   ink rgb(122,151,115),0:line 0,0,40,0:line 0,0,0,40:line 40,40,40,0:line 40,40,0,40
   get image 1,0,0,41,41
   prepare matrix texture 1,1,1,1
return

setup_crosshair:
   ink rgb(255,255,255),0
      line 14, 1,14, 9:line 15, 3,15,11
      line 28,14,20,14:line 26,15,18,15
      line 15,28,15,20:line 14,26,14,18
      line  1,15, 9,15:line  3,14,11,14
      get image 3,0,0,30,30
   make object Plain 1,1,1
   position object 1,0,0,20
   texture object 1,3
   lock object on 1
   ghost object on 1
return

`camera routine 0: just like in a first person shooter; w,a,s,d = movement; shift = crouching and jumping(on release)
c_routine0:
   c_angYm# = c_angYm# + mousemoveX() / 5
   c_angXm# = c_angXm# + (mousemoveY() * (1-rotlimit)) / 5
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.7
   c_angXm# = c_angXm# * 0.5
   if c_angX#<-80 or c_angX#>80
      rotlimit=1
   endif
   if rotlimit=1
      if c_angX#<0 and mousemoveY()>0 then rotlimit=0
      if c_angX#>0 and mousemoveY()<0 then rotlimit=0
   endif

   c_posX# = newXvalue(c_posX#,c_angY#   ,(keystate(17)-keystate(31))*5/(k42+1)/((c_posY#<-10)+1))
   c_posX# = newXvalue(c_posX#,c_angY#-90,(keystate(30)-keystate(32))*5/(k42+1)/((c_posY#<-10)+1))
   c_posZ# = newZvalue(c_posZ#,c_angY#   ,(keystate(17)-keystate(31))*5/(k42+1)/((c_posY#<-10)+1))
   c_posZ# = newZvalue(c_posZ#,c_angY#-90,(keystate(30)-keystate(32))*5/(k42+1)/((c_posY#<-10)+1))
   if c_posX#<20 then c_posX#=20
   if c_posX#>1480 then c_posX#=1480
   if c_posZ#<20 then c_posZ#=20
   if c_posZ#>1480 then c_posZ#=1480

   c_velY# = c_velY# + 2
   c_posY# = c_posY# - c_velY#
   ggg#=get ground height(1,c_posX#,c_posZ#)
   if c_posY# <ggg#  + 10/(k42+1) then c_posY# = ggg# + 10/(k42+1) : c_velY# = 0
   if k42=1 and keystate(42)=0 and c_posY# = ggg# + 10/(k42+1) then c_velY#=-10
   k42=keystate(42)
return

`camera routine 1: left and right buttons control the camera
c_routine1:
   if mouseclick()=1
      c_posm# = c_posm# + 0 - mousemoveY() / 2
   endif
   if mouseclick()=2
      c_angYm# = c_angYm# + mousemoveX() / 5
      c_angXm# = c_angXm# + mousemoveY() / 5
   endif
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.5
   c_angXm# = c_angXm# * 0.5

   c_posX# = newXvalue(c_posX#,c_angY#,c_posm#)
   c_posY# = newYvalue(c_posY#,c_angX#,c_posm#)
   c_posZ# = newZvalue(c_posZ#,c_angY#,c_posm#)
   c_posm# = c_posm# * 0.7
return

`By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
Function Normalise(MatNum)
  For z=1 to 30
    For x=1 to 30
      h8#=get matrix height(MatNum,x,z-1)*5:`*5 added for even more depth
      h4#=get matrix height(MatNum,x-1,z)*5
      h#=get matrix height(MatNum,x,z)*5
      h2#=get matrix height(MatNum,x,z)*5
      x1#=(x-1)*25.0
      y1#=h#
      x2#=(x+0)*25.0
      y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)
      z1#=(z-1)*25.0
      y1#=h2#
      z2#=(z+0)*25.0
      y2#=h8#
      dz#=z2#-z1#
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)
      Set matrix normal MatNum,x,z,nx#,ny#,nz#
    next x
  next z
  Update Matrix MatNum
EndFunction

set display mode 1280,1024,32
sync on:sync rate 30
hide mouse

gosub setup_crosshair

c_posX#=500
c_posY#=50
c_posZ#=500

   make matrix 1,1500,1500,30,30
gosub setup_color
gosub setup_water
gosub setup_height
Normalise(1)

fog on
fog color rgb(181,219,221)
fog distance 1000
color backdrop rgb(181,219,221)


do

   if spacekey()=1 and sp=0
      c_rout=(c_rout=0)
      sp=1
      if c_rout=1
         hide object 1
      else
         show object 1
      endif
   endif
   if spacekey()=0 then sp=0

   if c_rout = 0 then gosub c_routine0
   if c_rout = 1 then gosub c_routine1

   if c_posY# > -10 and switch=0 then switch=1 : set gamma 255,255,255 : buoy=0
   if c_posY# < -10
     if switch=1 then switch=0 : set gamma 100,100,150
     wave=wrapvalue(wave+1)
     buoy=abs(c_posy#)+sin(wave)*2
   endif

   paste image 3,screen width()/2-15,screen height()/2-15,0 : `paste crosshair

   rotate camera wrapvalue(c_angX#),wrapvalue(c_angY#),wrapvalue(c_angZ#)
   position camera c_posX#,c_posY#+buoy,c_posZ#
sync
loop

`the water in the map, need to make it more blue
setup_water:
   ink rgb(100,100,150),0:box 0,0,40,40
   get image 2,0,0,41,41

   make matrix 2,1500,1500,1,1
   prepare matrix texture 2,2,1,1
   position matrix 2,0,-10,0
   ghost matrix on 2
return

`a heightmap, every number is multiplied by 25, giving a stylisch feel to the map
setup_height:
   for x = 0 to 30
      for z = 0 to 30
         read height
         set matrix height 1,x,z,height * 25
      next z
   next x
   update matrix 1

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0,-1,-1,-1, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0,-1,-1,-1,-1,-1, 0, 0, 0, 0,-2, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0,-1, 0, 1, 2, 2, 2, 1, 1, 1, 0, 0,-1,-1, 0, 0,-1,-1, 0, 0,-2,-3,-2,-2, 0, 0

   data  0, 0, 0, 0, 0, 0,-1,-1, 0, 2, 2, 2, 2, 1, 1, 1, 0, 0, 0, 0, 0,-1,-1,-1,-2,-3,-3,-2,-2, 0, 0
   data  0, 0, 0, 0, 0, 0,-1,-1, 0, 1, 2, 2, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0,-2,-3,-4,-4,-3,-2,-1, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-2, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-1, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-1, 0

   data  0, 0, 0, 0, 0, 0, 0,-1,-2,-2,-2,-2,-2,-2,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-4,-3, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0,-3,-3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1,-1,-1, 1, 1, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1,-1,-1, 1, 1, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 0, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
return

`the block texture of the map
setup_color:
   ink rgb(142,171,135),0:box 0,0,40,40
   ink rgb(122,151,115),0:line 0,0,40,0:line 0,0,0,40:line 40,40,40,0:line 40,40,0,40
   get image 1,0,0,41,41
   prepare matrix texture 1,1,1,1
return

setup_crosshair:
   ink rgb(255,255,255),0
   line 14, 1,14, 9:line 15, 3,15,11
   line 28,14,20,14:line 26,15,18,15
   line 15,28,15,20:line 14,26,14,18
   line  1,15, 9,15:line  3,14,11,14
   get image 3,0,0,30,30
return

`camera routine 0: just like in a first person shooter; w,a,s,d = movement; shift = crouching and jumping(on release)
c_routine0:
   c_angYm# = c_angYm# + mousemoveX() / 5
   c_angXm# = c_angXm# + (mousemoveY() * (1-rotlimit)) / 5
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.7
   c_angXm# = c_angXm# * 0.5
   if c_angX#<-80 or c_angX#>80
      rotlimit=1
   endif
   if rotlimit=1
      if c_angX#<0 and mousemoveY()>0 then rotlimit=0
      if c_angX#>0 and mousemoveY()<0 then rotlimit=0
   endif

   c_posX# = newXvalue(c_posX#,c_angY#   ,(keystate(17)-keystate(31))*5/(k42+1)/((c_posY#<-10)+1))
   c_posX# = newXvalue(c_posX#,c_angY#-90,(keystate(30)-keystate(32))*5/(k42+1)/((c_posY#<-10)+1))
   c_posZ# = newZvalue(c_posZ#,c_angY#   ,(keystate(17)-keystate(31))*5/(k42+1)/((c_posY#<-10)+1))
   c_posZ# = newZvalue(c_posZ#,c_angY#-90,(keystate(30)-keystate(32))*5/(k42+1)/((c_posY#<-10)+1))
   if c_posX#<20 then c_posX#=20
   if c_posX#>1480 then c_posX#=1480
   if c_posZ#<20 then c_posZ#=20
   if c_posZ#>1480 then c_posZ#=1480

   c_velY# = c_velY# + 2
   c_posY# = c_posY# - c_velY#
   ggg#=get ground height(1,c_posX#,c_posZ#)
   if c_posY# <ggg#  + 10/(k42+1) then c_posY# = ggg# + 10/(k42+1) : c_velY# = 0
   if k42=1 and keystate(42)=0 and c_posY# = ggg# + 10/(k42+1) then c_velY#=-10
   k42=keystate(42)
return

`camera routine 1: left and right buttons control the camera
c_routine1:
   if mouseclick()=1
      c_posm# = c_posm# + 0 - mousemoveY() / 2
   endif
   if mouseclick()=2
      c_angYm# = c_angYm# + mousemoveX() / 5
      c_angXm# = c_angXm# + mousemoveY() / 5
   endif
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.5
   c_angXm# = c_angXm# * 0.5

   c_posX# = newXvalue(c_posX#,c_angY#,c_posm#)
   c_posY# = newYvalue(c_posY#,c_angX#,c_posm#)
   c_posZ# = newZvalue(c_posZ#,c_angY#,c_posm#)
   c_posm# = c_posm# * 0.7
return

`By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
Function Normalise(MatNum)
  For z=1 to 30
    For x=1 to 30
      h8#=get matrix height(MatNum,x,z-1)*5:`*5 added for even more depth
      h4#=get matrix height(MatNum,x-1,z)*5
      h#=get matrix height(MatNum,x,z)*5
      h2#=get matrix height(MatNum,x,z)*5
      x1#=(x-1)*25.0
      y1#=h#
      x2#=(x+0)*25.0
      y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)
      z1#=(z-1)*25.0
      y1#=h2#
      z2#=(z+0)*25.0
      y2#=h8#
      dz#=z2#-z1#
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)
      Set matrix normal MatNum,x,z,nx#,ny#,nz#
    next x
  next z
  Update Matrix MatNum
EndFunction

set display mode 1280,1024,32
sync on:sync rate 30
hide mouse

gosub setup_crosshair

c_posX#=500
c_posY#=50
c_posZ#=500

   make matrix 1,1500,1500,30,30
gosub setup_color
gosub setup_water
gosub setup_height
gosub sky_image
Normalise(1)

fog on
fog color rgb(181,219,221)
fog distance 1000
texture backdrop 101


do

   if spacekey()=1 and sp=0 then sp=1 else sp=0
   if sp=1 then c_rout=1-c_rout : sp=0

   if c_rout = 0 then gosub c_routine0
   if c_rout = 1 then gosub c_routine1

   if c_rout=0 then paste image 3,screen width()/2-15,screen height()/2-15,0 : `paste crosshair

   rotate camera wrapvalue(c_angX#),wrapvalue(c_angY#),wrapvalue(c_angZ#)
   position camera c_posX#,c_posY#+buoy,c_posZ#
sync
loop

`the water in the map, need to make it more blue
setup_water:
   make object box 99,1500,120,1500
   position object 99,750,-70,750
   set object 99,1,1,0
   color object 99,rgb(100,100,150)
   ghost object on 99
return

`a heightmap, every number is multiplied by 25, giving a stylisch feel to the map
setup_height:
   for x = 0 to 30
      for z = 0 to 30
         read height
         set matrix height 1,x,z,height * 25
      next z
   next x
   update matrix 1

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0,-1,-1,-1, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0,-1,-1,-1,-1,-1, 0, 0, 0, 0,-2, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0,-1, 0, 1, 2, 2, 2, 1, 1, 1, 0, 0,-1,-1, 0, 0,-1,-1, 0, 0,-2,-3,-2,-2, 0, 0

   data  0, 0, 0, 0, 0, 0,-1,-1, 0, 2, 2, 2, 2, 1, 1, 1, 0, 0, 0, 0, 0,-1,-1,-1,-2,-3,-3,-2,-2, 0, 0
   data  0, 0, 0, 0, 0, 0,-1,-1, 0, 1, 2, 2, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0,-2,-3,-4,-4,-3,-2,-1, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-2, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-1, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-1, 0

   data  0, 0, 0, 0, 0, 0, 0,-1,-2,-2,-2,-2,-2,-2,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-4,-3, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0,-3,-3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1,-1,-1, 1, 1, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1,-1,-1, 1, 1, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 0, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
return

`the block texture of the map
setup_color:
   ink rgb(142,171,135),0:box 0,0,40,40
   ink rgb(122,151,115),0:line 0,0,40,0:line 0,0,0,40:line 40,40,40,0:line 40,40,0,40
   get image 1,0,0,41,41
   prepare matrix texture 1,1,1,1
return

setup_crosshair:
   ink rgb(255,255,255),0
   line 14, 1,14, 9:line 15, 3,15,11
   line 28,14,20,14:line 26,15,18,15
   line 15,28,15,20:line 14,26,14,18
   line  1,15, 9,15:line  3,14,11,14
   get image 3,0,0,30,30
return

`camera routine 0: just like in a first person shooter; w,a,s,d = movement; shift = crouching and jumping(on release)
c_routine0:
   c_angYm# = c_angYm# + mousemoveX() / 5
   c_angXm# = c_angXm# + (mousemoveY() * (1-rotlimit)) / 5
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.7
   c_angXm# = c_angXm# * 0.5
   if c_angX#<-80 or c_angX#>80
      rotlimit=1
   endif
   if rotlimit=1
      if c_angX#<0 and mousemoveY()>0 then rotlimit=0
      if c_angX#>0 and mousemoveY()<0 then rotlimit=0
   endif

   c_posX# = newXvalue(c_posX#,c_angY#   ,(keystate(17)-keystate(31))*5/(k42+1)/((c_posY#<-10)+1))
   c_posX# = newXvalue(c_posX#,c_angY#-90,(keystate(30)-keystate(32))*5/(k42+1)/((c_posY#<-10)+1))
   c_posZ# = newZvalue(c_posZ#,c_angY#   ,(keystate(17)-keystate(31))*5/(k42+1)/((c_posY#<-10)+1))
   c_posZ# = newZvalue(c_posZ#,c_angY#-90,(keystate(30)-keystate(32))*5/(k42+1)/((c_posY#<-10)+1))
   if c_posX#<20 then c_posX#=20
   if c_posX#>1480 then c_posX#=1480
   if c_posZ#<20 then c_posZ#=20
   if c_posZ#>1480 then c_posZ#=1480

   c_velY# = c_velY# + 2
   c_posY# = c_posY# - c_velY#
   ggg#=get ground height(1,c_posX#,c_posZ#)
   if c_posY# <ggg#  + 10/(k42+1) then c_posY# = ggg# + 10/(k42+1) : c_velY# = 0
   if k42=1 and keystate(42)=0 and c_posY# = ggg# + 10/(k42+1) then c_velY#=-10
   k42=keystate(42)
return

`camera routine 1: left and right buttons control the camera
c_routine1:
   if mouseclick()=1
      c_posm# = c_posm# + 0 - mousemoveY() / 2
   endif
   if mouseclick()=2
      c_angYm# = c_angYm# + mousemoveX() / 5
      c_angXm# = c_angXm# + mousemoveY() / 5
   endif
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.5
   c_angXm# = c_angXm# * 0.5

   c_posX# = newXvalue(c_posX#,c_angY#,c_posm#)
   c_posY# = newYvalue(c_posY#,c_angX#,c_posm#)
   c_posZ# = newZvalue(c_posZ#,c_angY#,c_posm#)
   c_posm# = c_posm# * 0.7
return

`By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
Function Normalise(MatNum)
  For z=1 to 30
    For x=1 to 30
      h8#=get matrix height(MatNum,x,z-1)*5:`*5 added for even more depth
      h4#=get matrix height(MatNum,x-1,z)*5
      h#=get matrix height(MatNum,x,z)*5
      h2#=get matrix height(MatNum,x,z)*5
      x1#=(x-1)*25.0
      y1#=h#
      x2#=(x+0)*25.0
      y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)
      z1#=(z-1)*25.0
      y1#=h2#
      z2#=(z+0)*25.0
      y2#=h8#
      dz#=z2#-z1#
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)
      Set matrix normal MatNum,x,z,nx#,ny#,nz#
    next x
  next z
  Update Matrix MatNum
EndFunction


sky_image:
set current bitmap 0
for y = 0 to 1023
 ink rgb(abs(sin(y/22)*200),abs(cos(y/22)*100),abs(cos(y/22)*50+200) ),0
 line 0,y,1279,y
next y
get image 101,0,0,1280,1024
RETURN

set display mode 1280,1024,32
sync on:sync rate 30
hide mouse

gosub setup_crosshair

c_posX#=500
c_posY#=50
c_posZ#=500

   make matrix 1,1500,1500,30,30
gosub setup_color
gosub setup_water
gosub setup_height
Normalise(1)

fog on
fog color rgb(181,219,221)
fog distance 1000
color backdrop rgb(181,219,221)
cfov#=3.14/2.905

do

   if spacekey()=1 and sp=0
      c_rout=(c_rout=0)
      sp=1
      if c_rout=1
         hide object 1
      else
         show object 1
      endif
   endif
   if spacekey()=0 then sp=0

   if c_rout = 0 then gosub c_routine0
   if c_rout = 1 then gosub c_routine1

   if c_posY# > -10 and switch=0 then set gamma 255,255,255:switch=1 : changefov#=3.14/2.905 : set camera FOV changefov#
   if c_posY# < -10 and switch=1 then set gamma 100,100,150:switch=0 : set camera FOV 2.4

   `Magnification
   if mousemovez() > mmz then changefov# = cfov#-0.1
   if mousemovez() < mmz then changefov# = cfov#+0.1
   mmz = mousemovez()
   if changefov# < 0.1 then changefov#=0.1
   if changefov# > 3.14/2.905 then changefov# = 3.14/2.905

   `apply magnification change
   if c_posY# > -10 and changefov#<>cfov#
      cfov# = changefov#
      set camera fov cfov#
   endif

   paste image 3,screen width()/2-15,screen height()/2-15,1

   rotate camera wrapvalue(c_angX#),wrapvalue(c_angY#),wrapvalue(c_angZ#)
   position camera c_posX#,c_posY#,c_posZ#
sync
loop

`the water in the map, need to make it more blue
setup_water:
   ink rgb(100,100,150),0:box 0,0,40,40
   get image 2,0,0,41,41

   make matrix 2,1500,1500,1,1
   prepare matrix texture 2,2,1,1
   position matrix 2,0,-10,0
   ghost matrix on 2
return

`a heightmap, every number is multiplied by 25, giving a stylisch feel to the map
setup_height:
   for x = 0 to 30
      for z = 0 to 30
         read height
         set matrix height 1,x,z,height * 25
      next z
   next x
   update matrix 1

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0,-1,-1,-1, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0,-1,-1,-1,-1,-1, 0, 0, 0, 0,-2, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0,-1, 0, 1, 2, 2, 2, 1, 1, 1, 0, 0,-1,-1, 0, 0,-1,-1, 0, 0,-2,-3,-2,-2, 0, 0

   data  0, 0, 0, 0, 0, 0,-1,-1, 0, 2, 2, 2, 2, 1, 1, 1, 0, 0, 0, 0, 0,-1,-1,-1,-2,-3,-3,-2,-2, 0, 0
   data  0, 0, 0, 0, 0, 0,-1,-1, 0, 1, 2, 2, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0,-2,-3,-4,-4,-3,-2,-1, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-2, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-1, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-1, 0

   data  0, 0, 0, 0, 0, 0, 0,-1,-2,-2,-2,-2,-2,-2,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-4,-3, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0,-3,-3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1,-1,-1, 1, 1, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1,-1,-1, 1, 1, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 0, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
return

`the block texture of the map
setup_color:
   ink rgb(142,171,135),0:box 0,0,40,40
   ink rgb(122,151,115),0:line 0,0,40,0:line 0,0,0,40:line 40,40,40,0:line 40,40,0,40
   get image 1,0,0,41,41
   prepare matrix texture 1,1,1,1
return

setup_crosshair:
   ink rgb(255,255,255),0
   line 14, 1,14, 9:line 15, 3,15,11
   line 28,14,20,14:line 26,15,18,15
   line 15,28,15,20:line 14,26,14,18
   line  1,15, 9,15:line  3,14,11,14
   get image 3,0,0,30,30
return

`camera routine 0: just like in a first person shooter; w,a,s,d = movement; shift = crouching and jumping(on release)
c_routine0:
   c_angYm# = c_angYm# + mousemoveX() / 5
   c_angXm# = c_angXm# + (mousemoveY() * (1-rotlimit)) / 5
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.7
   c_angXm# = c_angXm# * 0.5
   if c_angX#<-80 or c_angX#>80
      rotlimit=1
   endif
   if rotlimit=1
      if c_angX#<0 and mousemoveY()>0 then rotlimit=0
      if c_angX#>0 and mousemoveY()<0 then rotlimit=0
   endif

   c_posX# = newXvalue(c_posX#,c_angY#   ,(keystate(17)-keystate(31))*5/(k42+1)/((c_posY#<-10)+1))
   c_posX# = newXvalue(c_posX#,c_angY#-90,(keystate(30)-keystate(32))*5/(k42+1)/((c_posY#<-10)+1))
   c_posZ# = newZvalue(c_posZ#,c_angY#   ,(keystate(17)-keystate(31))*5/(k42+1)/((c_posY#<-10)+1))
   c_posZ# = newZvalue(c_posZ#,c_angY#-90,(keystate(30)-keystate(32))*5/(k42+1)/((c_posY#<-10)+1))
   if c_posX#<20 then c_posX#=20
   if c_posX#>1480 then c_posX#=1480
   if c_posZ#<20 then c_posZ#=20
   if c_posZ#>1480 then c_posZ#=1480

   c_velY# = c_velY# + 2
   c_posY# = c_posY# - c_velY#
   ggg#=get ground height(1,c_posX#,c_posZ#)
   if c_posY# <ggg#  + 10/(k42+1) then c_posY# = ggg# + 10/(k42+1) : c_velY# = 0
   if k42=1 and keystate(42)=0 and c_posY# = ggg# + 10/(k42+1) then c_velY#=-10
   k42=keystate(42)
return

`camera routine 1: left and right buttons control the camera
c_routine1:
   if mouseclick()=1
      c_posm# = c_posm# + 0 - mousemoveY() / 2
   endif
   if mouseclick()=2
      c_angYm# = c_angYm# + mousemoveX() / 5
      c_angXm# = c_angXm# + mousemoveY() / 5
   endif
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.5
   c_angXm# = c_angXm# * 0.5

   c_posX# = newXvalue(c_posX#,c_angY#,c_posm#)
   c_posY# = newYvalue(c_posY#,c_angX#,c_posm#)
   c_posZ# = newZvalue(c_posZ#,c_angY#,c_posm#)
   c_posm# = c_posm# * 0.7
return

`By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
Function Normalise(MatNum)
  For z=1 to 30
    For x=1 to 30
      h8#=get matrix height(MatNum,x,z-1)*5:`*5 added for even more depth
      h4#=get matrix height(MatNum,x-1,z)*5
      h#=get matrix height(MatNum,x,z)*5
      h2#=get matrix height(MatNum,x,z)*5
      x1#=(x-1)*25.0
      y1#=h#
      x2#=(x+0)*25.0
      y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)
      z1#=(z-1)*25.0
      y1#=h2#
      z2#=(z+0)*25.0
      y2#=h8#
      dz#=z2#-z1#
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)
      Set matrix normal MatNum,x,z,nx#,ny#,nz#
    next x
  next z
  Update Matrix MatNum
EndFunction

sync on:sync rate 30
hide mouse

gosub setup_crosshair

c_posX#=500
c_posY#=50
c_posZ#=500

   make matrix 1,1500,1500,30,30
gosub setup_color
gosub setup_water
gosub setup_height
Normalise(1)

set camera range 1,100000
make object sphere 5,50000
set object 5,1,1,0
texture object 5,99
make object sphere 6,700
color object 6,rgb(100,100,100)
position object 6,0,1500,5005
make object sphere 7,1200
color object 7,rgb(100,200,100)
position object 7,7000,1900,500




do
   if spacekey()=1 and sp=0
      c_rout=(c_rout=0)
      sp=1
      if c_rout=1
         hide object 1
      else
         show object 1
      endif
   endif
   if spacekey()=0 then sp=0

   if c_rout = 0 then gosub c_routine0
   if c_rout = 1 then gosub c_routine1

   if c_posY# > -10 and switch=0 then set gamma 255,255,255:switch=1 : set camera FOV 3.14/2.905
   if c_posY# < -10 and switch=1 then set gamma 100,100,150:switch=0 : set camera FOV 2

   rotate camera wrapvalue(c_angX#),wrapvalue(c_angY#),wrapvalue(c_angZ#)
   position camera c_posX#,c_posY#,c_posZ#
sync
loop

`the water in the map, need to make it more blue. NO. Tis RED!
setup_water:
   ink rgb(255,0,0),0:box 0,0,40,40
   ink rgb(255,100,0),0
   for t=0 to 600
   a=rnd(40)
   b=rnd(40) 
   box a,b,a,b
   next t   
   get image 2,0,0,40,40

   make matrix 2,1500,1500,1,1
   prepare matrix texture 2,2,1,1
   position matrix 2,0,-10,0
   ghost matrix on 2
return

`a heightmap, every number is multiplied by 26, giving a stylisch feel to the map
setup_height:
   for x = 0 to 30
      for z = 0 to 30
         read height
         set matrix height 1,x,z,height * 26
      next z
   next x
   update matrix 1

   data  5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5
   data  5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5
   data  5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5
   data  5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5
   data  5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5

   data  5, 0, 0, 0, 0, 0,-1,-2,-2,-2,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5
   data  5, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0,-1,-1,-1, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5
   data  5, 0, 0, 0, 0,-1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5
   data  5, 0, 0, 0, 0,-1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0,-1,-1,-1,-1,-1, 0, 0, 0, 0,-2, 0, 0, 0, 5
   data  5, 0, 0, 0, 0, 0,-1, 0, 1, 2, 2, 2, 1, 1, 1, 0, 0,-1,-1, 0, 0,-1,-1, 0, 0,-2,-3,-2,-2, 0, 5

   data  5, 0, 0, 0, 0, 0,-1,-1, 0, 2, 2, 2, 2, 1, 1, 1, 0, 0, 0, 0, 0,-1,-1,-1,-2,-3,-3,-2,-2, 0, 5
   data  5, 0, 0, 0, 0, 0,-1,-1, 0, 1, 2, 2, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0,-2,-3,-4,-4,-3,-2,-1, 5
   data  5, 0, 0, 0, 0, 0, 0,-1,-1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-2, 5
   data  5, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-1, 5
   data  5, 0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-1, 5

   data  5, 0, 0, 0, 0, 0, 0,-1,-2,-2,-2,-2,-2,-2,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-4,-3, 0, 0, 5
   data  5, 0, 0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0,-3,-3, 0, 0, 0, 5
   data  5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5
   data  5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5
   data  5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5

   data  5, 0, 0, 2, 2, 2, 3, 2, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 5
   data  5, 0, 0, 2, 2, 3, 2, 2, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 5
   data  5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1,-1,-1, 1, 1, 0, 0, 0, 5
   data  5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1,-1,-1, 1, 1, 0, 0, 0, 5
   data  5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 0, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 5

   data  5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 5
   data  5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5
   data  5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5
   data  5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5
   data  5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5

   data  5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5
return

`the block texture of the map
setup_color:
   ink rgb(12,0,15),0 : box 0,0,41,41
   for t=2 to 39
   ink rgb(40-t,40+t,70+t),0 
   line 2,t,39,t
   next t
   ink rgb(12,0,15),0 : box 3,3,4,4 : box 37,37,38,38 : box 3,37,4,38 : box 37,3,38,4
   get image 1,0,0,41,41
   prepare matrix texture 1,1,1,1
   ink rgb(0,0,0),0 : box 0,0,500,400
   ink rgb(255,255,255),0
   for t=0 to 500
   a=rnd(500)
   b=rnd(400)
   box a,b,a,b
   next t
   get image 99,0,0,500,400  
return

setup_crosshair:
   ink rgb(255,255,255),0
      line 14, 1,14, 9:line 15, 3,15,11
      line 28,14,20,14:line 26,15,18,15
      line 15,28,15,20:line 14,26,14,18
      line  1,15, 9,15:line  3,14,11,14
      get image 3,0,0,30,30
   make object Plain 1,1,1
   position object 1,0,0,20
   texture object 1,3
   lock object on 1
   ghost object on 1
return

`camera routine 0: just like in a first person shooter; w,a,s,d = movement; shift = crouching and jumping(on release)
c_routine0:
   c_angYm# = c_angYm# + mousemoveX() / 5
   c_angXm# = c_angXm# + (mousemoveY() * (1-rotlimit)) / 5
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.7
   c_angXm# = c_angXm# * 0.5
   if c_angX#<-80 or c_angX#>80
      rotlimit=1
   endif
   if rotlimit=1
      if c_angX#<0 and mousemoveY()>0 then rotlimit=0
      if c_angX#>0 and mousemoveY()<0 then rotlimit=0
   endif

   c_posX# = newXvalue(c_posX#,c_angY#   ,(keystate(17)-keystate(31))*5/(k42+1)/((c_posY#<-10)+1))
   c_posX# = newXvalue(c_posX#,c_angY#-90,(keystate(30)-keystate(32))*5/(k42+1)/((c_posY#<-10)+1))
   c_posZ# = newZvalue(c_posZ#,c_angY#   ,(keystate(17)-keystate(31))*5/(k42+1)/((c_posY#<-10)+1))
   c_posZ# = newZvalue(c_posZ#,c_angY#-90,(keystate(30)-keystate(32))*5/(k42+1)/((c_posY#<-10)+1))
   if c_posX#<70 then c_posX#=70
   if c_posX#>1440 then c_posX#=1440
   if c_posZ#<70 then c_posZ#=70
   if c_posZ#>1440 then c_posZ#=1440

   c_velY# = c_velY# + 2
   c_posY# = c_posY# - c_velY#
   ggg#=get ground height(1,c_posX#,c_posZ#)
   if c_posY# <ggg#  + 10/(k42+1) then c_posY# = ggg# + 10/(k42+1) : c_velY# = 0
   if k42=1 and keystate(42)=0 and c_posY# = ggg# + 10/(k42+1) then c_velY#=-10
   k42=keystate(42)
return

`camera routine 1: left and right buttons control the camera
c_routine1:
   if mouseclick()=1
      c_posm# = c_posm# + 0 - mousemoveY() / 2
   endif
   if mouseclick()=2
      c_angYm# = c_angYm# + mousemoveX() / 5
      c_angXm# = c_angXm# + mousemoveY() / 5
   endif
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.5
   c_angXm# = c_angXm# * 0.5

   c_posX# = newXvalue(c_posX#,c_angY#,c_posm#)
   c_posY# = newYvalue(c_posY#,c_angX#,c_posm#)
   c_posZ# = newZvalue(c_posZ#,c_angY#,c_posm#)
   c_posm# = c_posm# * 0.7
return

`By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth

Function Normalise(MatNum)
  For z=1 to 30
    For x=1 to 30
      h8#=get matrix height(MatNum,x,z-1)*5:`*5 added for even more depth
      h4#=get matrix height(MatNum,x-1,z)*5
      h#=get matrix height(MatNum,x,z)*5
      h2#=get matrix height(MatNum,x,z)*5
      x1#=(x-1)*25.0
      y1#=h#
      x2#=(x+0)*25.0
      y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)
      z1#=(z-1)*25.0
      y1#=h2#
      z2#=(z+0)*25.0
      y2#=h8#
      dz#=z2#-z1#
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)
      Set matrix normal MatNum,x,z,nx#,ny#,nz#
    next x
  next z
  Update Matrix MatNum
EndFunction

`=============================
`======Alex's Deathmatch======
`=============================



autocam off
sync on
sync rate 40
hide mouse
set camera range 1,200000
cls
gosub matrixsetup
gosub spheresetup
gosub cutscene
do
gosub movement
sync
loop



movement:
ocpx#=camera position x()
ocpz#=camera position z()
position mouse 320,240
cx#=wrapvalue(cx#+mousemovey())
cy#=wrapvalue(cy#+mousemovex())
cz#=wrapvalue(cz#+mousemovez())
set cursor 0,0
print cx#
rotate camera cx#,cy#,cz#
if cx#<270 and cx#>240 then cx#=270
if cx#>90 and cx#<120 then cx#=90
if upkey()=1 then move camera 5
if downkey()=1 then move camera -5
position camera camera position x(),get ground height(1,camera position x(),camera position z())+10,camera position z()
if camera position x()<70 then position camera ocpx#,10,camera position z()
if camera position z()<70 then position camera camera position x(),10,ocpz#
if camera position x()>1440 then position camera ocpx#,10,camera position z()
if camera position z()>1440 then position camera camera position x(),10,ocpz#
return



cutscene:
for t=1500 to 0 step -10
position camera 0,580,t
point camera 750,0,750
wait 1
next t
ch#=250

for t=1500 to 0 step -10
position camera t,ch#,0
inc ch#,1
point camera 750,0,750
wait 1
next t

for t=100 to 1300 step 10
position camera t,170,t+125
point camera 750,250,750
wait 1
next t
position camera 75,get ground height(1,55,55)+10,75
return






spheresetup:
make object sphere 1,100000
set object 1,1,1,0
ink rgb(0,0,0),0
box 0,0,500,400
ink rgb(255,255,255),0
for t=0 to 500
a=rnd(500) : b=rnd(400)
box a,b,a,b
next t
get image 2,0,0,500,400
texture object 1,2
return



matrixsetup:
make matrix 1,1500,1500,30,30
   for x = 0 to 30
      for z = 0 to 30
         read height
         set matrix height 1,x,z,height * 30
      next z
   next x
   update matrix 1

   data  7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7
   data  7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7

   data  7, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0, 0, 0, 0, 0, 0, 4, 4, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7

   data  7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7

   data  7, 0, 0, 0,-3,-3, 0, 2, 0, 0, 0, 0, 0, 0, 4, 5, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0,-3,-3, 4, 4, 3, 0, 0, 0, 0, 0, 0, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0,-3,-3, 4, 4, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0,-3,-3, 0, 1, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0,-3,-3, 0, 0, 1, 0, 0, 0, 0, 0,-2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7

   data  7, 0, 0,-3,-3, 0, 0, 0, 0, 0, 0, 0,-1,-5,-2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0,-3,-3, 0, 0, 0, 0, 0, 0, 0,-1,-5,-2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0,-3,-1, 0, 0, 0, 0, 0, 0, 0, 0,-2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0,-2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0,-3,-3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7

   data  7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7
   data  7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7

   data  7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7

fill_box(0,0,128,128,0)
get image 1,0,0,128,128
prepare matrix texture 1,1,1,1
set mipmap mode 2
make matrix 2,1500,1500,30,30
position matrix 2,0,-20,0
ink rgb(255,0,0),0
box 0,0,100,100
get image 3,0,0,100,100
prepare matrix texture 2,3,1,1
ghost matrix on 2
return




function fill_box(sx,sy,ex,ey,shade)
   ink rgb(shade,shade,shade+20),0
   box sx,sy,ex,ey
   if sx < 128 then fill_box(sx+4,sy+3,ex-4,ey-3,shade+5)
endfunction

set display mode 1280,1024,32
sync on:sync rate 30
hide mouse

gosub setup_crosshair

c_posX#=500
c_posY#=50
c_posZ#=500

   make matrix 1,1500,1500,30,30
gosub setup_color
gosub setup_water
gosub setup_height
Normalise(1)

fog on
fog color rgb(181,219,221)
fog distance 1000
color backdrop rgb(181,219,221)
cfov#=3.14/2.905

do

   if spacekey()=1 and sp=0
      c_rout=(c_rout=0)
      sp=1
      if c_rout=1
         hide object 1
      else
         show object 1
      endif
   endif
   if spacekey()=0 then sp=0

   if c_rout = 0 then gosub c_routine0
   if c_rout = 1 then gosub c_routine1

   if c_posY# > -10 and switch=0 then set gamma 255,255,255:switch=1 : changefov#=3.14/2.905 : set camera FOV changefov#
   if c_posY# < -10 and switch=1 then set gamma 100,100,150:switch=0 : set camera FOV 2.4

   `Magnification
   if mousemovez() > mmz then changefov# = cfov#-0.1
   if mousemovez() < mmz then changefov# = cfov#+0.1
   mmz = mousemovez()
   if changefov# < 0.1 then changefov#=0.1
   if changefov# > 3.14/2.905 then changefov# = 3.14/2.905

   `apply magnification change
   if c_posY# > -10 and changefov#<>cfov#
      cfov# = changefov#
      set camera fov cfov#
   endif

   paste image 3,screen width()/2-15,screen height()/2-15,1

   rotate camera wrapvalue(c_angX#),wrapvalue(c_angY#),wrapvalue(c_angZ#)
   position camera c_posX#,c_posY#,c_posZ#
sync
loop

`the water in the map, need to make it more blue
setup_water:
   ink rgb(100,100,150),0:box 0,0,40,40
   get image 2,0,0,41,41

   make matrix 2,1500,1500,1,1
   prepare matrix texture 2,2,1,1
   position matrix 2,0,-10,0
   ghost matrix on 2
return

`a heightmap, every number is multiplied by 25, giving a stylisch feel to the map
setup_height:
   for x = 0 to 30
      for z = 0 to 30
         read height
         set matrix height 1,x,z,height * 25
      next z
   next x
   update matrix 1

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0,-1,-1,-1, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0,-1,-1,-1,-1,-1, 0, 0, 0, 0,-2, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0,-1, 0, 1, 2, 2, 2, 1, 1, 1, 0, 0,-1,-1, 0, 0,-1,-1, 0, 0,-2,-3,-2,-2, 0, 0

   data  0, 0, 0, 0, 0, 0,-1,-1, 0, 2, 2, 2, 2, 1, 1, 1, 0, 0, 0, 0, 0,-1,-1,-1,-2,-3,-3,-2,-2, 0, 0
   data  0, 0, 0, 0, 0, 0,-1,-1, 0, 1, 2, 2, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0,-2,-3,-4,-4,-3,-2,-1, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-2, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-1, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-1, 0

   data  0, 0, 0, 0, 0, 0, 0,-1,-2,-2,-2,-2,-2,-2,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-4,-3, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0,-3,-3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1,-1,-1, 1, 1, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1,-1,-1, 1, 1, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 0, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
return

`the block texture of the map
setup_color:
   ink rgb(142,171,135),0:box 0,0,40,40
   ink rgb(122,151,115),0:line 0,0,40,0:line 0,0,0,40:line 40,40,40,0:line 40,40,0,40
   get image 1,0,0,41,41
   prepare matrix texture 1,1,1,1
return

setup_crosshair:
   ink rgb(255,255,255),0
   line 14, 1,14, 9:line 15, 3,15,11
   line 28,14,20,14:line 26,15,18,15
   line 15,28,15,20:line 14,26,14,18
   line  1,15, 9,15:line  3,14,11,14
   get image 3,0,0,30,30
return

`camera routine 0: just like in a first person shooter; w,a,s,d = movement; shift = crouching and jumping(on release)
c_routine0:
   c_angYm# = c_angYm# + mousemoveX() / 5
   c_angXm# = c_angXm# + (mousemoveY() * (1-rotlimit)) / 5
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.7
   c_angXm# = c_angXm# * 0.5
   if c_angX#<-80 or c_angX#>80
      rotlimit=1
   endif
   if rotlimit=1
      if c_angX#<0 and mousemoveY()>0 then rotlimit=0
      if c_angX#>0 and mousemoveY()<0 then rotlimit=0
   endif

   c_posX# = newXvalue(c_posX#,c_angY#   ,(keystate(17)-keystate(31))*5/(k42+1)/((c_posY#<-10)+1))
   c_posX# = newXvalue(c_posX#,c_angY#-90,(keystate(30)-keystate(32))*5/(k42+1)/((c_posY#<-10)+1))
   c_posZ# = newZvalue(c_posZ#,c_angY#   ,(keystate(17)-keystate(31))*5/(k42+1)/((c_posY#<-10)+1))
   c_posZ# = newZvalue(c_posZ#,c_angY#-90,(keystate(30)-keystate(32))*5/(k42+1)/((c_posY#<-10)+1))
   if c_posX#<20 then c_posX#=20
   if c_posX#>1480 then c_posX#=1480
   if c_posZ#<20 then c_posZ#=20
   if c_posZ#>1480 then c_posZ#=1480

   c_velY# = c_velY# + 2
   c_posY# = c_posY# - c_velY#
   ggg#=get ground height(1,c_posX#,c_posZ#)
   if c_posY# <ggg#  + 10/(k42+1) then c_posY# = ggg# + 10/(k42+1) : c_velY# = 0
   if k42=1 and keystate(42)=0 and c_posY# = ggg# + 10/(k42+1) then c_velY#=-10
   k42=keystate(42)
return

`camera routine 1: left and right buttons control the camera
c_routine1:
   if mouseclick()=1
      c_posm# = c_posm# + 0 - mousemoveY() / 2
   endif
   if mouseclick()=2
      c_angYm# = c_angYm# + mousemoveX() / 5
      c_angXm# = c_angXm# + mousemoveY() / 5
   endif
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.5
   c_angXm# = c_angXm# * 0.5

   c_posX# = newXvalue(c_posX#,c_angY#,c_posm#)
   c_posY# = newYvalue(c_posY#,c_angX#,c_posm#)
   c_posZ# = newZvalue(c_posZ#,c_angY#,c_posm#)
   c_posm# = c_posm# * 0.7
return

`By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
Function Normalise(MatNum)
  For z=1 to 30
    For x=1 to 30
      h8#=get matrix height(MatNum,x,z-1)*5:`*5 added for even more depth
      h4#=get matrix height(MatNum,x-1,z)*5
      h#=get matrix height(MatNum,x,z)*5
      h2#=get matrix height(MatNum,x,z)*5
      x1#=(x-1)*25.0
      y1#=h#
      x2#=(x+0)*25.0
      y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)
      z1#=(z-1)*25.0
      y1#=h2#
      z2#=(z+0)*25.0
      y2#=h8#
      dz#=z2#-z1#
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)
      Set matrix normal MatNum,x,z,nx#,ny#,nz#
    next x
  next z
  Update Matrix MatNum
EndFunction

set display mode 1280,1024,32
sync on:sync rate 30
hide mouse

gosub setup_crosshair

c_posX#=500
c_posY#=50
c_posZ#=500

make matrix 1,1500,1500,30,30
Make Object Sphere 1,1
gosub setup_color
gosub setup_water
gosub setup_height
Normalise(1)

fog on
fog color rgb(181,219,221)
fog distance 1000
color backdrop rgb(181,219,221)
cfov#=3.14/2.905

do

   Set Cursor 1,1
   If Editing = 0 then Print "Hold CTRL and Press 1 to Edit Map" else Print "Hold CTRL and Press 2 to Save Map"
   if spacekey()=1 and sp=0
      c_rout=(c_rout=0)
      sp=1
      if c_rout=1
         hide object 1
      else
         show object 1
      endif
   endif
   if spacekey()=0 then sp=0

   ` Matrix Editor By Roddman (Hold CTRL & Press 1)
   If ControlKey()=1
      If ScanCode()=2 and Editing = 0
         If Object Exist(100) = 0
            Make Object Sphere 100,25
            Color Object 100,RGB(255,0,0)
         EndIf
         Position Object 100,0,Get Ground Height(1,0,0)+10,0
         X=0 : Z=0 : Axis$="X"
         Editing=1
      EndIf
      If ScanCode()=3 then Editing=0 : CT_Save_Matrix(1)
   EndIf

   If Editing = 1
      Print Axis$," Axis"
      Print "X  Pos :",X
      Print "Z  Pos :",Z
      Print "Height :",Height
      GoSub CT_Edit_Matrix
   EndIf

   if c_rout = 0 then gosub c_routine0
   if c_rout = 1 then gosub c_routine1

   if c_posY# > -10 and switch=0 then set gamma 255,255,255:switch=1 : changefov#=3.14/2.905 : set camera FOV changefov#
   if c_posY# < -10 and switch=1 then set gamma 100,100,150:switch=0 : set camera FOV 2.4

   `Magnification
   if mousemovez() > mmz then changefov# = cfov#-0.1
   if mousemovez() < mmz then changefov# = cfov#+0.1
   mmz = mousemovez()
   if changefov# < 0.1 then changefov#=0.1
   if changefov# > 3.14/2.905 then changefov# = 3.14/2.905

   `apply magnification change
   if c_posY# > -10 and changefov#<>cfov#
      cfov# = changefov#
      set camera fov cfov#
   endif

   paste image 3,screen width()/2-15,screen height()/2-15,1

   rotate camera wrapvalue(c_angX#),wrapvalue(c_angY#),wrapvalue(c_angZ#)
   position camera c_posX#,c_posY#,c_posZ#
sync
loop

`the water in the map, need to make it more blue
setup_water:
   ink rgb(100,100,150),0:box 0,0,40,40
   get image 2,0,0,41,41

   make matrix 2,1500,1500,1,1
   prepare matrix texture 2,2,1,1
   position matrix 2,0,-10,0
   ghost matrix on 2
return

`a heightmap, every number is multiplied by 25, giving a stylisch feel to the map
setup_height:
   for x = 0 to 30
      for z = 0 to 30
         read height
         set matrix height 1,x,z,height * 25
      next z
   next x
   update matrix 1

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0,-1,-1,-1, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0,-1,-1,-1,-1,-1, 0, 0, 0, 0,-2, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0,-1, 0, 1, 2, 2, 2, 1, 1, 1, 0, 0,-1,-1, 0, 0,-1,-1, 0, 0,-2,-3,-2,-2, 0, 0

   data  0, 0, 0, 0, 0, 0,-1,-1, 0, 2, 2, 2, 2, 1, 1, 1, 0, 0, 0, 0, 0,-1,-1,-1,-2,-3,-3,-2,-2, 0, 0
   data  0, 0, 0, 0, 0, 0,-1,-1, 0, 1, 2, 2, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0,-2,-3,-4,-4,-3,-2,-1, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-2, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-1, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-1, 0

   data  0, 0, 0, 0, 0, 0, 0,-1,-2,-2,-2,-2,-2,-2,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-4,-3, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0,-3,-3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1,-1,-1, 1, 1, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1,-1,-1, 1, 1, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 0, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
return

`the block texture of the map
setup_color:
   ink rgb(142,171,135),0:box 0,0,40,40
   ink rgb(122,151,115),0:line 0,0,40,0:line 0,0,0,40:line 40,40,40,0:line 40,40,0,40
   get image 1,0,0,41,41
   prepare matrix texture 1,1,1,1
return

setup_crosshair:
   ink rgb(255,255,255),0
   line 14, 1,14, 9:line 15, 3,15,11
   line 28,14,20,14:line 26,15,18,15
   line 15,28,15,20:line 14,26,14,18
   line  1,15, 9,15:line  3,14,11,14
   get image 3,0,0,30,30
return

`camera routine 0: just like in a first person shooter; w,a,s,d = movement; shift = crouching and jumping(on release)
c_routine0:
   ` Refresh Old Values (For Slope)
   c_OldPosX#=Camera Position X()
   c_OldPosZ#=Camera Position Z()

   c_angYm# = c_angYm# + mousemoveX() / 5
   c_angXm# = c_angXm# + (mousemoveY() * (1-rotlimit)) / 5
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.7
   c_angXm# = c_angXm# * 0.5
   if c_angX#<-80 or c_angX#>80
      rotlimit=1
   endif
   if rotlimit=1
      if c_angX#<0 and mousemoveY()>0 then rotlimit=0
      if c_angX#>0 and mousemoveY()<0 then rotlimit=0
   endif

   c_posX# = newXvalue(c_posX#,c_angY#   ,(keystate(17)-keystate(31))*5/(k42+1)/((c_posY#<-10)+1))
   c_posX# = newXvalue(c_posX#,c_angY#-90,(keystate(30)-keystate(32))*5/(k42+1)/((c_posY#<-10)+1))
   c_posZ# = newZvalue(c_posZ#,c_angY#   ,(keystate(17)-keystate(31))*5/(k42+1)/((c_posY#<-10)+1))
   c_posZ# = newZvalue(c_posZ#,c_angY#-90,(keystate(30)-keystate(32))*5/(k42+1)/((c_posY#<-10)+1))
   if c_posX#<20 then c_posX#=20
   if c_posX#>1480 then c_posX#=1480
   if c_posZ#<20 then c_posZ#=20
   if c_posZ#>1480 then c_posZ#=1480

   c_velY# = c_velY# + 2
   c_posY# = c_posY# - c_velY#
   ggg#=get ground height(1,c_posX#,c_posZ#)
   if c_posY# <ggg#  + 10/(k42+1) then c_posY# = ggg# + 10/(k42+1) : c_velY# = 0
   if k42=1 and keystate(42)=0 and c_posY# = ggg# + 10/(k42+1) then c_velY#=-10
   k42=keystate(42)
return

`camera routine 1: left and right buttons control the camera
c_routine1:
   if mouseclick()=1
      c_posm# = c_posm# + 0 - mousemoveY() / 2
   endif
   if mouseclick()=2
      c_angYm# = c_angYm# + mousemoveX() / 5
      c_angXm# = c_angXm# + mousemoveY() / 5
   endif
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.5
   c_angXm# = c_angXm# * 0.5

   c_posX# = newXvalue(c_posX#,c_angY#,c_posm#)
   c_posY# = newYvalue(c_posY#,c_angX#,c_posm#)
   c_posZ# = newZvalue(c_posZ#,c_angY#,c_posm#)
   c_posm# = c_posm# * 0.7
return

CT_Edit_Matrix:
   ` Check For Key Pressed
   If ScanCode()=44 and Axis$="X" then Axis$="Z"
   If ScanCode()=45 and Axis$="Z" then Axis$="X"
   If UpKey()=1
      ` Refresh Height
      If Axis$="X" then INC X
      If Axis$="Z" then INC Z
      ` Lock Position
      If X < 0 then X=0 : If X > 30 then X=30
      If Z < 0 then Z=0 : If Z > 30 then Z=30
      Height=(Get Ground Height(1,X*50,Z*50))/25
   EndIf
   If DownKey()=1
      ` Refresh Height
      If Axis$="X" then DEC X
      If Axis$="Z" then DEC Z
      ` Lock Position
      If X < 0 then X=0 : If X > 30 then X=30
      If Z < 0 then Z=0 : If Z > 30 then Z=30
      Height=(Get Ground Height(1,X*50,Z*50))/25
   EndIf

   ` Update Matrix (when needed)
   If ScanCode() = 12 or ScanCode() = 13
      ` Adjust Height
      If ScanCode()=13 then INC Height
      If ScanCode()=12 then DEC Height
      Set Matrix Height 1,X,Z,Height*25
      Update Matrix 1
   EndIf
   Position Object 100,X*50,(Height*25)+10,Z*50
Return

`By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
Function Normalise(MatNum)
  For z=1 to 30
    For x=1 to 30
      h8#=get matrix height(MatNum,x,z-1)*5:`*5 added for even more depth
      h4#=get matrix height(MatNum,x-1,z)*5
      h#=get matrix height(MatNum,x,z)*5
      h2#=get matrix height(MatNum,x,z)*5
      x1#=(x-1)*25.0
      y1#=h#
      x2#=(x+0)*25.0
      y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)
      z1#=(z-1)*25.0
      y1#=h2#
      z2#=(z+0)*25.0
      y2#=h8#
      dz#=z2#-z1#
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)
      Set matrix normal MatNum,x,z,nx#,ny#,nz#
    next x
  next z
  Update Matrix MatNum
EndFunction

` Save Matrix Function by Roddman
Function CT_Save_Matrix(mat)
   number=1
   Repeat
      string$="map"
      string$=string$+STR$(number)+".txt"
      INC number
   Until File Exist(string$)=0
   Open to Write 1,string$
   Print string$
   for X = 0 to 29
      line$="Data "
      for Z = 0 to 29
         line$=line$+STR$(Get Ground Height(1,X*50,Z*50)/25)+","
      next Z
      Write String 1,line$
   next X
   Close File 1
EndFunction

   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.5
   c_angXm# = c_angXm# * 0.5

set display mode 1280,1024,32
sync on:sync rate 30
hide mouse

gosub setup_crosshair

c_posX#=500
c_posY#=50
c_posZ#=500

make matrix 1,1500,1500,30,30
gosub setup_color
gosub setup_water
gosub setup_height
Normalise(1)

fog on
fog color rgb(181,219,221)
fog distance 1000
color backdrop rgb(181,219,221)
cfov#=3.14/2.905
`editor pointer
Make Object Sphere 100,25 : Color Object 100,RGB(255,0,0) : hide object 100

ink 0,0

`--------------------------
` MAIN LOOP
`--------------------------
do
   `------------------------------------------------
   ` Matrix Editor By Roddman (Hold CTRL & Press 1)
   ` X and Z variables are now eX and eZ, because x and z are being used in for loops
   `------------------------------------------------
   Set Cursor 1,1
   If c_rout=0 then Print "Press SPACE to Edit Map" else Print "Press RETURN to Save Map"

   `switching between edit and game mode is now combined with changing the camera type
   if c_rout=1
      Print Axis$," Axis"
      Print "X  Pos :",eX
      Print "Z  Pos :",eZ
      Print "Height :",Height
      GoSub CT_Edit_Matrix
      If returnkey()=1 then c_rout=0 : REM CT_Save_Matrix(1) : `remove REM to save matrix data
   EndIf

   `----------------------------
   ` FOV effects by OBese87
   `----------------------------
   if c_posY# > -10 and switch=0 then set gamma 255,255,255:switch=1 : changefov#=3.14/2.905 : set camera FOV changefov#
   if c_posY# < -10 and switch=1 then set gamma 100,100,150:switch=0 : set camera FOV 2.4

   `Magnification
   if mousemovez() > mmz then changefov# = cfov#-0.1
   if mousemovez() < mmz then changefov# = cfov#+0.1
   mmz = mousemovez()
   if changefov# < 0.1 then changefov#=0.1
   if changefov# > 3.14/2.905 then changefov# = 3.14/2.905
   `apply magnification change if out of water
   if c_posY# > -10 and changefov#<>cfov#
      cfov# = changefov#
      set camera fov cfov#
   endif
   `----------------------------

   `Switch between edit and game mode
   if spacekey()=1 and sp=0
      c_rout = 1-c_rout
      `ENTER EDIT MODE
      if c_rout=1
         eX=0 : eZ=0 : Axis$="X"
         c_posx#=-200 : c_posy#=400 : c_posz#=-200
         c_angX#=45 : c_angY#=45 : c_angZ#=0
         fog off
         show object 100
      else
         fog on
         hide object 100
      endif
      sp=1
   endif
   if spacekey()=0 then sp=0

   `cross-hair
   if c_rout=0 then paste image 3,screen width()/2-15,screen height()/2-15,1

   `call camera routines
   if c_rout = 0 then gosub c_routine0
   if c_rout = 1 then gosub c_routine1

   rotate camera wrapvalue(c_angX#),wrapvalue(c_angY#),wrapvalue(c_angZ#)
   position camera c_posX#,c_posY#,c_posZ#
sync
loop

`------------------------
` GOSUBS
`------------------------
setup_water:
   cls rgb(80,80,150)
   get image 2,0,0,41,41

   make matrix 2,1500,1500,1,1
   prepare matrix texture 2,2,1,1
   position matrix 2,0,-10,0
   ghost matrix on 2
return

`a heightmap, every number is multiplied by 25, giving a stylisch feel to the map
setup_height:
   for x = 0 to 30
      for z = 0 to 30
         read height
         set matrix height 1,x,z,height * 25
      next z
   next x
   update matrix 1

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0,-1,-1,-1, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0,-1,-1,-1,-1,-1, 0, 0, 0, 0,-2, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0,-1, 0, 1, 2, 2, 2, 1, 1, 1, 0, 0,-1,-1, 0, 0,-1,-1, 0, 0,-2,-3,-2,-2, 0, 0

   data  0, 0, 0, 0, 0, 0,-1,-1, 0, 2, 2, 2, 2, 1, 1, 1, 0, 0, 0, 0, 0,-1,-1,-1,-2,-3,-3,-2,-2, 0, 0
   data  0, 0, 0, 0, 0, 0,-1,-1, 0, 1, 2, 2, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0,-2,-3,-4,-4,-3,-2,-1, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-2, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-1, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-5,-5,-4,-3,-1, 0

   data  0, 0, 0, 0, 0, 0, 0,-1,-2,-2,-2,-2,-2,-2,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0,-3,-4,-4,-3, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0,-3,-3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1,-1,-1, 1, 1, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1,-1,-1, 1, 1, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 0, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 3, 3, 1, 1, 3, 3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
return

`the block texture of the map
setup_color:
   ink rgb(142,171,135),0:box 0,0,40,40
   ink rgb(122,151,115),0:line 0,0,40,0:line 0,0,0,40:line 40,40,40,0:line 40,40,0,40
   get image 1,0,0,41,41
   prepare matrix texture 1,1,1,1
return

setup_crosshair:
   ink rgb(255,255,255),0
   line 14, 1,14, 9:line 15, 3,15,11
   line 28,14,20,14:line 26,15,18,15
   line 15,28,15,20:line 14,26,14,18
   line  1,15, 9,15:line  3,14,11,14
   get image 3,0,0,30,30
return

`camera routine 0: just like in a first person shooter; w,a,s,d = movement; shift = crouching and jumping(on release)
c_routine0:
   ` Refresh Old Values (For Slope)
   c_OldPosX#=Camera Position X()
   c_OldPosZ#=Camera Position Z()

   c_angYm# = c_angYm# + mousemoveX() / 5
   c_angXm# = c_angXm# + (mousemoveY() * (1-rotlimit)) / 5
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.7
   c_angXm# = c_angXm# * 0.5
   if c_angX#<-80 or c_angX#>80
      rotlimit=1
   endif
   if rotlimit=1
      if c_angX#<0 and mousemoveY()>0 then rotlimit=0
      if c_angX#>0 and mousemoveY()<0 then rotlimit=0
   endif

   c_posX# = newXvalue(c_posX#,c_angY#   ,(keystate(17)-keystate(31))*5/(k42+1)/((c_posY#<-10)+1))
   c_posX# = newXvalue(c_posX#,c_angY#-90,(keystate(30)-keystate(32))*5/(k42+1)/((c_posY#<-10)+1))
   c_posZ# = newZvalue(c_posZ#,c_angY#   ,(keystate(17)-keystate(31))*5/(k42+1)/((c_posY#<-10)+1))
   c_posZ# = newZvalue(c_posZ#,c_angY#-90,(keystate(30)-keystate(32))*5/(k42+1)/((c_posY#<-10)+1))
   if c_posX#<20 then c_posX#=20
   if c_posX#>1480 then c_posX#=1480
   if c_posZ#<20 then c_posZ#=20
   if c_posZ#>1480 then c_posZ#=1480

   c_velY# = c_velY# + 2
   c_posY# = c_posY# - c_velY#
   ggg#=get ground height(1,c_posX#,c_posZ#)
   if c_posY# <ggg#  + 10/(k42+1) then c_posY# = ggg# + 10/(k42+1) : c_velY# = 0
   if k42=1 and keystate(42)=0 and c_posY# = ggg# + 10/(k42+1) then c_velY#=-10
   k42=keystate(42)
return

`camera routine 1: left and right buttons control the camera
c_routine1:
   if mouseclick()=1
      c_posm# = c_posm# + 0 - mousemoveY() / 2
   endif
   if mouseclick()=2
      c_angYm# = c_angYm# + mousemoveX() / 5
      c_angXm# = c_angXm# + mousemoveY() / 5
   endif
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.5
   c_angXm# = c_angXm# * 0.5

   c_posX# = newXvalue(c_posX#,c_angY#,c_posm#)
   c_posY# = newYvalue(c_posY#,c_angX#,c_posm#)
   c_posZ# = newZvalue(c_posZ#,c_angY#,c_posm#)
   c_posm# = c_posm# * 0.7
return

CT_Edit_Matrix:
   ` Check For Key Pressed
   If ScanCode()=44 then Axis$="Z"
   If ScanCode()=45 then Axis$="X"

   If UpKey()=1
      `Increase Height
      If Axis$="X" then INC eX
      If Axis$="Z" then INC eZ
   EndIf
   If DownKey()=1
      `Decrease Height
      If Axis$="X" then DEC eX
      If Axis$="Z" then DEC eZ
   EndIf

   `Bind X and Z to matrix
   If eX < 0 then eX=0
   If eX > 30 then eX=30
   If eZ < 0 then eZ=0
   If eZ > 30 then eZ=30
   Height=get ground height(1,eX,eZ)

   `Adjust height
   If ScanCode()=13 then inc Height,1
   If ScanCode()=12 then dec Height,1

   `Update
   Set Matrix Height 1,eX,eZ,Height
   Update Matrix 1
   position object 100,eX*50,Height,eZ*50 : `matrix editor pointer
Return

`---------------------
` FUNCTIONS
`---------------------
`By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
Function Normalise(MatNum)
  For z=1 to 30
    For x=1 to 30
      h8#=get matrix height(MatNum,x,z-1)*5:`*5 added for even more depth
      h4#=get matrix height(MatNum,x-1,z)*5
      h#=get matrix height(MatNum,x,z)*5
      h2#=get matrix height(MatNum,x,z)*5
      x1#=(x-1)*25.0
      y1#=h#
      x2#=(x+0)*25.0
      y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)
      z1#=(z-1)*25.0
      y1#=h2#
      z2#=(z+0)*25.0
      y2#=h8#
      dz#=z2#-z1#
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)
      Set matrix normal MatNum,x,z,nx#,ny#,nz#
    next x
  next z
  Update Matrix MatNum
EndFunction

` Save Matrix Function by Roddman
Function CT_Save_Matrix(mat)
   number=1
   Repeat
      string$="map"
      string$=string$+STR$(number)+".txt"
      INC number
   Until File Exist(string$)=0
   Open to Write 1,string$
   Print string$
   for X = 0 to 29
      line$="Data "
      for Z = 0 to 29
         line$=line$+STR$(Get Ground Height(1,X*50,Z*50)/25)+","
      next Z
      Write String 1,line$
   next X
   Close File 1
EndFunction

   If X < 0 then X=0 : If X > 30 then X=30
   If Z < 0 then Z=0 : If Z > 30 then Z=30

   If eX < 0 then eX=0
   If eX > 30 then eX=30
   If eZ < 0 then eZ=0
   If eZ > 30 then eZ=30