bind raw * notice nick:connection
 
proc nick:connection {from keyword arg} { 
  global botnick
  if {[string match -nocase "*Client connecting*" $arg]} {
    set nick [lindex $arg 9]
    putquick "CHGIDENT $nick Ident"
  }
}