mIRC Scripting - küfür koruması regex|wildcard

mIRC Scripting (https://www.mircscripting.net/)

- Showcase - Hazır kodlar (https://www.mircscripting.net/showcase-hazyr-kodlar/)

- - küfür koruması regex|wildcard (https://www.mircscripting.net/showcase-hazyr-kodlar/939-kuefuer-korumasy-regex-wildcard.html)

küfür koruması regex|wildcard

[Güncelleme]
Bir öncekinin geliştirilmiş hali..
Dialog pencere vs. yapmaya zaman bulamadım bulursam yaparım..

Kullanımı:
REGEX eklemek için
/Bw +r (g[o0]g*[Il][e3]\sy[a4]z) zline
silmek için
/Bw -r (g[o0]g*[Il][e3]\sy[a4]z)

WILDCARD eklemek için
/Bw +w *g??gle* kickban
silmek için
/Bw -w *g??gle*

ekleyeceğiniz kelimenin eşleşebileceği bir kayıt varmı kontrol için
/bw ? google
şeklinde kontrol edebilirsiniz.

yasaklayacagınız kelimenin tipini ve uygulanacak cezayı opsiyonel ekleyebilirsiniz
"google" kelimesini zline atmak isteyebilir ancak "denyo" kelimesini yalnızca banlamak isteyebilirsiniz.
her kelime için aynı ceza yerine kelimelerin tipine göre ceza uygulayabilirsiniz bununla ilgili kısaltmalar
yada tek kelimelik özel kambinasyonlar yapababilirsiniz (Kickban yerine KB gibi) ancak entegre ederken
bu kelimeyi dikkate almalısınız (uygulama kodundaki mavi satırlar)
mesela eklediginiz kelimede hem kickban hem kline hemde nick yasaklayacaksınız.. buna göre ExData için bir kelime
belirlediniz. KB_K_Q
buna göre koşullandırabilirsiniz.

Kod:

if %p` == KB_K_Q {

  ban -k # $nick sebep!

  kline $nick sebep!

  qline $nick  sebep!

}

eğer hangi eşleşme sebebiyle atıldığını görmek isterseniz de

"echo # $nick %p~ kelimesinden dolayı atıldı"
gibi %p~ ile görüntüleyebilir yada sebeplere ekleyebilirsiniz..

geçerli ExData KickBan'dır b:def fonksiyonundan değiştirilebilir.

diyelimki herhangi bir uygulama tipi kullanmayacaksınız..
standart bir ceza yönteminiz var..
bu durumda da
if ($bw($1-).?) { ban -ku600 # $nick 2 küfür yasaktır! }
kodu yeterli olacaktır..

Uygulama örnegi;

Kod:

on *:TEXT:*:#: {

  if $me isop $chan {

    if ($bw($1-).?) {

      var %p~ $gettok($v1,-1,32),%p` $gettok($v1,1,32)
 

       ban -ku600 # $nick 2 küfür yasaktır!  $v1

      if %p` ==  kickban {

        ban -ku600 # $nick 2 küfür yaraktır!

        echo 4 # $nick $qt(%p`) yasaklı kelimeyi kullandı!

      }

    }
 

  }

}

Badword Kodu:

Kod:

on *:start: b:load

alias b:def return $iif($1,$1,KickBan)

alias  b:save  hsave br~ -i badword.db | hsave bw~ -i badword.db

alias b:load {

  if !$hget(bw~,0) || !$hget(br~,0) {

    hmake bw~ 10000 | hload bw~ -i badword.db

    hmake br~ 10000 | hload br~ -i badword.db

  }

}
 

