alias check {
  var %c = 1,%o = 0,%v = 0,%h = 0,%r = 0,%t = 0,%l = 0
  while ($chan(%c)) {
    if ($me isop $chan(%c)) {
      inc %o
      inc %t $nick($chan(%c),0)
      inc %l $nick($chan(%c),0)
    }
    elseif ($me ishop $chan(%c)) {
      inc %h 
      inc %t $nick($chan(%c),0,a,oh)
      inc %l $nick($chan(%c),0)
    }
    elseif ($me isvoice $chan(%c)) {
      inc %v
      inc %l $nick($chan(%c),0)
    }
    elseif ($me isreg $chan(%c)) {
      inc %r
      inc %l $nick($chan(%c),0)
    }
    inc %c
  }
  msg $chan I am in $chan(0) channels. I have %o @Op %h  $+ $chr(37) $+ Halfop %v +Voice and %r Regular. I have power over ( $+ %t $+ / $+ %l $+ ) ( $+ $round($calc((%t / %l)* 100),3) $+ $chr(37) $+ ) users.
}