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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Lamer Takip Sistemi Ekle/Sil/liste ve Sustur (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/1056688-lamer-takip-sistemi-ekle-sil-liste-ve-sustur.html)

Mylife 23 Mart 2025 20:26

Lamer Takip Sistemi Ekle/Sil/liste ve Sustur
 
Merhaba,

Paylaşacağım kod kanallarda saçma sapan konuşan kullanıcı veya lamer gibi tipleri cezalandırmak için hazırlanmıştır.



Kod:

; buraya komut kullanılacak kanalı yazıyoruz.
alias _knl return #testmsl
on *:TEXT:.*:#:{
  if ($chan == $_knl) && ($regex($1-, /^\.lamerekle\s+(\S+)$/i)) {
    if ($nick isop $chan) {
      var %nick = $regml(1)
      if ($read(lamerlist.txt, w, %nick)) {
        msg $chan 4 %nick 2 zaten lamer listesinde.
      }
      else {
        write lamerlist.txt %nick
        msg $chan 4 %nick 2 lamer listesine eklendi.
      }
    }
    else {
      msg $chan 10 Bu komutu kullanmak için aop yetkisine sahip olmalısınız.
    }
  }
  elseif ($regex($1-, /^\.lamersil\s+(\S+)$/i)) && ($chan == $_knl) {
    if ($nick isop $chan) {
      var %nick = $regml(1)
      if ($read(lamerlist.txt, w, %nick)) {
        write -dl $+ $readn lamerlist.txt
        msg $chan 4 %nick 2 lamer listesinden silindi.
      }
      else {
        msg $chan 4 %nick 10 lamer listesinde bulunamadı.
      }
    }
    else {
      msg $chan 10 Bu komutu kullanmak için aop yetkisine sahip olmalısınız.
    }
  }
  elseif ($regex($1-, /^\.kara\s+list$/i)) && ($chan == $_knl) {
    if ($nick isop $chan) {
      msg $_knl 4 Kara listeye bakılıyor...
      if ($lines(lamerlist.txt) > 0) {
        var %list = $read(lamerlist.txt, 1)
        var %i = 1
        while (%list != $null) {
          msg $_knl 4 * 2 %list
          inc %i
          var %list = $read(lamerlist.txt, %i)
        }
      }
      else {
        msg $chan 10 Kara liste boş.
      }
    }
    else {
      msg $chan 10 Bu komutu kullanmak için aop yetkisine sahip olmalısınız.
    }
  }
}
on *:JOIN:#:{
  if ($read(lamerlist.txt, w, $nick)) {
    mode # +b ~q: $+ $nick
  }
}
on *:NICK:{
  if ($read(lamerlist.txt, w, $nick)) {
    var %i = 1
    while ($comchan($newnick, %i)) {
      var %channel = $comchan($newnick, %i)
      mode %channel +b ~q: $+ $newnick
      inc %i
    }
    write lamerlist.txt $newnick
    msg $_knl 4 $newnick 2 olarak kara listeye eklendi ve tüm kanallarda susturuldu.
  }
}

  • Ekleme/silme/listeleme gibi komutların aktif olacağı kanalı kendinize göre yazın ben test kanalını yazdım. ( Kırmızı ile işaretledim. )
  • Kanalda sıkıntılı tiplerin nicklerini ekliyorsunuz ( .lamerekle nick ). Senaryo şu şekilde olası durumlar için ayarlandı. Kanalda sıkıntılı olan kişiyi atıyorsunuz daha sonra kara listeye ekliyorsunuz ve giriş yaptığı an kanala ~q: uygulanıyor bulundunuz bütün kanallarda.
  • Kara listede olan kişi nick değişirse değiştiği nick de kara listeye oto eklenip oto susturma işlemi uygulanır ve böylelikle bir döngü oluşur.
  • Ayarlanan kanalda komutları aop konumunda olan kişiler kullanabilir.

Kullanım;

.lamerekle nick => Listeye ekleme yapar.

.lamersil nick => Listede ekli olan kişiyi siler.

.kara list = Listeyi görüntüler.

Örnek görünüm;

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

Pentagram 23 Mart 2025 20:38

Cevap: Lamer Takip Sistemi Ekle/Sil/liste ve Sustur
 
güzel eline sağlık


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 06:22.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk