5b4
@verb #2111:"@vrbc" any any any rxdo #7446
@program #2111:"@vrbc" any any any
"Displays the number of lines and bytes in each verb defined on<object>."
set_task_perms(valid(cp = caller_perms()) ? cp | player)
su = $string_utils
if ((what = player:my_match_object(argstr)) == $nothing)
  player:tell_lines($code_utils:verb_usage())
elseif ($command_utils:object_match_failed(what, argstr))
elseif (typeof(v = verbs(what)) == $ERR)
  player:tell("Error: ", v)
elseif (!v)
  player:tell(su:nn(what), " defines no verbs.")
else
  info = {}
  for x in [0..length(v) - 1]
    info = listappend(info, {x, length(code = verb_code(what, tostr(x))), value_bytes(code)})
  endfor
  namelen = player:linelen() - 28
  player:tell(su:center("Object:verb (verb#)", namelen), " ", su:right("Lines", 9), " ", su:right("Bytes", 15))
  for line in ($list_utils:sort_alist_suspended(1, info, 3))
    needed = tostr(" (", what, "):", (info = verb_info(what, tostr(line[1])))[3] || v[line[1] - 1], " (", line[1], ")")
    player:tell(su:left(tostr(name = what.name[1..min(length(what.name), namelen - length(needed))] || $list_utils:shortest(what.aliases), needed[1..min(length(needed), namelen - length(name))]), namelen), " ", typeof(line[2]) == $ERR ? "--- Permission Denied ---" | tostr(su:right(su:group_number(line[2]), 9), " ", su:right(su:group_number(line[3]), 15)))
  endfor
endif
"Last modified by Dax (#789) on Tue May  3 13:57:43 2005 MDT."
.

0