set %unwanted_words word1 word2 word3 word4 (and so on...)
on *:text:*:?: {
if (($nick isop $comchan($nick,1)) || ($nick isvoice $comchan($nick,1)) || ($me !isop $comchan($nick,1))) halt
var %i = 1
while (%i <= $numtok(%unwanted_words,32)[color:red])[/color] {
if ($gettok(%unwanted_words,%i,32) isin $1-) {
.kick $comchan($nick,1) $nick Language error!
.close -m $nick
halt
}
inc %i
}
}