IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - özel küfür korumasında şifresiz nick (https://www.ircforumlari.net/mirc-scripting-sorunlari/43473-ozel-kufur-korumasinda-sifresiz-nick.html)

özel küfür korumasında şifresiz nick

selam arkadaşlar aşağıda ki özel küfür korumama kayıtlı nicklerin code den etkilenmemesi için bir code istiyorum, bide küfürleri bir mesela küfür.txt dosyasına kaydedicem ordan okuycak yardımcı olurmusunuz..

Kod:

Kod:

on *:text:*:?:{

   var %+ = 1 | while $gettok(%c,%+,32) {

     if $v1 iswm $1- {

       var %- = 1 | while $comchan($nick,0) {

         var %_ = $v1, %¯ = $+($nick,!*@*)

        if $me isop %_ && $nick isreg %_ { 

           ban # $nick 2

           kick #  $nick 2

           timer 0 900 mode # -b $banmask

        }

         inc %-

       }

     }

     else { inc %+ }

   }

 }

Cevap: özel küfür korumasında şifresiz nick

Sana text gönderen nick'e who çekersin.
Eğer kayıtsız nick ise ve gönderdiği text'de kufur.txt dosyasındaki yasaklı kelimelerden herhangi birisi mevcut'sa bulunduğun tüm kanallar'dan banlarsın. (Kod sorunsuz çalışır)

on *:text:*:?: { inc -e $+(%,t,$nick) | if $($+(%,t,$nick),2) == 1 { .enable #u | .who $nick } | else { var %1 = 1,%2 = $lines(kufur.txt) | while %1 <= %2 { if $+(*,$read(kufur.txt,%1),*) iswm $1- && $hmatch(nick,$nick) { var %p = $nick } | inc %1 } | var %s = 1,%ss = $comchan($me,0) | while %s <= %ss { if $nick ison $comchan($me,%s) { ban -ku900 $comchan($me,%s) %p 2 Küfür. } | inc %s } } }
#u off
raw *:*: { if $numeric == 352 { if r !isincs $7 { haltdef | hadd -m nick $6 1 } } | if $numeric == 315 { haltdef | .disable #u } }
#u end