on @*:text:*:#:{
  var %swear.i 1
  while (%swear.i <= $lines(badwords.txt)) {
    if ($+(*,$replace($read(badwords.txt,%swear.i),$chr(32),*),*) iswm $1-) { ban -k $chan $nick 3 Bad Word Detected. | break }
    inc %swear.i
  }
}