alias bw {

  if $regex($1,/([-+][wr])/) && $2 && $b:def($3) {

    if $1 == +r {

      if $hget(br~,$2) { echo 4 *** Bu Kelime ekli  | return }

      else  hadd -m br~ $2 $b:def($3) | echo 3 **  Kelime eklendi  | return

    }

    if $1 == -r  {

      if $hget(br~,$2) {  hdel br~ $2 | echo 4 ** Kelime silindi  | return  }

      else echo 4 ** Kelime bulunamadı | return

    }

    if $1 == +w {

      if $hget(bw~,$2) {  echo 4 *** Bu Kelime ekli | return  }

      else  hadd -m bw~ $2  $b:def($3) | echo 3 ** Kelime eklendi  | return

    }

    if $1 == -w {

      if $hget(bw~,$2) {  hdel bw~ $2 | echo 4 ** Kelime silindi  | return  }

      else echo 4 ** Kelime bulunamadı | return

    }

    b:save

  }

  if $1 == ? {  noop $hfind(br~,$2,0,R,echo -a Regex: $1-) | noop $hfind(bw~,$2,0,W,echo -a WildCard: $1-) }

  elseif $prop == ? {

    var %r~ = $gettok($1-,0,32)

    while %r~ { if ($hfind(br~,$gettok($1-,%r~,32),0,R,var %i $1)) return %i  $hget(br~,%i) | dec %r~ }

    var %w~ $gettok($1-,0,32)

    while (%w~) { if ($hfind(bw~,$gettok($1-,%w~,32),0,W,var %i $1)) return %i $hget(bw~,%i)  | dec %w~ }

  }

  else {

    echo 5 *** hatalı ve eksik parametre

    echo 5 * /bw [+|-][W|R]? (wildcard|regex|kontrol) [wildcard|regex|text] <opsiyonel ExData: [Kick|kickban|zline|glizne|sqline..]>

    echo 5 * orn: /bw +r ([pb][i!İı1][cç\[])

    echo 5 * orn: /bw +r (\b[pb][i!I1İü]([çc]|\(\[)\b) ban

    echo 5 * orn: /bw +w *bitch* kickBan

    echo 5 * orn: /bw +w *g0ogle* kill

    echo 5 * orn: /bw  ? bitch

  }

}

emeğine sağlık abi

Kod:



on *:TEXT:*:#: {

  if $me isop $chan { 

    if ($bw($1-).?) {

      ;$1<eslesme>  $2<tespit edilen kelime> $3<ceza tipi>

      tokenize 32 $v1 

      if $3 == Kickban { 

        ban -ku600 # $nick 2 küfür yaraktır!

        echo  #  $qt($1) ile eşlesen $qt($2)  yasaklı kelimesini kullandı! 

      }

    }

  }

}

on *:start: b:load

alias b:def return $iif($1,$1,KickBan)

alias b:save $iif($hget(bw~,0),.hsave bw~ badword.db) | $iif($hget(br~,0),.hsave br~ badword.db)

alias b:load {

  if !$hget(bw~,0) || !$hget(br~,0) { 

    if (!$isfile(badword.db))  write badword.db 

    if ($isfile(badword.db)) {  hmake bw~ 10000 | hload bw~ badword.db  | hmake br~ 10000 | hload br~ badword.db 

    }

  }

}

alias bw {

  if $regex($1,/([-+][wr])/) && $b:def($3) {

    if $1 == +r {

      if $hget(br~,$2) { echo 4 *** Bu Kelime ekli  | return } 

      else  hadd -m br~ $2 $b:def($3) | echo 3 **  Kelime eklendi  | b:save  | return

    }

    if $1 == -r  {

      if $hget(br~,$2) {  hdel br~ $2 | echo 4 ** Kelime silindi  | b:save  | return  }

      else echo 4 ** Kelime bulunamadı  | return

    }

    if $1 == +w { 

      if $hget(bw~,$2) {  echo 4 *** Bu Kelime ekli | return  }

      else  hadd -m bw~ $2  $b:def($3) | echo 3 ** Kelime eklendi  | b:save | return

    }

    if $1 == -w { 

      if $hget(bw~,$2) {  hdel bw~ $2 | echo 4 ** Kelime silindi  | b:save | return  }

      else echo 4 ** Kelime bulunamadı | return

    }

  }

  if $1 == ? { noop $hfind(br~,$2,0,R,echo Regex: $1-) | noop $hfind(bw~,$2,0,W,echo WildCard: $1-) | return }

  if ($regex($1,/(cr|cw)/ig))  { echo * liste temizlendi | $iif($regml(1) == cw,hfree bw~,hfree br~)  | b:save | return }

  elseif $prop == ? { 

    var %r~ = $gettok($1-,0,32)

    while (%r~) { if ($hfind(br~,$gettok($1-,%r~,32),0,R,var %i $1)) return %i $gettok($1-,%r~,32)  $hget(br~,%i) | dec %r~ } 

    var %w~ $gettok($1-,0,32)

    while (%w~) { if ($hfind(bw~,$gettok($1-,%w~,32),0,W,var %i $1)) return %i $gettok($1-,%w~,32) $hget(bw~,%i) | dec %w~  } 

  }

  else {

    echo 5 *** hatalı ve eksik parametre 

    echo 5 * /bw [+|-][W|R|CR|WR]? (wildcard|regex|kontrol|kayıt temizleme) [wildcard|regex|text] <opsiyonel ExData: [Kick|kickban|zline|glizne|sqline..]>

    echo 5 * orn: /bw +R ([pb][i!İı1][cç\[]) 

    echo 5 * orn: /bw +R (\b[pb][i!I1İü][çc]\b) ban

    echo 5 * orn: /bw -R (\b[pb][i!I1İü][çc]\b) (eklenen kaydı siler)

    echo 5 * orn: /bw +R (\bw{3}\.\w+\.w*\b) Sizin_ceza_tipiniz 

    echo 5 * orn: /bw +W *bitch* kickBan

    echo 5 * orn: /bw +W *g0ogle* kill 

    echo 5 * orn: /bw -W *g0ogle* (eklenen kaydı siler)

    echo 5 * orn: /bw +W *y?nd?x* Sizin_ceza_tipiniz

    echo 5 * orn: /bw  ? bitch (bu kelimeye uygun eşleşme var mı sorgular )

    echo 5 * orn: /bw  CR (tüm Regex kayıtlarını siler)

    echo 5 * orn: /bw  CW (tüm wildcard kayıtlarını siler)

  }

}

++ mIRCScripting.net hakkında kısaca:

mS; "Gayri resmi mIRC" kullanıcı ve tasarımcı topluluğudur.
2009 yılında kurulan mS; tasarımcı ve geliştiricileri bir araya getiren etkileşim ve iletişim sağlayan bir platformdur.
mS; tasarım, programlama, geliştirme, düzenleme vb. pek çok konu etrafında bir araya gelmiş "mIRC" meraklısı bir çok insan tarafından yaratılan içeriğiyle; kullanıcı dostu, özgün elit, nitelikli kişi ve konularla hizmet sunan mIRC Scripting platformudur.

Özgün içerikten onay almaksızın içeriği yaratan kullanıcılarımız tamamen yada kısmen sorumludur, aynı zamanda söz konusu içerik mS yetkilileri izni olmaksızın, kaynak gösterilse dahi(!) kopyalanamaz ve/ya paylaşılamaz. Site/içerik hakkında görüş, öneri ve şikayetleriniz için sikayet[at]mircscripting[dot]net e-posta ve ya İletişim adresinden bizlere ulaştırabilirsiniz.

FLINK: mIRC Offical - Hasan AYDENİZ - Koli - KARMA - Karma Aydınlatma

mIRC mIRC Orjinal mIRC İndir mIRC Download mIRC Tutorials mIRC Socket mIRC Commands mIRC Komutlar mIRC Yükle mIRC Dersler mIRC Hazır Kodlar mIRC Classentifier mIRC DLL mIRC Dialog mIRC IRC mIRC FTP mIRC Telnet mIRC Help
mIRC Yardım mIRC Iconlar mIRC Com Object mIRC Binary Files mIRC Picture Windows mIRC Unicode mIRC Forum mIRC Hazır Kodlar mIRC Kod mIRC Script mIRC File Handling mIRC Scripting Language mIRC Scripting Dili mIRC Scripting Info
mIRC Scripting Tutorials