Sorry your browser is not supported!

    mx#=mousemovex()/4.0
    my#=mousemovey()/4.0

    xrotate camera wrapvalue(camera angle x()+my#)
    yrotate camera wrapvalue(camera angle y()+mx#)
    if camera angle x()>80 and camera angle x()<180 then xrotate camera 80
    if camera angle x()<270 and camera angle x()>180 then xrotate camera 270

CX#=CAMERA ANGLE X(): CY#=CAMERA ANGLE Y(): CZ#=CAMERA ANGLE Z()
CX#=Wrapvalue(CX#-mousemovey())
CY#=Wrapvalue(CY#+mousemovex())
Rotate Camera CX#,CY#,CZ#

rem label controls
PRINT "Left Key: Rotate camera left"
PRINT "Right Key: Rotate camera right"
PRINT "Up Key: Move Forward"
PRINT "Down Key: Move Backward"
PRINT "Press Spacebar to continue"
suspend for key

rem Hide Cursor
SYNC ON : HIDE MOUSE

rem Make a 3D landscape
MAKE MATRIX 1,10000.0,10000.0,25,25

rem load image
load image "grass2.bmp",1

rem Texture landscape
PREPARE MATRIX TEXTURE 1,1,1,1

rem Randomise landscape
RANDOMIZE MATRIX 1,100.0 

rem Activate and distance fogging
FOG ON
FOG COLOR 0
FOG DISTANCE 5000

rem Create light
make light 1
set point light 1,10,10,-30
color light 1,rgb(255,0,0)

rem position of light
POSITION LIGHT 1,5000,200,2500

rem set light range
SET LIGHT RANGE 1,50000

rem enable lights
SHOW LIGHT 1

rem set camera position
position camera 5000,200,5000

rem Activate manual sync
sync on

rem Begin loop
DO

rem Control camera turret
if upkey()=1 then move camera 10.0
if downkey()=1 then move camera -10.0
if leftkey()=1 then angley#=wrapvalue(angley#-2.0)
if rightkey()=1 then angley#=wrapvalue(angley#+2.0)

rem Ensure angle stays within range
angle#=wrapvalue(angle#)

rem Update camera
xrotate camera 0.0
yrotate camera angley#
zrotate camera 0.0

rem Syncronise
sync

rem End loop
LOOP

rem Begin loop
DO
  rem Control camera turret
  CX#=CAMERA ANGLE X(): CY#=CAMERA ANGLE Y(): CZ#=CAMERA ANGLE Z()
  CX#=Wrapvalue(CX#-mousemovey())
  CY#=Wrapvalue(CY#+mousemovex())
  Rotate Camera CX#,CY#,CZ#
  if upkey()=1 then move camera 10.0
  if downkey()=1 then move camera -10.0

  rem Syncronise
  sync

  rem End loop
LOOP