Sorry your browser is not supported!

make object cube 1,10
make mesh from object 1, 1
add limb 1, 1, 1 : link limb 1,0,1

do

control camera using arrowkeys 0,0.1,0.1

if mouseclick()=1

      if object exist(132)=0
        make object cube 132, 1
        position object 132, camera position x(), camera position y(), camera position z()
        xrotate object 132, camera angle x() : yrotate object 132, camera angle y()
        make mesh from object 132, 132
        add limb 132, 1, 132 : link limb 132,0,1

      endif

      move object 132, 1

endif

    if object exist(132)
      if limb collision(1,1,132,1)=1 then print "OK" : delete object 132
      `if limb hit(1,1,132,7)=1 then print "OK" : delete object 132

    endif




loop

if mouseclick()=1 then Dismember=1

   if Dismember=1

      if object exist(132)=0
        make object cube 132, 1
        position object 132, camera position x(), camera position y(), camera position z()
        xrotate object 132, camera angle x() : yrotate object 132, camera angle y()
        make mesh from object 132, 132
        add limb 132, 1, 132 : link limb 132,0,1

        make object cube 133, 5
        set object collision on 132
        set object collision on 133
        position object 133, limb position x(obj, entityprofile(entid).headlimb), limb position y(obj, entityprofile(entid).headlimb), limb position z(obj, entityprofile(entid).headlimb)
      endif

      move object 132, 1

      if object exist(132)=1

        `Méthode 1
        if limb collision(obj, entityprofile(entid).headlimb, 132, 1)=1
           scale limb obj, entityprofile(entid).headlimb, 0, 0, 0
           delete object 132
           Dismember=0
        endif

      `Méthode 2
       if object position x(132)=limb position x(obj, entityprofile(entid).headlimb) and object position y(132)=limb position y(obj, entityprofile(entid).headlimb) and object position z(132)=limb position z(obj, entityprofile(entid).headlimb)

           scale limb obj, entityprofile(entid).headlimb, 0, 0, 0
           delete object 132
           Dismember=0

       endif

       `Méthode 3
       if object collision(132,133)=1 then delete object 133 : delete object 132 : scale limb obj, entityprofile(entid).headlimb : dismember=0

       `Méthode 4
       DismDist#=intersect object(132, object position x(132), object position y(132), object position z(132), object position x(133), object position y(133), object position z(133))
       if DismDist# = 0 then scale limb obj, entityprofile(entid).headlimb, 0, 0, 0 : delete object 133 : delete object 132 : dismember=0

      endif

    endif

 rem Init app
sync on : sync rate 60

rem Make a mesh to make limbs with
make object box 1,10,100,10
make mesh from object 1,1
delete object 1

rem Make object A
obja=1 : limba=1 : make object cube obja,100 : add limb obja,limba,1 : offset limb obja,limba,0,100,0
set object collision to boxes obja
position object obja,-60,0,0

rem Make object B
objb=2 : limbb=1 : make object cube objb,50 : add limb objb,limbb,1 : offset limb objb,limbb,0,50,0
set object collision to boxes objb
x#=60 : y#=-50

rem Place camera
position camera 0,0,-300
point camera 0,0,0

rem Main loop
do

rem Specific limb-based collision test (uses -1)
limbcol=limb collision(obja,limba,objb,-1)
if limbcol<>-1
 color limb objb,limbcol,rgb(rnd(255),rnd(255),rnd(255))
else
 color limb objb,0,rgb(255,255,0)
 color limb objb,1,rgb(255,255,0)
endif

rem Controlling keys
if upkey()=1 then y#=y#+2
if downkey()=1 then y#=y#-2
if leftkey()=1 then x#=x#-2
if rightkey()=1 then x#=x#+2
position object objb,x#,y#,0.0
zrotate object obja,object angle z(obja)-0.4

rem User prompts
center text 320,20,"NEW LIMB SPECIFIC COLLISION"
center text 320,40,"LIMB "+str$(limbcol)+" OF OBJECT B IS TOUCHING"
center text 320,60,"THE SECOND LIMB (1) OF OBJECT A"
center text 320,80,"(-1 MEANS NO COLLISION)"
center text object screen x(obja),object screen y(obja),"OBJECT A"
center text object screen x(objb),object screen y(objb),"OBJECT B"

rem Update screen
sync

rem End loop
loop

if mouseclick()=1 then Dismember=1

   if Dismember=1

      if object exist(132)=0
        make object cube 132, 6
        position object 132, camera position x(), camera position y(), camera position z()
        xrotate object 132, camera angle x() : yrotate object 132, camera angle y()
        make mesh from object 132, 132
        add limb 132, 1, 132 : link limb 132,0,1
        set object collision to boxes 132
   endif

      move object 132, 1

      if object exist(132)=1

        `Méthode 1
        if limb collision(obj, entityprofile(entid).headlimb, 132, 1)=1 or limb collision(obj, entityprofile(entid).headlimb, 132, -1)<>-1
           scale limb obj, entityprofile(entid).headlimb, 0, 0, 0
           delete object 132
           Dismember=0
        endif

      endif

    endif

if object exist(132)=1

        `Méthode 1
        limbcheck= limb collision(obj, entityprofile(entid).headlimb, 132, -1)
        if limbcheck=132
           scale limb obj, entityprofile(entid).headlimb, 0, 0, 0
           delete object 132
           Dismember=0
        endif