Çevrimdışı

mRb formlarda regex kullanımı hakkında konuları okudum ama pek anlayamadım. bana örnek verek bu konu hakkında yardım edebilirmisiniz.
mesela elimde bi kod var kanalda ekledim kelimeler gecerse beni uyarıyor. ama bazı kelimeleri ben yanlış ekliyorum sanırım doğrusunu siz gösterirmisiniz
var %kelimeler = (msn)|(hot)|(#)|(05(3|4))
kanalda 053 veya 054 ile başlayan telefon numarası gectiğinde uyarması gerek ama 0 numarasını almıyor göstermiyor veya h ile başlayan t ile biten bir kelime eklemek istiyorum nasıl yaparım veya i r c boşluk kullanarak yazılmış kelimeleri nasıl eklerim . bu konu hakkında alt alta örnek vererek yardımcı olurmusunuz. şu şekil
(ser(v|w)er) bu server kelimesinde v harfinin yerinde w harfide olsa seni uyarır gibi . şimdiden tşk ederim

 

Çevrimdışı

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

 

Çevrimdışı

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Burada Anlatımı Mevcut.

 

Çevrimdışı

en başta belirtiğim gibi regex hakkkındaki konulara baktım ve fazla bişiy anlamadığımı belirttim.hatta o konulara bakarak denedim ama başaramadım tekrar yukarıyı okuyup yardım edebilmen mümkünmü. örnek vererek

 

Çevrimdışı

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]İşine Yarar Umarım Örnekli Anlatımı Var
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Written: Cihan SAVSAR
-----------------------------------------------------------------------------
(*) Spamfilter haricinde " mirc " 'imi kullanarak nasıl reklamları engellerim ?

block(yasaklama)'nın bir çok önlemi olabilir , en çok kullanılan ve nadiren kullanılıp daha fazla başarı olan kodları sizlere vereceğim ;

öncelik olarak " isin ve iswm " 'i vereceğim

yasaklanacak olan kelimeler => http:// ,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
cjb.net , .org , .us , .biz


Kod:
on *:text:*:#: { if $nick !isop $chan && $nick !ishop $chan && $nick !isvop $chan && $nick !ison #opers { if *[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm $1- { gline $nick Reklam sebebi ile uzaklaştırıldınız } if *[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm $1- { gline $nick Reklam sebebi ile uzaklaştırıldınız } if *.net* iswm $1- { gline $nick Reklam sebebi ile uzaklaştırıldınız } if *.com* iswm $1- { gline $nick Reklam sebebi ile uzaklaştırıldınız } if *.gen.tr* iswm $1- { gline $nick Reklam sebebi ile uzaklaştırıldınız } if *.cjb.net* iswm $1- { gline $nick Reklam sebebi ile uzaklaştırıldınız } if *.org* iswm $1- { gline $nick Reklam sebebi ile uzaklaştırıldınız } if *.us* iswm $1- { gline $nick Reklam sebebi ile uzaklaştırıldınız } if *.biz* iswm $1- { gline $nick Reklam sebebi ile uzaklaştırıldınız } }}

iswm 'li reklam engelleme kodunu üst bölümde gördünüz , * 'ları kaldırdığınızda bütün cümlede arayacaktır , * 'lari kaldırmazsanız kelime sonlarında , eğer kaldırırsanız *'ları iswm yerine isin kullanmanız gerekmektedir.

