Code:
On @*:JOIN:#channelnamehere:{
   if (bot isin $nick) { 
    .ctcp $nick xdcc list 
    set %_bots $addtok(%_bots,$nick,46) 
    .timer 1 10 .set %_bots $remtok(%_bots,$nick,1,46)
  }
}
On *:NOTICE:*:?: {
  if ($istok(%_bots,$nick,46)) { 
    mode #channelnamehere +v $nick
  }
}

Something along those lines... if you have to manage more than one of these channels then use a loop to voice the bot in all the channels that you're opped in.


"Any sufficiently advanced technology is indistinguishable from magic." - Arthur C. Clarke