@verb #5410:"findelder" any none none rxdo #5410
@program #5410:"findelder" any none none
"Copied from debug (#8054):findelder Nov 26 15:28:57 2000"
player:tell("Compiling list of connected players from oldest to youngest, may take a long time . . .")
current = 0
numjoes = 0
elderlist = {}
onlinejoes = 0
numonjoes = 0
iam = 0
for joes in (players())
  numjoes = numjoes + 1
  $command_utils:suspend_if_needed(0)
  current = players()[numjoes]
  numonjoes = 0
  for onlinejoes in (connected_players())
    numonjoes = numonjoes + 1
    $command_utils:suspend_if_needed(0)
    onlinejoe = connected_players()[numonjoes]
    if (current == onlinejoe)
      elderlist = {@elderlist, onlinejoe}
    endif
  endfor
endfor
player:tell("Below is a list of connected players from the oldest to youngest.")
for eachone in (elderlist)
  player:tell("Name: ", eachone:title(), "      First Connected On :", ctime(eachone.first_connect_time))
endfor
.