REMOTE PART:
---------------------------------------------------------
on *:TEXT:@apply*:#cyberFRAG:{
  if (!$2) {
    notice $nick 9,1x14(14  You must add a channel14,1 )9x  
    notice $nick 9,1x14(14  Example @apply #cyberFRAG14,1 )9x  
  }
  elseif ($2 == #cyberFRAG) {
    notice $nick 9,1x14(14  The Bot Is Already In That Channel14,1 )9x  
    notice $nick 9,1x14(14  Try again with a different channel14,1 )9x 
  }
  elseif ($2) {
    join $2
    set %channel $2
    set %whoasked $nick
    timer 1 3 idlers
  }
}
----------------------------------------------------------------------------------------
ALIASES PART:
----------------------------------------------------------
alias idlers {
  if ($nick(%channel,0) <= 10) {
    notice %whoasked 9,1x14(14 You currently have $nick(%channel,0) idlers.14,1 )9x
    notice %whoasked 9,1x14(14  We require you have 10 idlers.14,1 )9x
    notice %whoasked 9,1x14(14  Not including the Chanserv and I.14,1 )9x
    part %channel
    unset %channel
    unset %whoasked
  }
  else {
    timer 1 5 checkaccess
  }
}
alias checkaccess {
  if (%whoasked isop %channel) {
    notice %whoasked 9,1x14(14 Congrats × You have passed the requirements14,1 )9x
    notice %whoasked 9,1x14(14 Please add the bot by typing !addco $me $+ 14,1 )9x
    notice %whoasked 9,1x14(14 The bot will come in shortly!14,1 )9x
    notice %whoasked 9,1x14(14 Have a wonderful day!14,1 )9x
    msg #cyberfrag.lms -idle %channel
    part %channel
    unset %channel
    unset %whoasked

  }
  else {
    notice %whoasked 9,1x14(14 You do not have ops in the channel %channel14,1 )9x
    notice %whoasked 9,1x14(14 Please have someone with ops, Apply for the bot14,1 )9x
    part %channel
    unset %channel
    unset %whoasked
  }
}


-----------------------
------IDLE chans-------
-----------------------
on 5:TEXT:*:*:{
  if ($1 == %trigger $+ idle) {
    if ($left($2,1) == $chr(35)) {
      if ($me !ison $2) {
        if (!$lines(idler.txt)) {
          .join $2
          .write idler.txt $2
          .notice $nick I am now idling $2 $+ . Channel has been written to idler.txt and will be auto-joined on connect.
        }
        else {
          var %x 1
          while (%x <= $lines(idler.txt)) {
            if (%x < $lines(idler.txt)) {
              if ($2 == $read(idler.txt,%x)) {
                .notice $nick This channel is already on your idler list but you are not currently on the channel. Now Joining channel.. If this doesn't work type .join $2 $+ .
                .join $2
                halt
              }
              elseif ($2 != $read(idler.txt,%x)) {
                inc %x
              }
            }
            elseif (%x == $lines(idler.txt)) {
              if ($2 == $read(idler.txt,%x)) {
                .notice $nick This channel is already on your idler list but you are not currently on the channel. Now Joining channel.. If this doesn't work type .join $2 $+ .
                .join $2
              }
              else {
                .join $2
                .write idler.txt $2
                .notice $nick I am now idling $2 $+ . Channel has been written to idler.txt and will be auto-joined on connect.
              }
              halt
            }
          }
        }
      }
      else {
        if (!$lines(idler.txt)) {
          .write idler.txt $2
          .notice $nick I am now idling $2 $+ . Channel has been written to idler.txt and will be auto-joined on connect.
        }
        else {
          var %x 1
          while ($lines(idler.txt)) {
            if (%x < $lines(idler.txt)) {
              if ($2 == $read(idler.txt,%x)) {
                .notice $nick You are already idling this channel.
              }
              elseif ($2 != $read(idler.txt,%x)) {
                inc %x
              }
            }
            elseif (%x == $lines(idler.txt)) {
              if ($2 == $read(idler.txt,%x)) {
                .notice $nick You are already idling this channel.
              }
              else {
                .write idler.txt $2
                .notice $nick Channel added to idler.txt. Join action not required. Reason: You are already on the channel.
              }
              halt
            }
          }
        }
      }
    }
    else {
      .notice $nick Channel must include pound sign. Invalid channel name.
    }
  }
  elseif ($1 == %trigger $+ join) {
    if ($left($2,1) == $chr(35)) {
      if ($me !ison $2) {
        .join $2
        .notice $nick Joining $2 $+ .
      }
      else {
        .notice $nick I am already idling $2
      }
    }
    else {
      .notice $nick Channel must include pound sign. Invalid channel name.
    }
  }
  elseif ($1 == %trigger $+ remidle) {    
    if ($left($2,1) == $chr(35)) {
      if ($me !ison $2) {
        var %x 1
        while (%x <= $lines(idler.txt)) {
          if (%x < $lines(idler.txt)) {
            if ($2 == $read(idler.txt,%x)) {
              .write -dl $+ %x idler.txt
              .notice $nick $2 Has been removed from idler.txt.
              halt
            }
            elseif ($2 != $read(idler.txt,%x)) {
              inc %x
            }
          }
          elseif (%x == $lines(idler.txt)) {
            if ($2 == $read(idler.txt,%x)) {
              .write -dl $+ %x idler.txt
              .notice $nick $2 Has been removed from idler.txt.
            }
            else {
              .notice $nick $2 could not be found in idler.txt. No action was taken.
            }
            inc %x
          }
        }
      }
      else {
        var %x 1
        while (%x <= $lines(idler.txt)) {
          if (%x < $lines(idler.txt)) {
            if ($2 == $read(idler.txt,%x)) {
              .write -dl $+ %x idler.txt
              .notice $nick $2 Has been removed from idler.txt. Now parting $2 $+ .
              .part $2
            }
            elseif ($2 != $read(idler.txt,%x)) {
              inc %x
            }
          }
          elseif (%x == $lines(idler.txt)) {
            if ($2 == $read(idler.txt,%x)) {
              .write -dl $+ %x idler.txt
              .notice $nick $2 Has been removed from idler.txt. Now parting $2 $+ .
              .part $2
            }

            else {
              .notice $nick $2 not found in idler.txt. Now parting $2 $+ .
              .part $2
            }
            inc %x
          }
        }
      }
    }
    else {
      .notice $nick Channel must include pound sign. Invalid channel name.
    }
  }
  elseif ($1 == %trigger $+ idlechans) || ($1 == .idlechannels) {
    .notice $nick $iif($idlechans,$v1,None)
  }
  elseif ($1 == %trigger $+ joinidle) {
    .notice $nick Now joining all IDLE channels. Type .idlechans or .idlechannels for complete list.
    var %x 1
    while (%x <= $lines(idler.txt)) {
      .timer $lines(idler.txt) 3 join $read(idler.txt,%x)
      inc %x
    }
  }
}
alias idleconnect {
  var %x 1
  while (%x <= $lines(idler.txt)) {
    .timer 1 3 join $read(idler.txt,%x)
    inc %x
  }
}
alias idlechans {
  var %idlechans
  var %x 1
  while (%x <= $lines(idler.txt)) {
    set %idlechans %idlechans $read(idler.txt,%x)
    inc %x
  }
  return %idlechans
}