Stuff

alias opers {
  var %oper = 0
  while ($scon(%a)) {
    if (O isin $usermode) {
      inc %oper
    }
    inc %a
  }
}
alias infos {
  $opers
  var %o = 0,%h = 0,%v = 0,%r = 0,%n = 0,%t = 0,%c = 0,%s = $scon(0),%d = 0
  var %a = 1 
  while ($scon(%a)) { 
    scon %a 
    var %b = 1 
    inc %c $chan(0) 
    while ($chan(%b)) { 
      var %ch = $chan(%b)
      inc %t $nick(%ch,0)
      if ($me isop %ch) { inc %o | inc %n $nick(%ch,0,rvho) } 
      elseif ($me ishop %ch) { inc %h | inc %n $nick(%ch,0,rv) } 
      elseif ($me isvoice %ch) inc %v 
      else inc %r
      inc %b
    } 
    inc %a 
  } 
  scon -r 
  msg $chan $iif(%oper > 0,Oper %d) $iif(%o > 0,opped %o) $iif(%h > 0,Halfopped %h) $iif(%v > 0,voiced %v) $iif(%r > 0,and regular %r) out of %c Channels - I control $+(%n,/,%t) users $chr(40) $+ $round($calc((%n / %t)*100),2) $+ % $+ $chr(41) over %s $+(network,$iif(%s > 1,s),.)
}