Code:
 menu channel,nicklist,query {
  Power : power
}
alias 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 = $addtok(%chan,s,32)
    }
    %chan = $remove(%chan,$chr(32))
    while %c <= %d {
      inc %noobs $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 4 I am OP'd in 14 %op $+ / $+ %chans 15 $+ %chan 4 on < 14 $scon(0) 4 >15 %networks $+ . 
  msg $active 4 I am Half-OP'd in 14 %hop $+ / $+ %chans 15 $+ %chan 4 on < 14 $scon(0) 4 >15 %networks $+ .
  msg $active 4 I am OP'd in 14 %op $+ / $+ %chans 15 $+ %chan 4 on < 14 $scon(0) 4 >15 %networks $+ .
  msg $active 4 I pwn < 14 %noob 4 >15 n00bs  
  unset %Op
  unset %hop
  unset %voice
}

Last edited by RusselB; 17/09/06 09:00 PM.