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