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]
    set ident [string range [lindex [split [lindex $arg 10] "@"] 0] 1 end]
    if {[string match -nocase "Ident1" $ident]} {
      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 "Ident2" $ident]} {
      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 "Ident3" $ident]} {
      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"