Sorry your browser is not supported!

autocam off
sync on
load object "my_level.x",1

position camera -20,20,-20
point camera 0,0,0
do
control camera using arrowkeys 0,0.3,0.3
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
sync
loop

Returns the height of the terrain at the given X and Z coordinates.

SYNTAX
return float = GET TERRAIN GROUND HEIGHT( Terrain ID, X, Z )

` Advanced Terrain System - Example 1

` sky textures from - SkyMatter
` heightmap created by - David Smith ( infiniteloop@optushome.com.au )
` terrain base texture - generated from Advanced Terrain System Plus
` demo by - TGC

` set up display and camera
sync on
backdrop on
autocam off
set camera range 0.5, 30000

` movement
g_fSpeed# = 0.05
g_fTurn#  = 0.3

` set the directory to media
set dir "media"

` load base and detail texture
load image "texture.bmp", 1
load image "detail.tga", 2

make object terrain 1                              ` create the terrain object
set terrain heightmap 1, "map.bmp"                 ` set the heightmap
set terrain scale 1, 3, 0.6, 3                     ` set the scale
set terrain split 1, 16                            ` split value by 16 * 16
set terrain tiling 1, 4                            ` detail map tiling
set terrain light 1, 1, -0.25, 0, 1, 1, 0.78, 0.5  ` light - xdir, ydir, zdir, red, green, blue, intensity
set terrain texture 1, 1, 2                        ` base and detail texture
build terrain 1                                    ` finally build the terrain

` load our skybox
load object "skybox2.x", 200
set object light 200, 0
set object texture 200, 3, 1

position object 200, 1000, 2000, 4000
scale object 200, 30000, 30000, 30000

` reset the directory
set dir ".."

` position the camera
position camera 385,23,100

` main program loop
do
   ` handle user input and show some stats
   gosub userInput
   gosub information

   ` get the height of the terrain at the current camera position
   a# = get terrain ground height( 1, camera position x( ), camera position z( ) )

   ` now position the camera slightly above the terrain
   position camera camera position x( ), a# + 3, camera position z()

   ` let the terrain handle some internal work
   update terrain

   ` final screen update
   sync
loop

userInput:
   ` simple mouse and keyboard movement

   ` move around with arrow keys
   control camera using arrowkeys 0, g_fSpeed#, g_fTurn#

   ` store old camera angle
   OldCamAngleY# = CameraAngleY#
   OldCamAngleX# = CameraAngleX#

   ` store new camera angle
   CameraAngleY# = wrapvalue ( CameraAngleY# + mousemovex ( ) * 0.4 )
   CameraAngleX# = wrapvalue ( CameraAngleX# + mousemovey ( ) * 0.4 )

   ` rotate camera
   yrotate camera curveangle ( CameraAngleY#, OldCamAngleY#, 24 )
   xrotate camera curveangle ( CameraAngleX#, OldCamAngleX#, 24 )

   ` speed up movement
   if inkey$ ( ) = "+"
      if g_fSpeed# < 1000
         g_fSpeed# = g_fSpeed# + 0.01
      endif
   endif

   ` slow down movement
   if inkey$ ( ) = "-"
      if g_fSpeed# > 0.002
         g_fSpeed# = g_fSpeed# - 0.001
      endif
   endif
return

information:
   ` show some information

   ` start printing at top of screen
   set cursor 0, 0

   ` show frame rate
   print "fps = " + str$ ( screen fps ( ) )
   print ""

   ` current camera position
   print ""
   print "x = " + str$ ( camera position x ( ) )
   print "y = " + str$ ( camera position y ( ) )
   print "z = " + str$ ( camera position z ( ) )
   print ""

   ` finally the polygon count
   print "polygon count = " + str$ ( statistic ( 1 ) )
   print ""
return

autocam off
sync on:sync rate 60


//set up fog
fog on
fog color RGB(80,120,80)
fog distance 5000

//make a grass texture
for x = 1 to 100
    for y = 1 to 100
        dot x,y,rgb(0,rnd(50)+50,0)
    next y
 next x
get image 1,1,1,99,99

