Sorry your browser is not supported!

sync on : sync rate 60
Hide mouse
autocam off
position camera 0,100,0
make object box 1,1000,10,1000

do
	set cursor 5,5
	print "Hold the "w" key to scale object, Releas it to be original size."
	set cursor 5,20
	if keystate(17) = 1
		scale object 1, 500,500,500
		print "object's size is 50 thick /2 = 25, camera is at 100 so should read 75"
	else
		scale object 1, 100,100,100
		print "object's size is 10 thick /2 = 5, camera is at 100 so should read 95"		
	endif
	set cursor 5,35
	print "distance to object = ",intersect object(1,camera position x(),camera position y(),camera position z(),camera position x(),camera position y()-125,camera position z())
	sync
loop

autocam off

Global EyeHeight as integer
EyeHeight = 32

load object "testgal.x", 1
set object collision to polygons 1

`create our camera collider
make object sphere 2, EyeHeight/2
set object collision on 2

`place the camera
position camera 0, 0, EyeHeight, 0

`place the collider object around the camera
position object 2, 0, EyeHeight, 0

set ambient light 100

MainLoop:
do

   set cursor 0, 0
   print camera position x(0),", ", camera position y(0),", ",Camera Position Z(0)

   CheckCollision()

   if SpaceKey() = 1
      `reset the camera to the start position
      `so that you can get out of being trapped
      position camera 0, 0, EyeHeight, 0
      position object 2, 0, EyeHeight, 0
   EndIf

loop

End

Function CheckCollision()

   `record the current camera position before the move
   ox#=camera position x(0)
   oy#=camera position y(0)
   oz#=camera position z(0)

   `accept the user's input
   Control camera using arrowkeys 0, 1, .5

   `record the new camera position
   nx#=camera position x(0)
   nz#=camera position z(0)

   `retrieve the floor height at nx#, nz#
   ny#=intersect object(1, nx#, oy#, nz#, nx#, -1000, nz#)


   `move our collider to the new position
    position object 2, nx#, ny#,nz#

    if object collision(2,0) <> 0
       `placing our collider in the new camera position has
       `caused a collision, so, we'll deal with that

       `first we'll move the object back to the old
       `X position and see if we still have a collision
       ny#=intersect object(1, ox#, oy#, nz#, ox#, -1000, nz#)
       Position object 2, ox#, ny#, nz#

       If Object Collision(2, 0)<>0

          `moving the object to the old X position still creates a
          `collision condition, so we'll see if we can at least
          `get the X portion of the move and loose the Z portion
          ny#=intersect object(1, nx#, oy#, oz#, nx#, -1000, oz#)
          Position Object 2, nx#, ny#, oz#

          If Object Collision(2, 0)<>0

             `this move creates a collision in both the X & Z axis
             `so we'll disallow all of it
             ny#=oy#
             nx#=ox#
             nz#=oz#

          Else

             `we can give the player the X portion of their move but not
             `the Z portion               `
             nz#=oz#

          EndIf

       Else

          `returning the object to its old X position creates a valid
          `move, so we'll give the player the Z portion of their move
          `alone.
          nx#=ox#

       EndIf

      `move the camera to the final adjudicated position
       Position Camera 0, nx#, ny#, nz#
       Position Object 2, nx#, ny#, nz#

   EndIf

EndFunction

`Main Source File
sync on : sync rate 0
autocam off : hide mouse

Global EyeHeight as integer
EyeHeight = 32

load object "testgal.x", 1
set object collision to polygons 1

`create our camera collider
global cam_obj as integer
cam_obj = 2
make object sphere cam_obj, EyeHeight/2
set object collision on cam_obj

`place the camera
position camera 0, 0, EyeHeight, 0

`place the collider object around the camera
position object cam_obj, 0, EyeHeight, 0

set ambient light 100

MainLoop:
do


   CheckCollision()

   if SpaceKey() = 1
      `reset the camera to the start position
      `so that you can get out of being trapped
      position camera 0, 0, EyeHeight, 0
      position object cam_obj, 0, EyeHeight, 0
   EndIf
	sync
	
loop

End

Function CheckCollision()

   `record the current camera position before the move
   ox#=object position x(cam_obj)
   oy#=object position y(cam_obj)
   oz#=object position z(cam_obj)

   `accept the user's input
   `Control camera using arrowkeys 0, 1, .5
	`mouselook
   rotate object cam_obj, object angle x(cam_obj)+(mousemovey()/2),object angle y(cam_obj)+(mousemovex()/2),0
   if object angle x(cam_obj)>90 then xrotate object cam_obj,90
   if object angle x(cam_obj)<-90 then xrotate object cam_obj,-90
   cx#=object angle x(cam_obj) : cy#=object angle y(cam_obj) : cz#=object angle z(cam_obj)
   rotate camera cx#,cy#,cz#
   circle screen width()/2,screen height()/2,8
	`movement
	if upkey()=1 then xrotate object cam_obj,0 : move object cam_obj,1 : xrotate object cam_obj,cx#
	if downkey()=1 then xrotate object cam_obj,0 : move object cam_obj,-1 : xrotate object cam_obj,cx#
	if leftkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,1.25 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#
	if rightkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,-1.25 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#


   `record the new camera position
   nx#=object position x(cam_obj)
   nz#=object position z(cam_obj)

   `retrieve the floor height at nx#, nz#
   ny#=EyeHeight + (oy#-intersect object(1, nx#, oy#, nz#, nx#, -1000, nz#))


   `move our collider to the new position
    position object cam_obj, nx#, ny#,nz#

    if object collision(cam_obj,0) <> 0
       `placing our collider in the new camera position has
       `caused a collision, so, we'll deal with that

       `first we'll move the object back to the old
       `X position and see if we still have a collision
       ny#=EyeHeight + (oy#-intersect object(1, nx#, oy#, nz#, nx#, -1000, nz#))
       Position object cam_obj, ox#, ny#, nz#

       If Object Collision(cam_obj, 0)<>0

          `moving the object to the old X position still creates a
          `collision condition, so we'll see if we can at least
          `get the X portion of the move and loose the Z portion
          ny#=EyeHeight + (oy#-intersect object(1, nx#, oy#, nz#, nx#, -1000, nz#))
          Position Object cam_obj, nx#, ny#, oz#

          If Object Collision(cam_obj, 0)<>0

             `this move creates a collision in both the X & Z axis
             `so we'll disallow all of it
             ny#=oy#
             nx#=ox#
             nz#=oz#

          Else

             `we can give the player the X portion of their move but not
             `the Z portion               `
             nz#=oz#

          EndIf

       Else

          `returning the object to its old X position creates a valid
          `move, so we'll give the player the Z portion of their move
          `alone.
          nx#=ox#

       EndIf
   
   EndIf

   `move the camera to the final adjudicated position
   Position Camera 0, nx#, ny#, nz#
   Position Object cam_obj, nx#, ny#, nz#

   set cursor 0, 0
   print ny#,", ", intersect object(1, nx#, oy#, nz#, nx#, -1000, nz#),", ",oy#

