lookjapan.COM - IRC ve mIRC dünyasının forumu! - Belirlediğin IDENTI Belirlediğim Kanala Çekme

lookjapan.COM - IRC ve mIRC dünyasının forumu! (http://www.lookjapan.com/index.php)

- TCL Scriptler (http://www.lookjapan.com/forumdisplay.php?f=69)

- - Belirlediğin IDENTI Belirlediğim Kanala Çekme (http://www.lookjapan.com/showthread.php?t=1720)

Belirlediğin IDENTI Belirlediğim Kanala Çekme

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

Kod:

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... : ) ^^

Cevap: Belirlediğin IDENTI Belirlediğim Kanala Çekme

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

Kod:

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.. : ) ^^

Cevap: Belirlediğin IDENTI Belirlediğim Kanala Çekme

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