Sorry your browser is not supported!

Load dll "DBCcollision.dll",1

load dll "DBCcollision.dll",1

function intersectObjectDBC(objNum,groupFlag,oldx#,oldy#,oldz#,x#,y#,z#,excludeObj)
    collide=call dll(1,"intersectObject",objNum,groupFlag,oldx#,oldy#,oldz#,x#,y#,z#,excludeObj)
endfunction collide

scoll#=intersectObjectDBC(6,0,x#,y#,z#,p500x#,y#,p500z#,0)

sync on
sync rate 60
autocam off

rem include Sparky's DLL
#INCLUDE "DBCcollisions.dba"

make object cube 1,25
set object 1,0,1,0

rem setup collision
setupObjectDBC(1,0,0)

rem make two spheres to track the start and end position of the ray
make object sphere 2,5
turn object left 2,90
make object sphere 3,5
position object 3,-100,0,0

position camera -50,0,-120

do
   rem move the object from inside the cube
   if leftkey()=1 then move object 2,.5
   if rightkey()=1 then move object 2,-.5

   oldx#=object position x(2)
   oldy#=object position y(2)
   oldz#=object position z(2)

   x#=object position x(3)
   y#=object position y(3)
   z#=object position z(3)

   ink rgb(255,0,0),0
   line object screen x(2),object screen y(2),object screen x(3),object screen y(3)
   text object screen x(2),object screen y(2)-30,"Start of ray"
   text object screen x(3),object screen y(3)-30,"End of ray"

   rem as the distance between the spheres changes, change
   rem the length and position of the ray and detect the collision
   rem of the cube
   result=intersectObjectDBC(1,0,oldx#,oldy#,oldz#,x#,y#,z#,0)

   ink rgb(255,255,255),0
   if result=1
      text 0,0,"The ray is passing through the cube"
   else
      text 0,0,"The ray is NOT passing through the cube"
   endif

   sync
loop

do
gosub bikehit
loop

bikehit:
LINEY#=0.5
p500x#=newxvalue(x#,a#,500) : p500z#=newzvalue(z#,a#,500)
po=intersectObjectDBC(6,0,x#,liney#,z#,p500x#,liney#,p500z#,0)
text 0,0,str$(po)

return

REM *******************************************************************
REM **************************** FUNCTIONS ************************
rem ***************************************************************


function setupObjectDBC(objNum,groupNum,objectType)
    commonSetup(objNum)

    vertData = get memblock ptr(254)
    objectData = get memblock ptr(255)
    call dll 1,"setupObject",objNum,groupNum,objectType,vertData,objectData

    delete memblock 254
endfunction

function setupComplexObjectDBC(objNum,groupNum,facesPerNode)
    commonSetup(objNum)

    vertData = get memblock ptr(254)
    objectData = get memblock ptr(255)
    call dll 1,"setupComplexObject",objNum,groupNum,facesPerNode,vertData,objectData

    delete memblock 254
endfunction

function commonSetup(objNum)
    if dll exist(1)=0 then load dll "DBCcollision.dll",1
    if memblock exist(255)=0 then make memblock 255,24

    x#=object position x(objNum)
    y#=object position y(objNum)
    z#=object position z(objNum)
    angx#=object angle x(objNum)
    angy#=object angle y(objNum)
    angz#=object angle z(objNum)

    write memblock float 255,0,x#
    write memblock float 255,4,y#
    write memblock float 255,8,z#
    write memblock float 255,12,angx#
    write memblock float 255,16,angy#
    write memblock float 255,20,angz#

    position object objNum,0,0,0
    rotate object objNum,0,0,0
    make mesh from object 255,objNum
    make memblock from mesh 254,255
    delete mesh 255
    position object objNum,x#,y#,z#
    rotate object objNum,angx#,angy#,angz#
endfunction

function updateObjectDBC(objNum)
    if memblock exist(255)=0 then make memblock 255,24

    write memblock float 255,0,object position x(objNum)
    write memblock float 255,4,object position y(objNum)
    write memblock float 255,8,object position z(objNum)
    write memblock float 255,12,object angle x(objNum)
    write memblock float 255,16,object angle y(objNum)
    write memblock float 255,20,object angle z(objNum)

    objectData = get memblock ptr(255)

    call dll 1,"updateObject",objNum,objectData
endfunction

function intersectObjectDBC(objNum,groupFlag,oldx#,oldy#,oldz#,x#,y#,z#,excludeObj)
    collide=call dll(1,"intersectObject",objNum,groupFlag,oldx#,oldy#,oldz#,x#,y#,z#,excludeObj)
endfunction collide

function setObjectCollisionOnDBC(objNum)
    call dll 1,"set_object_collision_on",objNum
endfunction

function setObjectCollisionOffDBC(objNum)
    call dll 1,"set_object_collision_off",objNum
endfunction

function collisionStatusDBC(objNum)
    result=call dll(1,"collisionstatus",objNum)
endfunction result

function getStaticCollisionX()
    result#=call dll(1,"getStaticCollisionX")
endfunction result#

function getStaticCollisionY()
    result#=call dll(1,"getStaticCollisionY")
endfunction result#

function getStaticCollisionZ()
    result#=call dll(1,"getStaticCollisionZ")
endfunction result#

function getCollisionNormalX()
    result#=call dll(1,"getCollisionNormalX")
endfunction result#

function getCollisionNormalY()
    result#=call dll(1,"getCollisionNormalY")
endfunction result#

function getCollisionNormalZ()
    result#=call dll(1,"getCollisionNormalZ")
endfunction result#