EndFunction

   `move the camera to the final adjudicated position
   Position Camera 0, nx#-(object size x(2)/4), ny#, nz#
   Position Object cam_obj, nx#, ny#, nz#

   set cursor 0, 0
   print object position x(2)," ", object position y(2)," ",object position z(2)

EndFunction

`Main Source File
sync on : sync rate 0
autocam off : hide mouse

Global EyeHeight as integer
EyeHeight = 32

load object "testgal.x", 1
set object collision to polygons 1

`create our camera collider
global cam_obj as integer
cam_obj = 2
make object sphere cam_obj, EyeHeight/2
set object collision on cam_obj
hide object cam_obj

`place the camera
position camera 0, 0, EyeHeight, 0

`place the collider object around the camera
position object cam_obj, 0, EyeHeight, 0

set ambient light 100

MainLoop:
do


   CheckCollision()

   if SpaceKey() = 1
      `reset the camera to the start position
      `so that you can get out of being trapped
      position camera 0, 0, EyeHeight, 0
      position object cam_obj, 0, EyeHeight, 0
   EndIf
	sync
	
loop

End

Function CheckCollision()

   `record the current camera position before the move
   ox#=object position x(cam_obj)
   oy#=object position y(cam_obj)
   oz#=object position z(cam_obj)

   `accept the user's input
   `Control camera using arrowkeys 0, 1, .5
	`mouselook
   rotate object cam_obj, object angle x(cam_obj)+(mousemovey()/2),object angle y(cam_obj)+(mousemovex()/2),0
   if object angle x(cam_obj)>90 then xrotate object cam_obj,90
   if object angle x(cam_obj)<-90 then xrotate object cam_obj,-90
   cx#=object angle x(cam_obj) : cy#=object angle y(cam_obj) : cz#=object angle z(cam_obj)
   rotate camera cx#,cy#,cz#
   circle screen width()/2,screen height()/2,8
	`movement
	if upkey()=1 then xrotate object cam_obj,0 : move object cam_obj,1 : xrotate object cam_obj,cx#
	if downkey()=1 then xrotate object cam_obj,0 : move object cam_obj,-1 : xrotate object cam_obj,cx#
	if leftkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,1.25 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#
	if rightkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,-1.25 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#


   `record the new camera position
   nx#=object position x(cam_obj)
   nz#=object position z(cam_obj)

   `retrieve the floor height at nx#, nz#
   ny#=EyeHeight + (oy#-intersect object(1, nx#, oy#, nz#, nx#, -1000, nz#))


   `move our collider to the new position
    position object cam_obj, nx#, ny#, nz#

    if object collision(cam_obj,0) <> 0
       `try using the old y position to get rid of collision
       `if not then check x and z
       position object cam_obj, nx#, oy#, nz#
       if object collision(cam_obj, 0)<>0
	       `placing our collider in the new camera position has
	       `caused a collision, so, we'll deal with that
	
	       `first we'll move the object back to the old
	       `X position and see if we still have a collision
	       Position object cam_obj, ox#, ny#, nz#
	
	       If Object Collision(cam_obj, 0)<>0
	
	          `moving the object to the old X position still creates a
	          `collision condition, so we'll see if we can at least
	          `get the X portion of the move and loose the Z portion
	          Position Object cam_obj, nx#, ny#, oz#
	
	          If Object Collision(cam_obj, 0)<>0
	
	             `this move creates a collision in both the X & Z axis
	             `so we'll disallow all of it
	             ny#=oy#
	             nx#=ox#
	             nz#=oz#
	
	          Else
	
	             `we can give the player the X portion of their move but not
	             `the Z portion               `
	             nz#=oz#
	
	          EndIf
	
	       Else
	
	          `returning the object to its old X position creates a valid
	          `move, so we'll give the player the Z portion of their move
	          `alone.
	          nx#=ox#
	
	       EndIf
	   else
	      ny# = oy# 	
   	endif
   
   EndIf

   `move the camera to the final adjudicated position
   Position Camera 0, nx#, ny#, nz#
   Position Object cam_obj, nx#, ny#, nz#

   set cursor 0, 0
   print ny#,", ", intersect object(1, nx#, oy#, nz#, nx#, -1000, nz#),", ",oy#

EndFunction

`Main Source File
sync on : sync rate 0
autocam off : hide mouse
set camera range .01, 3000
Global EyeHeight as integer
EyeHeight = 32

load object "testgal.x", 1
set object collision to polygons 1

`create our camera collider
global cam_obj as integer
cam_obj = 2
make object sphere cam_obj, EyeHeight
set object collision on cam_obj
hide object cam_obj

`place the camera
position camera 0, 0, EyeHeight, 0

`place the collider object around the camera
position object cam_obj, 0, EyeHeight, 0

set ambient light 100

MainLoop:
do


   CheckCollision()

   if SpaceKey() = 1
      `reset the camera to the start position
      `so that you can get out of being trapped
      position camera 0, 0, EyeHeight, 0
      position object cam_obj, 0, EyeHeight, 0
   EndIf
	sync
	
loop

End

Function CheckCollision()

   `record the current camera position before the move
   ox#=object position x(cam_obj)
   oy#=object position y(cam_obj)
   oz#=object position z(cam_obj)

   `accept the user's input
   `Control camera using arrowkeys 0, 1, .5
	`mouselook
   rotate object cam_obj, object angle x(cam_obj)+(mousemovey()/2),object angle y(cam_obj)+(mousemovex()/2),0
   if object angle x(cam_obj)>90 then xrotate object cam_obj,90
   if object angle x(cam_obj)<-90 then xrotate object cam_obj,-90
   cx#=object angle x(cam_obj) : cy#=object angle y(cam_obj) : cz#=object angle z(cam_obj)
   rotate camera cx#,cy#,cz#
   circle screen width()/2,screen height()/2,8
	`movement
	if upkey()=1 then xrotate object cam_obj,0 : move object cam_obj,1 : xrotate object cam_obj,cx#
	if downkey()=1 then xrotate object cam_obj,0 : move object cam_obj,-1 : xrotate object cam_obj,cx#
	if leftkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,1.25 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#
	if rightkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,-1.25 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#


   `record the new camera position
   nx#=object position x(cam_obj)
   nz#=object position z(cam_obj)

   `retrieve the floor height at nx#, nz#
   ny#=EyeHeight + (oy#-intersect object(1, nx#, oy#, nz#, nx#, -1000, nz#))


   `move our collider to the new position
    position object cam_obj, nx#, ny#, nz#

    if object collision(cam_obj,0) <> 0
       `try using the old y position to get rid of collision
       `if not then check x and z
       position object cam_obj, nx#, oy#, nz#
       if object collision(cam_obj, 0)<>0
	       `placing our collider in the new camera position has
	       `caused a collision, so, we'll deal with that
	
	       `first we'll move the object back to the old
	       `X position and see if we still have a collision
	       Position object cam_obj, ox#, ny#, nz#
	
	       If Object Collision(cam_obj, 0)<>0
	
	          `moving the object to the old X position still creates a
	          `collision condition, so we'll see if we can at least
	          `get the X portion of the move and loose the Z portion
	          Position Object cam_obj, nx#, ny#, oz#
	
	          If Object Collision(cam_obj, 0)<>0
	
	             `this move creates a collision in both the X & Z axis
	             `so we'll disallow all of it
	             ny#=oy#
	             nx#=ox#
	             nz#=oz#
	
	          Else
	
	             `we can give the player the X portion of their move but not
	             `the Z portion               `
	             nz#=oz#
	
	          EndIf
	
	       Else
	
	          `returning the object to its old X position creates a valid
	          `move, so we'll give the player the Z portion of their move
	          `alone.
	          nx#=ox#
	
	       EndIf
	   else
	      ny# = oy# 	
   	endif
   
   EndIf

   `move the camera to the final adjudicated position
   Position Camera 0, nx#-(object size x(2)/4), ny#, nz#
   Position Object cam_obj, nx#, ny#, nz#

   set cursor 0, 0
   print ny#,", ", object collision(cam_obj,0),", ",oy#

EndFunction

`Main Source File
sync on : sync rate 0
autocam off : hide mouse
set camera range .1, 5000
Global EyeHeight as integer
EyeHeight = 32

