Code:
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,3 $+ $chan(%o) 4 $+ $left($nick($chan(%o),$me).pnick,1)  $+ $chr(124) ,32)
    }
    else {
      set %bot-chans $addtok(%bot-chans,3 $+ $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 over4 %bot-nicks nicks.
  unset %bot-*
}

billythekid