@verb #7165:"@cont*ents" any none none rdo #7165
@program #7165:"@cont*ents" any none none
"Copied from Generic builder (#4):@contents by Hacker (#38) Mar 11 19:48:55 1996"
"@contents <obj> - list the contents of an object, with additional data.  By Raptor & Odo."
dobj = dobjstr ? player:my_match_object(dobjstr) | player.location
if ($command_utils:object_match_failed(dobj, dobjstr))
  return
endif
contents = dobj.contents
if (contents)
  lines = {}
  for x in (contents)
    $command_utils:suspend_if_needed()
    obj_name = (obj_num = x):title()
    par_name = valid(par_num = parent(x)) ? par_num:title() | $find_ref(par_num) || tostr(par_num)
    own_name = valid(own_num = x.owner) ? own_num:title() | $find_ref(own_num) || tostr(own_num)
    lines = {@lines, {obj_name, obj_num, par_num, own_name}}
  endfor
  player:tellColumns({30, 5, 5, 30}, {"Object", "#", "Parnt", "Owner"}, @lines)
else
  player:sub_tell("%D (#%d~#) contains nothing.")
endif
"Last modified by Dax (#789) on Sun Jul 28 03:31:43 2002 MDT."
.