Антимат

;antimat
on *:TEXT:*:#: if (%mvkl = Вкл) filter $$1-
on *:ACTION:*:#: if (%mvkl = Вкл) filter $$1-
on *:NOTICE:*:#: if (%mvkl = Вкл) filter $$1-
on *:CTCP:*:#: if (%mvkl = Вкл) filter $$1-

alias convert {
var %buf1 = $replace($replace($lower($remove($1,$chr(44),!,_,.,-,/,\,*,^,+,?,",`)),А,а,Б,б,В,в,Г,г,Д,д,Е,е,Ё,ё,Ж,ж,З,з,И,и,Й,й,К,к,Л,л,М,м,Н,н,О,о,П,п,Р,р,С,с,Т,т,У,у,Ф,ф,Х,х,Ц,ц,Ч,ч,Ш,ш,Щ,щ,Ь,ь,Ы,ы,Ъ,ъ,Э,э,Ю,ю,Я,я),а,a,е,e,д,g,и,u,к,k,м,m,о,o,п,n,р,p,с,c,у,y,х,x,ч,4,з,3,ь,b,ya,я,йа,я,иа,я), %buf2 = 1
while (%buf2 < $len(%buf1)) {
if ($mid(%buf1,%buf2,1) == $mid(%buf1,$calc(%buf2 + 1),1)) {
if (%buf2 > 1) %buf1 = $mid(%buf1,1,$calc(%buf2 - 1)) $+ $mid(%buf1,$calc(%buf2 + 1))
else %buf1 = $mid(%buf1,2,$len(%buf1))
}
inc %buf2
}
return %buf1
}

alias filter {
var %yxi.nick = $nick, %yx = 1, %yx.dlina = $numtok($1-,32)
while (%yx <= %yx.dlina) {
if ($read(baza/мат.txt,w,$gettok($convert($strip($1-)),%yx,32)) != $null) { writeini матершинники.txt nicks $nick $calc($readini(матершинники.txt,nicks,$nick)+1) }
inc %yx |
}
if ($exists(baza/не_мат.txt) != $false) {
%buf1 = $lines(baza/не_мат.txt)
while (%buf1 > 0) {
%buf2 = $read -l %buf1 не_мат.txt
if ($nick isin %buf2) halt
dec %buf1
}
}
if ($readini(матершинники.txt,nicks,$nick) >= %mstr) .
if ($me isop $chan) && ($readini(матершинники.txt,nicks,$nick) >= %kstr) { .raw mode # +b $address(%yxi.nick,1) | .raw kick # %yxi.nick ?9,1 За мат ты будешь получать банан!?8(mat!?12(by-tszyu-script) | writeini матершинники.txt nicks %yxi.nick 0 }
}

menu menubar {
Антимат ( %mvkl )
.Включить/Выключить: if (%mvkl == Вкл) { %mvkl = Выкл } | else { %mvkl = Вкл }
.Пропустить %mstr матных слов: set %mstr $?="Введите количество матов перед слежение"
.После %kstr забанить: set %kstr $?="Введите количество матов перед баном"
}