@verb #13:"@loc*ations" any none none rxdo #60
@program #13:"@loc*ations" any none none
"@locations <obj> - list the nested locations of an object, with additional data."
dobj = dobjstr ? player:my_match_object(dobjstr) | player
if ($command_utils:object_match_failed(dobj, dobjstr))
  return
elseif (locations = $object_utils:locations(dobj))
  lines = {}
  for x in ({dobj, @locations})
    $command_utils:suspend_if_needed()
    obj_name = `(obj_num = x):title() ! ANY => obj_num.name + ": [Broken Title!]"'
    par_name = `(par_num = parent(x)):title() ! ANY => par_num.name + ": [Broken Title!]"'
    own_name = valid(own_num = x.owner) ? `own_num:title() ! ANY => own_num.name + ": [Broken Title!]"' | 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~#) is nowhere.")
endif
"Last modified by Dax (#789) on Sat May 27 08:43:06 2000 MDT."
.