//make a sky texture
cls rgb(255,255,255)
box 0,0,800,500,rgb(255,255,255),RGB(87,255,255),rgb(255,255,255),RGB(87,255,255)
get image 2,0,0,800,1000
texture backdrop 2
// make a matrix for the ground
make matrix 1,5000,5000,10,10
//texture the matrix with the grass texture we made earlier
prepare matrix texture 1,1,1,1
//make some random hills
randomize matrix 1,200
//lower the edges of the matrix to make an island
for i = 0 to 10
    set matrix height 1,0,i,0
    set matrix height 1,10,i,0
    set matrix height 1,i,0,0
    set matrix height 1,i,10,0
 next i
// have to update the matrix after any changes to the height of its points
update matrix 1
// make a plane for water,color it and set it in place
make object plane 1,10000,10000,1
rotate object 1,90,0,0
color object 1,rgb(0,0,200)
position object 1, 2500,0,2500
// now the water isnt affected by fog.  Just because i want the water to be a strong blue
set object fog 1,0
//place the camera in the center of the matrix @ 50 units above the ground
position camera 2500,get ground height(1,2500,2500)+50,2500

//main loop
do
            //move the camera round
            control camera using arrowkeys 0,10,10
            //keep the camera's "feet" on the ground
            position camera 0, camera position x(),get ground height(1,camera position x(),camera position z())+50,camera position z()
            //update
            sync
loop

autocam off
sync on:sync rate 60


//set up fog
fog on
fog color RGB(80,120,80)
fog distance 5000

//make a grass texture
for x = 1 to 100
    for y = 1 to 100
        dot x,y,rgb(0,rnd(50)+50,0)
    next y
 next x
get image 1,1,1,99,99

//make a sky texture
cls rgb(255,255,255)
box 0,0,800,250,rgb(255,255,255),RGB(87,255,255),rgb(255,255,255),RGB(87,255,255)
get image 2,1,1,800,500
texture backdrop 2
// make a matrix for the ground
make matrix 1,5000,5000,10,10
//texture the matrix with the grass texture we made earlier
prepare matrix texture 1,1,1,1
//make some random hills
randomize matrix 1,200
//lower the edges of the matrix to make an island
for i = 0 to 10
    set matrix height 1,0,i,0
    set matrix height 1,10,i,0
    set matrix height 1,i,0,0
    set matrix height 1,i,10,0
 next i
// have to update the matrix after any changes to the height of its points
update matrix 1
// make a plane for water,color it and set it in place
make object plane 1,10000,10000,1
rotate object 1,90,0,0
color object 1,rgb(0,0,200)
position object 1, 2500,0,2500
// now the water isnt affected by fog.  Just because i want the water to be a strong blue
set object fog 1,0
//place the camera in the center of the matrix @ 50 units above the ground
position camera 2500,get ground height(1,2500,2500)+50,2500

//main loop
do
            //move the camera round
            control camera using arrowkeys 0,10,10
            //keep the camera's "feet" on the ground
            position camera 0, camera position x(),get ground height(1,camera position x(),camera position z())+50,camera position z()
            //update
            sync
loop

get image 2,0,0,800,1000

get image 2,0,0,screen width(),screen height()

autocam off
sync on:sync rate 60
fog on
fog color RGB(80,120,80)
fog distance 5000
for x = 1 to 100
    for y = 1 to 100
        dot x,y,rgb(0,rnd(50)+50,0)
    next y
 next x
get image 1,1,1,99,99
cls rgb(255,255,255)
box 0,0,800,250,rgb(255,255,255),RGB(87,255,255),rgb(255,255,255),RGB(87,255,255)
get image 2,1,1,screen width(),screen height()
texture backdrop 2
make matrix 1,5000,5000,10,10
prepare matrix texture 1,1,1,1
randomize matrix 1,200
for i = 0 to 10
    set matrix height 1,0,i,0
    set matrix height 1,10,i,0
    set matrix height 1,i,0,0
    set matrix height 1,i,10,0
 next i
update matrix 1
make object plane 1,10000,10000,1
rotate object 1,90,0,0
color object 1,rgb(0,0,200)
position object 1, 2500,0,2500
set object fog 1,0
position camera 2500,get ground height(1,2500,2500)+50,2500
do
            control camera using arrowkeys 0,10,10
            position camera 0, camera position x(),get ground height(1,camera position x(),camera position z())+50,camera position z()
            sync
loop