on *:TEXT:!blacklist add*:#: {
if ($nick isop #) {
set %blacklist. $+ $$3- $+ . $+ $chan On
msg # $$3- has been added to my blacklist, anyone using $$3- will be timed out for 10 minutes.
}
else {
msg # Sorry $nick $+ , you do not have permission to add words to the blacklist
}
}
on *:TEXT:!blacklist del*:#: {
if ($nick isop #) {
unset %blacklist. $+ $$3- $+ . $+ $chan On
msg # $$3- Has been removed from the blacklist
}
else {
msg # Sorry $nick $+ , you do not have permission to remove words from my blacklist
}
}
on *:TEXT:*:#: {
if ($nick isop #) return
if ($read($chan $+ regs.txt,nw,$nick)) { return }
var %i = 1
while (%i <= $0) {
if ($($+(%,blacklist.,$gettok($1-,%i,32),.,#),2)) {
msg # $nick --> Don't use that word. FailFish [Timeout]
msg # .timeout $nick 600
break
}
inc %i
}
}
}