alias power {
  var %x = 1
  var %o = 0
  var %h = 0
  var %v = 0
  var %c = 0
  var %t = 0
  var %r = 0
  while (%x <= $chan(0)) {
    if ($me isop $chan(%x)) {
      inc %o
      inc %t $nick($chan(%x),0)
      inc %c $nick($chan(%x),0)
      inc %x
    }
    elseif ($me ishop $chan(%x)) {
      inc %h
      inc %t $nick($chan(%x),0)
      inc %c $calc($nick($chan(%x),0) - $nick($chan(%x),0,o))
      inc %x
    }
    elseif ($me isvoice $chan(%x)) {
      inc %v
      inc %t $nick($chan(%x),0)
      inc %x
    }
    elseif ($me isreg $chan(%x)) {
      inc %t $nick($chan(%x),0) 
      inc %r
      inc %x
    }
  }
  say I'm on12 $chan(0) 1channels $+ $chr(44) 4opped1 on12 %o $+ 1,0,7 halfopped 1 on12 %h 1,0, 12 voiced 1 on12 %v $+ 1,0, and regular on12 %r $+ 1. I can control4 %c $+1 / $+4 %t 1or $chr(40) $+ 4 $round($calc(%c * 100 / %t),2) $+ % $+ 1 $chr(41) of the people. $checkircop
}