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
}
}