3d5
@verb #2323:"trackActivity" this none this rxd #7214
@program #2323:"trackActivity" this none this
"void $ddd:trackActivity()"
"Tracks user activity.  Called by the $clock every few minutes."
caller_perms():controls(this) || raise(E_PERM, "Don't touch me there!")
cp = connected_players()
ticks_left() < 2000 || seconds_left() < 2 ? suspend(0) | 0
for p in (cp)
  "Track idleness for each connected player."
  this.activityLog = {@this.activityLog, tostr(time(), " ", p, " IDLE ", `idle_seconds(p) ! ANY => -1')}
  "Also track their location and who's there with them."
  {lcn, cohorts} = {p.location, {}}
  for c in (lcn.contents)
    ticks_left() < 2000 || seconds_left() < 2 ? suspend(0) | 0
    cohorts = c in cp ? {@cohorts, c} | cohorts
  endfor
  logLine = tostr(time(), " ", p, " LOCATION ", lcn, " COHORTS ", toliteral(cohorts))
  this.activityLog = {@this.activityLog, logLine}
endfor
"Last modified by JS (#7214) on Wed Jun 18 22:17:05 2003 MDT."
.

0