set kanallar "#kanal1 #kanal2 #kanal3"

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]"
   }
  }
 }
}