Çevrimdışı

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.

 

Çevrimdışı

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 .

 

Çevrimdışı

on *:TEXT:*:#:{
var %i 1
while $read(kufurler.txt,%i) {
if ($read(kufurler.txt,%i) iswm $remove($1-,$chr(32),*,/,\,.,$chr(44),-,_,!,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) { /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*

 

Çevrimdışı

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

 

Çevrimdışı

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 .

 

Çevrimdışı

TeşekkürLer..;oki

 

Çevrimdışı

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. }
}