Sorry your browser is not supported!

load object "Path Here",1

perform checklist for object limbs 1

position object 1,0,0,0
position camera 0,0,5
point camera 0,0,0

do

for c=1 to checklist quantity()
   text 10,(c*20),checklist string$(c)
   text 110,(c*20),str$(checklist value a(c))
   text 210,(c*20),str$(checklist value b(c))
   text 310,(c*20),str$(checklist value c(c))
   text 410,(c*20),str$(checklist value d(c))
next c

control camera using arrowkeys 0,0.5,0.25
if shiftkey()=1 then move camera down 0.5
if controlkey()=1 then move camera up 0.5
loop

Function MakeLimbCube(ObjNum,Size#)
  Offset#=Size#/2.0: MeshNum=2000: PlainNum=2000
  Make Object Cube ObjNum,Size#
  Make Object Plain PlainNum,Size#,Size#
  Make Mesh From Object MeshNum,PlainNum
  ADD LIMB ObjNum,1,2000: Offset Limb ObjNum,1,0,0,0.0-Offset#: Rem Cube Side 1 (Front)
  ADD LIMB ObjNum,2,2000: Rotate Limb ObjNum,2,0,90,0: Offset Limb ObjNum,2,0.0-Offset#,0,0: Rem Cube Side 2 (Left)
  ADD LIMB ObjNum,3,2000: Rotate Limb ObjNum,3,0,180,0: Offset Limb ObjNum,3,0,0,Offset#:  Rem Cube Side 3 (Back)
  ADD LIMB ObjNum,4,2000: Rotate Limb ObjNum,4,0,270,0: Offset Limb ObjNum,4,Offset#,0,0:  Rem Cube Side 4 (Right)
  ADD LIMB ObjNum,5,2000: Rotate Limb ObjNum,5,270,0,0: Offset Limb ObjNum,5,0,0.0-Offset#,0: Rem Cube Side 5 (Bottom)
  ADD LIMB ObjNum,6,2000: Rotate Limb ObjNum,6,90,0,0: Offset Limb ObjNum,6,0,Offset#,0: Rem Cube Side 6 (Top)
  Delete Mesh MeshNum
  Delete Object PlainNum
  Hide Limb ObjNum,0
EndFunction

function GetGround()
      x1# = object position x(2001) : y1# = object position y(2001) : z1# = object position z(2001)
      `get a unit vector in the direction the player is facing, by moving the camera 1 unit!
      `move camera 1.0
      x2# = object position x(2001) : y2# = object position y(2001) : z2# = object position z(2001)
      `move camera -1.0

      `we will cast a ray 500 units long.
      dx# = x2# - x1#
      dy# = y2# - y1#
      dz# = z2# - z1#

      x2# = x1# + (dx# * 50.0)
      y2# = y1# + (dy# * 50.0)
      z2# = z1# + (dz# * 50.0)

      `cast the ray.  put start point in vector 1, end point in vector 2
      NDB_SetVector 1, x1#, y1#, z1#
      NDB_SetVector 2, x2#, y2#, z2#

      dist# = NDB_NewtonWorldrayCast()
endfunction

Rem Position the DBPro camera something like a 3rd person view option in a fps game :-)
position camera Object Position x (NDB_GetDBPro(fps)),Object Position y (NDB_GetDBPro(fps))+5,Object Position z (NDB_GetDBPro(fps))
rotate camera object angle x (NDB_GetDBPro(fps)),object angle y (NDB_GetDBPro(fps)),object angle z (NDB_GetDBPro(fps))
Rem Back Off Camera a bit
move camera -20

Rem Here we set the forces on the fps object (Movement)
Rem The first vector 1 is in this case (NDB_BodyAddForceLocal) saying
Rem WHERE on the fps object the force will be set.
Rem I have made a slight offset in the direction of the front of the object
Rem Which I will use to make the object turn. (I am making sure that
Rem the forces will be pushing it on the 'nose')
Rem (0.3 units in the Z direction, object front direction)
NDB_SetVector 1,0,0,1

Rem The second vector is telling NDB_BodyAddForceLocal how BIG the force will be
Rem Here we just reset it to 0 if no movement is made.
NDB_SetVector 2,0,0,0


Rem In this input sequence we are setting the second vector to the size of
Rem the force.
if upkey() then NDB_SetVector 2,0,0,force#
if downkey() then NDB_SetVector 2,0,0,-force#
if leftkey() then NDB_SetVector 2,-force#,0,0
if rightkey() then NDB_SetVector 2,force#,0,0
if spacekey() then NDB_SetVector 2,0,force#*2,0

Rem This commands read the contents of the Vector one and two and
Rem Adds the force with the position (Point in the objects Local space) (Vector 1)
Rem and the force vector (Vector 2 also in the objects local space )
NDB_BodyAddForceLocal fps