on @*:TEXT:*:#: {
if ($nick !isop #) {
var %i = 1
while $gettok($read(swear.txt,1),%i,32) {
if ($+(*,$v1,*) iswm $strip($1-)) {
set -u1800 %rl. [ $+ [ $address($nick,2) ] ] $calc( %rl. [ $+ [ $address($nick,2) ] ] + 1)
if (%rl. [ $+ [ $address($nick,2) ] ] == 1) {
msg $chan $nick Dont use badwords pls-(Warning next time is ban)-
}
if (%rl. [ $+ [ $address($nick,2) ] ] >= 2) {
ban -ku3600 $chan $nick 2 The end is finally here!(Banned)- (2Total kicks: $+ %badwcount $+ | inc %badwcount 1
}
}
inc %i
}
}
}