2e7
@verb #3041:"tell_contents" this none this rxdo #9342
@program #3041:"tell_contents" this none this
"Sorts the 'generic' objects by the number of children, and displays them in two columns."
player:tell("You see the following generic objects:")
stuff = generics = {}
for thing in (args[1])
  this:is_generic(thing) ? generics = {@generics, {" " + thing:title(), length(children(thing))}} | (stuff = {@stuff, thing})
endfor
if ($tcm)
  player:tell($string_utils:english_list($list_utils:slice(generics, 1)))
else
  player:tell($string_utils:columnize($list_utils:reverse($list_utils:slice($list_utils:sort_alist(generics, 2), 1)), 2))
endif
return pass(stuff)
"Last modified by Cecil (#7407) on Mon Jun 11 10:01:03 2001 MDT."
.

0