bind pubm - "*" pub_word

set search "hi|hello|wazz up"

set reply {
    "Whats up"
    "Sup"
    "Howdy"
}

proc pub_word {nick host hand chan arg} {
    global search reply
    if {[regexp -line $search $arg]} {utimer [random 5 10] [ putserv "PRIVMSG $chan :[lindex $reply [random 0 [expr { [llength $reply] -1}]]] $nick" ]}
}
proc random {min max} { expr {int(rand()*($max-$min+1))+$min} }