@verb #12:"@recycle" any none none rdo #55
@program #12:"@recycle" any none none
dobj = player:my_match_object(dobjstr)
if (dobj == $nothing)
  $msg:mtell("no_dobj", verb)
elseif ($command_utils:object_match_failed(dobj, dobjstr))
  "...bogus object..."
elseif (player == dobj)
  $msg:mtell("recycle_self")
else
  if (!player:controls(dobj))
    if (!this.wizard)
      return player:tell(E_PERM)
    elseif (!$cmd_utils:yes_or_no(tostr("Hey!  Recycle ", $su:nn(dobj), ", even though it's not yours?")))
      return player:tell("Aborted.")
    endif
  endif
  if (children(dobj))
    return player:tell("This object has ", length(children(dobj)), " children.  Either @disown them first, or eval $recycler:recycle(", dobj, ").")
  endif
  name = dobj.name
  result = $recycler:recycle(dobj)
  if (typeof(result) == $ERR)
    player:tell(result)
  else
    $msg:mtell("recycled", name, dobj)
  endif
endif
"Last modified by Dax (#789) on Tue May  3 13:45:55 2005 MDT."
.