2ad
@verb #3999:"tell_contents" this none this rxdo #2338
@program #3999:"tell_contents" this none this
"Copied from a knapsack (#888):tell_contents by Maxamillian (#833) Jan 21 17:57:26 1996"
c = this:contents()
if (c)
  longear = {}
  gear = {}
  width = player:linelength()
  half = width / 2
  player:tell("Contains:")
  for thing in (c)
    cx = tostr(" ", thing:title())
    if (length(cx) > half)
      longear = {@longear, cx}
    else
      gear = {@gear, cx}
    endif
  endfor
  player:tell($string_utils:columnize(gear, 2, width))
  player:tell(longear)
else
  $msg:mtell("empty")
endif
"Last modified by Dax (#789) on Thu Jul  9 17:29:44 1998 EDT."
.

0