@verb #7446:"tell_contents" this none this rxo #7446
@program #7446:"tell_contents" this none this
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 Dax (#789) on Thu Nov  8 15:28:59 2001 MST."
.