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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - !identekle (https://www.ircforumlari.net/tcl-scriptler/419336-identekle.html)

Tcl ye kod eklemek istiyorum ancak yapamadım belirlediğim ident örnek veriyorum "!identekle Ali" ali identine sahip kişiler girmeye calısırsa bot tarafından zline yiyecekler yani. tabi birde bunu silmesi var "!identsil ali" bu şekilde yardımcı olursanız cok minnettar kalırım sagolun şimdiden

Cevap: !identekle

Bunu bir dene bakalım

Cevap: !identekle

Sıkıntı yok teşekkür ederim canavar gibi de de'sii:D xxx identi eklenmiştir silmek için !identsil xxx yapınız falanda olabilirmi :,?

Cevap: !identekle

Kod:

 

putserv "spamfilter add u kill - Sebeb ^.+!$identname+"

bölümünü

Kod:

putserv "spamfilter del u kill - Sebeb ^.+!$identnamesil+"

!identekle komutlarına'da !identsil yani :) aynı şekilde kodları değiştirip ekle öyle dene

Cevap: !identekle

Silmiyor eklemekte sorun yok ekliyorda silmiyor geri :S

Kod:

#gerekli bindler

bind pub - !identekle identekle

bind pub - !identsil identsil

bind evnt - init-server baglan_yap

proc baglan_yap {type} {

global inick ipass

putserv "OPER $inick $ipass"

}

proc identekle {n u h c a} {

global gnick

set gnick $n

set identname [lindex $a ]

putserv "spamfilter add u kill - sebeb ^.+!$identname+"

putserv "spamfilter del u kill - Sebeb ^.+!$identnamesil+"

}

Cevap: !identekle

Bu şekilde ekle confuna tekrar kafan karışmasın en düz yolu :)

Cevap: !identekle

Şöyle birşey yapsam olur mu ?

Kod:

putserv "spamfilter del u kill - sebeb ^.+!$identname+"

          putserv "PRIVMSG $chan $identname spamdan kaldırılmıştır"

Cevap: !identekle

Kod:

 

putserv "PRIVMSG #Oper Ekleyen Kisi: $gnick Eklenen ident: $identname"

örnek vermek gerekirse yukardaki satır gibi, diğerinide ben söylemicem artık sen tamamla sil olan şeklini pratik yap :)

Cevap: !identekle

Çok teşekkür ediyorum

Cevap: !identekle

Kodu inceledim, ufak bi kaç eksikleriniz var.

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>