Someone

alias data { 
var %o, %h, %v, %r, %c 
var %a = 1 
while (%a <= $scon(0)) { 
var %b = 1 
var %d 
scon %a | while (%b <= $comchan($me,0)) { if ($me isop $chan(%b)) { inc %o | inc %d $nick($chan(%b),0) } | if ($me ishop $chan(%b)) { inc %h | inc %d $nick($chan(%b),0,a,oh) } | if ($me isvoice $chan(%b)) { inc %v } | else { inc %r } | inc %c | inc $nick($chan(%b),0) 
inc %b 
} 
inc %a 
} 
msg $active 14I am on7 %c 14channels over7 $scon(0) 14networks. I am op on7 %o 14channels. I am halfop on7 %h 14channels. I am voice on7 %v 14channels. I am regular on7 %r 14channels. I have power over7 %d $+ 14/ $+ 7 $+ %t 14(7 $+ $calc(%d / %t * 100) $+ %14) users. 
}