Code:

# assumes the path to data files is scripts/talk/data# patterns below use normal string matching chars (* for anything, ? for a single character)# filename is assumed to be equal to the pattern less all string matching chars (plus .txt file extension)# for example the response to a match for *how?are?you* will be in howareyou.txt (lower case)# each possible response (from which one is chosen at random) should be on a seperate line in the associated fileset vTalkPatterns {    *hi* *hello* *ok* *bye* *why* *hiy* *never* *salam* *brb* *mind* *bot* *hehe* *censored* *name*    *life* *how?are?you* *nice* *where?are?you?from* *asl* *what?do?you?do* *fight*    *believe* *bore* *brother* *picture* *dream* *afghanistan* *fool* *friendship* *girls* *go*    *good* *home* *kandahaar* *movie* *music* *shutup* *sleep* *sorry* *student* *stupid* *super*    *sure* *sweden* *why* *who* *want* *ping* *10x* *tns* *thanks* *tnx* *thanks* *pashtoon* *grana*    *kha*}bind PUBM - * pTalkRespondproc pTalkRespond {nick uhost hand chan text} {    global vTalkPatterns    foreach pattern $vTalkPatterns {        if {[string match -nocase $pattern $text]} {            set filename [regsub -all -- {[\?\*]} $pattern ""].txt            break        }    }    if {[info exists filename]} {        if {[file exists [file join scripts talk data $filename]]} {            set id [open [file join scripts talk data $filename] r]            set data [split [read -nonewline $id] \n]            close $id            if {[llength $data] != 0} {                set response [lindex $data [rand [llength $data]]]                putserv "PRIVMSG $chan :$response"            }        }    }    return 0}

Code:

on 1:TEXT:*hi*:#:/msg $chan $read(words/hi.txt) $nickon 1:TEXT:*hello*:#:/msg $chan $read(words/hello.txt) $nickon 1:TEXT:*ok*:#:/msg $chan $read(words/ok.txt) $nickon 1:TEXT:*bye*:#:/msg $chan $read(words/bye.txt) $nickon 1:TEXT:*why*:#:/msg $chan $read(words/why.txt) $nickon 1:TEXT:*hiy*:#:/msg $chan $read(words/hiy.txt) $nickon 1:TEXT:*never*:#:/msg $chan $read(words/never.txt) $nickon 1:TEXT:*salam*:#:/msg $chan $read(words/salam.txt) $NICKon 1:TEXT:*brb*:#:/msg $chan $read(words/brb.txt) $nickon 1:TEXT:*mind*:#:/msg $chan $read(words/mind.txt) $nickon 1:TEXT:*BOT*:#:/msg $chan $read(words/BOT.txt) $nick on 1:TEXT:*hehe*:#:/msg $chan $read(words/hehe.txt) $nickon 1:TEXT:*[censored]*:#:/msg $chan $read(words/[censored].txt) $nickon 1:TEXT:*name*:#:/msg $chan $read(words/name.txt) $nickon 1:TEXT:*life*:#:/msg $chan $read(words/life.txt) $nickon 1:TEXT:*how are you*:#:/msg $chan $read(words/howareyou.txt) $nickon 1:TEXT:*nice*:#:/msg $chan $read(words/nice.txt) $nickon 1:TEXT:*where are you from*:#:/msg $chan $read(words/whereareyoufrom.txt) $nickon 1:TEXT:*what do you do*:#:/msg $chan $read(words/whatdoyoudo.txt) $nickon 1:TEXT:*asl*:#:/msg $chan $read(words/asl.txt) $nickon 1:TEXT:*whatdoyoudo*:#:/msg $chan $read(words/whatdoyoudo.txt) $nickon 1:TEXT:*fight*:#:/msg $chan $read(words/fight.txt) $nickon 1:TEXT:*believe*:#:/msg $chan $read(words/believe.txt) $nickon 1:TEXT:*bore*:#:/msg $chan $read(words/bore.txt) $nickon 1:TEXT:*brother*:#:/msg $chan $read(words/brother.txt) $nickon 1:TEXT:*picture*:#:/msg $chan $read(words/picture.txt) $nickon 1:TEXT:*dream*:#:/msg $chan $read(words/dream.txt) $nickon 1:TEXT:*Afghanistan*:#:/msg $chan $read(words/Afghanistan.txt) $nickon 1:TEXT:*fool*:#:/msg $chan $read(words/fool.txt) $nickon 1:TEXT:*friendship*:#:/msg $chan $read(words/friendship.txt) $nickon 1:TEXT:*girls*:#:/msg $chan $read(words/girls.txt) $nickon 1:TEXT:*go*:#:/msg $chan $read(words/g0.txt) $nickon 1:TEXT:*good*:#:/msg $chan $read(words/good.txt) $nickon 1:TEXT:*home*:#:/msg $chan $read(words/home.txt) $nickon 1:TEXT:*kandahaar*:#:/msg $chan $read(words/kandahaar.txt) $nickon 1:TEXT:*movie*:#:/msg $chan $read(words/movie.txt) $nickon 1:TEXT:*music*:#:/msg $chan $read(words/music.txt) $nickon 1:TEXT:*shutup*:#:/msg $chan $read(words/shutup.txt) $nickon 1:TEXT:*sleep*:#:/msg $chan $read(words/sleep.txt) $nickon 1:TEXT:*sorry*:#:/msg $chan $read(words/sorry.txt) $nickon 1:TEXT:*student*:#:/msg $chan $read(words/student.txt) $nickon 1:TEXT:*stupid*:#:/msg $chan $read(words/stupid.txt) $nickon 1:TEXT:*super*:#:/msg $chan $read(words/super.txt) $nickon 1:TEXT:*sure*:#:/msg $chan $read(words/sure.txt) $nickon 1:TEXT:*sweden*:#:/msg $chan $read(words/sweden.txt) $nickon 1:TEXT:*why*:#:/msg $chan $read(words/why.txt) $nickon 1:TEXT:*who*:#:/msg $chan $read(words/who.txt) $nickon 1:TEXT:*want*:#:/msg $chan $read(words/want.txt) $nickon 1:TEXT:*ping*:#:/msg $chan $read(words/ping.txt) $nickon 1:TEXT:*10x*:#:/msg $chan $read(words/10x.txt) $nickon 1:TEXT:*tns*:#:/msg $chan $read(words/10x.txt) $nickon 1:TEXT:*thanks*:#:/msg $chan $read(words/10x.txt) $nickon 1:TEXT:*tnx*:#:/msg $chan $read(words/10.txt) $nickon 1:TEXT:*thanks*:#:/msg $chan $read(words/10x.txt) $nickon 1:TEXT:*Pashtoon*:#:/msg $chan $read(words/Pashtoon.txt) $nickon 1:TEXT:*Grana*:#:/msg $chan $read(words/Grana.txt) $nickon 1:TEXT:*Kha*:#:/msg $chan $read(words/Kha.txt) $nick