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