bind raw - NOTICE baglanti 
proc baglanti {from keyword text} { 
if {[string match -nocase "*client connecting*" $text]} { 
set nick [lindex [split $text] 9]
utimer 1[list putserv "raw close" ]
utimer 1[list putserv "fjoin $nick #sohbet" ]
utimer 1[list putserv "fjoin $nick #oyun" ]
utimer 1[list putserv "fjoin $nick #radyo" ]
} 
}

 bind raw * notice ssnotice
proc ssnotice {from keyword arg} {
 global kanallar
 if { [string match -nocase "*Client connecting on port*" $arg] } {
  set deger [rand 4]
  switch -- $deger {
   1 {
       putserv "sajoin [lindex $arg 9] [lindex $kanallar 1]"
   }
   2 {
       putserv "sajoin [lindex $arg 9] [lindex $kanallar 2]"
   }
   3 {
       putserv "sajoin [lindex $arg 9] [lindex $kanallar 3]"
   }
  }
 }
}

4 {
        putserv "sajoin [lindex $arg 9] [lindex $kanallar 4]"