on *:LOAD:{
/set %Bannword word1 word2 word3 word4
}
ON @*:TEXT:*:#: {
IF ($nick !isop #) {
VAR %i = 0
WHILE (%i < $numtok(%Bannword,32)) {
INC %i
vAR %current.word = $gettok(%Bannword,%i,32)
IF ($istok($strip($1-),%current.word,32) == $true) {
msg # .ban $nick
}
}
}
}