alias delword {
if (!$1) {
echo * Please specify something to be removed.
}
elseif (!$istok(%badwords,$1,32)) {
echo * That word $1 is not on the list.
}
else {
set %badwords $remtok(%badwords,$1,1,32)
echo * The word $1 has been removed!
}
}
alias addword {
if (!$1) {
echo * Please specify something to be added.
}
elseif ($istok(%badwords,$1,32)) {
echo * That word $1 is already in the list
}
else {
set %badwords $addtok(%badwords,$1,32)
echo * The new list is --> %badwords
}
}
on @*:text:*:#: bdwdwkb $1-
on @*:action:*:#: bdwdwkb $1-
on @*:notice:*:#: bdwdwkb $1-
alias -l bdwdwkb {
if ($regex($1-,$+(/(?<![a-z\d])\Q,$replacecs(%badwords,\E,\\E\Q,$chr(32),\E|\Q),\E(?![a-z\d])/Si))) {
inc $+(%,$site,#)
if ($($+(%,$site,#),2) > 3) {
ban -ku900 # $nick 2 you were warned three times! 15-min time-out for cursing!
unset $+(%,$site,#)
}
elseif ($($+(%,$site,#),2) == 3) {
.msg # $nick $+ , please do not use such language in # again.
}
elseif ($($+(%,$site,#),2) == 2) {
.msg # $nick $+ , please do not use such language in # again.
}
else .msg # $nick $+ , please curb with you gutter mouth!
}
}
