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"