set tayfalar { 
  "aCoustiC" 
} 
proc bv:notice {from keyword text} { 
  set text [split $text] 
  set what [join [lrange $text 4 5]] 
  if {$what == "Client connecting"} { 
    foreach tayfa $tayfalar { 
      if {[string match "*[string tolower $tayfa]*" [string tolower $text]]} { 
        return 
        } else { 
        set nick [lindex $text 9] 
        putserv "SAJOIN $nick #radyo" 
        putserv "SAJOIN $nick #oyun" 
        putserv "SAJOIN $nick #sohbet" 
      } 
    } 
  } 
}