mIRC Scripting

mIRC Scripting (https://www.mircscripting.net/)
-   Snippets - Parça kodlar (https://www.mircscripting.net/snippets-parca-kodlar/)
-   -   badnick koruması (https://www.mircscripting.net/snippets-parca-kodlar/935-badnick-korumasi.html)

nikotinx 05 Ocak 2017 13:35

badnick koruması
 
selam. konuyu dogrumu yanlıs yeremi actım emin degilim ama yanlıs ise simdiden özür dilerim.
Toprak rumuzlu arkadasa ait olan bu badnick kodu kanala göre ayarlanmıs
bunu alias ekleme seklinde yapabilmemiz mümkünmü acaba
/ekle nick
/sil nick
/list gibi.
Kod:

on *:start:{ $iif(!$isfile(badnick.tprk),.write badnick.tprk) | .hmake badnick 100 | .hload badnick badnick.tprk }
on @*:join:#:{
  if $hfind(badnick,$nick,1,W).data {
    mode # +b $nick
    kick # $nick 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
    if !$hget(bdnck,$nick) {
      .hinc -msu20 bdnck $nick
      msg #Opers [ JOIN ] $nick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick,1,W).data),$chr(32),])
    }
  }
}
on *:nick:{
  if $hfind(badnick,$newnick,1,W).data {
    msg #Opers [ NICK ] $newnick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$newnick,1,W).data),$chr(32),])
    var %:c $regsubex($str(-,$comchan($newnick,0)),/./g, $iif($regex($nick($comchan($newnick,\n),$me).pnick,/(%|@|&|~\.)/i),$comchan($newnick,\n) $chr(32)))
    var %c = 1 | while %c <= $token(%:c,0,32) {
      mode $token(%:c,%c,32) +b $newnick | kick $token(%:c,%c,32) $newnick 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
      inc %c
    }
  }
}
on *:text:*:#:{
  if $regex($1,/^[!\.]badnick$/Si) {
    if $regex($2,/^ekle$/Si) {
      if (!$3) { msg # Lütfen nick belirtiniz | return }       
      if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }
      var %n = $left($calc($ctime * $rand(1000,9999)),7)
      .hadd -m badnick %n $strip($3)
      .hsave -o badnick badnick.tprk
      msg # $strip($3) Badnick listesine eklendi.
    }
    if $regex($2,/^s[ıiİ]l$/Si) {
      if (!$3) { msg # Lütfen nick belirtiniz | return }       
      if !$hfind(badnick,$strip($3),0,W).data { msg # Bad nick listesinde bulunmamaktadir. | return }
      .hdel -m badnick $hfind(badnick,$strip($3),1,W).data
      .hsave -o badnick badnick.tprk
      msg # $strip($3) Badnick listesinden silindi.
    }
    if $regex($2,/^tara$/Si) {
      if (!$3) { msg # Lütfen nick belirtiniz | return }       
      if !$hfind(badnick,$strip($3),0,W).data { msg # Badnick listem'de $strip($3) ait bir mask yok. | return }
      msg # Nick: $strip($3) - 4Mask: $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),])
    }
    if $regex($2,/^l[ıiİ]st$/Si) {
      if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }
      msg # Badnick listesi
      msg # -
      var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i }
      msg # -
      msg # Badnick listesi sonu
    } 
  }
  if $regex($1,/^[!\.]tara$/Si) {
    if !$regex($2,/^#/Si) { msg # Lütfen #kanal belirtiniz | return } 
    if !$chan($2) { msg # $2 kanal'ında bulunmuyorum | return }
    var %:tara = 1 | while %:tara <= $nick($2,0) {
      if $hfind(badnick,$nick($2,%:tara),1,W).data {
        msg #Opers [ TARAMA ] $nick($2,%:tara) nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick($2,%:tara),1,W).data),$chr(32),])
        mode $2 +b $nick($2,%:tara) | kick $2 $nick($2,%:tara) 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
      }
      inc %:tara
    }   
  }
}



++ 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.



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



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

SEO by vBSEO 3.6.1