#################################### Ai.tcl by KuNgFo0 (#eggfaq@efnet)#VERSION 0.3#DESCRIPTION Responds to certain words said in the set channels.# Set the next lines as the triggers and random responses you want# (wildcards may be used)set ai_data {   {"Hello" "Hi $::botnick" "$::botnick Hey"} {"Hey what's up, $nick?" "Yo" "Hello!"}   {"What time is it?" "What is the time?" "What's the time?" "Anyone have the time?"} {"$nick, it's [clock format [clock seconds]]"}}# Set the next line as the channels you want to run inset ai_chans "#beni2 #trinidad"proc pub_ai {nick uhost hand chan arg} {   global ai_data ai_chans botnick   if {(([lsearch -exact [string tolower $ai_chans] [string tolower $chan]] != -1) || ($ai_chans == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {      foreach {triggers responses} $ai_data {         foreach trigger $triggers {            if {[string match [string tolower [subst $trigger]] [string tolower $arg]]} {               putserv "PRIVMSG $chan :[subst [lindex $responses [rand [llength $responses]]]]"               return            }         }      }   }}bind pubm - * pub_aiputlog "*** Ai.tcl 0.3 by KuNgFo0 loaded"

Statistics: Posted by CrazyCat — Tue Aug 19, 2025 2:04 am

Code:

 #################################### Ai.tcl by KuNgFo0 (#eggfaq@efnet)#VERSION 0.3#DESCRIPTION Responds to certain words said in the set channels.# Set the next lines as the triggers and random responses you want# (wildcards may be used)set ai_data { {"Hello" "Hi $::botnick" "$::botnick Hey"} {   "Hey what's up, $nick?"  "Yo"  "Hello!" } {"What time is it?" "What is the time?" "What's the time?" "Anyone have the time?"} {  "$nick, it's [clock format [clock seconds]]" }}# Set the next line as the channels you want to run inset ai_chans "#beni2  #trinidad"proc pub_ai {nick uhost hand chan arg} { global ai_data ai_chans botnick if {(([lsearch -exact [string tolower $ai_chans] [string tolower $chan]] != -1) || ($ai_chans == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {  foreach {triggers responses} $ai_data {   foreach trigger $triggers {if {[string match [string tolower [subst $trigger]] [string tolower subst $arg]]} {   putserv "PRIVMSG $chan :[subst [lindex $responses [rand [llength $responses]]]]"; return }   }  } }}bind pubm - * pub_aiputlog "*** Ai.tcl 0.3 by KuNgFo0 loaded"

 [22:32:18] Tcl error [pub_ai]: bad index "JulieTh Hey": must be integer?[+-]integer? or end?[+-]integer?

Statistics: Posted by Arnold_X-P — Mon Aug 18, 2025 10:34 pm

if {[string match [string tolower [subst $trigger]] [string tolower subst $arg]]} {   putserv "PRIVMSG $chan :[subst [lindex $responses [rand [llength $responses]]]]";   return}

Statistics: Posted by CrazyCat — Mon Aug 18, 2025 10:36 am

Code:

 #################################### Ai.tcl by KuNgFo0 (#eggfaq@efnet)#VERSION 0.3#DESCRIPTION Responds to certain words said in the set channels.# Set the next lines as the triggers and random responses you want# (wildcards may be used)set ai_data { {"Hello" "Hi" "Hey"} {  "Hey what's up, $nick?"  "Yo"  "Hello!" } {"What time is it?" "What is the time?" "What's the time?" "Anyone have the time?"} {  "$nick, it's [clock format [clock seconds]]" }}# Set the next line as the channels you want to run inset ai_chans "#testchannel1 #testchannel2"proc pub_ai {nick uhost hand chan arg} { global ai_data ai_chans botnick if {(([lsearch -exact [string tolower $ai_chans] [string tolower $chan]] != -1) || ($ai_chans == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {  foreach {triggers responses} $ai_data {   foreach trigger $triggers {    if {[string match [string tolower $trigger] [string tolower $arg]]} { putserv "PRIVMSG $chan :[subst [lindex $responses [rand [llength $responses]]]]" ; return }   }  } }}bind pubm - * pub_aiputlog "*** Ai.tcl 0.3 by KuNgFo0 loaded"

 {"Hello" "Hi" "Hey"} { 

 {"Hello" "Hi $botnick" "$botnick Hey"} { 

 regsub -all -- {$botnick} $responses $botnick responses

Statistics: Posted by Arnold_X-P — Sun Aug 17, 2025 11:54 pm