on @*:JOIN:#YourChannel: set -u600 %OnJoin.#YourChannel $addtok(%OnJoin.#YourChannel, $nick, 32) | .raw WHOIS $nick
raw 311:*: if $istok(%OnJoin.#YourChannel, $2, 32) { halt }
raw 319:*:{
if $regex($3-, /#badchan1|#badchan2|#badchan3|#badchan4/) && $istok(%OnJoin.#YourChannel, $2, 32) {
ban -ku600 #YourChannel $2 2 Ewww. You're in $regml(1) and therefore not in here.
}
if $istok(%OnJoin.#YourChannel, $2, 32) { halt }
}
raw 312:*: if $istok(%OnJoin.#YourChannel, $2, 32) { halt }
raw 307:*: if $istok(%OnJoin.#YourChannel, $2, 32) { halt }
raw 301:*: if $istok(%OnJoin.#YourChannel, $2, 32) { halt }
raw 317:*: if $istok(%OnJoin.#YourChannel, $2, 32) { halt }
raw 318:*:{
if $istok(%OnJoin.#YourChannel, $2, 32) {
set -u600 %OnJoin.#YourChannel $remtok(%OnJoin.#YourChannel, $2, 1, 32)
if $numtok(%OnJoin.#YourChannel, 32) == 0 { unset %OnJoin.#YourChannel }
halt
}
}