IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Küfür Korumasında Sorun! (https://www.ircforumlari.net/mirc-scripting-sorunlari/29119-kufur-korumasinda-sorun.html)

Küfür Korumasında Sorun!

Alıntı:

on @*:text:*:#:{
var %b $numtok($hget(bilal,küfürler),32)
while %b { if ($gettok($hget(bilal,küfürler),%b,32) isin $1-) {
mode $chan +bb $wildsite $nick | kick $chan $nick Kötü Söz Kullanmayın!
}
dec %b
}
var %c $numtok($hget(bilal,reklam),32)
while %c { if ($gettok($hget(bilal,reklam),%c,32) isin $1-) {
mode $chan +bb $wildsite $nick | kick $chan $nick Lutfen Reklam Yapmayınız!
}
dec %c
}
}
alias kfrekle { hadd bilal küfürler $addtok($hget(bilal,küfürler),$1,32) }
alias kfrsil { hadd bilal küfürler $deltok($hget(bilal,küfürler),$1,32) }
alias rekekle { hadd bilal reklam $addtok($hget(bilal,reklam),$1,32) }
alias reksil { hadd bilal reklam $deltok($hget(bilal,reklam),$1,32) }
on *:start:{
/hmake bilal 100
/hload bilal bilal.püfs
}
on *:disconnect:{
hsave bilal bilal.püfs
}

Elimde Böyle Bir Kod Var , Buradan Almıştım Bu Kodu Kimin Yazdıgını Hatırlamıyorum.Ancak Bir Sorun Var.Küfür Ekliyorum Ama Küfürü Silemiyorum.Sebebi Nedir.Yardımlarınızı Bekliyorum Şimdiden Teşekkürler.

Cevap: Küfür Korumasında Sorun!

Belalım boşuna arama buradaki korumaların tamamı sorunlu . Bu gösterdiğin korumada aynı . Kelimeleri istediğin gibi engelleyebilmek için ancak regex kullanmalısın . El33t aşağıdaki kodu yazdı gerçek koruma budur. Ama tabi yeterli bilgimiz olmadığı için dialogu yok kendimiz ekleyip çıkaramıyoruz aklına geldikçe dosyayı açar eklersin.

on *:text:*:#:if $regex($1-,/\byarak/i) { ban -u900 # $nick 2 | kick # $nick Kurallara Aykırı Davrandığınız İçin 15 Dakika Uzaklaştırıldınız }

şimdi yukardaki \b olayı kelimenin başında olduğu için kelimenin başına bir harf gelirse atmaz sonuna gelirse atar . misal : tuzlayarak , uyarak bunları atmaz. eğer \byarak\b olarak düzeltirsen sadece bu kelime geçince atar . Araya | işareti koyarak eklenebiliyor .

\byarak|\bsike|\boros

gibi eklenebiliyor. Regexi biraz araştırırsan her türlü yasaklayabilmen için karakterlerde mevcut . Koruma istiyorsan bunun üzerinde çalış diğerleri koruma mantığına aykırı . Ne yazıkki kendin ekle çıkar yapabileceğin bir dialogu mevcut değil e napalım o kadarda olsun aklına geldikçe elle ekle gitsin .

Cevap: Küfür Korumasında Sorun!

on *:TEXT:*:#:{
var %i 1
while $read(kufurler.txt,%i) {
if ($read(kufurler.txt,%i) iswm $remove($1-,$chr(32),*,/,\,.,$chr(44),-,_,!,;)) { /kick $chan $nick Küfür Etmek Yasaktır! | /mode $chan +b $nick }
inc %i
}
}

bunu load ettıkten sonra kufurler.txt dosyası olustur kelımelerı ekle
ornek;

*abaza*
*deneme*
*anan*

Yanıt: Küfür Korumasında Sorun!

KiLL Bunu mesela /kfrekle *abaza* /kfrsil *abaza* gibi yapamazmıyız.?

Cevap: Küfür Korumasında Sorun!

Belalım güzel diyosunda o koruma başına iş açar . Ben hepsi ile uğraştım çok hatalı ban atıyor onlar . gideceksin amınız yı yasaklıyacaksın bayramda herkes atılacak bayramınızı kutlarım deyince . Sen benim dediğimide ekleme çıkarma yaptırmaya çalış derim bilen birine sağlıklı değil o korumalar .
Gerçi en kolay spamfilterle yasaklamak sorunsuz oluyor ama bu seferde hatalı yazan olunca aop klineyi açamıyor .

Yanıt: Küfür Korumasında Sorun!

Buda Özele Gelen Küfürleri Engellemek İçin

on 1:action:*:#: {
if $me !isop $chan { halt }
if $nick isop $chan { halt }
if (fuck isin $1-) || (kavat isin $1-) || (AMINA isin $1-) || (orrospu isin $1-) || (bacın isin $1-) || (Goyim isin $1-) || (AMINI isin $1-) || (sike isin $1-) || (avradını isin $1-) || (sikti isin $1-) || (sokarım isin $1- ) {
.mode $chan +b $wildsite | .kick $chan $nick Action mesajınız küfür kullanmak yasaktır. }
}