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

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

- - Dosyadan okuturken sorun. (https://www.ircforumlari.net/mirc-scripting-sorunlari/47967-dosyadan-okuturken-sorun.html)

Dosyadan okuturken sorun.

PHP- Kodu:

   on *:text:*:#:if $regex($1-,/ $+ $read(kufur.txt) $+ /i) { ban -u900 # $nick 2 | kick # $nick sebeb }

Bu kodda küfürleri dosyaya

\bzeytin|\bpeynir|\breçel|

şeklinde ekliyorum.

alt alta eklemem için ne yapmam lazım ?
\bzeytin
\bpeynir
\breçel

gibi .

Yanıt: Dosyadan okuturken sorun.

Alıntı:

on *:text:*pipi*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*******:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*****:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:********:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*********:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*sik*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*yarak*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*lezbiyen*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*gay*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*******:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*bacını*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*s2m*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*s2ci*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*skrm*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*a.k*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*a.q*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*sie*:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }

ASLINDA EN İYİ YÖNTEM REMOTEYE EKLEMEK. DEVAMINI GETİREBİLİRSİN

Cevap: Dosyadan okuturken sorun.

Kod:

on *:text:*:#: { var %' $lines(kufur.txt) | while  $read(kufur.txt,%') { if $regex($1-,$+(/,$v1,/)) { ban -u900 # $nick 2 | kick # $nick sebeb }  | dec %' } }

while dongusuyle tüm satirlari tek tek kontrol ettirmelisin alt alta kullanıyorsan..

Cevap: Dosyadan okuturken sorun.

Alt alta eklenebiliyor . şöyle bir problem var yalnız

\bzeytin
\bpeynir
\breçel

kelimelerinde ezeytin azeytin yazınca normal olarak atmıyor. ama şzeytin yahut çzeytin yazınca türkçe karakteri algılamıyor ve banlıyor. Bu regextenmi kaynaklanıyor bunu düzeltmenin bir yolu yokmu ?

Cevap: Dosyadan okuturken sorun.

kodlarında ufak bir değişiklik yapman gerekiyor. Örneğin

//echo -a $regex(çzeytin, /(?=([ŞÇÜİĞÖıçşğüö]zeytin))/)

Kod:

if ($regex($1-, $read(kufur.txt,tn, %') ) && !$regex($1-, /(?=([ŞÇÜİĞÖıçşğüö] $+ $replace(\b, $null, $read(kufur.txt,tn, %')) $+ ))/) {

Cevap: Dosyadan okuturken sorun.

peki regex kullanmadan wildcard olarak kullanılırsa aynı karakter sorununu yaşarmıyım ? Forumda wildcard kullanılan korumaların çoğu cümlenin tamamını algılamıyor sadece başında kullanılırsa atıyor. While kullanmadıkları içinmi oluyor bu ? Detayın yazdığı kodu wildcard kullanarak nasıl yapabilirim ?
Yani \bzeytin yerine *zeytin gibi uygulamak istiyorum.

Cevap: Yanıt: Dosyadan okuturken sorun.

Alıntı:

upriSinG Nickli Üyeden Alıntı (Mesaj 329581)

ASLINDA EN İYİ YÖNTEM REMOTEYE EKLEMEK. DEVAMINI GETİREBİLİRSİN

on *:text:*****:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*****:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. } on *:text:*********:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }
on *:text:*******:#: { mode # +b $nick | kick # $nick Küfür | echo -a $nick Küfür ettiği için # kanalından uzaklaştırıldı. }

ßunlar Ne? => ******* ***** ********

Yani Şu : User Ne Yazarsa Yazsın Atılacaklar, ßen Ne Anladım Küfür Korumasından Peki :) Örneğin

<CesuryureK>Küfür Etmedim ki?

Orda Küfür Etmediği Kalde Atılacak.
ßirileri Almadan Düzeltmek Lazım ßuna ßenzer Olanlarda Var Düzeltmek Lazım ....

Cevap: Dosyadan okuturken sorun.

Alıntı:

Micron Nickli Üyeden Alıntı (Mesaj 330455)

Dosya içerisinde yazdığın \bzeytin yerine *zeytin yazman yeterli... Regex onu operatör olarak algılayacaktır.

Cevap: Dosyadan okuturken sorun.

peki regex değilde wildcardla iswm kullanarak nasıl yapabilirim aynı kodu ?
Aynı diğer regex kodu gibi 15 dakika banlıyacak hep aopta hem ircopta çalışabilecek şekilde .

Cevap: Dosyadan okuturken sorun.

dosyadaki wildcard'lı kelimeleri okutmak $read ile tam bir baş belasıdır bunun en güzel yöntemi whiledir..