Intersect Range (Raw Collision)

Blitz3D Forums/Blitz3D Programming/Intersect Range (Raw Collision)

Gabriel
 #1
Untested, but should work.


Function RangePick(srcX#,srcY#,srcZ#,lenX#,lenY#,lenZ#,radius#)
   LinePick(srcX#,srcY#,srcZ#,lenX#,lenY#,lenZ#,radius#)
   If PickedEntity()<>0
      xd#=PickedX#()-srcX#
      yd#=PickedY#()-srcY#
      zd#=PickedZ#()-srcZ#
      Return Sqr(xd*xd + yd*yd + zd*zd)
   End If
End Function