Code:

set respond_words { "lol:Laughs Out Loud" "brb:Be Right Back" } proc check_word {nick uhost hand chan text} {  global respond_words  foreach respond_word $respond_words {   set acronym [lrange [split $respond_word ":"] 0 end]   set acronym_definition [lrange [split $respond_word ":"] 1 end]    if {([string match -nocase *$acronym* $text])} {      set response $acronym_definition     send_response $nick $chan $response      }   }  return 0} proc send_response {nick chan response} {  putquick "PRIVMSG $chan :$response" -next  return 0}

Code:

set respond_words {"lol:laughs out loud""brb:Be Right Back"}proc check_word {nick host handle chan text } {global respond_wordsforeach word $respond_words {if {[string match -nocase "$text" "$word"]} {set words_response [lrange [split $word :] 1 end]send_response $nick $chan $words_response }}return 0 }#Send Response Procproc send_response {nick chan response} {putquick "PRIVMSG $chan :$response" -nextreturn 0 }