power script

***************************
'              Henrik                      '
***************************

alias power { 
  if ($me ison $active || $query($active)) {
    if ($chan(0) > 1) {
      var %power = 1, %power.op, %power.users
      while (%power <= $chan(0)) { 
        if ($me isop $chan(%power)) { set %power.op $calc(%power.op +1) | set %power.users $calc(%power.users + $nick($chan(%power),0)) }
        set %power.total.users $calc(%power.total.users + $nick($chan(%power),0))   
        inc %power
      }
      var %power.chans = %power.op $+ / $+ $chan(0)
      var %power.users = %power.users $+ / $+ %power.total.users users
      ;edit this line as you want
      msg $active [Power] I Have op in %power.chans Channels and power over %power.users 
    }
  }
}
menu channel {
  -
  -
  Power:power
}
menu query {
  -
  -
  Power:power
 }
}