@verb #6570:"@cprops @cverbs" any none none rxd #2633
@program #6570:"@cprops @cverbs" any none none
"@cprops <obj> / @cverbs <obj>"
{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
argstr ? 1 | (dobj = player)
verb == "@cverbs" ? {pvl = verbs(dobj), equiv = "verbs"} | {pvl = properties(dobj), equiv = "properties"}
if (pvl = $list_utils:sort_alist(pvl))
  header = tostr(" ", equiv, "(", 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
"Last modified by Eve (#2633) on Sun Aug 16 18:10:58 1998 EDT."
.