Örnek ; if .org isin $1- {

--------------------------------------------------------------
--------------------------------------------------------------

Regex kullanarak nasıl engellenir ?



Kod:
on *:text:*:#: { if $nick !isop $chan && $nick !ishop $chan && $nick !isvop $chan && $nick !ison #opers { if($regex($1-,/.*?([hH]{1,20}\W*[tT]{1,20}\W*[tT]{1,20}\W*[pP]{1,20}\W*[:.]{1,20}\W*[/\]{1,20}\W*[/\]{1,20})/)) { gline $nick Reklam sebebi ile uzaklaştırıldınız } if ($regex($1-,/.*?([wW]{1,20}\W*(v|V|[wW]){1,20}\W*[wW]{1,20}\W*[.]{1,20})/)) { gline $nick Reklam sebebi ile uzaklaştırıldınız } if ($regex($1-,/.*?([..]{1,20}\W*[cC]{1,20}\W*[oO]{1,20}\W*[mM]{1,20})/)) { gline $nick Reklam sebebi ile uzaklaştırıldınız } if ($regex($1-,/.*?([..]{1,20}\W*[nN]{1,20}\W*(é|€|[eE]){1,20}\W*[tT]{1,20})/)) { gline $nick Reklam sebebi ile uzaklaştırıldınız } if ($regex($1-,/.*?([..]{1,20}\W*(0|[oO]){1,20}\W*[rR]{1,20}\W*[gG]{1,20})/)) { gline $nick Reklam sebebi ile uzaklaştırıldınız } if ($regex($1-,/.*?([..]{1,20}\W*[gG]{1,20}\W*(é|€|[eE]){1,20}\W*[nN]{1,20}\W*[.:]{1,20}\W*[tT]{1,20}\W*[rR]{1,20})/)) { gline $nick Reklam sebebi ile uzaklaştırıldınız } }}
() * Sunucu genelinde reklam kontrol nasıl yapabilirim ? * ()
bunun için bir addon'a gerek yok aslında , direkt olarak describe kullanabilirsin ;

/describe $*serverin.com Reklam kontrol

bunun haricinde alt bölümde verdiğim kod , bütün server userlarina mesaj atar ve özelinize gelen reklamları gline ile cezalandırır


Kod:
raw 352:*: { if serv !isin $6 { msg $6 Reklam kontrol halt }}on *:text:*:?: { closemsg $nick if $nick !isop $chan && $nick !ishop $chan && $nick !isvop $chan && $nick !ison #opers { if($regex($1-,/.*?([hH]{1,20}\W*[tT]{1,20}\W*[tT]{1,20}\W*[pP]{1,20}\W*[:.]{1,20}\W*[/\]{1,20}\W*[/\]{1,20})/)) { gline $nick Reklam sebebi ile uzaklaştırıldınız } if ($regex($1-,/.*?([wW]{1,20}\W*(v|V|[wW]){1,20}\W*[wW]{1,20}\W*[.]{1,20})/)) { gline $nick Reklam sebebi ile uzaklaştırıldınız } if ($regex($1-,/.*?([..]{1,20}\W*[cC]{1,20}\W*[oO]{1,20}\W*[mM]{1,20})/)) { gline $nick Reklam sebebi ile uzaklaştırıldınız } if ($regex($1-,/.*?([..]{1,20}\W*[nN]{1,20}\W*(é|€|[eE]){1,20}\W*[tT]{1,20})/)) { gline $nick Reklam sebebi ile uzaklaştırıldınız } if ($regex($1-,/.*?([..]{1,20}\W*(0|[oO]){1,20}\W*[rR]{1,20}\W*[gG]{1,20})/)) { gline $nick Reklam sebebi ile uzaklaştırıldınız } if ($regex($1-,/.*?([..]{1,20}\W*[gG]{1,20}\W*(é|€|[eE]){1,20}\W*[nN]{1,20}\W*[.:]{1,20}\W*[tT]{1,20}\W*[rR]{1,20})/)) { gline $nick Reklam sebebi ile uzaklaştırıldınız } }}
/who yazmanız yeterli olacaktır

Not : kullanabilmeniz için ircop(+o) usermodu taşımanız gerekmektedir. Değilseniz kullanamazsınız

************************************************** ******
************************************************** ******

üst bölümdeki reklam korumaları klasik işlerinizi görecek kodlarla dizilidir , bunları sağlıklı bir şekilde kullanabilirsiniz;

(*) Spamfilter haricinde " mirc " 'imi kullanarak nasıl küfürleri engellerim ?

reklamlarda olduğu gibi buradada event'imiz on *:text:*:#: { 'dir
lütfen event derslerini dikkatli bir şekilde inceleyiniz , aksi taktirde anlatımlarda zorlanabilirsiniz.

küfürlerde isin ve iswm genel olarak tercih edilendir , basit'tir , regex kullanımı pek sağlıklı değildir çok hassas olabilir

bütün küfürleri bir arada toplamak mümkün olmadığından ötürü , bir kaç örnek vererek nasıl yapacağınız açıklayacağım ;

yasaklanacak kelimeler => köpek , salak , mal , gerizekalı


Kod:
on *:text:*:#: { if $nick !isop $chan && $nick !ishop $chan && $nick !isvop $chan && $nick !ison #opers { if köpek isin $1- { gline $nick Küfür ettiğinizden ötürü uzaklaştırıldınız } if salak isin $1- { gline $nick Küfür ettiğinizden ötürü uzaklaştırıldınız } if mal* iswm $1- { gline $nick Küfür ettiğinizden ötürü uzaklaştırıldınız } if ger?zekal?* iswm $1- { gline $nick Küfür ettiğinizden ötürü uzaklaştırıldınız } }}
üst bölümdede gördüğünüz gibi , dikkat ettiğinizde ne kadar basit olduğunu göreceksiniz ve bir kez daha sormak zorunda kalmayacaksınız ;

on *:text:*:#: { => başlangıc event'imiz
if yasaklanacakkelime isin $1- { => burası ayıklama yapacağınız bölüm
gline $nick Küfür => burası kullanıcı işlemi
} => burası ayıklama bölümünü sonlandırır
} => burası event bölümünü sonlandırır
----------------------------------------------------------------------
----------------------------------------------------------------------

 

Çevrimdışı

tşkler ama istediğim 3 4 tane regex örneği sadece. pek anlamadığım icin bukadar şey bana karmaşık geliyor .mesela 053 ile başlayan kelime ,i r c boşluk ayırılarak yazılmış bi kelimeyi.
ve s ile başlayıp x ile biten bi kelimeyi aşşa verilen kodeye nasıl eklerim bunu gösterebilcek varmı
var %kelimeler = (msn)|(hot)|(#)|(05(3|4)) burda 053 ile başlayan bi rakamı ekledim ama olmadı sanırım 0 harfini göstermiyor.
bu kodenin amacını tekrar soylim eklediğim kelimeler kanalda gectiği zaman o kelime kırmızı renkte gözüküyor bana.

 

Çevrimiçi

Sende olan codun tamamini atarmisin buraya

 

Çevrimdışı

on ^*:text:*:*: {
if $chan || $nick {
;buraya sansür koymak istediğin kelimelri yazabilirsin ama regex bilmek zorundasın bilgin olssun örnekler aşağıda
var %kelimeler = (msn)|(hot)|(#)|(yav(ş|s)a)|((i|ı)bne)


%kelimeler = $+(/,$chr(40),%kelimeler,$chr(41),/gi)
echo -mt $iif($chan,$chan,$nick) $+(<,$nick,>) $regsubex($1-,%kelimeler,$+(4,$chr(44),4,\1,))
halt
}
}

 

Çevrimdışı

var %kelimeler = (msn)|(hot)|(#)|(yav(ş|s)a)|((i|ı)bne)|(ser(v|w)er|05(42|32|55)
örnekledim umarım anlamışsındır

 

Çevrimdışı

rakamı kabul etmiyor sanırım var %kelimeler = (ser(v|w)er)|(ka(s|ş)ar)|05(42|32|55)
bu şekilde ekledim ekledim kişinin yazdığı
[16:29] <citt> 0542
bende gözüken buşekil
[16:29] <citt> 542
ve ekledim kelimeler yazılınca kırmızı renkte gözüküyor .o şekildede gözükmedi .
server kelimesinde oluyor rakamda hem olmuyor hemde 0 rı göstermiyor