alias power {
  var %x = 1
  var %o = 0
  var %h = 0
  var %v = 0
  var %c = 0
  var %t = 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 %x
    }
  }
  msg $active 14I'm on7 ( $+ $chan(0) $+ ) 14channels. Opped on7 ( $+ %o $+ ) 14halfopped on7 ( $+ %h $+ ) 14and voiced on7 ( $+ %v $+ ) 14I can control7 ( $+ %c $+ / $+ %t $+ ) 14or7 ( $+ $round($calc(%c * 100 / %t),2) $+ % $+ ) 14of the people 
}