Something

alias f3 {
  /set %cc 1
  :back
  /set %chan $chan( $+ %cc $+ )
  /inc %cc
  if (%chan == $null) { /set %onchan %cc | goto end }
  goto back
  :next1
  /set %aa 1
  :back2
  if ($me isop $chan( $+ %aa $+ )) { /inc %opcc }
  if ($me ishop $chan( $+ %aa $+ )) { /inc %hopcc }
  if ($me isvoice $chan( $+ %aa $+ )) { /inc %voicecc }
  if ($chan( $+ %aa $+ ) == $null) { goto end }
  goto back2
  :end
  /msg $active 14I'm on7 %onchan 14channels. Opped on7 %opcc 14, hopped on7 %hopcc 14, voiced on7 %voicecc 14, and regular on14 $calc(%onchan - %opcc - %hopcc - %voicecc)
}