on *:START: { unset %swear.* }
on *:TEXT:*:#channel: {
var %swears = swear1,swear2,swear3,swear4,swear5
var %warns = 1
var %x = $numtok(%swears,44)
tokenize 32 $strip($1-)
while (%x) && ($nick isreg $chan) {
if ($istok($1-,$gettok(%swears,%x,44),32)) {
inc $+(%,swear.,$wildsite)
var %n = $($+(%,swear.,$wildsite),2)
if (%n <= %warns) {
.kick # $nick BANG!!! ( $+ $gettok(%swears,%x,44) $+ )
}
elseif (%n > %warns) {
.ban # *!* $+ $address $+ * swearing is not good ( $+ $gettok(%swears,%x,44) $+ )
unset $+(%,swear.,$wildsite)
}
}
dec %x
}
}