mIRC Scripting  
 
  reklam kufur kelime yasaklama 15.03.2025 06:59 (UTC)
   
 
forumda onlarca kez sorulup , cevap verilmesine rağmen defalarca sorulan soruları burada hazırlıyorum ve cevaplarını bir bir veriyorum ki , tekrar sormak zorunda kalmayın

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


- kelimeleri engellemek için gerekli olan bilgileri öncelikle event derslerini okuyarak öğrenebilirsiniz ; http://www.ircforumlari.net/showthread.php?t=20388

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:// , www. , .com , .net , .gen.tr , cjb.net , .org , .us , .biz

Kod:
on *:text:*:#: {
if $nick !isop $chan && $nick !ishop $chan && $nick !isvop $chan && $nick !ison #opers {
if *http://* iswm $1- {
gline $nick Reklam sebebi ile uzaklaştırıldınız
}
if *www.* 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


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

iyi çalışmalar , kolay gelsin
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Bugün 35 ziyaretçi (49 klik) kişi burdaydı!
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol