mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Showcase - Hazır kodlar

Showcase - Hazır kodlar mIRC Scripting hakkında hazır kodları bulup, paylaşabileceğiniz bölüm.

Like Tree2Teşekkür
  • 1 Post By CoCoRiCo
  • 1 Post By CoCoRiCo
Cevapla
 
LinkBack Seçenekler
  #1  
Alt 26 Ocak 2017, 12:15
CoCoRiCo - ait Kullanıcı Resmi (Avatar)
 Chief 

mS Puan: 571
mS Derece: CoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo Çalışkan
 
Üyelik tarihi: 10 Temmuz 2009
Bulunduğu yer: \xml:http\
Yaş: 39
Mesajlar: 136
Konular: 22
Eklentiler: 0
Alınan Teşekkür: 82
Yapılan Teşekkür: 16
Standart 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
  }
}
Xenophanes buna teşekkür etti.
__________________
3m2t
//alias $str($+(alias,$chr(32)),4) | alias
Alıntı ile Cevapla
  #2  
Alt 27 Ocak 2017, 05:07
Avatar Yok

mS Puan: 1
mS Derece: Xenophanes
 
Üyelik tarihi: 20 Temmuz 2015
Mesajlar: 2
Konular: 0
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 2
Standart

emeğine sağlık abi

Konu Xenophanes tarafından (27 Ocak 2017 Saat 05:09 ) değiştirilmiştir.
Alıntı ile Cevapla
  #3  
Alt 06 Şubat 2017, 09:39
CoCoRiCo - ait Kullanıcı Resmi (Avatar)
 Chief 

mS Puan: 571
mS Derece: CoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo Çalışkan
 
Üyelik tarihi: 10 Temmuz 2009
Bulunduğu yer: \xml:http\
Yaş: 39
Mesajlar: 136
Konular: 22
Eklentiler: 0
Alınan Teşekkür: 82
Yapılan Teşekkür: 16
Standart Fıx

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)
  }
}
Feragat buna teşekkür etti.
__________________
3m2t
//alias $str($+(alias,$chr(32)),4) | alias
Alıntı ile Cevapla
Cevapla

Etiketler
kã¼fã¼r, korumasä±, koruması, küfür, regex|wildcard

Seçenekler

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
repeat koruması comanche Help - Yardım 1 14 Eylül 2016 13:49
Clone Koruması Freez0ne Help - Yardım 1 10 Aralık 2013 17:57
/* Küfür Koruması - (Hash) */ WingmaN Showcase - Hazır kodlar 0 23 Haziran 2011 22:54
Küfür koruma MuraTT Help - Yardım 2 08 Aralık 2009 11:14
Regex(yazı çeşitleri vs. hakkında) L4roXyL Tutorials - Dersler 4 14 Ekim 2009 23:05


Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting © 2015



1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76