@verb #1076:"@dispP" any any any rxd #2633
@program #1076:"@dispP" any any any
{p, qui} = {player, $su:match_player(argstr)}
if (!argstr)
  qui = $eve
elseif (!$recycler:valid(qui))
  return p:tell("Sorry, couldn't match that player.")
endif
cobjs = this:sort_created(qui)
gobjs = this:sort_generic(qui)
nogen = !gobjs
disp = {{}, {}}
for item in (cobjs)
  disp[1] = {@disp[1], $su:nn(item[1])}
  for kid in (item[2])
    disp[1] = {@disp[1], "  ->  " + $su:nn(kid)}
  endfor
endfor
for item in (gobjs)
  disp[2] = {@disp[2], $su:nn(item[1])}
  for kid in (item[2])
    disp[2] = {@disp[2], "  ->  " + $su:nn(kid)}
  endfor
endfor
nogen ? {disp[2] = disp[1][$ / 2..$], disp[1] = disp[1][1..$ / 2 - 1]} | 0
disp[1] = {"Created", "-------", @disp[1]}
disp[2] = !nogen ? {"Generics", "--------", @disp[2]} | {"", "", @disp[2]}
this:print_double(disp)
p:tell("-------")
p:tell($su:nn(qui), " owns ", length($list_utils:flatten(cobjs)) - length(cobjs), " created things and ", length(gobjs), " generic ones.")
"Last modified by Janette (#2633) on Sun Aug 12 08:06:37 2001 MDT."
.