Auto Reply Script

set response {
 "bla"
 "yeah, bla bla"
 "exetra.. bla"
}

bind msgm - * response

proc response {nick uhost hand arg} {
 puthelp "privmsg $nick :[lindex $::response [rand [llength $::response]]]"
}