alias swear {
return some swear words here
}
On @*:Text:*:#: {
if (!$hget(swear)) hmake swear 10
var %i = 1
while ($gettok($swear,%i,32)) {
if ($istok($1-,$v1,32)) {
if ($nick !isop $chan) {
hinc swear $nick
if ($hget(swear,$nick) == 1) notice $nick Some warn message.
if ($hget(swear,$nick) == 2) kick $chan $nick Some kick message.
if ($hget(swear,$nick) == 3) { ban -k $chan $nick 2 Some kick/ban message. | hdel swear $nick }
}
}
inc %i
}
}
