@verb #13:"@kids @par*ents @child*ren @sibling*s" any none none rxdo #55
@program #13:"@kids @par*ents @child*ren @sibling*s" any none none
"@kids <obj> - List the children of an object."
"@parents <obj> - List the ancestors of an object."
"@siblings <obj> - List the children of the object's parent"
if ($command_utils:object_match_failed(dobj = player:my_match_object(dobjstr), dobjstr))
  return
elseif (verb[2] == "s")
  if (parent(dobj) == #-1)
    player:tell(dobj.name, " does not have a parent.")
  else
    player:tell("The parent of ", dobj.name, " (", dobj, ") is ", parent(dobj).name, " (", parent(dobj), ")")
    force_input(player, tostr("@kids ", parent(dobj)))
  endif
elseif (group = verb[2] != "p" ? children(dobj) | dobj:ancestors())
  verb[2] != "p" || (group = {dobj, @group})
  lines = {}
  for x in (group)
    $command_utils:suspend_if_needed()
    obj_name = `(obj_num = x):title() ! ANY => obj_num.name + ": [Broken Title!]"'
    loc_name = valid(loc_num = x.location) ? `loc_num:title() ! ANY => loc_num.name + ": [Broken Title!]"' | tostr(loc_num)
    own_name = valid(own_num = x.owner) ? `own_num:title() ! ANY => own_num.name + ": [Broken Title!]"' | tostr(own_num)
    lines = {@lines, {obj_name, tostr(obj_num), tostr(loc_num), own_name}}
  endfor
  player:tellColumns({30, 5, 5, 30}, {"Object", "#", "Where", "Owner"}, @lines)
else
  player:sub_tell("%1 has no %2s.", $string_utils:nn(dobj), verb[2] == "p" ? "parent" | "kid")
endif
"Last modified by MadHatter (#8371) on Sun Aug 11 04:40:52 2002 MDT."
.