Top 10 channel stats

on *:TEXT:*:#:{
  writeini words.ini $chan $nick $calc($readini(words.ini,$chan,$nick) + $0)
  if ($1 == .top10) {
    var %i 1
    while (%i <= $ini(words.ini,$chan,0)) {
      var %w $+(%w,:,$readini(words.ini,$chan,$ini(words.ini,$chan,%i)),-,$ini(words.ini,$chan,%i))
      inc %i
    }
    var %w $sorttok(%w,58,nr)
    var %i 1
    while (%i <= 10) {
      var %q $gettok(%w,%i,58)
      var %win %win $+(%i,.) $gettok(%q,2,45) ( $+  $bytes($gettok(%q,1,45),b) $+ )
      inc %i
    }
    msg $chan Top ten talkers for $chan
    msg $chan %win
  }
}