on @*:TEXT:*:#: {
var %x = 1
var %y = word1 word2 word3 word4 word5 word6 word7 word8 word9 word10
while ($gettok(%y,%x,32)) {
if ($wildtok($1-,$+(*,$v1,*),1,32)) {
hinc -m warn $nick
if ($hget(warn,$nick) == 1) {
.msg $chan $nick $+ , this is your $ord($hget(warn,$nick)) warning on swearing.
}
elseif ($hget(warn,$nick) > 2) {
.ban -k $chan $nick 2 Please don't swear in $chan $+ .
.hdel warn $nick
}
else {
.kick $chan $nick This is your $ord($hget(warn,$nick)) warning on swearing. $&
Continue doing so will result a ban.
}
}
inc %x
}
}