3d9
@verb #7214:"@active" none none none rd #7214
@program #7214:"@active" none none none
"USAGE - @active"
""
"Displays the number of connected players over the last 7, 30, and 60 days."
""
cnt60 = 0
cnt30 = 0
cnt7 = 0
"for luser in (players())"
for luser in ($qnet_utils.nranks)
  interval = time() - luser.last_connect_time
  if (interval < 5184000)
    cnt60 = cnt60 + 1
  endif
  if (interval < 2592001)
    cnt30 = cnt30 + 1
  endif
  if (interval < 604800)
    cnt7 = cnt7 + 1
  endif
endfor
PP = length(players())
caller:tell("-------Start @active------- ")
caller:tell("")
caller:tell("Players active within:")
caller:tell("")
caller:tell("  Last 60 Days  ----->  ", cnt60, "  out of  ", PP)
caller:tell("  Last 30 Days  ----->  ", cnt30, "  out of  ", PP)
caller:tell("  Last 7 Days   ----->  ", cnt7, "  out of  ", PP)
caller:tell("")
caller:tell("--------End @active-------- ")
"Last modified by JS (#7214) on Sun Aug 25 20:49:51 2002 MDT."
.

0