@verb #2731:"tell_contents" this none this rd #2731
@program #2731:"tell_contents" this none this
"Copied from The_spider (#7446):tell_contents Aug  9 09:41:24 1999"
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:tell(this:title(), " is naturally carrying:")
if (data)
  player:tellColumns({6, 5, 35, 12, 15}, {"#", "Verbs", "Name", "Type", "Owner"}, @data)
else
  player:tell("      Nothing.")
endif
.