Sorry your browser is not supported!

   if mouseclick()=1

      Rem Shoot bullet
      bf=-1
      for b=1 to numOfBulletsMax
         if bullet#(b,1)=0 then bf=b+100
      next b

      if bf>0 and bulletReload#=0
         bullet#(bf-100,1)=1
         bullet#(bf-100,2)=bulletLife#
         tx1#=newxvalue(cx#,ca#+90,1.2)
         tz1#=newzvalue(cz#,ca#+90,1.2)
         tx#=newxvalue(tx1#,ca#,5)
         ty#=cy#-0.8
         tz#=newzvalue(tz1#,ca#,5)
         position object bf, tx#,ty#,tz#
         show object bf
         rotate object bf, Wrapvalue(0-camera angle x()),Wrapvalue(camera angle y()-180),Wrapvalue(camera angle z())
         bulletReload#=brsp#

         Rem Alien collision w/ bullet
         for x=1 to maxAliens

            Rem Make bullet holes
            sax#=camera position x()
            say#=camera position y()
            saz#=camera position z()
            move camera 5000
            eax#=camera position x()
            eay#=camera position y()
            eaz#=camera position z()
            move camera -5000

            acollide=intersectObjectDBC(x,0,sax#,say#,saz#,eax#,eay#,eaz#,0)

            if acollide<>0
               loop object x,400,afLength(5)
            endif

         next x

         Rem Make bullet holes
         sx#=camera position x()
         sy#=camera position y()
         sz#=camera position z()
         move camera 5000
         ex#=camera position x()
         ey#=camera position y()
         ez#=camera position z()
         move camera -5000

         collide=intersectObjectDBC(100,0,sx#,sy#,sz#,ex#,ey#,ez#,0)

         if collide<>0 and acollide=0
            staticx#=getStaticCollisionX()
            staticy#=getStaticCollisionY()
            staticz#=getStaticCollisionZ()

            normx#=getCollisionNormalX()
            normy#=getCollisionNormalY()
            normz#=getCollisionNormalZ()

            position object bulletHole,staticx#+normx#/10.0,staticy#+normy#/10.0,staticz#+normz#/10.0
            point object bulletHole,staticx#+normx#,staticy#+normy#,staticz#+normz#
            show object bulletHole
            bulletHole = bulletHole + 1
            if bulletHole>=2000+numOfHolesMax then bulletHole = 2000
         endif

         Rem Particle effects
         request_explosion(3000,staticx#+normx#/10.0,staticy#+normy#/10.0,staticz#+normz#/10.0,max(1),inten#,explosionLife)
      endif
   endif

   for x = 1 to numOfBulletsMax
      bPosition#(x,1)=object position x(x+100)
      bPosition#(x,2)=object position y(x+100)
      bPosition#(x,3)=object position z(x+100)
   next x

   for x=1 to numOfBulletsMax
      if bullet#(x,2)>0
         move object x+100,0-bulletSpeed#
         bullet#(x,2) = bullet#(x,2)-1
      else
         bullet#(x,1)=0
         hide object x+100
      endif
   next x

`***Collision info for Sparky's DLL****
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#