Belirlediğin IDENTI Belirlediğim Kanala Çekme

[No_FeaR]

Merhabalar, Kode de ki Amaç Reklam Olmasını İstemediğim, IDENT'leri İstediğim Kanala Çekmek İstiyorsanız Aşağıdaki TCL'yi Kullabilirsiniz..

bind raw * notice nick:connection
proc nick:connection {from keyword arg} {
global botnick
if {[string match -nocase "*Client connecting on*" $arg]} {
set nick [lindex $arg 9]
set ident [string range [lindex [split [lindex $arg 10] "@"] 0] 1 end]
if {[string match -nocase "IDENTBURAYA" $ident]} {
putquick "SAJOIN $nick #ÇEKİLECEĞİKANAL"
}
}
}

NOT; Botun Kullanıcıyı Kanala Çekebilmesi İçin En Az Services Admin Olması, Nickinin Kayıtlı Olması ve Admin List'e Ekli Olması Gerekiyor... : ) ^^

[No_FeaR]

Bu Kodemiz de İse Aynı Şekilde İstenmeyen İDENT'leri Çektirebilirsiniz. Bu Kode de Sadece Kanala Çekerken, NOTICE Olarak Mesaj Veriyor...

bind join - * denizli
proc denizli { nick uhost hand chan } {
if {![string match -nocase "*Denizli*" $uhost]} {return 0}
putquick "SAJOIN $nick #Denizli"
putquick "NOTICE $nick :*** Denizli OLDUĞUNUZ TESBİT EDİLMİŞTİR. ****"
putquick "NOTICE $nick :*** SİZİ #Denizli KANALINA YÖNLENDİRİYORUZ ***"
putquick "NOTICE $nick :*** KEYİFLİ SOHBETLER DİLERİZ ***"
}

Hayırlı Forumlar.. : ) ^^

[mutlusohbet]

Teşekkürler kod için emeğinize sağlık