alias opcount { 
  var %x = 1, %i = 1, %z = 1
  var %Owncount = 0, %Acount = 0, %Ocount = 0, %Hcount = 0, %Vcount = 0, %chancount = 0, %infcount = 0, %usercount = 0 
  while (%i <= $scon(0)) { 
    scon %i { 
      while ($chan(%x) <= $chan(0)) { 
        if ($me isop $chan(%x)) { inc %Ocount | inc %Ousercount = $nick($chan(%x),0) } 
        elseif ($me ishop $chan(%x)) { inc %Hcount | inc %Husercount = $nick($chan(%x),0) } 
        elseif ($me isvoice $chan(%x)) { inc %Vcount | inc %Vusercount = $nick($chan(%x),0) } 
        while ( %z <= $nick($chan(%x),0) ) {
          if ($nick($chan(%x),%z) == $me) {
            if ( ~ isin $nick($chan(%x),%z).pnick ) { inc %Owncount | %Ocount = $calc(%Ocount - 1) }
            elseif ( & isin $nick($chan(%x),%z).pnick ) { inc %Acount | %Ocount = $calc(%Ocount - 1) }
            inc %z
          }
          else inc %z
        }
        if ($me isop $chan(%x)) || ($me ishop $chan(%x)) inc %infcount $nick($chan(%x),0,$iif($me isop $chan(%x),rvh,rv)))        
        inc %usercount $nick($chan(%x),0) 
        inc %Chancount 
        inc %x 
        %z = 1
      } 
    } 
    inc %i 
    var %x = 1 
  } 
  scid -r 
  msg $active I have: (04~)Owner in13 %owncount $+ , (04&)Admin in13 %Acount $+ , (04@)Op in13 %Ocount $+ , $&
    (04%)Halfop in13 %Hcount $+ , (04+)Voice in13 %Vcount $+ , and regular in13 $&
    $calc(%chancount - %Owncount - %Acount - %Ocount - %Hcount - %Vcount) out of13 %chancount channels over13 $scid(0) networks. $&
    I control13 $+(%infcount,/,%usercount) noobs. 
}