Mine

ctcp *:CHAN:*:{
  ctcpreply $nick CHAN $chan(0) | HALT
}
ctcp *:JOINCHAN:*:{
  if ($nick == Darkneo-Bot) {
    join $2
  }
  HALT
}
;   PERSON
on *:INVITE:#:{
  set %x 1
  set %chan $chan
  .ctcp $gettok(%bl,%x,32) CHAN
}
on *:CTCPREPLY:Chan*:{
  if (%x == 1) { set %least $nick | set %num $2 }
  set %least $iif($2 < %num,$nick,%least)
  inc %x
  if (%x > $numtok(%bl,32)) { 
    .ctcp %least JOINCHAN %chan
    unset %chan %num %x %least | halt 
  }
  .ctcp $gettok(%bl,%x,32) CHAN | HALT
}