@verb #8431:"tell_contents" this none this rxdo #8431
@program #8431:"tell_contents" this none this
"Copied from The_spider (#7446):tell_contents Jun 23 21:46:37 1997"
if (player:isa($webber))
  return pass(@args)
endif
targ = length(args) > 1 ? args[2] | this
cont = args[1]
data = {}
for x in (cont)
  m = length(verbs(x))
  thisdata = {tostr(x), m == 0 ? "None" | (m == E_TYPE ? "EPERM" | tostr(m)), x:title(), $code_utils:classify_object(x), x.owner:title()}
  data = {@data, thisdata}
endfor
targ_ps = $gender_utils.psc[targ.gender in $gender_utils.genders]
targ_ps = tostr(targ_ps, " ", $gender_utils.is_plural[targ.gender in $gender_utils.genders] ? "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 Slacker (#55) on Tue Aug 20 11:54:20 2002 MDT."
.