28d
@verb #1011:"@pcs" none none none rxdo #7153
@program #1011:"@pcs" none none none
"Gives a quick summary of all player classes."
this:update_usage(verb, player)
info = {}
player:tell({tostr($su:left("Player Class", 40), " ", $su:left("Owner", 20), "    ", "Kids"), tostr($su:left("~~~~~~ ~~~~~", 40), " ", $su:left("~~~~~", 20), " ~~  ~~~~")})
for x in ($object_utils:branches($player))
  info = {@info, tostr((su = $string_utils):left(su:nn(x), 40), " ", su:left(su:nn(x.owner), 20), " ", " R"[x.r + 1], " F"[x.f + 1], " ", length(children(x)))}
endfor
player:tell(info)
"Last modified by Picard (#7153) on Sat May 23 11:32:23 1998 EDT."
.

0