63c
@verb #7407:"tell_contents" this none this rxdo #7407
@program #7407:"tell_contents" this none this
targ = length(args) > 1 ? args[2] | this
www = 0
cont = args[1]
if (callers()[1][2] == "tell_www_body")
  cont = this:contents()
  www = 1
endif
data = {}
if (targ == this || `typeof(targ.equipment) == $LIST ! E_PROPNF => 0')
  this.equipment && player:tell("Equipped with:")
  for x in (this.equipment)
    player:tell("    [", x[2], "] -- ", typeof(x[1]) == $OBJ ? x[1]:title() | x[1])
  endfor
endif
for x in (cont)
  malicious = $cecil_utils:is_malicious(x, "audit_name") || $cecil_utils:is_malicious(x.owner, "title")
  xt = !malicious ? x:title() | x.name
  m = length(verbs(x))
  thisdata = $list_utils:make(5)
  thisdata[1] = tostr(x)
  if (m == 0)
    thisdata[2] = "None"
  elseif (typeof(m) == $ERR)
    thisdata[2] = strsub(toliteral(m), "_", "")
  else
    thisdata[2] = tostr(m)
  endif
  thisdata[3] = www ? $www:link(x, xt) | xt
  thisdata[4] = $code_utils:classify_object(x)
  thisdata[5] = !malicious ? x.owner:title() | x.owner.name
  data = {@data, thisdata}
  $cmd_utils:suspend_if_needed()
endfor
targ_ps = $gender_utils.psc[targ.gender in $gender_utils.genders || 6]
targ_ps = tostr(targ_ps, " ", $gender_utils.is_plural[targ.gender in $gender_utils.genders || 6] ? "are" | "is")
player:sub_tell("%1 carrying:", targ_ps)
if (data)
  player:tellColumns({6, 5, 35, 12, 15}, {"#", "Verbs", "Name", "Type", "Owner"}, @data)
else
  player:tell("      Nothing.")
endif
"Last modified by Dax (#789) on Tue May  3 13:55:57 2005 MDT."
.

0