1ee
@verb #5252:"@usage" this none none rxdo #562
@program #5252:"@usage" this none none
if (player == this.owner)
  this.usage = $list_utils:sort_alist(this.usage, 2)
endif
usage = {}
for x in (this.usage)
  usage = {@usage, tostr(x[1], " has ", x[2], x[2] - 1 ? " uses" | " use")}
endfor
player:tell($string_utils:columnize(usage, 4))
player:tell("***finished with @usage report for ", this.name, " (", this, ").***")
"Last modified by Dax (#789) on Tue Jun  2 13:59:01 1998 EDT."
.

0