u can use alias and text file to do that

Code:
alias cekText {
 var %aa = 1
 while (%aa >= $lines(text.txt)) {
  if ($read(text.txt,%aa) isin $1- return ok
  inc %aa
 }
 return $null
}


now use:
Code:
on *:TEXT:*:#:if ($cekText($1-)) kick # $nick Bad Word!


hope this work wink

get more mIRC snipets, add-ons and scripts from http://www.oyr79.com/mirc