View/Edit #7584:generate_nranks

Switch to edit mode.

1:  "Copyright (C) Olivier Beaton (aka Quadir), all rights reserved."
2:  "Licensed under BSD, see http://www.opensource.org/licenses/bsd-license.php"
3:  ""
4:  "--"
5:  "For everyday use, please use :nrank()"
6:  if (!$clock:find_id(this.gen_nranks_task))
7:    this.gen_nranks_task = $clock:schedule(this, verb, {}, 60 * 60 * 24)
8:  endif
9:  if (this.gen_nranks)
10:   return
11: endif
12: this.gen_nranks = 1
13: players = {}
14: ages = {}
15: for who in (players())
16:   age = `who.first_connect_time ! ANY => $maxint'
17:   if (age == $maxint)
18:   elseif (age <= $slacker.first_connect_time)
19:   elseif (age == 0)
20:   elseif (who:isa($robot))
21:   elseif (who:isa($project))
22:   elseif (who:isa($guest))
23:   elseif (who in $imp.imp)
24:   else
25:     players = {@players, who}
26:     ages = {@ages, age}
27:   endif
28:   $cmd_utils:suspend_if_needed(0)
29: endfor
30: this.nranks = $list_utils:sort(players, ages)
31: this.gen_nranks = 0
32: "Last modified by Foenique (#4232) on Fri Aug  9 16:26:37 2002 MDT."

[home | help | who | search | setup | code]