bind raw * notice nick:connection
 
proc nick:connection {from keyword arg} {  
  global botnick 
  if {[string match -nocase "*Client connecting*" $arg]} { 
    set nick [lindex $arg 9]
 # etkilenmesini istemediginiz nickleri asagidaki listeye ekleyin
    set muafniklerz[list "ahmet" "mehmet" "murtaza"]
    if {[lsearch -exact $::muafniklerz $nick]} { return }
    if {[isbotnick $nick]} { return }
      putquick "SAJOIN $nick #Kanal1,#Kanal2,#Kanal3,#Kanal4,#Kanal5" 
      putquick "NOTICE $nick Merhaba $nick" 
      putquick "NOTICE $nick Bağlantınız başarı ile tamamlandı ve sunucu yöneticisinin belirlediği kanala alındınız."
      putquick "NOTICE $nick Bilginize sunar, Teşekkür ederiz." 
    } 
} 
putlog "Connection TCL v1.0 - Written By CLubber"

  set muafniklerz[list "ahmet" "mehmet" "murtaza"]
    if {[lsearch -exact $::muafniklerz $nick]} { return }