View/Edit #4001:topbeen

Switch to edit mode.

1:  if (argstr)
2:    length = toint(argstr)
3:    toint(argstr) > length(this.been) && (length = length(this.been))
4:  else
5:    length = length(this.been)
6:  endif
7:  while (#-1 in this.been)
8:    ya = #-1 in this.been
9:    this.been = listdelete(this.been, ya)
10:   this.beenfor = listdelete(this.beenfor, ya)
11: endwhile
12: for x in ($list_utils:reverse($list_utils:sort(this.been, this.beenfor))[1..length])
13:   player:tell(tostr(x.name, "                    ")[1..20], ": ", $time_utils:english_time(this.beenfor[x in this.been] * 60))
14:   suspend(0)
15: endfor
16: "Last modified by Dax (#789) on Tue May  3 14:09:35 2005 MDT."

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