@verb #7113:"trash" none none none rdo #7113
@program #7113:"trash" none none none
trash = length(children($garbage))
tot = toint(max_object()) + 1
per = trash * 100 / tot
player:tell("The MOO is ", tostr(per), "% trash.")
"Last modified by Dax (#789) on Tue May  3 14:09:36 2005 MDT."
.