on *:TEXT:*:#:{
var %i = 1
while ($gettok($1-,%i,32)) {
if ($read(remote\BadWord.txt,w,$ifmatch) == $ifmatch) {
$TestDeWord
}
inc %i
}
}
alias TestDeWord {
if (%reacti0n == warn) {
msg # $replace(%warnmessage,<nick>,$nick)
}
elseif (%reacti0n == kick) {
if (%deny == on) {
access # add deny $address($nick,1) %denytime
kick # $nick $replace(%kickmessage,<nick>,$nick) (Access ban set for %denytime minutes)
}
else {
kick # $nick $replace(%kickmessage,<nick>,$nick)
}
}
else { halt }
}
whats wrong with that ?!
aint working >_<