i wrote this code with some help from RusselB a year ago, and am now wondering... is it possible to shrink this down some?

Code:
power {
  var %a = 1, %b = $scon(0)
  var %networks = network $+ $iif(%b > 1,s), %chan = channel
  while %a <= %b  {
    .scon %a
    var %c = 1, %d = $chan(0)
    inc %chans %d
    if %d > 1 || %chan == channels {
      %chan = channels
    }
    %chan = $remove(%chan,$chr(32))
    while %c <= %d {
      inc %noobs $iif($me ison $chan(%c),$nick($chan(%c),0,a,o),$iif($me ishop $chan(%c),$nick($chan(%c),0,a,oh),$nick($chan(%c),0,r)))
      inc %Op $iif($me isop $chan(%c),1,0)
      inc %hop $iif($me ishop $chan(%c),1,0)
      inc %Voice $iif($me isvoice $chan(%c),1,0)
      inc %c
    }
    inc %a
  }
  scon -r
  msg $active  15C14onnected 15H14ere 15V14ia3: 10<12  $+ $server $+  10>14. 15I H14ave: 10<4 $+(%op, $+ 3/04 $+ ,%chans)  10> 15O14ps, 10<4 $+(%hop, $+ 3/04 $+ ,%chans) 10> 15H14elp10-15O14ps 15a14nd 10<4 $+(%voice, $+ 3/04 $+ ,%chans) 10> 15V14oices. 15I A14m 15O14n 10<4 $scon(0) 10> 15N14etwork(s). 15I H14ave 15C14ontrol 15O14ver 10<4 %noobs 10> 15M14ortal 15V14ictoms. $drdev_pwrlogo 7By $drdev_teamlogo
  unset %Op
  unset %hop
  unset %voice
  unset %chans
  unset %noobs
}


Thanks in advance for any help
ps. this goes in aliases