Auto upload stats for multi network channels

alias update_stats {
  var %mf = C:\mircstats\mircstats.exe
  if (!$isfile(%mf)) { return }
  if (%upload_stats) { return }
  var %t = $scon(0)
  var %i = 1
  while (%i <= %t) {
    var %n = $scon(%i).network
    var %c = $scon(%i).allchans
    var %ii = 1
    var %tt = $numtok(%c,44)
    while (%ii <= %tt) {
      var %chan = $gettok(%c,%ii,44)
      var %f = %chan $+ . $+ %n $+ .log
      set -e %upload_stats $addtok(%upload_stats,%f,32)
      inc %ii
    }
    inc %i
  }
  if (%upload_stats) { upload_stats_start }
}

alias upload_stats_start {
  var %mf = C:\mircstats\mircstats.exe
  if (!$isfile(%mf)) { .timer[UPLOAD_STATS] off | return }
  if (!%upload_stats) { .timer[UPLOAD_STATS] off | return }
  var %g = $gettok(%upload_stats,$rand(1,$numtok(%upload_stats,32)),32)
  set -e %upload_stats $remtok(%upload_stats,%g,1,32)
  run -nh $qt(%mf) -log $qt($logdir $+ %g) -cfg settings.cfg
  .timer[UPLOAD_STATS] 1 30 upload_stats_start
}

alias allchans {
  var %t = $chan(0)
  var %i = 1
  while (%i <= %t) {
    var %c = $chan(%i)
    if ($me ison %c) { var %tot = $addtok(%tot,%c,44) }
    inc %i
  }
  return $iif(%tot,$v1,0)
}