power 4 wp

alias power { 
  var %i = 1  | var %op = 0 | var %hop = 0 | var %voice = 0 | var %reg = 0 | var %power.total = 0
  while ($chan(%i)) {
    if ($me isop $chan(%i)) {
      inc %op | var %ops = %ops $chan(%i) | var %power = $calc(%power + $nick($chan(%i),0)) | inc %power.total $nick($chan(%i),0,ohvr) | inc %i | continue
    }
    if ($me ishop $chan(%i)) {
      inc %hop | var %hops = %hops $chan(%i) | var %power = $calc(%power + $nick($chan(%i),0)) | inc %power.total $nick($chan(%i),0,hvr) | inc %i | continue
    }
    if ($me isvoice $chan(%i)) {
      inc %voice | var %voices = %voices $chan(%i) | var %power = $calc(%power + $nick($chan(%i),0)) | inc %power.total $nick($chan(%i),0,vr) | inc %i | continue
    }
    if ($me isreg $chan(%i)) {
      inc %reg | var %regs = %regs $chan(%i) | var %power = $calc(%power + $nick($chan(%i),0)) | inc %i | continue
    }
  }
  msg $active 2[7Power2] I am on $chan(0) channels. 7@Ops:2 %op $+(,$chr(91),,$calc((%op / $chan(0)) * 100),$chr(37),,$chr(93)) / 7%Halfop:2 %hop $+(,$chr(91),,$calc((%hop / $chan(0)) * 100),$chr(37),,$chr(93)) / 7+Voice:2 %voice $+(,$chr(91),,$calc((%voice / $chan(0)) * 100),$chr(37),,$chr(93)) / 7Reg:2 %reg $+(,$chr(91),,$calc((%reg / $chan(0)) * 100),$chr(37),,$chr(93))  ||||  7Total:2 $+(%power.total,/,%power) $+($calc((%power.total / %power) * 100),$chr(37) are under my power)
}