232
@verb #2111:"clean" any any any rxdo #7446
@program #2111:"clean" any any any
if (!args)
  player:tell("Clean what?")
  return
endif
if (dobjstr in {"up", "up!"})
  return $housekeeper:cleanup(dobjstr)
endif
cleanable = $string_utils:match_object(dobjstr, player.location)
if (!$command_utils:object_match_failed(cleanable, dobjstr))
  dest = iobj
  if (iobjstr == "")
    dest = cleanable.location
  endif
  player:tell($housekeeper:add_cleanup(cleanable, player, dest))
endif
"Last modified by NH (#2369) on Wed Dec 30 03:44:30 1998 MST."
.

0