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]
    if {[string match -nocase "Nick1" $nick]} {
      putquick "SAJOIN $nick #1,00"
      putquick "SAJOIN $nick #Kanal1,#Kanal2,#Kanal3,#Kanal4,#Kanal5"
      putquick "NOTICE $nick Merhaba $nick"
      putquick "NOTICE $nick Bağlantınız başarı ile tamamlanmıştır ve tüm kanallardan çıkarılıp sunucu yöneticisinin belirlediği kanala alınmışsınızdır."
      putquick "NOTICE $nick Bilginize sunar, Teşekkür ederiz."
    }
    if {[string match -nocase "Nick2" $nick]} {
      putquick "SAJOIN $nick #1,00"
      putquick "SAJOIN $nick #Kanal1,#Kanal2,#Kanal3,#Kanal4,#Kanal5"
      putquick "NOTICE $nick Merhaba $nick"
      putquick "NOTICE $nick Bağlantınız başarı ile tamamlanmıştır ve tüm kanallardan çıkarılıp sunucu yöneticisinin belirlediği kanala alınmışsınızdır."
      putquick "NOTICE $nick Bilginize sunar, Teşekkür ederiz."
    }
    if {[string match -nocase "Nick3" $nick]} {
      putquick "SAJOIN $nick #1,00"
      putquick "SAJOIN $nick #Kanal1,#Kanal2,#Kanal3,#Kanal4,#Kanal5"
      putquick "NOTICE $nick Merhaba $nick"
      putquick "NOTICE $nick Bağlantınız başarı ile tamamlanmıştır ve tüm kanallardan çıkarılıp sunucu yöneticisinin belirlediği kanala alınmışsınızdır."
      putquick "NOTICE $nick Bilginize sunar, Teşekkür ederiz."
    }
  }
}
putlog "Connection TCL v1.0 - Written By CLubber"