alias power {
  var %x = 1, %y = 0, %o = 0, %h = 0, %v = 0, %r = 0, %n = 0, %t = 0, %c = 0, %oo = 0, %hh = 0
  while ($scon(%x)) {
    scid $scon(%x)
    set %i 1
    while ($chan(%i)) {
      inc %t $nick($chan(%i),0)
      if ($me isop $chan(%i)) { inc %o | inc %n $nick($chan(%i),0,a,o) | inc %hh $nick($chan(%i),0,o) }
      elseif ($me ishop $chan(%i)) { inc %h | inc %n $nick($chan(%i),0,a,oh) | inc %hh $nick($chan(%i),0,h,o) | inc %oo $nick($chan(%i),0,o) }
      elseif ( $me isvoice $chan(%i) ) { inc %v | inc %n $nick($chan(%i),0,r) | inc %hh $nick($chan(%i),0,v,ho) | inc %oo $nick($chan(%i),0,oh) }
      elseif ($me isreg $chan(%i)) { inc %r | inc %hh $nick($chan(%i),0,r,ohv) | inc %oo $nick($chan(%i),0,a,r) }
      inc %y | inc %i | inc %c 
    }
    inc %x
  }
  scon -r msg $active 10I am opped in04 %o 10 $+ $iif(%o > 1,channels,channel) ( $+ 12 $+ $ceil($calc(%o / %c * 100)) $+ 12%10), halfopped on04 %h 10( $+ 12 $+ $ceil($calc(%h / %c * 100)) $+ 12%10), voiced on04 %v 10( $+ 12 $+ $ceil($calc(%v / %c * 100)) $+ 12%10), and regular on04 %r 10( $+ 12 $+ $ceil($calc(%r / %c * 100)) $+ 12%10). That's control over04 %n $+ 10/ $+ 04 $+ %t 10( $+ 12 $+ $ceil($calc((%n / %t)*100)) $+ % 10of the users) and controled by04 %oo $+(10,$chr(40),12,$ceil($calc((%oo / %t) *100)),% 10of the users,$chr(41)) $+ , while being equal with04 %hh $+(10,$chr(40),12,$ceil($calc((%hh / %t) *100)),% 10of the users,$chr(41)) $+ , on a total of04 %c 10 $+ $iif(%c > 1,channels,channel) 10on04 $scon(0) 10 $+ $iif($scon(0) > 1,networks,network) $+ 10.
}

Commenting Options