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

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

- - Güncel Flood yazisi mod almak (https://www.ircforumlari.net/mirc-scripting-sorunlari/727524-flood-yazisi-mod-almak.html)

Flood yazisi mod almak

merhaba irc komutlarında aradım bulamadım mirc ile olur diye konusunu açayım aynı yazı tekrarını salonda 3 defa yazılınca kanalı +m moduna almak istiyorum ve 15 dkk sonrada geri -m almak istiyorum elinizde böyle bir kod var mı

Cevap: Flood yazisi mod almak

Alıntı:

Kimimben Nickli Üyeden Alıntı (Mesaj 1041742436)

Buyur;

Kod:

on *:text:*:#:{

  ;- Kanal yetkililerini ve oper/admin hostlarını muaf tuttuk.

  if !$regex($nick(#,$me).pnick,/(%|@|&|\.|~)/) || !$regex($site,/(Root|Admin|IRCOp|Oper|Services|Server|HelpFounder)/Si)  {

    ;- Muaf nickler için ekleme.

    if $istok(nick1 nick2 nick3 nick4,$nick,32) { return }

   ;- Kelime sayısı 10 dan fazla ise.

    if $regex($1-,/./Sig) >= 10 {

      ;- Kanalda yazılan kelimeyi hash tabloya ekleme.

      .hadd -msu10 Flood $+(#,¿,$md5($ticks)) $strip($1-) 

      ;- Aynı kelimeyi 3 ve 3 den fazla tekrarlanırsa.

      if $hfind(Flood,$strip($1-),0,W).data >= 3 {

      ;- Mode işlemleri vs.

        mode # +m

        $+(.timer,#) 1 900 mode # -m

      }

    }

  }

}

Kanal yetkililerini ve oper/admin'leri muaf tuttuk.
Not: kelime sayısı 10 ve 10 dan fazla ise koruma devreye girer.

Cevap: Flood yazisi mod almak

Alıntı:

Toprak Nickli Üyeden Alıntı (Mesaj 1041742544)

Buyur;

Kod:

on *:text:*:#:{

  ;- Kanal yetkililerini ve oper/admin hostlarını muaf tuttuk.

  if !$regex($nick(#,$me).pnick,/(%|@|&|\.|~)/) || !$regex($site,/(Root|Admin|IRCOp|Oper|Services|Server|HelpFounder)/Si)  {

    ;- Muaf nickler için ekleme.

    if $istok(nick1 nick2 nick3 nick4,$nick,32) { return }

   ;- Kelime sayısı 10 dan fazla ise.

    if $regex($1-,/./Sig) >= 10 {

      ;- Kanalda yazılan kelimeyi hash tabloya ekleme.

      .hadd -msu10 Flood $+(#,¿,$md5($ticks)) $strip($1-) 

      ;- Aynı kelimeyi 3 ve 3 den fazla tekrarlanırsa.

      if $hfind(Flood,$strip($1-),0,W).data >= 3 {

      ;- Mode işlemleri vs.

        mode # +m

        $+(.timer,#) 1 900 mode # -m

      }

    }

  }

}

Kanal yetkililerini ve oper/admin'leri muaf tuttuk.
Not: kelime sayısı 10 ve 10 dan fazla ise koruma devreye girer.

Toprak peki bu kodu Check koruma botunun içine atsak çalışırmı

Cevap: Flood yazisi mod almak

Alıntı:

Kimimben Nickli Üyeden Alıntı (Mesaj 1041742562)

Toprak peki bu kodu Check koruma botunun içine atsak çalışırmı

Kod:

if $regex($2,/(PRIVMSG|NOTICE)/i) && $regex($3,/^#/) {

  if $regex($gettok($1,2,64),/(Root|Admin|IRCOp|Oper|Services|Server|HelpFounder)/Si) { return }

  if $regex($4-,/./Sig) >= 10 {

    .hadd -msu10 Flood $+($3,¿,$md5($ticks)) $strip($4-) 

    if $hfind(Flood,$strip($4-),0,W).data >= 3 {

      sockwrite -nt $sockname mode $3 +m

      $+(.timer,$3) 1 900 sockwrite -nt $sockname mode $3 -m

    }

  }

}

Ekleyemezseniz söyleyin yardımcı olayım.

Cevap: Flood yazisi mod almak

Kod:

if $regex($1-,/./Sig) >= 10 {

ve bu bölüm

Kod:

if $regex($4-,/./Sig) >= 10 {

tüm harfleri sayar, boşluklar da dahil.

kelime saydırmak için . nokta yerine \S+ kullanmak gerek

Daha ayrıntılı bişey istersen

Link:[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Flood yazisi mod almak

Birde muaf kelime ekleyebilirmiyiz mesela salonda bazı komutlar kullanılıyor !komik !soz gibi bunlarda sürekli tekrar ediliyor bu kelimelerde bile moda geçebiliyor bunlar içinde muaf kelime koyabilirmiyiz

Cevap: Flood yazisi mod almak

Alıntı:

Toprak Nickli Üyeden Alıntı (Mesaj 1041742544)

Buyur;

Kod:

on *:text:*:#:{

  ;- Kanal yetkililerini ve oper/admin hostlarını muaf tuttuk.

  if !$regex($nick(#,$me).pnick,/(%|@|&|\.|~)/) || !$regex($site,/(Root|Admin|IRCOp|Oper|Services|Server|HelpFounder)/Si)  {

    ;- Muaf nickler için ekleme.

    if $istok(nick1 nick2 nick3 nick4,$nick,32) { return }

   ;- Kelime sayısı 10 dan fazla ise.

    if $regex($1-,/./Sig) >= 10 {

      ;- Kanalda yazılan kelimeyi hash tabloya ekleme.

      .hadd -msu10 Flood $+(#,¿,$md5($ticks)) $strip($1-) 

      ;- Aynı kelimeyi 3 ve 3 den fazla tekrarlanırsa.

      if $hfind(Flood,$strip($1-),0,W).data >= 3 {

      ;- Mode işlemleri vs.

        mode # +m

        $+(.timer,#) 1 900 mode # -m

      }

    }

  }

}

Kanal yetkililerini ve oper/admin'leri muaf tuttuk.
Not: kelime sayısı 10 ve 10 dan fazla ise koruma devreye girer.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] merhaba;
10 kelime ya da daha fazla kelimeden oluşan aynı cümlede kod çalışıyor ama her cümlesinin sonuna nokta ya da başka bir karakter eklenerek yazılınca kod işlevsiz kalıyor.
Başında sonunda karakter ekleme fark etmeksizin belirli kelimeler geçiyorsa...
Bunun için nasıl bir çözüm olabilir?
Örnek;
Selam Toprak bugün hava dışarı çıkmak için çok uygun değil mi?
Selam Toprak bugün hava dışarı çıkmak için çok uygun değil mi??
Selam Toprak bugün hava dışarı çıkmak için çok uygun değil mi???
Selam Toprak bugün hava dışarı çıkmak için çok uygun değil mi????
Selam Toprak bugün hava dışarı çıkmak için çok uygun değil mi.
Selam Toprak bugün hava dışarı çıkmak için çok uygun değil mi..
Selam Toprak bugün hava dışarı çıkmak için çok uygun değil mi...
ewuhequewque Selam Toprak bugün hava dışarı çıkmak için çok uygun değil mi ruehehurher
lplplplpl Selam Toprak bugün hava dışarı çıkmak için çok uygun değil mi okpokokokok

Şimdiden Teşekkür Ederim Keyifli İF'ler