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 #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."

    }

    if {[string match -nocase "Nick2" $nick]} {

      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ınmışsınızdır."

      putquick "NOTICE $nick Bilginize sunar, Teşekkür ederiz."

    }

    if {[string match -nocase "Nick3" $nick]} {

      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ınmışsınızdır."

      putquick "NOTICE $nick Bilginize sunar, Teşekkür ederiz."

    }

  }

}

putlog "Connection TCL v1.0 - Written By CLubber"