bind raw - NOTICE baglan
proc baglan {from keyword arg} { 
 if {[string match -nocase "*Client connecting*" $arg]} { 
 set nick [lindex $arg 9]
 utimer 10[list putserv "PRIVMSG $nick \00302Merhaba $nick \00304Can\00302yoldaslar.\00304C\00302om\003 \00302Sohbet Sunucusuna Hoşgeldiniz."]
 } 
}