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