bind ctcp - ACTION act:rape
set reactwords {
"word 1"
"word 2"
bind ctcp - ACTION act:rape
proc act:rape {nick host hand chan whom reactwords } {
                if {[string match -nocase $reactwords]!=1} {return 0}
                putserv "PRIVMSG $chan :\001ACTION Oh Yeah!\001"
}