Code:
on @*:TEXT:*:#: {
  if ($nick !isop #) {
    var %i = 1
    while $gettok($read(swear.txt,1),%i,32) {
      if ($+(*,$v1,*) iswm $strip($1-)) { 
        ban -ku180 $chan $nick 2 Swearing is not allowed!
        halt
      }
      inc %i
    }
  }
}


This will kick & ban for 3 mins the person who swears.

If you have a plastic floor runner over your tiles, then you're one Hella Pinoy!