set reacts {
"1"
"2"
}
set text {
"test"
"blue"
}
bind ctcp - ACTION:talk
proc talk { nick host chan reacts text args } {
        global reacts
        global text
        if {[string match -nocase "ACTION" $text]!=1} {return 0}
        if {[string match -nocase $reacts [join $args]]!=0}
        putserv "PRVMSG $chan :\001ACTION :[lindex $reacts [rand [llength $react
s]]]\001"
  }