ON $*:TEXT:/^[!@/.]info$/Si:#:{    
n1=  VAR %i = 1 
n2=  WHILE (%i <= $chan(0)) { 
n3=    VAR %c = $chan(%i), %channels = $addtok(%channels,$+($iif($me isop %c,@),$iif($me ishop %c,%),$iif($me isvoice %c,+),%c),32) 
n4=    INC %i 
n5=  }  
n6=  var %x = $chan(0) 
n7=  set -l %opct 
n8=  set -l %voct 
n9=  set -l %hoct 
n10=  while ( %x ) { 
n11=    if ( $me isop $chan(%x) ) inc %opct 
n12=    elseif ( $me ishop $chan(%x) ) inc %hoct 
n13=    elseif ( $me isvo $chan(%x) ) inc %voct 
n14=    dec %x 
n15=  } 
n16=  $iif($left($1,1) == @,msg $chan,.notice $nick) I am currently connected to [»»»» $network ««««] on [»»»» $server ««««]. I am in $chan(0) channels, of those I am Op'd on [»»»» %opct $+ ««««] , Half Op'd on [»»»» %hoct $+ ««««] and Voiced on [»»»»  %voct $+ ««««] . I am currently on [»»»»  %channels ««««]. 
n17=}