269
@verb #7871:"count*_players" none none none rdo #7871
@program #7871:"count*_players" none none none
p1 = players()
p2 = {}
for guy in (p1)
  if (guy.owner == guy)
    p2 = {@p2, guy}
  endif
endfor
p1 = p2
p2 = $set_utils:diff(p1, $builder:descendants())
p1 = length(p1)
p2 = length(p2)
player:tell("There are: " + tostr(p2) + " people on the MOO who have not progressed beyond the Player rank.")
percent = tofloat(p2) / tofloat(p1) * 100.0
player:tell("This accounts for: " + floatstr(percent, 3) + "% of the MOO's population.")
"Last modified by Datum (#7871) on Mon Apr 13 23:05:56 1998 EDT."
.

0