alias power {
  %numchans = $chan(0)
  %curchan = 1
  %numopped = 0
  %slaves = 0
  while (%curchan <= %numchans) {
    if ($me isop $chan(%curchan)) {
      inc %numopped
      inc %curchan
      %slaves = $calc(%slaves + $nick($chan(%curchan),0))
    }
    else {
      inc %curchan
    }
  }
}
}
say $target I am in %numchans channels and I am opped in %numopped with power over %slaves people
}
}
}

Combined in a popup with this:

Op Status: power | say $target I am in 12« %numchans 12» channels - I am oped in 12« %numopped 12» - I have power over 12« %slaves 12» people.