@verb #84:"tell_iverbs" this none this rxdo #789
@program #84:"tell_iverbs" this none this
caller == this || raise(E_PERM)
{object} = args
player:tell("<HR>")
for parent in (object:ancestors())
  if (!parent.r && !$perm_utils:controls(player.user, parent))
    player:tell("<P><B>No permission to view verbs inherited from ", this:link(parent), "</B><BR>")
    continue parent
  endif
  verbs = verbs(parent)
  player:tell("<P><B>", length(verbs), " verb", length(verbs) == 1 ? "" | "s", " inherited from ", this:link(parent), "</B>")
  player:tell("<BR>")
  if (verbs)
    info = this:verb_table(object, parent, verbs)
    player:tellColumns(@info)
    player:tell("<BR>")
  endif
  suspend(1)
endfor
"Last modified by Dax (#789) on Fri Jun 26 16:06:30 1998 EDT."
.