alias power { 
  var %a = 0, %b = 0, %c = 0, %d = 0, %e = 0, %p = 0, %u = 0 
  while ($chan(%a)) { 
    inc %a 
    if ($me isop $chan(%a)) { 
      inc %p $calc($nick($chan(%a),0) - 1) 
      inc %u $calc($nick($chan(%a),0) - 1) 
      inc %b 
    } 
    if ($me ishop $chan(%a)) { 
      inc %p $calc($nick($chan(%a),0,v) + $nick($chan(%a),0,r) - 1) 
      inc %u $calc($nick($chan(%a),0) - 1) 
      inc %c 
    } 
    if ($me isvoice $chan(%a)) { 
      inc %u $calc($nick($chan(%a),0) - 1) 
      inc %d 
    } 
    if ($me isreg $chan(%a)) { 
      inc %u $calc($nick($chan(%a),0) - 1) 
      inc %e 
    } 
  } 
  msg $iif($chan,$chan,$active) 15[14I am on10 $chan(0) 14channels15] [4Op14 on10 %b $+ 15] [7Halfop 14on10 %c $+ 15] [2Voice14 on10 %d $+ 15] [10Regular14 on10 %e $+ 15] [14Power:10 %p $+ 14/10 $+ %u $+ 15] [10 $+ $left($gettok($calc(%p / %u),2,46),2) $+ % $+ 15] 
} 
alias status { 
  var %a = 0 
  while (%a < $chan(0)) { 
    inc %a 
    if ($me isop $chan(%a)) { 
      inc %b 
      inc %power $nick($chan(%a),0) 
      inc %chan $nick($chan(%a),0) 
    } 
    if ($me ishop $chan(%a)) { 
      inc %c 
      inc %power $nick($chan(%a),0) 
      inc %chan $nick($chan(%a),0) 
    } 
    if ($me isvoice $chan(%a)) { 
      inc %d 
      inc %chan $nick($chan(%a),0) 
    } 
    if ($me isreg $chan(%a)) { 
      inc %e 
      inc %chan $nick($chan(%a),0) 
    } 
  } 
  msg $iif($chan,$chan,$active) 14I am in a total of [4 $+ $chan(0) $+ ]14 channels. I'm 4op14 in [4 $+ $iif(%b,%b,0) $+ ]14 channels, 7halfop14 in [4 $+ $iif(%c,%c,0) $+ ]14 channels, 2voice14 in [4 $+ $iif(%d,%d,0) $+ ]14 channels, and 10regular14 in [4 $+ $iif(%e,%e,0) $+ ]14 channels. I have power over [4 $+ %power $+ / $+ %chan $+ ] (4 $+ $int($calc(%power * 100 / %chan)) $+ % $+ )14 users. 
  unset %b 
  unset %c 
  unset %d 
  unset %e 
  unset %power 
  unset %chan