alias -l words { return shit porn }
alias -l words_file { return words.txt }
alias -l words_chans { return # }

ON *:TEXT:*:$($words_chans): { check_words $nick $chan $strip($1-) }
ON *:ACTION:*:$($words_chans): { check_words $nick $chan $strip($1-) }

alias -l check_words {
  if (!$1) || (!$2) || (!$3) { return }

  var %t = $numtok($3-,32)

  var %i = 1
  while (%i <= %t) {
    var %w = $gettok($3-,%i,32)

    if (%w) && ($istok($words,%w,32)) { write $qt($words_file) ( $+ $timestamp $+ ) $1 said on $2 channel the word %w with sentence: $3- }

    inc %i
  }
}