load object "test sewer.x", 1
set object collision to polygons 1

`create our camera collider
global cam_obj as integer
cam_obj = 2
make object sphere cam_obj, EyeHeight/2
set object collision on cam_obj
hide object cam_obj

`place the camera
position camera 0, 0, EyeHeight, 0

`place the collider object around the camera
position object cam_obj, 0, EyeHeight, 0

set ambient light 100

MainLoop:
do


   CheckCollision()

   if SpaceKey() = 1
      `reset the camera to the start position
      `so that you can get out of being trapped
      position camera 0, 0, EyeHeight, 0
      position object cam_obj, 0, EyeHeight, 0
   EndIf
	sync
	
loop

End

Function CheckCollision()

   `record the current camera position before the move
   ox#=object position x(cam_obj)
   oy#=object position y(cam_obj)
   oz#=object position z(cam_obj)

   `accept the user's input
   `Control camera using arrowkeys 0, 1, .5
	`mouselook
   rotate object cam_obj, object angle x(cam_obj)+(mousemovey()/2),object angle y(cam_obj)+(mousemovex()/2),0
   if object angle x(cam_obj)>90 then xrotate object cam_obj,90
   if object angle x(cam_obj)<-90 then xrotate object cam_obj,-90
   cx#=object angle x(cam_obj) : cy#=object angle y(cam_obj) : cz#=object angle z(cam_obj)
   rotate camera cx#, cy#, cz#
   rotate object cam_obj, cx#, cy#, cz#
   circle screen width()/2,screen height()/2,8
	`movement
	if upkey()=1 then xrotate object cam_obj,0 : move object cam_obj,5 : xrotate object cam_obj,cx#
	if downkey()=1 then xrotate object cam_obj,0 : move object cam_obj,-5 : xrotate object cam_obj,cx#
	if leftkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,5 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#
	if rightkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,-5 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#


   `record the new camera position
   nx#=object position x(cam_obj)
   nz#=object position z(cam_obj)

   `retrieve the floor height at nx#, nz#
   ny#=EyeHeight + (oy#-intersect object(1, nx#, oy#, nz#, nx#, -1000, nz#))

	`To fix the south/north wall problem (presumably a DBP collision bug or I am 
	`just too sleepy to see the error)
	`check to see if the distance to collision is less than half the object's
	`size and if it is then nx# = ox#
	newxsouth# = intersect object(1,nx#,ny#,nz#,nx#+(EyeHeight/2),ny#,nz#)
	if newxsouth# > object size x(2)/2
		nx# = ox#
	endif

	`To fix the east/west wall problem (presumably a DBP collision bug or I am 
	`just too sleepy to see the error)
	`check to see if the distance to collision is less than half the object's
	`size and if it is then nx# = ox#
	newxwest# = intersect object(1,nx#,ny#,nz#,nx#,ny#,nz#+(EyeHeight/2))
	if newxwest# > object size z(2)/2
		nz# = oz#
	endif

   `move our collider to the new position
    position object cam_obj, nx#, ny#, nz#

    if object collision(cam_obj,0) <> 0
       `try using the old y position to get rid of collision
       `if not then check x and z
       position object cam_obj, nx#, oy#, nz#
       if object collision(cam_obj, 0)<>0
	       `placing our collider in the new camera position has
	       `caused a collision, so, we'll deal with that
	
	       `first we'll move the object back to the old
	       `X position and see if we still have a collision
	       Position object cam_obj, ox#, ny#, nz#
	
	       If Object Collision(cam_obj, 0)<>0
	
	          `moving the object to the old X position still creates a
	          `collision condition, so we'll see if we can at least
	          `get the X portion of the move and loose the Z portion
	          Position Object cam_obj, nx#, ny#, oz#
	
	          If Object Collision(cam_obj, 0)<>0
	
	             `this move creates a collision in both the X & Z axis
	             `so we'll disallow all of it
	             ny#=oy#
	             nx#=ox#
	             nz#=oz#
	
	          Else
	
	             `we can give the player the X portion of their move but not
	             `the Z portion               `
	             nz#=oz#
	
	          EndIf
	
	       Else
	
	          `returning the object to its old X position creates a valid
	          `move, so we'll give the player the Z portion of their move
	          `alone.
	          nx#=ox#
	
	       EndIf
	   else
	      ny# = oy# 	
   	endif
   
   EndIf

   `move the camera to the final adjudicated position
   Position Camera 0, nx#, ny#, nz#
   Position Object cam_obj, nx#, ny#, nz#
   set cursor 0, 0
   print screen fps(),", ", object size x(2)/2,", ",oy#

EndFunction

`Main Source File
sync on : sync rate 0
autocam off : hide mouse
set camera range .1, 5000
Global EyeHeight as integer
EyeHeight = 32

load object "test sewer.x", 1
set object collision to polygons 1

`create our camera collider
global cam_obj as integer
cam_obj = 2
make object sphere cam_obj, EyeHeight/2
set object collision on cam_obj
hide object cam_obj

`place the camera
position camera 0, 0, EyeHeight, 0

