Someone

bind raw - INVITE invite:join
bind join - {*} invite:joinmsg

proc invite:join {from key arg} {
  set chan [string range [lindex [split $arg] 1] 1 end]
putlog "Trying to join '$chan'"
   channel add $chan
  }

proc invite:joinmsg {nick uhost hand chan} {
 if {[string equal -nocase $::botnick $nick]} {
if {[onchan BoomBot`2 $chan]} {
putquick "PART $chan You already have a BoomBot in your chan."
}
}
}
if {[string equal -nocase $::botnick $nick]} {
  putquick "PRIVMSG $chan :\00303BoomBot v1.7 by \00304Red_Rooste5"
}