@verb #7113:"tell_contents" this none this rxdo #7113
@program #7113:"tell_contents" this none this
player:tell("He is carrying:")
data = {}
if (length(this.contents) == 0)
  player:tell("Nothing..")
  return
endif
for each in (this.contents)
  verblen = length(verbs(each))
  owner = each.owner
  type = each:ref()
  tempdat = {tostr(each), each:title(), owner:title(), tostr(verblen)}
  data = {@data, tempdat}
endfor
player:tellColumns({5, 20, 15, 8}, {"#", "Name", "Owner", "Verbs"}, @data)
"Last modified by Drag (#7113) on Fri Jul 26 22:20:14 2002 MDT."
.