Unnamed

alias top10 {
  var %d = 1, %w = @top5, %file = ircstats.ini, %c = $nick
  window -hn %w
  clear %w
  while $ini(%file,%d) {
    aline %w $v1 $readini(%file,$v1,points)
    inc %d
  }
  filter -cteuww 2 32 %w %w
  var %k = 1, %k1
  while %k <= 5  {
    if ( $line(%w,%k) ) {
      tokenize 32 $v1
      .timer 1 %k notice %c $+($chr(35),%k) $+($1,:) $2 lines
    }
    inc %k
  }
}
on *:TEXT:*:#XC:{
  %line = $readini(ircstats.ini,$nick,lines)
  if (%line != $null) {
    %current = $eval(%line,0)
  }
  else {
    %current = 0
  }
  %new = $calc(%current + 1)
  writeini ircstats.ini $nick lines %new
}