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=}