@verb #84:"tell_props" this none this rxdo #789
@program #84:"tell_props" this none this
caller == this || raise(E_PERM)
{object} = args
if (!object.r && !$perm_utils:controls(player.user, object))
  return player:tell("<HR><P><B>No permission to view properties on ", this:link(object), "</B><BR>")
endif
props = properties(object)
player:tell("<HR><P><B>", length(props), " propert", length(props) == 1 ? "y" | "ies", " on ", this:link(object), "</B>")
player:tell("<BR>")
if (props)
  info = this:prop_table(object, object, props)
  player:tellColumns(@info)
  player:tell("<BR>")
endif
"Last modified by Dax (#789) on Fri Jun 26 16:08:15 1998 EDT."
.