Sorry your browser is not supported!

sync on : sync rate 0 : autocam off : hide mouse

` make a random matrix
make matrix 1,1000,1000,32,32
randomize matrix 1,20
update matrix 1

` position camera in centre of matrix
position camera 500,0,500

s#=1.0 : ` how far to move each keypress
max_up#=50 : ` maximum angle you can look up
max_down#=80 : ` maximum angle you can look down

do
   x#=camera position x() : y#=camera position y() : z#=camera position z()
   xa#=camera angle x()   : ya#=camera angle y()   : za#=camera angle z()

   ` handle moving forward, moving back, straffing left, straffing right
   if upkey()    then x#=newxvalue(x#,ya#,s#)  : z#=newzvalue(z#,ya#,s#)
   if downkey()  then x#=newxvalue(x#,ya#,-s#) : z#=newzvalue(z#,ya#,-s#)
   if leftkey()  then x#=newxvalue(x#,wrapvalue(ya#-90.0),s#) : z#=newzvalue(z#,wrapvalue(ya#-90.0),s#)
   if rightkey() then x#=newxvalue(x#,wrapvalue(ya#+90.0),s#) : z#=newzvalue(z#,wrapvalue(ya#+90.0),s#)

   ` position camera 20 units above matrix height below player
   h#=get ground height(1,x#,z#)
   position camera x#,h#+20,z#

   ` free-look around with mouse
   xa#=wrapvalue(xa#+(mousemovey()/3))
   ya#=wrapvalue(ya#+(mousemovex()/3))
   if xa# > 180 and xa# < (360.0-max_up#) then xa#=(360.0-max_up#)
   if xa# > max_down# and xa# < 180 then xa#=max_down#
   rotate camera xa#,ya#,0

   sync
loop

do

if upkey()=1 then move_camera_forwards(0.03)

if downkey()=1 then move_camera_backwards(0.03)

if leftkey()=1
strafe_camera_left()
endif
if rightkey()=1
strafe_camera_right()
endif


pitch#=pitch#+mousemovey()
if pitch#>70 then pitch#=69
if pitch#<-70 then pitch#=-69
xrotate camera pitch#

turn#=turn#+mousemovex()
yrotate camera turn#


if spacekey()=1 and jump=0
jump=1
endif
if jump>=1 and jump<=60
position camera camera position x(),camera position y()+0.02,camera position z()
endif
if jump >=1 then jump=jump+1
if jump>120 then jump=0

   rem Apply simple gravity to camera
   position camera camera position x(),camera position y()-0.01,camera position z()
    sync
loop



function strafe_camera_left()

yrotate camera (camera angle y(0)+90)
xcam#=camera angle x(0)
xrotate camera (185)
move camera 0.125
xrotate camera xcam#
yrotate camera (camera angle y(0)-90)
endfunction

function strafe_camera_right()

yrotate camera (camera angle y(0)-90)
xcam#=camera angle x(0)
xrotate camera (185)
move camera 0.125
xrotate camera xcam#
yrotate camera (camera angle y(0)+90)
endfunction

function move_camera_forwards(move_speed#)
xcam#=camera angle x()
xrotate camera (185)
move camera 0, -(move_speed#)
xrotate camera 0,xcam#
endfunction

function move_camera_backwards(move_speed#)
xcam#=camera angle x()
xrotate camera (175)
move camera 0,move_speed#
xrotate camera xcam#
endfunction