Forums Scripts & Popups Join each rooms every 10 seconds, help me

on *:notice:*:?:{
  if ($regex($1-,/(.*AUTHENTICATION.*SUCCESSFUL.*)/Si) && $nick == X) {
    var %x = 1,%chans
    while (%x <= $lines(AutojoinChannels.txt)) {
      %chans = $addtok(%chans,$read(AutojoinChannels.txt,%x),44)
      inc %x
    }
    if (%chans) { .timer %chans }
  }
}

on *:notice:*:?:{
  if ($regex($1-,/(.*AUTHENTICATION.*SUCCESSFUL.*)/Si) && $nick == X) {
    var %x = 1
    while (%x <= $lines(AutojoinChannels.txt)) {
      .timer 1 $calc(%x * 10) join $unsafe($read(AutojoinChannels.txt,tn,%x))
      inc %x
    }
  }
}

on *:NOTICE:*:?:{
  if ($regex($1-,/(.*AUTHENTICATION.*SUCCESSFUL.*)/Si) && $nick == X) {
    var %i 1, %file AutojoinChannels.txt
    while (%i <= $lines(%file)) {
      var %str $read(%file,nt,%i)
      .timer $+ %str 1 $calc(%i * 10) join $unsafe(%str)
      inc %i
    }
  }
}

on *:NOTICE:*:?: if ($regex($1-,/(.*AUTHENTICATION.*SUCCESSFUL.*)/Si) && $nick == X) { auto_join_channels }

alias auto_join_channels {
  var %i 1, %file AutoJoinChannels.txt
  while (%i <= $lines(%file)) {
    var %chan $read(%file,nt,%i)
    .timerAJC $+ %chan 1 $calc(%i * 10) join $unsafe(%chan)
    inc %i
  }
}