The Bad Channel script requires some knowledge of RAW as well as $comchan and loops, and some swear word checking skills as well.
The basics behind this kicker is as follows:
ON !*:JOIN:#: { whois $nick }
raw 319:*: {
IF ((xxx isin $3-) || (porn isin $3-) || (warez isin $3-) || (pub isin $3-)) {
VAR %t = $comchan($2,0)
WHILE (%t) {
IF ($me isop $comchan($2,%t)) {
ban -u60 $comchan($2,%t) $2 11
kick $comchan($2,%t) $2 go back to hell!
}
DEC %t
}
}
}