Badword finder

ON !*:TEXT:*:#: {
  if ($nick isop $chan) { return }
  var %f = dd.txt
  if (!$isfile(%f)) { return }
  if (!$lines(%f)) { return }
  tokenize 32 $strip($1-)
  var %t = $numtok($1-,32)
  var %i = 1
  while (%i <= %t) {
    var %w = $gettok($1-,%i,32)
    var %r = $read(%f,nw,* $+ %w $+ *)
    if (%w == %r) { echo BADWORD -> %w }
    inc %i
  }
}