Özelde Belirttiğim Yazılar Yazilinca Ban.?
 

Selam Arkada$lar Sizin Icin Kolay Bir Reklam Korumasi Isteyeceğim.
Özelime Belirttiğim Kelimeler Yazilinca All Akick Atmak İstiyorum.Yardimci Olabilirmisiniz.

Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
 

Cok Zor Bi$eymi Sordum? Benden Sonra 2 Konu Acildi , iLgilenildi.? :S

Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
 

gelişmiş arama yaptan bi reklam koruması bul sonra birde allban codesi ni arat oradan reklam koruması kickban diye atıyodur ona allban ın atma şeklini yaz kick+ban yerine olur biter bence :D

Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
 

alias bdwrd var %& = 1 | while (%& <= $lines(kelimeler.txt)) { if ($regex($2-,$read(kelimeler.txt,%&))) { allkick $1 akick sebebi. | break } | inc %& }
alias allkick if ($1) { var %1 = 1 | while (%1 <= $comchan($1,0)) { if ($regex($nick($comchan($1,%1),$me).pnick,@|&|~|%) || $regex($usermode,A|a|N|C)) { cs akick $comchan($1,%1) add $address($1,2) $2- | cs akick $comchan($1,%1) enforce } | inc %1 } | var %2 %1 - 1 | echo -at %2 kanalda akick uyguladınız. }
on *:text:*:?:bdwrd $nick $1-

Şeklinde işini görür.
Kelimeler.txt dosyasına, alt alta belirlediğin kelimeleri yazman yeterli olur.

Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
 

Tesekkurler L4roXyL Hayranim sana :p

Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
 

L4roXyL Usta kLavyene SağLık :D;hail;hail;hail;kil
_________________________

takvim Gazetesinin BaşLığı: KOBAY TÜRKLER => Dünyaya Göre Türkiyede ÜretiLen SigaraLarda 3 kat daha fazla Zehir Tespit ediLmiş peki neden.? kişisel yorumum= TekeL'i sattık yabancılar'a onLarda yıkamadıkLarı osmanlıyı böyle yıkmaya çalışıyor bence daha bir çok örnek var ama yazmakla bitmez bu vatan 3 kuruşa alınmadı 5 kuruşa satmayın.
SatanLar Utansın

Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
 

L4roXyL , Verdiğin Kod Calisiyor Fakat Akick Ekliyor ve Enforce Cekiyor Ama Silmiyor , Silmesinide Istiyorum Kod Biraz Karisik Cözemedim Yardimci Olurmusun(uz) :)

Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
 

alias bdwrd var %& = 1 | while (%& <= $lines(kelimeler.txt)) { if ($regex($2-,$read(kelimeler.txt,%&))) { allkick $1 akick sebebi. | break } | inc %& }
alias allkick if ($1) { var %1 = 1 | while (%1 <= $comchan($1,0)) { if ($regex($nick($comchan($1,%1),$me).pnick,@|&|~|%) || $regex($usermode,A|a|N|C)) { cs akick $comchan($1,%1) add $address($1,2) $2- | cs akick $comchan($1,%1) enforce } | cs akick $comchan($1,%1) del $address($1,2) | inc %1 } | var %2 %1 - 1 | echo -at %2 kanalda akick uyguladınız. }
on *:text:*:?:bdwrd $nick $1-

eklediğim yeri kırmızı ve kalın bi şekilde gösterdim şimdi silicektir.

Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
 

regex kullanırken /i parametresini kullanmayı unutmayın.
ayrıca /i kullanılırken kelimelerin ,/(kelime) gibi eklenmesi gerekir.

Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
 

Evet alovepoem haklı.

alias bdwrd var %& = 1 | while (%& <= $lines(kelimeler.txt)) { if ($regex($2-,/ $read(kelimeler.txt,%&)/i)) { allkick $1 akick sebebi. | break } | inc %& }
alias allkick if ($1) { var %1 = 1 | while (%1 <= $comchan($1,0)) { if ($regex($nick($comchan($1,%1),$me).pnick,@|&|~|%) || $regex($usermode,A|a|N|C)) { cs akick $comchan($1,%1) add $address($1,2) $2- | cs akick $comchan($1,%1) enforce } | inc %1 } | var %2 %1 - 1 | echo -at %2 kanalda akick uyguladınız. }
on *:text:*:?:bdwrd $nick $1-

Şeklinde yaparsak daha mantıklı olur.

Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
 

dJiNn Kod'u Ekledim Belirttiğim Kelimeler Yazilinca Akick Eklemiyor Bu Sefer Direk Silmeye Calisiyor ,

[:14:14:11] 1 kanalda akick uyguladınız. -->> Yaziyor Ama İslem Yapmiyor.
[:15:19:09] -ChanServ- [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] #x kanalinin akick listesinde bulunamadi.


Yaziyor..

Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
 

Evet :confused:

Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
 

alias bdwrd var %& = 1 | while (%& <= $lines(kelimeler.txt)) { if ($regex($2-,/ $read(kelimeler.txt,%&)/i)) { allkick $1 akick sebebi. | break } | inc %& }
alias allkick if ($1) { var %1 = 1 | while (%1 <= $comchan($1,0)) { if ($regex($nick($comchan($1,%1),$me).pnick,@|&|~|%) || $regex($usermode,A|a|N|C)) { cs akick $comchan($1,%1) add $address($1,2) $2- | cs akick $comchan($1,%1) enforce | cs akick $comchan($1,%1) del $address($1,2) } | inc %1 } | var %2 %1 - 1 | echo -at %2 kanalda akick uyguladınız. }
on *:text:*:?:bdwrd $nick $1-

Şeklinde sorunsuz çalışır.

Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
 

L4roXyL , Calismadi ya , Script Ne Bir Hata Verdi Ne Baska Bi$ey Acil Lazim oLmasa Acele Etmem Vallaha , Yardimci oLurmusun iLk Kod Yine Akick Uygulandi Deyipte Atmiyordu Bu Hiçbirsey vErmedi :S Acaba Kelimeler.txt'yi Loadlamadiğim Icınmi Dicem Onla Alakasi Yok :S Cözemedim waLLaha.

Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
 

Kod'da sorun yok, Amigo.

Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
 

Neyse Saol

Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
 

kodda çok sorun var..
1. if ($regex($2-,/ $read(kelimeler.txt,%&)/i)) = ,/ ile $read arasında boşluk var.
2. /i case sensivite algılaması için (string)/i gibi olmalı.
3. her algılama while ile kelimeler.txt dosyasına 1000 tane kelime eklendiğini farzedelim özele aynı anda 10 kişi gelse mirc kilitlenecektir.
vs..

Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
 

Hmm.

Cevap: Özelde Belirttiğim Yazılar Yazilinca Ban.?
 

peky bunu kill olsrsk nasıl ayarlarız arkdaşlar