İdent Yasaklama TCL (İdent Ekle/Sil TCL)

Komutun kullanılacağı kanal belirtilmediği için, her türlü kanalda kullanılabilir.

Kod:
 
bind pub - !ident msg_ident
proc msg_ident {nick uhost handle chan text} {
  global botnick
  if {[string match -nocase "#Opers" $chan]} {
    set status [lindex $text 0]
    set ident [lindex $text 1]
    if {$status == ""} {putquick "PRIVMSG #Opers :Ident eklemek/silmek için lütfen komutu doğru kullanınız. Kullanımı: <!ident ekle/sil ident>";return}
    if {$ident == ""} {putquick "PRIVMSG #Opers :Ident eklemek/silmek için lütfen komutu doğru kullanınız. Kullanımı: <!ident ekle/sil ident>";return}
    if {$status == "ekle"} {
      putquick "spamfilter add u gzline - - ^(.+!$ident@.+:.+)$"
      putquick "PRIVMSG #Opers :$ident başarı ile listeye eklendi. Identi yasak listesinden silmek için lütfen <!ident sil $ident> komutunu uygulayın."
    }
    if {$status == "sil"} {
      putquick "spamfilter del u gzline - - ^(.+!$ident@.+:.+)$"
      putquick "PRIVMSG #Opers :$ident başarı ile listeden silindi. Identi yasak listesine tekrar eklemek için lütfen <!ident ekle $ident> komutunu uygulayın."
    }
  }
}

putlog "Ident Ban TCL v1.0 - Written By CLubber"

#Opers kanalında <!ident ekle/sil ident> şeklinde komutu kullanabilirsiniz.

Örneğin; <!ident ekle/sil mIRCTurk>

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s