@verb #84:"tell_iprops" this none this rxdo #789
@program #84:"tell_iprops" 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 properties inherited from ", this:link(parent), "</B><BR>")
    continue parent
  endif
  props = properties(parent)
  player:tell("<P><B>", length(props), " propert", length(props) == 1 ? "y" | "ies", " inherited from ", this:link(parent), "</B>")
  player:tell("<BR>")
  if (props)
    info = this:prop_table(object, parent, props)
    player:tellColumns(@info)
    player:tell("<BR>")
  endif
  suspend(1)
endfor
"Last modified by Dax (#789) on Fri Jun 26 16:07:46 1998 EDT."
.