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:

When user joins your channel, whois them (on JOIN) check the whois reply to see what channels they are in (raw event, numeric 319) kick the user (loops and $comchan) The raw numeric 319 contains the list of channels a person is in (it is returned when you /whois the person

on !*:JOIN:#your_channel: whois $nick
raw 319:*: {
 ; $3- contains the channels the person is in (that are not +s or +p)
 ; $2 is the persons nickname, $nick is NOT the persons nickname in a RAW event
 ; this is where many people much up, thinking you can use $nick and $chan in a RAW event
 if (xxx isin $3-) || (porn isin $3-) || (warez isin $3-) || (sex isin $3-) {
  ; The above if statements check if xxx,porn,warez or sex is in ANY of the channels the person is in
  var %t = $comchan($2,0)
  ; The above variable sets how many channels the user is in that you are also in
  while (%t) {
   ; The above while statement will loop through every channel you and the person ($2) are in
   ; and kick him from each of those channels. If you want you can remove the while statement
   ; and INSTEAD of $comchan($2,%t) use an actual channel, e.g. #HelpDesk
   if ($me isop $comchan($2,%t)) {
    ; It would be a bit foolish if we tried to kick without ops, wouldn't it? *Grins*
    ban -u60 $comchan($2,%t) $2 11
    kick $comchan($2,%t) $2 I don't like your channels!
   }
   dec %t
  }
 }
}