Type TDestructable
  field object%
End Type

function CreateDestructable(destructable%)
  local result.TDestructable = new TDestructable
  if object.TDestructable(EntityName(destructable)) <> null
    delete object.TDestructable(EntityName(destructable))
  endif
  result\object = object
  NameEntity object,handle(result)
end function

function DeleteDestructable(destructable%)
  delete object.TDestructable(destructable)
  freeentity destructable
end function

Function DestroyInRange(pivotEntity%,distance#)
  local test.TDestructable
  for test = each TDestructable
    if EntityDistance(pivotEntity,test\object) <= distance
      DestroyObject(test\object)
    endif
  next
end function