Example from old Mirc Script, modify whatever you want because some words are for spanish language:

on @!*:text:*:#:if (%Badword. [ $+ [ # ] ] = si) { Badwordkick $strip($1-) }
on @!*:action:*:#:if (%Badword. [ $+ [ # ] ] = si) { Badwordkick $strip($1-) }
alias -l Badwordkick { 
  var %b = $strip($1-)
  if ($nick(#, $nick, '.@)) halt
  if ($regex(%b,/(b!tchs?|chtm|choch[ao]s?|ogetes?))/i) badkick
  elseif ($regex(%b,/(fuks?|fucks?|put[ao]s?|cabron.?s?))/i) badkick
  elseif ($regex(%b,/(me las pelas?|pendej[ao]s?))/i) badkick
  elseif ($regex(%b,/(mamadas?|lammers?|suckers?))/i) badkick 
  elseif ($regex(%b,/(pito|vergas?|culos?))/i) badkick
  elseif ($regex(%b,/(chinga|suks?|culer[ao]s?|ogt))/i) badkick
  elseif ($regex(%b,/(dicks?|bitchs?|whores?|sluts?))/i) badkick
  elseif ($regex(%b,/(ass holes?|assholes?|pingas?))/i) badkick
  elseif ($regex(%b,/(soy (Dios|.. Dios)))/i) bigkick
  elseif ($regex(%b,/(I'?a?m (God|..?.? God)))/i) bigkick
  halt   
}
Menu Channel {
-
Protection
.$Iif(%Badword. [ $+ [ # ] ] == si, $Style(1)) Badword Protection: {
    Set %Badword. [ $+ [ # ] ] $Iif(%Badword. [ $+ [ # ] ] == si, no, si)
    Echo -at * 0Badwords Protection $Iif(%Badword. [ $+ [ # ] ] == si, Activated, Desactivated)
  }
}
-

Badkick and Bigkick are aliases post whatever you want there.