or you could use $read(file.txt, w, %badword)
Code:
on *:text:*:#:{
var %i = 1
while (%i <= $numtok($1-,32)) {
if ($read(file.txt, w, $gettok($1-,%i,32)) {
$gettok($read(file.txt, w, $gettok($1-,%i,32),2,124) # $nick bad word
}
inc %i
}
}


just make in the file
badword | kick
badword | kickban

and then make a small alias like this
Code:
alias kickban {
ban $1 $2
kick $1 $2 $3
}

something like that

Lets get dirty