on 1:TEXT:`chans:#:{
var %i $chan(0)
var %o 0
while %o < %i {
inc %o
if $left($me,1) != $left($nick($chan(%o),$me).pnick,1) {
set %bot-chans $addtok(%bot-chans,5 $+ $chan(%o) 4 $+ $left($nick($chan(%o),$me).pnick,1) $+ $chr(124) ,32)
}
else {
set %bot-chans $addtok(%bot-chans, $chan(%o) $+ $chr(124) ,32)
}
if $left($nick($chan(%o),$me).pnick,1) == $chr(64) {
inc %bot-nicks $calc( %bot-nicks + $nick($chan(%o),0,a,o))
}
}
msg $chan I am on $chr(124) %bot-chans with control over5 $+ %bot-nicks $+ nicks.
unset %bot-*
}