Someone

/Count { 
var %x = 1, %i = 1 
var %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) } 
      if ($me isop $chan(%x)) inc %infcount $nick($chan(%x),0,$iif($me isop $chan(%x),rvh)) 
      if ($me ishop $chan(%x)) inc %infcount $nick($chan(%x),0,$iif($me ishop $chan(%x),rv))        
      inc %usercount $nick($chan(%x),0) 
      inc %Chancount 
      inc %x 
    } 
  } 
  inc %i 
  var %x = 1 
} 
scid -r 
msg $active 6 I am: Opped in7 %ocount $+ 6 ,Halfopped in7 %hcount $+ 6 ,Voiced in7 %Vcount $+ 6 ,and regular in7 $calc(%chancount - %Ocount - %Hcount - %Vcount) 6 out of 7 %chancount 6 channels over7 $scid(0) 6 networks. I control 7 $+(%infcount,/,%usercount) 6 users. 
} 
}