@verb #3135:"@today @last" none none none rdo #3135
@program #3135:"@today @last" none none none
day = {}
a_day = 24 * 60 * 60
now = time()
for x in (players())
  when = `x.last_connect_time ! E_PROPNF => $maxint'
  how_long = now - when
  yes = verb[2] == "t" ? how_long < a_day | when > player.last
  if (yes && when < now && when != 0)
    day = {@day, x}
  endif
endfor
player:tell("Players who have connected " + (verb[2] == "t" ? "within the last day:" | "since you last checked:"))
for x in (day)
  $command_utils:suspend_if_needed()
  player:tell("  ", x:title(), " last connected ", ctime(x.last_connect_time), ".")
endfor
if (verb[2] == "l")
  player.last = time()
endif
player:tell("Counted ", length(day), " players.")
"Last modified by Dax (#789) on Mon May 10 08:45:45 1999 MDT."
.