Çevrimdışı

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-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
#x kanalinin akick listesinde bulunamadi.


Yaziyor..

 

Çevrimdışı

Evet
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

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.

 

Çevrimdışı

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.

 

Çevrimdışı

Kod'da sorun yok, Amigo.

 

Çevrimdışı

Neyse Saol

 

Çevrimdışı

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

 

Çevrimdışı

Hmm.

 

Çevrimdışı

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