Sorry your browser is not supported!

Rem Project: DBPro Experiment
Rem Created: 11/29/2002 11:33:27 AM

Rem ***** Main Source File *****
hide mouse
autocam off
sync rate 60
sync on


make matrix 1, 10000, 10000, 50, 50
position matrix 1, 0, 0, 0
randomize matrix 1, 70
set matrix 1, 1, 0, 1, 2, 1, 1, 1
load image "Floor.bmp", 1
prepare matrix texture 1, 1, 1, 1
update matrix 1


make light 2
`color light 2, rgb(255, 0, 0)

Rem Make our character
`load object "Man.x", 1
`scale object 1, 25, 25, 25
`position object 1, 50, get ground height(1, 50, 50), 50
`xrotate object 1, -90
load bitmap "Shade.bmp", 2
get image 2, 0, 0, 16, 1
delete bitmap 2
load bitmap "Edge.bmp", 3
get image 3, 0, 0, 16, 1
delete bitmap 3
load object "Head.x", 1
rem set sphere mapping on 1, 2
set cartoon shading on 1, 2, 3
position object 1, 200, 50, 200
xrotate object 1, 90
position camera 0, 25, 0
x as integer
force# = 0
x = 0

do
   if upkey() = 1
      move camera 5
      position light 2, camera position x(), camera position y() + 50, camera position z()
   endif
   if downkey() = 1
      move camera -5
      position light 2, camera position x(), camera position y() + 50, camera position z()
   endif
   if leftkey() = 1 then turn camera left 3
   if rightkey() = 1 then turn camera right 3
   if controlkey() = 1
      if force# = 0
         force# = 30
         x = 1
      endif
   endif

   if force# > 0
      height#= (-1 * (x * x)) + (force# * x) + get ground height(1, camera position x(), camera position z()) + 25
      x = x + 1
      if height# < get ground height(1, camera position x(), camera position z()) + 25
         height# = get ground height(1, camera position x(), camera position z()) + 25
         force# = 0
         x = 0
      endif
   else
      if camera position y() < get ground height(1, camera position x(), camera position z()) + 25
         height# = get ground height(1, camera position x(), camera position z()) + 25
      endif
      if camera position y() > get ground height(1, camera position x(), camera position z()) + 25
         height# = get ground height(1, camera position x(), camera position z()) + 25
      endif
   endif

   position camera camera position x(), height#, camera position z()
   position light 2, camera position x(), camera position y(), camera position z()
   set cursor 10, 10
   print camera position x(); " "; camera position y(); " "; camera position z()
   set cursor 10, 20
   print camera angle x(); " "; camera angle y(); " "; camera angle z()
   set cursor 10, 30
   print screen fps()

   sync

loop