Code:
  
on 1:text:`chans:#:{
  var %i $chan(0)
  var %o 0
  while %o < %i {
    inc %o
    set %bot-chans $addtok(%bot-chans,$chan(%o) 4 $+ $left($nick($chan(%o),$me).pnick,1)  $+ $chr(32) ,124)
    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 %bot-chans $chr(124) with control over4 %bot-nicks nicks.
  unset %bot-*
}

billythekid