@verb #755:"actives" this none this rxdo #789
@program #755:"actives" this none this
"Return the names of users who have open web connections."
"While running through the lists, throw out extinct web objects."
moo_actives = www_actives = {}
count = 0
for user in (this.users)
  web_objects = user[4]
  for web_object in (web_objects)
    if (`web_object:connected() ! ANY')
      www_actives = setadd(www_actives, user[1])
    else
      web_objects = setremove(web_objects, web_object)
    endif
  endfor
  count = count + 1
  this.users[count][4] = web_objects
  if (user[6] + 60 > time())
    www_actives = setadd(www_actives, user[1])
  endif
endfor
$command_utils:suspend_if_needed()
for user in (this:contents())
  is_player(user) && user:connected() && idle_seconds(user) < 60 * 20 && (moo_actives = setadd(moo_actives, user:title()))
endfor
return {www_actives, moo_actives}
"Last modified by Dax (#789) on Tue May 12 16:18:24 1998 EDT."
.