This should work. Put the bad words instead of "bad, words, seperated..." and it should work. I tested it. You can also change the reason as well. Change anything else, and it won't work.
Code:
on *:TEXT:*:#: {
  set %badwords bad, words, seperated, by, commas
  set %si 0
  :loopin
  inc %si 1
  if ($gettok(%badwords,%si,44) == $null) { goto loopout } 
  if ($gettok(%badwords,%si,44) isin $1-) { //kick $chan $nick No Bad Words!!! }
  goto loopin
  :loopout
}


There you go!

Adrenaline starts to flow, thrashing all around, acting like a maniac, WHIPLASH!!!