Sorry your browser is not supported!

rem Standard Setup Code for all examples
sync on : sync rate 0 : color backdrop 0
set text font "arial" : set text size 16
set text to bold : set text transparent

rem Make Simple Terrain
TerrainNumber=1
make terrain TerrainNumber,"land.bmp"

rem Position The Terrain
position terrain TerrainNumber, 0, 0, 1025

rem Texture terrain
ImageNumber=1
load image "grass4.bmp",ImageNumber
texture terrain TerrainNumber,ImageNumber
size#=1025

rem Load sky object
load object "sky\sb.x",2
scale object 2,40,40,40
set object cull 2,0
set object light 2,0
set object texture 2,2,1

rem Position camera in center of terrain
position camera 512,10,512
make object sphere 1,40,40,40
position object 1,50,30,70

rem Main loop
desc$="LOD Terrain from Bitmap"
while mouseclick()=0

rem Control camera over terrain
if upkey()=1 then move object 1,4 : walk=1
 if downkey()=1 then move object 1,-4 : walk=1
 if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-4) : walk=1
 if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+4) : walk=1

x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
a#=object angle y(1)
d#=50.0
h#=85.0
s#=25.0
set camera to follow x#,y#,z#,a#,d#,h#,s#,1


rem Terrain Data
set cursor 0,0
print "TERRAIN DATA"
print " exist:";terrain exist(TerrainNumber)
if terrain exist(TerrainNumber)=1
 print " x:";terrain position x(TerrainNumber)
 print " y:";terrain position y(TerrainNumber)
 print " z:";terrain position z(TerrainNumber)
 print " height:";get terrain height(TerrainNumber, cx#, cz#)
 print " totalheight:";get total terrain height(TerrainNumber)
endif
print
print "CAMERA DATA"
print " x:";camera position x(0)
print " y:";camera position y(0)
print " z:";camera position z(0)

rem Position sky at player
position object 2,camera position x(0),camera position y(0)-150,camera position z(0)



rem Update screen
sync

rem End loop
endwhile

rem Delete Terrain
delete terrain TerrainNumber

Rem * Title  : Third Person Camera
Rem * Author : DBS-LB
Rem * Date   : 1st Sept 99
rem ===========================================
rem DARK BASIC EXAMPLE PROGRAM 3
rem ===========================================
rem This program operates a third person camera
rem -------------------------------------------

box 0,0,100,100 :ink 0,0
box 10,10,90,90 : ink rgb(128,128,128),0
get image 1,0,0,100,100

rem Make a simple scene for the camera to look at
make matrix 1,10000.0,10000.0,25,25
`load bitmap "floor1.bmp",1
`get image 1,0,0,256,256
`delete bitmap 1
prepare matrix texture 1,1,2,2
randomize matrix 1,50.0
set matrix height 1,12,12,300.0
update matrix 1

rem Create blob character to follow
make object sphere 1,100.0

rem Set variables for character position
x#=500
z#=500

rem Activate manual sync
sync rate 30 : sync on

rem Begin loop
do

  rem Control camera with arrow keys
  if upkey()=1    then x#=newxvalue(x#,a#, 10) : z#=newzvalue(z#,a#,10)
  if downkey()=1  then x#=newxvalue(x#,a#,-10) : z#=newzvalue(z#,a#,-10)
  if leftkey()=1  then a#=wrapvalue(a#-10.0)
  if rightkey()=1 then a#=wrapvalue(a#+10.0)

  rem Update character
  y#=get ground height(1,x#,z#)+50.0
  position object 1,x#,y#,z#
  yrotate object 1,a#

  rem Position camera to the back of the character
  cx#=newxvalue(x#,wrapvalue(a#+180),300)
  cz#=newzvalue(z#,wrapvalue(a#+180),300)
  cy#=get ground height(1,cx#,cz#)+100.0
  position camera cx#,cy#,cz#

  rem Point camera at object
  point camera x#,y#,z#

  rem Syncronise
  sync

rem End loop
loop