Anonymous

alias colz { return $+($chr(3),10,$1-,$chr(3)) }
alias st4t {
  var %e = $chan $getnet($network)
  var %u = 0 0 0 0 0 0
  var %x = 1
  while ($scon(%x)) {
    scon %x
    var %u = $calc($gettok(%u,1,32) + $chan(0)) $gettok(%u,2,32) $gettok(%u,3,32) $gettok(%u,4,32) $gettok(%u,5,32) $gettok(%u,6,32)
    var %p = 1
    while ($chan(%p)) {
      var %u = $gettok(%u,1,32) $gettok(%u,2,32) $gettok(%u,3,32) $gettok(%u,4,32) $gettok(%u,5,32) $calc($gettok(%u,6,32) + $nick($chan(%p),0))
      if ($me isop $chan(%p)) {
        var %u = $gettok(%u,1,32) $calc($gettok(%u,2,32) +1) $gettok(%u,3,32) $gettok(%u,4,32) $gettok(%u,5,32) $gettok(%u,6,32)
      }
      elseif ($me ishop $chan(%p)) {
        var %u = $gettok(%u,1,32) $gettok(%u,2,32) $calc($gettok(%u,3,32) +1) $gettok(%u,4,32) $gettok(%u,5,32) $gettok(%u,6,32)
      }
      elseif ($me isvoice $chan(%p)) {
        var %u = $gettok(%u,1,32) $gettok(%u,2,32) $gettok(%u,3,32) $calc($gettok(%u,4,32) +1) $gettok(%u,5,32) $gettok(%u,6,32)
      }
      elseif ($me isreg $chan(%p)) {
        var %u = $gettok(%u,1,32) $gettok(%u,2,32) $gettok(%u,3,32) $gettok(%u,4,32) $calc($gettok(%u,5,32) +1) $gettok(%u,6,32)
      }
      inc %p
    }
    inc %x 
  }
  scon $gettok(%e,2-,32)
  $iif($1 == -s,msg $gettok(%e,1,32),echo -a) $+([,$colz(STATS),]) I am in $colz($gettok(%u,1,32)) channels with $colz($gettok(%u,6,32)) others over $colz($scon(0)) networks. Op: $colz($gettok(%u,2,32)) - Halfop: $colz($gettok(%u,3,32)) - Voice: $colz($gettok(%u,4,32)) - Regular: $+($colz($gettok(%u,5,32)),.)
}
alias getnet {
  var %y = 1
  while ($scon(%y)) {
    if ($scon(%y).network == $1-) {
      return $scon(%y).network
      inc %y $scon(0)
      break
    }
    else inc %y
  }
}