Alias qkb {
  mode $active -Q+b $address($1,3)
  kick $active $1 $iif($2-,$2-,Kicked)
}
Alias qk {
  mode $active -Q
  kick $active $1 $iif($2-,$2-,Kicked)
}
Alias kick {
  kick $active $1 $iif($2-,$2-,Kicked)
}
Alias kb {
  mode $active +b $address($1,3)
  kick $active $1 $iif($2-,$2-,Kicked)
}
alias -l power.c {
  set %Networks $scon(0)
  while (%Networks > 0 ) {
    scon %Networks
    inc %Total.C $chan(0)
    set %channels $chan(0)
    while (%channels > 0 ) {
      inc %Power.Total $nick($chan(%channels),0)
      if ($me isop $chan(%channels)) { inc %Total.O | inc %Power.Over $nick($chan(%channels),0,a,o) | inc %Power.Over $nick($chan(%channels),0,o) }
      elseif ($me ishop $chan(%channels)) { inc %Total.H | inc %Power.Under  $nick($chan(%channels),0,a,oh) | inc %Power.Under $nick($chan(%channels),0,h,o) | inc %Power.Under  $nick($chan(%channels),2,o) }
      elseif ($me isvoice $chan(%channels)) { inc %Total.V | inc %Power.Under  $nick($chan(%channels),0,r) | inc %Power.Under $nick($chan(%channels),0,v,ho) | inc %Power.Under  $nick($chan(%channels),0,oh) }
      elseif ($me isreg $chan(%channels)) { inc %Total.R | inc %Power.Under  $nick($chan(%channels),0,r,ohv) | inc %Power.Under $nick($chan(%channels),0,a,r) }
      dec %channels
    }
    dec %Networks
  }
}
alias power {
  $power.c
  msg $active I am on14 %Total.C channels across14 $scon(0) networks. I have:4  %Total.O 14(4 $+ $round($calc( %Total.O / %Total.C * 100 ),0) $+ 14%)4 Ops,7  %Total.H 14(7 $+ $round($calc( %Total.H / %Total.C * 100 ),0) $+ 14%)7 HalfOps,12  %Total.V 14(12 $+ $round($calc( %Total.V / %Total.C * 100 ),0) $+ 14%)12 Voices,10 %Total.R 14(10 $+ $round($calc( %Total.R / %Total.C * 100 ),0) $+ 14%)10 Regulars. I have power over 14( $+ 04 $+ %Power.Over $+ 14/10 $+ %Power.Total $+ 14) people.
  unsetall
}