power {
  var %tu = 0, %pu = 0, %co = 0, %nn = 0, %nc = 0, %j = 0, %i
  while (%j < $scon(0)) {
    %i = 1 
    inc %j
    scon %j 
    if ($status != connected) continue
    while (%i <= $chan(0)) {
      inc %tu $nick($chan(%i),0)
      if (($me isop $chan(%i)) || ($me isowner $chan) || ($me ishop $chan)) {
        inc %pu $calc($nick($chan(%i),0) - 1) 
        inc %co 
      }
      inc %i
    } 
    inc %nc $chan(0) 
    inc %nn
  } 
  scon -r 
  say op: %co $+ / $+ %nc channels on %nn $iif(%nn == 1,network.,networks.) Power over %pu $+ / $+ %tu users ( $+ $round($calc(%pu /%tu *100),2) $+ % $+ ).
}