267
@verb #7165:"@totalsize" any on top of/on/onto/upon any rdo #789
@program #7165:"@totalsize" any on top of/on/onto/upon any
"Copied from Dax (#789):@totalsize Aug  7 02:48:42 1996"
for x in ($object_utils:descendants_suspended(iobj))
  suspend(0)
  total = `total ! E_VARNF => 0' + 1
  total_unclear = `total_unclear ! E_VARNF => 0' + (y = !is_clear_property(x, dobjstr))
  sum = `sum ! E_VARNF => 0' + y * `value_bytes(x.(dobjstr)) ! ANY => 0'
endfor
player:tell("Total occurences of property: ", total)
player:tell("Total unclear : ", total_unclear)
player:tell("Total bytes from unclears: ", sum)
.

0