`place the collider object around the camera
position object cam_obj, 0, EyeHeight, 0

set ambient light 100

MainLoop:
do


   CheckCollision()

   if SpaceKey() = 1
      `reset the camera to the start position
      `so that you can get out of being trapped
      position camera 0, 0, EyeHeight, 0
      position object cam_obj, 0, EyeHeight, 0
   EndIf
	sync
	
loop

End

Function CheckCollision()

   `record the current camera position before the move
   ox#=object position x(cam_obj)
   oy#=object position y(cam_obj)
   oz#=object position z(cam_obj)

   `accept the user's input
   `Control camera using arrowkeys 0, 1, .5
	`mouselook
   rotate object cam_obj, object angle x(cam_obj)+(mousemovey()/2),object angle y(cam_obj)+(mousemovex()/2),0
   if object angle x(cam_obj)>90 then xrotate object cam_obj,90
   if object angle x(cam_obj)<-90 then xrotate object cam_obj,-90
   cx#=object angle x(cam_obj) : cy#=object angle y(cam_obj) : cz#=object angle z(cam_obj)
   rotate camera cx#, cy#, cz#
   rotate object cam_obj, cx#, cy#, cz#
   circle screen width()/2,screen height()/2,8
	`movement
	if upkey()=1 then xrotate object cam_obj,0 : move object cam_obj,5 : xrotate object cam_obj,cx#
	if downkey()=1 then xrotate object cam_obj,0 : move object cam_obj,-5 : xrotate object cam_obj,cx#
	if leftkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,5 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#
	if rightkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,-5 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#


   `record the new camera position
   nx#=object position x(cam_obj)
   nz#=object position z(cam_obj)

   `retrieve the floor height at nx#, nz#
   ny#=EyeHeight + (oy#-intersect object(1, nx#, oy#, nz#, nx#, -1000, nz#))

	`To fix the south/north wall problem (presumably a DBP collision bug or I am 
	`just too sleepy to see the error)
	`check to see if the distance to collision is less than half the object's
	`size and if it is then nx# = ox#
	newxsouth# = intersect object(1,nx#-(EyeHeight/2),ny#,nz#,nx#+(EyeHeight/2),ny#,nz#)
	if newxsouth# > 0
		if newxsouth# > ((object size x(2)/2)*3) or newxsouth# < object size x(2)/2
			nx# = ox#
		endif
	endif
	`To fix the east/west wall problem (presumably a DBP collision bug or I am 
	`just too sleepy to see the error)
	`check to see if the distance to collision is less than half the object's
	`size and if it is then nx# = ox#
	newzwest# = intersect object(1,nx#,ny#,nz#-(EyeHeight/2),nx#,ny#,nz#+(EyeHeight/2))
	if newzwest# > 0
		if newzwest# > ((object size z(2)/2)*3) or newzwest# < object size x(2)/2
			nz# = oz#
		endif
	endif
   `move our collider to the new position
    position object cam_obj, nx#, ny#, nz#

    if object collision(cam_obj,0) <> 0
       `try using the old y position to get rid of collision
       `if not then check x and z
       position object cam_obj, nx#, oy#, nz#
       if object collision(cam_obj, 0)<>0
	       `placing our collider in the new camera position has
	       `caused a collision, so, we'll deal with that
	
	       `first we'll move the object back to the old
	       `X position and see if we still have a collision
	       Position object cam_obj, ox#, ny#, nz#
	
	       If Object Collision(cam_obj, 0)<>0
	
	          `moving the object to the old X position still creates a
	          `collision condition, so we'll see if we can at least
	          `get the X portion of the move and loose the Z portion
	          Position Object cam_obj, nx#, ny#, oz#
	
	          If Object Collision(cam_obj, 0)<>0
	
	             `this move creates a collision in both the X & Z axis
	             `so we'll disallow all of it
	             ny#=oy#
	             nx#=ox#
	             nz#=oz#
	
	          Else
	
	             `we can give the player the X portion of their move but not
	             `the Z portion               `
	             nz#=oz#
	
	          EndIf
	
	       Else
	
	          `returning the object to its old X position creates a valid
	          `move, so we'll give the player the Z portion of their move
	          `alone.
	          nx#=ox#
	
	       EndIf
	   else
	      ny# = oy# 	
   	endif
   
   EndIf

   `move the camera to the final adjudicated position
   Position Camera 0, nx#, ny#, nz#
   Position Object cam_obj, nx#, ny#, nz#
   set cursor 0, 0
   print screen fps(),", ", object size x(2)/2,", ",oy#

EndFunction

`Main Source File
sync on : sync rate 0
autocam off : hide mouse
set camera range .1, 5000
Global EyeHeight as integer
EyeHeight = 32

load object "test sewer.x", 1
set object collision to polygons 1
`setup level for Sparky's collision dll
`setup object 1 of group 0 (not using groups) and break it up into 2 faces per node
setupComplexObject 1,0,2

`create our camera collider
global cam_obj as integer
cam_obj = 2
make object sphere cam_obj, EyeHeight/2
set object collision on cam_obj
hide object cam_obj

`place the camera
position camera 0, 0, EyeHeight, 0

