Sorry your browser is not supported!

make matrix 1,1000.0,1000.0,8,8		
x=0;z=0;sync on
do:read a:set matrix height 1,x,z,a
x = x + 1:if z = 8 and x = 8 then exit
if x = 8 then x = 0; z = z + 1:sync
loop:update matrix 1;do
if upkey()=1 then move camera 10
if downkey()=1 then move camera -10
if leftkey()=1 then turn camera left 5
if rightkey()=1 then turn camera right 5
x# = camera position x():z# = camera position z():y# = get ground height(1,x#,z#):position camera x#,y#+5,z#:sync:loop
data 1,1,1,1,1,1,1,1
data 1,10,10,10,10,10,10,1
data 1,10,50,50,50,50,10,1
data 1,10,50,200,200,50,10,1
data 1,10,50,200,200,50,10,1
data 1,10,50,50,50,50,10,1
data 1,10,10,10,10,10,10,1
data 1,1,1,1,1,1,1,1

load image "rainpink.bmp",1:sync on:autocam off:make matrix 1,1000.0,1000.0,5,5:x = 3:z = 3:prepare matrix texture 1,1,2,2:do
if inkey$()="a" then h = h + 1
if inkey$()="z" then h = h - 1
if leftkey()=1 and press = 0 then x = x - 1 ; press = 1 ; h = get ground height(1,x,z)
if rightkey()=1 and press = 0 then x = x + 1 ; press = 1 ; h = get ground height(1,x,z)
if downkey()=1 and press = 0 then z = z - 1 ; press = 1 ; h = get ground height(1,x,z)
if upkey()=1 and press = 0 then z = z + 1 ; press = 1 ; h = get ground height(1,x,z)
if z < 0 then z = 0
if z > 4 then z = 4
if x < 0 then x = 0
if x > 4 then x = 4
if scancode()=0 then press = 0
if mousemovex() > 0 then turn camera right 3
if mousemovex() < 0 then turn camera left 3
if mousemovey() > 0 then pitch camera down 3
if mousemovey() < 0 then pitch camera up 3
if mouseclick() = 1 then move camera 5
if mouseclick() = 2 then move camera -5
prepare matrix texture 1,1,2,2:set matrix tile 1,x,z,2:set matrix height 1,x,z,h:update matrix 1:sync:loop