IRCForum - IRC ve mIRC Kullanıcıları Topluluğu

IRCForum - IRC ve mIRC Kullanıcıları Topluluğu (https://www.ircforum.gen.tr/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforum.gen.tr/mirc-scripting-hazir-kodlar/)
-   -   Spam/Nick/Kanal/Kelime/Version Takibi (https://www.ircforum.gen.tr/mirc-scripting-hazir-kodlar/923-spam-nick-kanal-kelime-version-takibi.html)

SynaX 30-Ocak-2025 15:08

Spam/Nick/Kanal/Kelime/Version Takibi
 
Spam kanalınız yoğunsa ve takılan istediğiniz nickleri,kanallara düşenleri, düşen kelimeleri ve version sonuçlarını istediğiniz kanala yansıtmak için kullanılır.

Kod:

alias echan return #kanal


on *:text:*:#:{
  if # == #spamfilter {
    if $regex($1-,\[PRIVMSG (.+)\: \'(.+)\'\]) { var %yazan $token($2,1,33), %yer $regml(1), %mesaj $regml(2)
      if $level(%yer) == kanal {
        msg $echan 13 [Spam]4 %yazan -13 %yer -> %mesaj
        return
      }
      if $level(%yazan) == nick {
        msg $echan 11 [Spam]4 %yazan -12 %yer -> %mesaj
        return
      }
      if $level(%mesaj) == nick {
        msg $echan 11 [Spam]4 %yazan -12 %yer -> %mesaj
        return
      }
      if $level(%yer) == nick {
        msg $echan 11 [Spam]4 %yazan -12 %yer -> %mesaj
        return
      }
    }
    if $regex($1-,/VERSION/Si) && $regex(v,$1-,/\] (.+)!.+\[NOTICE (.+)\: \'(.+)\'/i) { msg $echan 4Sorgulanan Nick: $regml(v,1) 4VERSION: $regml(v,3) }
  }
}

Userliste ekleme mantığıyla çalışır;

Kod:

/auser kanal #kanal veya #*
/auser nick nick
/auser nick *kelime*

Şeklinde ekleyebilirsiniz. Böyle uğraşamam derseniz

Kod:

on *:input:#kanal:{
  if $regex($1,/[!.]ekle$) {
    if !$2 { msg # eksik komut. | return }
    if $level($2) == nick { msg # $2 zaten ekli. | return }
    msg # $2 Icin Yansitma Eklendi.
    auser nick $2
  }
  if $regex($1,/[!.]sil$) {
    if !$2 { msg # eksik komut. | return }
    if $level($2) !== nick { msg # $2 zaten yok. | return }
    msg # $2 Icin Yansitma Silindi.
    ruser nick $2
  }
  if $regex($1,/[!.]list$) {
    if !$ulist(*,nick,1) { msg # liste bos. | return }
    var %x 1
    while $ulist(*,nick,%x) {
      msg # %x - $v1
      inc %x
    }
    msg # -
  }
}

Şeklinde ekleyebilirsiniz.Kırmızılı bölümleri kendinize göre ayarlayabilirsiniz.Düşen kelimeleri de aynı şekilde yansıtmak için nick ekler gibi *kelime* şeklinde ekleyebilirsiniz.


Forum saati GMT +3 olarak ayarlanmıştır. Şu an saat: 01:11

Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2024, vBulletin Solutions, Inc.