@verb #649:"drag" this none this rxo #833
@program #649:"drag" this none this
"Takes 1) a list of objects to be dragged (must all be in same place) & 2) destination."
dest = args[2]
if (!$perm_utils:can_hack())
  return E_PERM
endif
things = setadd(args[1], this)
for thing in (things)
  result = #747:squirt(thing, dest)
  if (typeof(result) == $ERR)
    this:say("I was unable to move " + thing:title() + ", sir!")
  endif
endfor
"Last modified by Dax (#789) on Tue May  3 13:45:57 2005 MDT."
.