`place the collider object around the camera
position object cam_obj, 0, EyeHeight, 0

set ambient light 100

MainLoop:
do


   CheckCollision()

   if SpaceKey() = 1
      `reset the camera to the start position
      `so that you can get out of being trapped
      position camera 0, 0, EyeHeight, 0
      position object cam_obj, 0, EyeHeight, 0
   EndIf
	sync
	
loop

End

delete memblock 1 
`this line is never executed but we must include it so that DBPro
`knows to include the memblock commands into the exe (Sparky's dll uses them)

Function CheckCollision()

   `record the current camera position before the move
   ox#=object position x(cam_obj)
   oy#=object position y(cam_obj)
   oz#=object position z(cam_obj)

   `accept the user's input
   `Control camera using arrowkeys 0, 1, .5
	`mouselook
   rotate object cam_obj, object angle x(cam_obj)+(mousemovey()/2),object angle y(cam_obj)+(mousemovex()/2),0
   if object angle x(cam_obj)>90 then xrotate object cam_obj,90
   if object angle x(cam_obj)<-90 then xrotate object cam_obj,-90
   cx#=object angle x(cam_obj) : cy#=object angle y(cam_obj) : cz#=object angle z(cam_obj)
   rotate camera cx#, cy#, cz#
   rotate object cam_obj, cx#, cy#, cz#
   circle screen width()/2,screen height()/2,8
	`movement
	if upkey()=1 then xrotate object cam_obj,0 : move object cam_obj,5 : xrotate object cam_obj,cx#
	if downkey()=1 then xrotate object cam_obj,0 : move object cam_obj,-5 : xrotate object cam_obj,cx#
	if leftkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,5 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#
	if rightkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,-5 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#


   `record the new camera position
   nx#=object position x(cam_obj)
   nz#=object position z(cam_obj)

	`Use Sparky's intersectobject command to get floor height and wall errors dist.
	`Usage intersectobject(obj/group num, flag = 0 for use object num, ox#, oy#, oz#, nx#, ny#, nz#, exclude object num)
	collide = intersectobject(1, 0, nx#, oy#, nz#, nx#, -1000, nz#, 0)
   if collide > 0
	   `retrieve the floor height at nx#, nz#
	   `if collision detected cdist# = distance to closest collision
	   cdist# = GetCollisionDistance ()
	   ny#=EyeHeight + (oy#-cdist#)
   endif
   
	`To fix the south/north wall problem (presumably a DBP collision bug or I am 
	`just too sleepy to see the error)
	`check to see if the distance to collision is less than half the object's
	`size and if it is then nx# = ox#
	collide = intersectobject(1, 0, nx#-(EyeHeight/2), ny#, nz#, nx#+(EyeHeight/2), ny#, nz#, 0)
   if collide > 0
	   `retrieve the floor height at nx#, nz#
	   newxsouth# = GetCollisionDistance ()
   endif
	if newxsouth# > 0
		if newxsouth# > ((object size x(2)/2)*3) or newxsouth# < object size x(2)/2
			nx# = ox#
		endif
	endif
	`To fix the east/west wall problem (presumably a DBP collision bug or I am 
	`just too sleepy to see the error)
	`check to see if the distance to collision is less than half the object's
	`size and if it is then nx# = ox#
	collide = intersectobject(1, 0, nx#-(EyeHeight/2), ny#, nz#, nx#+(EyeHeight/2), ny#, nz#, 0)
   if collide > 0
	   `retrieve the floor height at nx#, nz#
	   newzwest# = GetCollisionDistance ()
   endif
	if newzwest# > 0
		if newzwest# > ((object size z(2)/2)*3) or newzwest# < object size x(2)/2
			nz# = oz#
		endif
	endif
   
   `move our collider to the new position
    position object cam_obj, nx#, ny#, nz#

    if object collision(cam_obj,0) <> 0
       `try using the old y position to get rid of collision
       `if not then check x and z
       position object cam_obj, nx#, oy#, nz#
       if object collision(cam_obj, 0)<>0
	       `placing our collider in the new camera position has
	       `caused a collision, so, we'll deal with that
	
	       `first we'll move the object back to the old
	       `X position and see if we still have a collision
	       Position object cam_obj, ox#, ny#, nz#
	
	       If Object Collision(cam_obj, 0)<>0
	
	          `moving the object to the old X position still creates a
	          `collision condition, so we'll see if we can at least
	          `get the X portion of the move and loose the Z portion
	          Position Object cam_obj, nx#, ny#, oz#
	
	          If Object Collision(cam_obj, 0)<>0
	
	             `this move creates a collision in both the X & Z axis
	             `so we'll disallow all of it
	             ny#=oy#
	             nx#=ox#
	             nz#=oz#
	
	          Else
	
	             `we can give the player the X portion of their move but not
	             `the Z portion               `
	             nz#=oz#
	
	          EndIf
	
	       Else
	
	          `returning the object to its old X position creates a valid
	          `move, so we'll give the player the Z portion of their move
	          `alone.
	          nx#=ox#
	
	       EndIf
	   else
	      ny# = oy# 	
   	endif
   
   EndIf

   `move the camera to the final adjudicated position
   Position Camera 0, nx#, ny#, nz#
   Position Object cam_obj, nx#, ny#, nz#
   set cursor 0, 0
   print screen fps(),", ",statistic(1)

EndFunction

`Main Source File
   rem SOME globals to make (SetCollisions) and ray-cast
   rem statements easier to read
      #Constant TYPE_NGC_ELLIP=1
      #Constant TYPE_NGC_MESH=2

      #Constant ELLIP_2_ELLIP=1
      #Constant ELLIP_2_POLY=2

      #Constant RESP_STICK=1
      #Constant RESP_SLIDE=2
      #Constant RESP_SLIDE_NO_SLOPES=3
      #Constant RESP_SLIDE_NO_GRAV=4
      #Constant RESP_NONE=5

      #Constant DYN_NO_RESP=1
      #Constant DYN_RESP=2
      #Constant DYN_RESP_LOCK=3
      #Constant DYN_RESP_LOCK_NOTURN=4

sync on : sync rate 0
autocam off : hide mouse
set camera range .1, 5000
Global EyeHeight as integer
EyeHeight = 32

rem
rem   Scene settings
rem

   rem Starts the collision system, this MUST be called before you can call any other
   rem collision commands
   StartCollisionPRO(000000000,000000000,000000000)

   rem This line puts the collision system in Debug mode. If there is an error
   rem (like you try to set an object that doesn't exist) this will make a box
   rem popup notifying you of the error. If you take this line out, the system
   rem will do its best to silently stop any errors that occur. (without crashing
   rem your program)  It's recommended that you leave this line in while you're
   rem developing the application, then take it out before you make the final release
   StartCollisionDebugPRO()

   rem These are constants to hold our "collision types". One type represents a "group"
   rem of objects. (for instance: world objects, enemy objects, etc.)
   rem The are Constant to make things clean, it is not required to use constants.
   rem These can be anything, as long as their value is less than 300 and greater than 0.
   #Constant TYPE_PLAYER = 1
   #Constant TYPE_WORLD = 2

   rem The player settings.
   rem What it all does ---
   rem     <>  We want the player to collide with the world objects using ellipsoid
   rem     to poly collision. Then we set the standard response to "RESP_SLIDE_NO_GRAV" so
   rem     we'll have standard sliding collision, AND you won't slide down slopes,
   rem     AND when you walk up slopes any downward gravity force won't fight you.
   rem     Then we set Dynamic response to "DYN_NO_RESP" for non-moving meshes
   rem     NOTE:  The last parameter is only used for "ELLIP_2_POLY" definitions
   SetCollisionsPro( TYPE_PLAYER, TYPE_WORLD, ELLIP_2_POLY, RESP_SLIDE_NO_GRAV, DYN_NO_RESP )


load object "test sewer.x", 1
      rem Sets the level to type_world
      CollisionTypePRO( 1, TYPE_WORLD )

`create our camera collider
global cam_obj as integer
cam_obj = 2
make object sphere cam_obj, EyeHeight/2
hide object cam_obj
      rem Sets the camera object to "TYPE_FOLLOW_CAM" as the camera start
      rem in the camera mode that follows the player
      CollisionTypePRO( cam_obj, TYPE_PLAYER )
      rem Sets the sizes of the ellip of the Player
      SetObjRadiusPRO( cam_obj, EyeHeight/2, EyeHeight/2, EyeHeight/2 )
      `set object gravity
      SetObjGravityPRO( cam_obj, 5 )

`place the camera
position camera 0, 0, EyeHeight, 0

`place the collider object around the camera
position object cam_obj, 0, EyeHeight, 0

set ambient light 100

MainLoop:
do


   CheckCollision()

   if SpaceKey() = 1
      `reset the camera to the start position
      `so that you can get out of being trapped
      position camera 0, 0, EyeHeight, 0
      position object cam_obj, 0, EyeHeight, 0
   EndIf
	sync
	
loop

End

Function CheckCollision()

   `accept the user's input
   `Control camera using arrowkeys 0, 1, .5
	`mouselook
   rotate object cam_obj, object angle x(cam_obj)+(mousemovey()/2),object angle y(cam_obj)+(mousemovex()/2),0
   if object angle x(cam_obj)>90 then xrotate object cam_obj,90
   if object angle x(cam_obj)<-90 then xrotate object cam_obj,-90
   cx#=object angle x(cam_obj) : cy#=object angle y(cam_obj) : cz#=object angle z(cam_obj)
   rotate camera cx#, cy#, cz#
   rotate object cam_obj, cx#, cy#, cz#
   circle screen width()/2,screen height()/2,8
	`movement
	if upkey()=1 then xrotate object cam_obj,0 : move object cam_obj,5 : xrotate object cam_obj,cx#
	if downkey()=1 then xrotate object cam_obj,0 : move object cam_obj,-5 : xrotate object cam_obj,cx#
	if leftkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,5 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#
	if rightkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,-5 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#


   `record the new camera position
   ox#=object position x(cam_obj)
   oz#=object position z(cam_obj)
	oy#=object position y(cam_obj)

   RunCollisionPRO()
   `record the new camera position
   nx#=object position x(cam_obj)
   nz#=object position z(cam_obj)
	ny#=object position y(cam_obj)

   `move the camera to the final adjudicated position
   Position Camera 0, nx#, ny#, nz#
   
   set cursor 0, 0
   print screen fps(),", ",statistic(1)
   
EndFunction

`Main Source File
   rem SOME globals to make (SetCollisions) and ray-cast
   rem statements easier to read
      #Constant NCULL_COUNTER_CLOCK 1
      #Constant NCULL_CLOCK 2
      #Constant NCULL_NONE 3

      #Constant TYPE_NGC_ELLIP=1
      #Constant TYPE_NGC_MESH=2

      #Constant ELLIP_2_ELLIP=1
      #Constant ELLIP_2_POLY=2

      #Constant RESP_STICK=1
      #Constant RESP_SLIDE=2
      #Constant RESP_SLIDE_NO_SLOPES=3
      #Constant RESP_SLIDE_NO_GRAV=4
      #Constant RESP_SLIDE_NO_ACCEL=5
      #Constant RESP_NONE=6

      #Constant DYN_NO_RESP=1
      #Constant DYN_RESP=2
      #Constant DYN_RESP_NOTURN=3
      
sync on : sync rate 0
autocam off : hide mouse
set camera range .1, 5000
Global EyeHeight as integer
EyeHeight = 32

rem
rem   Scene settings
rem

   rem Starts the collision system, this MUST be called before you can call any other
   rem collision commands
   StartCollisionPRO(000000000,000000000,000000000)

   rem This line puts the collision system in Debug mode. If there is an error
   rem (like you try to set an object that doesn't exist) this will make a box
   rem popup notifying you of the error. If you take this line out, the system
   rem will do its best to silently stop any errors that occur. (without crashing
   rem your program)  It's recommended that you leave this line in while you're
   rem developing the application, then take it out before you make the final release
   StartCollisionDebugPRO()

	SetOctreeBuild( 1 )
	SetOctreeThreshold( 100 )


   rem These are constants to hold our "collision types". One type represents a "group"
   rem of objects. (for instance: world objects, enemy objects, etc.)
   rem The are Constant to make things clean, it is not required to use constants.
   rem These can be anything, as long as their value is less than 300 and greater than 0.
   #Constant TYPE_PLAYER = 1
   #Constant TYPE_WORLD = 2

   rem The player settings.
   rem What it all does ---
   rem     <>  We want the player to collide with the world objects using ellipsoid
   rem     to poly collision. Then we set the standard response to "RESP_SLIDE_NO_GRAV" so
   rem     we'll have standard sliding collision, AND you won't slide down slopes,
   rem     AND when you walk up slopes any downward gravity force won't fight you.
   rem     Then we set Dynamic response to "DYN_NO_RESP" for non-moving meshes
   SetCollisionsPro( TYPE_PLAYER, TYPE_WORLD, ELLIP_2_POLY, RESP_SLIDE_NO_GRAV, DYN_NO_RESP, 0 )


load object "test sewer.x", 1
      rem Sets the level to type_world
      CollisionTypePRO( 1, TYPE_WORLD )

`create our camera collider
global cam_obj as integer
cam_obj = 2
make object sphere cam_obj, EyeHeight/2
hide object cam_obj
      rem Sets the camera object to "TYPE_FOLLOW_CAM" as the camera start
      rem in the camera mode that follows the player
      CollisionTypePRO( cam_obj, TYPE_PLAYER )
      rem Sets the sizes of the ellip of the Player
      SetObjRadiusPRO( cam_obj, EyeHeight/2, EyeHeight/2, EyeHeight/2 )
      `set object gravity
      SetObjGravityPRO( cam_obj, 5 )

`place the camera
position camera 0, 0, EyeHeight, 0

`place the collider object around the camera
position object cam_obj, 0, EyeHeight, 0

set ambient light 100

MainLoop:
do


   CheckCollision()

   if SpaceKey() = 1
      `reset the camera to the start position
      `so that you can get out of being trapped
      position camera 0, 0, EyeHeight, 0
      position object cam_obj, 0, EyeHeight, 0
   EndIf
	sync
	
loop

End

Function CheckCollision()

   `accept the user's input
   `Control camera using arrowkeys 0, 1, .5
	`mouselook
   rotate object cam_obj, object angle x(cam_obj)+(mousemovey()/2),object angle y(cam_obj)+(mousemovex()/2),0
   if object angle x(cam_obj)>90 then xrotate object cam_obj,90
   if object angle x(cam_obj)<-90 then xrotate object cam_obj,-90
   cx#=object angle x(cam_obj) : cy#=object angle y(cam_obj) : cz#=object angle z(cam_obj)
   rotate camera cx#, cy#, cz#
   rotate object cam_obj, cx#, cy#, cz#
   circle screen width()/2,screen height()/2,8
	`movement
	if upkey()=1 then xrotate object cam_obj,0 : move object cam_obj,5 : xrotate object cam_obj,cx#
	if downkey()=1 then xrotate object cam_obj,0 : move object cam_obj,-5 : xrotate object cam_obj,cx#
	if leftkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,5 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#
	if rightkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,-5 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#


   `record the new camera position
   ox#=object position x(cam_obj)
   oz#=object position z(cam_obj)
	oy#=object position y(cam_obj)

   RunCollisionPRO()
   `record the new camera position
   nx#=object position x(cam_obj)
   nz#=object position z(cam_obj)
	ny#=object position y(cam_obj)

   `move the camera to the final adjudicated position
   Position Camera 0, nx#, ny#, nz#
   
   set cursor 0, 0
   print screen fps(),", ",statistic(1)
   
EndFunction

   newxsouth# = intersect object(1,nx#-(EyeHeight/2),ny#,nz#,nx#+(EyeHeight/2),ny#,nz#)
   if newxsouth# > 0
      if newxsouth# > (*3) or newxsouth# < object size x(cam_obj)/2
         nx#=ox#
      endif
   endif

   newxsouth# = intersect object(1,nx#-(EyeHeight/2),ny#,nz#,nx#+(EyeHeight/2),ny#,nz#)
   if newxsouth# > 0
      if newxsouth# > (*3) or newxsouth# < object size x(cam_obj)/2
         `nx#=ox#
         if wrapvalue(camera angle y(0))>180
            nx#=nx#+1
         else
            nx#=nx#-1
         endif
      endif
   endif

`Main Source File
sync on : sync rate 0
autocam off : hide mouse
set camera range .1, 5000
Global EyeHeight as integer
EyeHeight = 32

load object "testgal.x", 1
set object collision to polygons 1

`create our camera collider
global cam_obj as integer
cam_obj = 2
make object sphere cam_obj, EyeHeight
set object collision on cam_obj
hide object cam_obj

`place the camera
position camera 0, 0, EyeHeight, 0

`place the collider object around the camera
position object cam_obj, 0, EyeHeight, 0

set ambient light 100

MainLoop:
do


   CheckCollision()

   if SpaceKey() = 1
      `reset the camera to the start position
      `so that you can get out of being trapped
      position camera 0, 0, EyeHeight, 0
      position object cam_obj, 0, EyeHeight, 0
   EndIf
	sync
	
loop

End

Function CheckCollision()

   `record the current camera position before the move
   ox#=object position x(cam_obj)
   oy#=object position y(cam_obj)
   oz#=object position z(cam_obj)

   `accept the user's input
   `Control camera using arrowkeys 0, 1, .5
	`mouselook
   rotate object cam_obj, object angle x(cam_obj)+(mousemovey()/2),object angle y(cam_obj)+(mousemovex()/2),0
   if object angle x(cam_obj)>90 then xrotate object cam_obj,90
   if object angle x(cam_obj)<-90 then xrotate object cam_obj,-90
   cx#=object angle x(cam_obj) : cy#=object angle y(cam_obj) : cz#=object angle z(cam_obj)
   rotate camera cx#, cy#, cz#
   rotate object cam_obj, cx#, cy#, cz#
   circle screen width()/2,screen height()/2,8
	`movement
	if upkey()=1 then xrotate object cam_obj,0 : move object cam_obj,1 : xrotate object cam_obj,cx#
	if downkey()=1 then xrotate object cam_obj,0 : move object cam_obj,-1 : xrotate object cam_obj,cx#
	if leftkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,1.25 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#
	if rightkey()=1 then xrotate object cam_obj,0 :yrotate object cam_obj,cy#-90 : move object cam_obj,-1.25 : yrotate object cam_obj,cy#: xrotate object cam_obj,cx#


   `record the new camera position
   nx#=object position x(cam_obj)
   nz#=object position z(cam_obj)

   `retrieve the floor height at nx#, nz#
   ny#=EyeHeight + (oy#-intersect object(1, nx#, oy#, nz#, nx#, -1000, nz#))
	
	`To fix the east/west wall problem (presumably a DBP collision bug or I am 
	`just too sleepy to see the error)
	`check to see if the distance to collision is less than half the object's
	`size and if it is then nx# = ox#
	if nx# > ox#
		newxwest# = intersect object(1,nx#,ny#,nz#,nx#+(EyeHeight/2),ny#,nz#)
	else
		newxwest# = intersect object(1,nx#,ny#,nz#,nx#-(EyeHeight/2),ny#,nz#)		
	endif
	if newxwest# > 0
		if newxwest# < object size x(2)/2
			nx# = ox#
		endif			
	endif

	`To fix the north/south wall problem (presumably a DBP collision bug or I am 
	`just too sleepy to see the error)
	`check to see if the distance to collision is less than half the object's
	`size and if it is then nz# = oz#
	if nz# > oz#
		newzsouth# = intersect object(1,nx#,ny#,nz#,nx#,ny#,nz#+(EyeHeight/2))
	else
		newzsouth# = intersect object(1,nx#,ny#,nz#,nx#,ny#,nz#-(EyeHeight/2))		
	endif
	if newzsouth# > 0
		if newzsouth# < object size z(2)/2
			nz# = oz#
		endif			
	endif
	if newzsouth# > 0
		if newzsouth# < object size x(2)/2
			nz# = oz#
		endif
	endif
   
   `move our collider to the new position
    position object cam_obj, nx#, ny#, nz#

    if object collision(cam_obj,0) <> 0
       `try using the old y position to get rid of collision
       `if not then check x and z
       position object cam_obj, nx#, oy#, nz#
       if object collision(cam_obj, 0)<>0
	       `placing our collider in the new camera position has
	       `caused a collision, so, we'll deal with that
	
	       `first we'll move the object back to the old
	       `X position and see if we still have a collision
	       Position object cam_obj, ox#, ny#, nz#
	
	       If Object Collision(cam_obj, 0)<>0
	
	          `moving the object to the old X position still creates a
	          `collision condition, so we'll see if we can at least
	          `get the X portion of the move and loose the Z portion
	          Position Object cam_obj, nx#, ny#, oz#
	
	          If Object Collision(cam_obj, 0)<>0
	
	             `this move creates a collision in both the X & Z axis
	             `so we'll disallow all of it
	             ny#=oy#
	             nx#=ox#
	             nz#=oz#
	
	          Else
	
	             `we can give the player the X portion of their move but not
	             `the Z portion               `
	             nz#=oz#
	
	          EndIf
	
	       Else
	
	          `returning the object to its old X position creates a valid
	          `move, so we'll give the player the Z portion of their move
	          `alone.
	          nx#=ox#
	
	       EndIf
	   else
	      ny# = oy# 	
   	endif
   
   EndIf

   `move the camera to the final adjudicated position
   Position Camera 0, nx#, ny#, nz#
   Position Object cam_obj, nx#, ny#, nz#
   set cursor 0, 0
   print screen fps(),", ",statistic(1)

EndFunction

`Main Source File
remstart
=========================================================================================
*  A basic sliding collision algorythm.  A joint product of the efforts of G-Man and    *
*  Lost In Thought.  Feel free to use this code as you wish, but credits would cerainly *
*  be appreciated.                                                                      *
*                                                                                       *
*  Before you ask, no, there isn't any jump code... We have to let something for you to *
*  figure out!  :-)                                                                     *
*                                                                                       *
*  Revision History:                                                                    *
*  1.)  Initially coded 12-26-04 GM/LIT                                                 *
*                                                                                       *
*  Known Bugs/Issues:                                                                   *
*  1.)  No Jumping                                                                      *
*  2.)
=========================================================================================
remend

