Kod: Kodu kopyalamak için üzerine çift tıklayın!
on 1:TEXT:*:#: {
set %i 0
:checking
inc %i 1
set %currentsword $read -l $+ %i $mircdir\kanalkufur.txt
if (%currentsword == $null) { .unset %i | goto end }
else {
if (%currentsword isin $1-) { goto offense }
else { goto checking }
}
:offense
/kkufuralert
goto end
:end
}
on 1:action:*:#: {
set %i 0
:checking
inc %i 1
set %currentsword $read -l $+ %i $mircdir\kanalkufur.txt
if (%currentsword == $null) { .unset %i | goto end }
else {
if (%currentsword isin $1-) { goto offense }
else { goto checking }
}
:offense
/kkufuralert
.goto end
:end
}
on 1:notice:*:#: {
if (Serv isin $nick) || ($nick == Wcoc) || ($nick == global) || ($nick == $network) { goto end }
set %i 0
:checking
inc %i 1
set %currentsword $read -l $+ %i $mircdir\kanalkufur.txt
if (%currentsword == $null) { .unset %i | goto end }
else {
if (%currentsword isin $1-) { goto offense }
else { goto checking }
}
:offense
/kkufuralert
.goto end
:end
}
alias kkufuralert {
if ($nick !ison $chan) {
ban -u180 $chan $nick 2
}
ban -u180 $chan $nick 2
kick $chan $nick Küfürlü konuşmak yasaktır.
}
Kanalkufur.txt diye bir notepad dosyasi olusturup içine kufurlerini eklersen, içinde ekledigin kufur gecen cumleleri kullanan userleri kanaldan 3dk'lıgına banlar.
Not: Kanalkufur.txt mirc.exe ile aynı yerde olsun. Farklı klasorler içine yerleştirirsen çalışmaz.
Not: Kanalkufur.txt dosyasına eklediğiniz kelimelerin başına veya sonuna asla * koymayın. Mesela salak kelimesini eklemek istiyorsun. Direk txt dosyasını aç ve içine salak yaz, kaydet ve çık. Bütün eklediklerinin dosya içinde alt alta sıralanmasına dikkat et....