Forums Scripts & Popups Help word filter

i like -wordbanned- ... /wordbanned/ you... "wordbanned" u...

on *:text:*:#: {
if ($nick == jovirone_so_que_pobre) {
if ($strip($1) == !filter) {
if ($strip($2) == on) {
if (%filter == on) { msg $chan Filter Is Already On }
elseif (%filter == off) { set %filter on | msg $chan Filter Is Now %filter }
elseif (!%filter) { set %filter on | msg $chan FIlter is Now %filter }
}
elseif ($strip($2) == off) {
if (%filter == off) { msg $chan Filter Is Already Off }
elseif (%filter == on) { set %filter off | msg $chan Filter Is Now %filter }
elseif (!%filter) { set %filter off | msg $chan Filter Is Now %filter }
}
}
if ($strip($1) == !filteradd) {
var %p = 1
while (%p <= $lines(badwords.txt)) {
if ($gettok($read(badwords.txt, %p),1,126) == $gettok($strip($2-),1,126)) {
set %rmatch 1
msg $chan $gettok($strip($2-),1,126) Is Already In Filter List
}
if (%p == $lines(badwords.txt)) {
if (!%rmatch) { write badwords.txt $strip($2-) }
}
inc %p
}
}
if ($strip($1) == !filterrem) {
var %o = 1
while (%o <= $lines(badwords.txt)) {
if ($gettok($read(badwords.txt, %o),1,126) == $strip($2-)) {
write $+(-dl,%o) badwords.txt
}
inc %o
}
}
}
if (%filter) {
var %x = 1
while (%x <= $numtok($strip($1-),32)) {
var %b = 1
var %y = $gettok($strip($1-),%x,32)
while (%b <= $lines(badwords.txt)) {
var %c = $gettok($read(badwords.txt, %b),1,126)
if (%y == %c) || ($gettok($strip($1-),$+(%x,-,$numtok($gettok($read(badwords.txt, %b),1,126),32)),32) == $gettok($read(badwords.txt, %b),1,126)) {
msg $chan .timeout $nick $gettok($read(badwords.txt, %b),2,126)
}
inc %b
}
inc %x
}
}
}