1ac
@verb #8219:"@active" none none none rdo #8219
@program #8219:"@active" none none none
r = 0
for x in (players())
  if (x:has_property("last_disconnect_time"))
    if (time() - x.last_disconnect_time < 2592000)
      r = r + 1
    endif
  endif
  $command_utils:suspend_if_needed(0)
endfor
player:tell("Active players: ", r, " of ", length(players()), " (", tofloat(r) / tofloat(length(players())) * 100.0, "%)")
.

0