Stuff

ON $*:TEXT:/^[!@/.](channels|chans|info)$/Si:#:{    
  VAR %i = 1 
  WHILE (%i <= $chan(0)) { 
    VAR %c = $chan(%i), %channels = $addtok(%channels,$+($iif($me isop %c,@),$iif($me ishop %c,%),$iif($me isvoice %c,+),%c),32) 
    INC %i 
  }  
  var %x = $chan(0) 
  set -l %opct 
  set -l %voct 
  set -l %hoct 
  while ( %x ) { 
    if ( $me isop $chan(%x) ) inc %opct 
    elseif ( $me ishop $chan(%x) ) inc %hoct 
    elseif ( $me isvo $chan(%x) ) inc %voct 
    dec %x 
    if (%opct == $null) { set %opct 0 
    } 
    if (%hoct == $null) { set %hoct 0 
    } 
    if (%voct == $null) { set %voct 0 
    } 
  } 
  $iif($left($1,1) == @,msg $chan,.notice $nick) 10I am4 $me 10and i am connected to4 $server 10on4 $network I am on10 $chan(0) 4channels.  10Of those, I am opped on4 %opct $+ , Half-opped on %hoct $+ , and voiced on %voct $+ . 10I am currently on2 %channels . 
}