on *:TEXT:.getabot *:#: {
  if (%nick == $null) {
    set %nick $nick
    set %nick.chan $2
    /join %nick.chan
    /cs %nick.chan a %nick
  }
  else {
    msg $chan %nick is currently in the process of applying, please wait until they're done.
  } 
}

on *:NOTICE:*:*: {
  if ($(has,access) isin $1-) {
    if ($calc($nick(%nick.chan,0)-2) >= 12) {
      if ($remove($5,) >= 401) {
        msg %nick.chan Accept.
        unset %nick.chan
        unset %nick
      }
      if ($remove($5,) < 401) {
        msg %nick.chan Good idlers.  Bad access.
        part %nick.chan
        unset %nick.chan
        unset %nick
      }
    }
    if ($calc($nick(%nick.chan,0)-2) < 12) {
      if ($remove($5,) >= 401) {
        msg %nick.chan Good access.  Bad idlers.
        part %nick.chan
        unset %nick.chan
        unset %nick
      }
      if ($remove($5,) < 401) {
        msg %nick.chan Neither.
        part %nick.chan
        unset %nick.chan
        unset %nick
      }
    }
  }
  elseif ($(lacks,access) isin $1-) {
    msg %nick.chan No access at all.
    unset %nick.chan
    unset %nick
  }
}