o halde bu şekilde tüm bağlananlara işlem yapacaktır.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind raw * notice nick:connection
proc nick:connection {from keyword arg} {
if {[string match -nocase "*Client connecting*" $arg]} {
set nick [lindex $arg 9]
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"
not: yukarda verdiğim koddaki return ler return 0 olmalıydı.benim dikkatsizliğim.
return deyince sadece bunlara işlemi yap demiş olmuşuz olumsuz yapacakken olumlu yapmış olmuşuz. return 0 bunları es geç olmalıydı.o zaman çalışacaktır yukarda ilk postaladığımda.
geceden çıkma olunca güneş doğup ışık çarptıkça dikkat toplamak güçleşiyor.hata yapmışız orda...