`First set up some of the screen particulars
Sync On : Sync Rate 0
Autocam Off : Hide Mouse

`Set up the Camera's view frustrum
Set Camera Range .1, 5000

`this global variable holds the player's movement rate
`in quants per second.  This equates roughly to inches
`per second
Global MovePerSec As Float

`set the movement rate to 20 feet per second
MovePerSec = 240

`This next variable determines If a reticle will be drawn on the screen
Global UseReticle As Integer

`we'll set it to the default value, switching the reticle on.  A value other than
`1 would switch it off
UseReticle = 1

`This variable holds the height from the floor to the player's eye
`this is again in quants, with 1 quant equating roughly to an inch
Global EyeHeight As Integer

`set the eye height to 64 inches
EyeHeight = 64

`This next variable set the mouse's sensitivity for the mouse look
Global MouseSens As integer

`we'll set the default mouse sensitivity value to 3.  Valid values range from 1
`(very sensitive)upwards growing less sensitive with each increase
MouseSens = 3

`now we load the map
Load Object "test sewer.x", 1

`we set collision to polygons here.  Normally collsion is set to boxes or spheres
`but because we are gouing to be walking around inside the map, we'd be colliding
`all of the time using either of those methods because the collision horizon is set
`to the model's maximum extents
Set Object Collision To Polygons 1

