Something

listen LISTENPORT script vbannounce

proc vbannounce {idx} {
control $idx vbincoming
}

proc vbincoming {idx args} {
putlog "$args <-- this is what the board sent to the bot"
  set line [join $args]
if {[join $args] != "" } {
  set chan [lindex $line 0]
  set line [lrange $line 1 end] 
  set line [join $line]
  set line [split $line ";"]

foreach line $line { putserv "PRIVMSG $chan :$line" }
        }
killdcc $idx
}


putlog "Vb3 announce by ShavedApe v1.1 loaded..."