;on notice script all the way down to the end of the whole script file

on *:NOTICE:*:*:{
  if ($nick != ChanServ) { halt }
  if (!%apply) { halt }
  if (%mode_ban) {
    msg #ShockServ 0,1 $+ %nick.ask $+ , I am currently banned from the channel 4(14 $+ %channel $+ 4)0,1. Please use !delban $me in your channel, and then reapply.
    unset %mode_ban
    unset %apply
    halt  
  }
  if (%mode_i) {
    msg #ShockServ 0,1 $+ %nick.ask $+ , The channel 4(14 $+ %channel $+ 4)0,1 is currently mode +i, to getabot you must do !mode -i in your channel, and then reapply.
    unset %mode_i
    unset %apply
    halt
  }
  if (%mode_k) {
    msg #ShockServ 0,1 $+ %nick.ask $+ , The channel 4(14 $+ %channel $+ 4)0,1 is currently mode +k, to getabot you must do !mode -k in your channel, and then reapply.
    unset %mode_k
    unset %apply
    halt  
  }
  if (%channel_full) {
    msg #ShockServ 0,1 $+ %nick.ask $+ , The channel 4(14 $+ %channel $+ 4)0,1 is currently full, to getabot you must do !mode -l in your channel, and then reapply.
    unset %channel_full
    unset %apply
    halt
  }
  if (*has not been registered* iswm $1-) {
    msg #ShockServ 0,1 $+ %nick.ask $+ , The channel 4(14 $+ %channel $+ 4)0,1 is currently not registered with ChanServ.
    part %channel
    unset %apply    
    halt
  }
  if (*lacks access* iswm $1-) {
    msg #ShockServ 0,1 $+ %nick.ask $+ , You currently not on the userlist in the channel 4(14 $+ %channel $+ 4)0,1.
    part %channel  
    unset %apply  
    halt
  }
  if (*must first authenticate* iswm $1-) {
    msg #ShockServ 0,1 $+ %nick.ask $+ , You must first authenticate with AuthServ before you can getabot!
    part %channel
    unset %apply
    halt
  }
  if (xeonnet !isin $address(%nick.ask,2)) {
    msg #ShockServ 0,1 $+ %nick.ask $+ , You must first do  $+ //mode $ $+ me +x $+  before you can getabot!
    unset %apply
    part %channel
    halt
  }
  var %i = 1
  while (%i <= $nick(%channel,0)) {
    if (*Boat* iswm $nick(%channel,%i)) {
      set %boat $nick(%channel,%i)
    }
    if (*Beta-* iswm $nick(%channel,%i)) {
      set %beta $nick(%channel,%i)
    }
    if (*ClanBot-* iswm $nick(%channel,%i)) {
      set %clanbot $nick(%channel,%i)
    }
    if (*Xbot|* iswm $nick(%channel,%i)) {
      set %xbot $nick(%channel,%i)
    }
    inc %i
  }
  if (%boat) {
    msg #ShockServ 0,1 $+ %nick.ask $+ , Sorry but there is currently another type of bot in your channel 4(14 $+ %channel $+ 4)0,1  $+ %boat $+ . You cannot have a ShockServ until that bot is removed.
    unset %apply    
    unset %boat
    part %channel
    halt
  }
  if (%beta) {
    msg #ShockServ 0,1 $+ %nick.ask $+ , Sorry but there is currently another type of bot in your channel 4(14 $+ %channel $+ 4)0,1  $+ %beta $+ . You cannot have a ShockServ until that bot is removed.
    unset %apply    
    unset %beta
    part %channel
    halt
  }
  if (%clanbot) {
    msg #ShockServ 0,1 $+ %nick.ask $+ , Sorry but there is currently another type of bot in your channel 4(14 $+ %channel $+ 4)0,1  $+ %clanbot $+ . You cannot have a ShockServ until that bot is removed.
    unset %apply    
    part %channel
    unset %clanbot
    halt
  }
  if (%xbot) {
    msg #ShockServ 0,1 $+ %nick.ask $+ , Sorry but there is currently another type of bot in your channel 4(14 $+ %channel $+ 4)0,1  $+ %xbot $+ . You cannot have a ShockServ until that bot is removed.    
    unset %apply    
    unset %xbot
    part %channel
    halt
  }
  if (*has access* iswm $1-) {
    if ($strip($5,b) <= 400) {
      msg #ShockServ 0,1 $+ %nick.ask $+ , You currently have access  $+ $strip($5,b) $+ , we require at least 401 access in 4(14 $+ %channel $+ 4)0,1 to getabot.
      part %channel      
      unset %apply
      halt
    }
    else {
      idlecheck
    }
  }
}

alias idlecheck {
  if ($nick(%channel,0) >= 7) {
    part %channel
    unset %apply
    $eval($botapply)
  }
  elseif ($nick(%channel,0) < 7) {
    msg #shockserv 0,1 $+ %nick.ask $+ , Your channel 4(14 $+ %channel $+ 4)0,1 currently has $calc($nick(%channel,0) - 2) Idlers. We require you to have 5 or more idlers NOT Including ChanServ or Myself. Once you have enough idlers, you may reapply.
    part %channel      
    unset %apply
    halt
  }
}


on Admin:TEXT:@rehash:#: {
  ;NOTE: Inorder for this script to work this script must be the last script!
  notice $nick Rehashing.....  
  notice $nick Rehashed $script(0) scripts.  
  var %i = 1
  while (%i <= $script(0)) {
    reload -rs " $+ $script(%i) $+ "
    inc %i
  }
}
on *:TEXT:@lines:#: {
  msg $chan 0,1There are  $+ $totallines $+  total lines in all of my scripts combined!
}