`Since a Camera is not an Object, it can't collide with anything so we need to create
`an Object to do our colliding for the Camera.  We'll use a sphere and position it around
`the Camera.  Because its polygons all face out, it won't be rendered by the Camera.

`first let's create a global variable to hold the Object number
Global ColliderObjNum As Integer

`...and fill it
ColliderObjNum = 2

`now we'll create the actual collider Object
Make Object Sphere ColliderObjNum, EyeHeight/2

`set up its collision method
Set Object Collision On ColliderObjNum
Hide Object ColliderObjNum

`now we'll place the Camera
Position Camera 0, 0, EyeHeight, 0

`then place the collider Object around the Camera
Position Object ColliderObjNum, 0, EyeHeight, 0

`at this point we'll set the ambient light level so we can see where we're going
`this will probably need to be tweaked to your liking
Set Ambient Light 100
Fog Color RGB(128,128,128)
Fog Distance 3000
Fog On

`this is our main loop
MainLoop:
Do

   `call our sliding collision function
   CheckCollision()

   set cursor 0,0
   print "FPS:  ",Screen FPS()

   `render our scene
   Sync

Loop

End

Function CheckCollision()

   `This is the meat of the sliding collision routine.  It is based on a simple premise.
   `any move the player makes through the map will be composed of an X and Z component.
   `If the player attempts to make a move that causes a collision with the map, we will
   `seperate the requested move into these two components and give them the portion of
   `the move that does not create a collsion condition.  If neither portion of the move
   `can be allowed, the player will be simply halted.  This final case could only occur
   `If the player's move was exactly aligned with either the X or Z axis.

   `Begin Routine

   `First we need to record the current Camera position before attempting the move
   ox#=Object Position x(ColliderObjNum)
   oy#=Object Position y(ColliderObjNum)
   oz#=Object Position z(ColliderObjNum)

   `next we need to know how fast the machine is running so that
   `we can move our player at a consistent speed
   Delta#=MovePerSec/Screen FPS()

   `Because the collider could pass through a wall without triggering a collision
   `condition If the allowable move is too large, we need to ensure that the delta
   `pacing formula does not allow it to exceed the collider's size.
   If Delta#>EyeHeight
      Delta#=EyeHeight
   EndIf

   `accept the user's input
   Rotate Object ColliderObjNum, Object Angle x(ColliderObjNum)+(MouseMovey()/MouseSens),Object Angle y(ColliderObjNum)+(MouseMovex()/MouseSens),0

   `this code constitutes the mouselook functionality
   If Object Angle x(ColliderObjNum)>90 then XRotate Object ColliderObjNum,90
   If Object Angle x(ColliderObjNum)<-90 then XRotate Object ColliderObjNum,-90
   cx#=Object Angle x(ColliderObjNum)
   cy#=Object Angle y(ColliderObjNum)
   cz#=Object Angle z(ColliderObjNum)
   Rotate Camera cx#, cy#, cz#
   Rotate Object ColliderObjNum, cx#, cy#, cz#

   If UseReticle = 1
      circle screen width()/2,screen height()/2,8
   EndIf

   `This code constitutes the movement functionality
   If UpKey()=1
      `move the player forward
      XRotate Object ColliderObjNum,0
      Move Object ColliderObjNum,Delta#
      XRotate Object ColliderObjNum,cx#
   EndIf

   If DownKey()=1
      `move the player backwards
      XRotate Object ColliderObjNum,0
      Move Object ColliderObjNum,0-Delta#
      XRotate Object ColliderObjNum,cx#
   EndIf

   If LeftKey()=1
      `strafe left
      XRotate Object ColliderObjNum,0
      YRotate Object ColliderObjNum,cy#-90
      Move Object ColliderObjNum,Delta#
      YRotate Object ColliderObjNum,cy#
      XRotate Object ColliderObjNum,cx#
   EndIf

   If RightKey()=1
      `strafe right
      XRotate Object ColliderObjNum,0
      YRotate Object ColliderObjNum,cy#-90
      Move Object ColliderObjNum,0-Delta#
      YRotate Object ColliderObjNum,cy#
      XRotate Object ColliderObjNum,cx#
   EndIf

   `with that done, we'll record the collider's new X/Z position
   nx#=Object Position x(ColliderObjNum)
   nz#=Object Position z(ColliderObjNum)

   `retrieve the floor height at the new position
   ny#=EyeHeight + (oy#-Intersect Object(1, nx#, oy#, nz#, nx#, -1000, nz#))

   `there appears to be an inconsistancy in the way DBPro registers collsions
   `in certain circumstances.  The following code remedies that situation

   `check to see If the distance to collision is less than half the collider's
   `size and If it is then nx# = ox#
   newxsouth# = Intersect Object(1,nx#-(EyeHeight/2),ny#,nz#,nx#+(EyeHeight/2),ny#,nz#)
   If newxsouth# > 0
      If newxsouth# > (*3) or newxsouth# < Object size x(ColliderObjNum)/2
         nx#=ox#
      EndIf
   EndIf

   `now we need to see If the input we've collected amounts to a valid, collision-
   `free move and react according to what we determine
    If Object Collision(ColliderObjNum,0) <> 0

       `try using the old y position to get rid of collision
       `If not then check x and z
       Position Object ColliderObjNum, nx#, oy#, nz#

       If Object Collision(ColliderObjNum, 0)<>0
          `placing our collider in the new Camera position has
          `caused a collision, so, we'll deal with that

          `first we'll move the Object back to the old
          `X position and see If we still have a collision
          Position Object ColliderObjNum, ox#, ny#, nz#

          If Object Collision(ColliderObjNum, 0)<>0

             `moving the Object to the old X position still creates a
             `collision condition, so we'll see If we can at least
             `get the X portion of the move and loose the Z portion
             Position Object ColliderObjNum, nx#, ny#, oz#

             If Object Collision(ColliderObjNum, 0)<>0

                `this move creates a collision in both the X & Z axis
                `so we'll disallow all of it
                ny#=oy#
                nx#=ox#
                nz#=oz#

             Else

                `we can give the player the X portion of their move but not
                `the Z portion               `
                nz#=oz#

             EndIf

          Else

             `returning the Object to its old X position creates a valid
             `move, so we'll give the player the Z portion of their move
             `alone.
             nx#=ox#

          EndIf

      Else

         `This is required so that the player can walk off an edge, otherwise
         `the collider bumps on the way down resetting the character's position
         `to the old position.
         ny# = oy#

      EndIf

   EndIf

   `move the Camera and collider to the final adjudicated position
   Position Camera 0, nx#, ny#, nz#
   Position Object ColliderObjNum, nx#, ny#, nz#

EndFunction

if nx# > ox#
	newxeast# = intersect object(1,nx#,ny#,nz#,nx#+(EyeHeight/2),ny#,nz#)
	if newxeast# > 0
		if newxeast# < object size x(2)/2
			nx# = ox#
		endif			
	endif
endif

newxsouth# > ((object size x(cam_obj)/2)*3)