asdlfkajsldfj

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 4[P14ower4] 14I am on4 $chan(0) 14channels. 4@14Ops:4 %op $+(14,$chr(91),04,$round($calc((%op / $chan(0)) * 100),0),$chr(37),14,$chr(93)) 7%14Hop4:4 %hop $+(14,$chr(91),04,$round($calc((%hop / $chan(0)) * 100),0),$chr(37),14,$chr(93)) 12+14Voice:04 %voice $+(14,$chr(91),04,$round($calc((%voice / $chan(0)) * 100),0),$chr(37),14,$chr(93)) 14Reg:04 %reg $+(14,$chr(91),04,$round($calc((%reg / $chan(0)) * 100),0),$chr(37),14,$chr(93)) 14Total:04 $+(%power.total,14/04,%power) $+($round($calc((%power.total / %power) * 100),2),$chr(37) 14of the people)
}