@verb #8043:"@verbs @props" any none none rxdo #8043
@program #8043:"@verbs @props" any none none
"Columnized verb/property listing."
{p, ll, su} = {player, player:linelen(), $string_utils}
"Returns a list of propertes (or verbs), as in $programmer:@props/@verbs, but it's in a columnized format. So much nicer to read!"
if ($command_utils:object_match_failed(dobj, dobjstr))
  return
endif
if (dobj.r)
  argstr ? 1 | (dobj = player)
  verb == "@verbs" ? {pvl = verbs(dobj), equiv = "verbs"} | {pvl = properties(dobj), equiv = "properties"}
  if (pvl = $list_utils:sort_alist(pvl))
    header = tostr(" " + $su:Capitalize(equiv) + " on " + $su:nn(dobj) + " ")
    p:tell(su:center(header, ll, "-", "-"))
    p:tell(su:columnize(pvl, 3))
    p:tell($su:space(ll, "-"))
  else
    p:tell("There are no ", equiv, " on ", dobj.name, "(", dobj, ").")
  endif
else
  player:tell($su:nn(dobj), " is unreadable.")
endif
"Last modified by Russ (#8043) on Tue Sep 14 12:32:51 1999 MDT."
.