bind raw * notice snotice:connect
proc snotice:connect {from keyword text} {
global botnick
    if {[string match -nocase "*client connecting*" $text]} {
    set nick [lindex $text 9]
        putquick "PRIVMSG $nick :\001VERSION\001"
}