Switch to edit mode.
Name(s): findoldestplayer1: "Copied from debug (#8054):findelder Nov 25 10:43:11 2000"
2: player:tell("Compiling list of connected players from oldest to youngest, may take a long time . . .")
3: current = 0
4: numjoes = 0
5: elderlist = {}
6: onlinejoes = 0
7: numonjoes = 0
8: iam = 0
9: for joes in (players())
10: numjoes = numjoes + 1
11: $command_utils:suspend_if_needed(0)
12: current = players()[numjoes]
13: numonjoes = 0
14: for onlinejoes in (connected_players())
15: numonjoes = numonjoes + 1
16: $command_utils:suspend_if_needed(0)
17: onlinejoe = connected_players()[numonjoes]
18: if (current == onlinejoe)
19: elderlist = {@elderlist, onlinejoe}
20: endif
21: endfor
22: endfor
23: player:tell("Below is a list of connected players from the oldest to youngest.")
24: for eachone in (elderlist)
25: player:tell("Name: ", eachone:title(), " First Connected On :", ctime(eachone.first_connect_time))
26: endfor