Ai.tcl by KuNgFo0 - Responds to certain words said in the set channels.

[Arnold_X-P]

I found this TCL in the forum, it's very good.

Code: Select all

 ###################################
# 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 in
set 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_ai

putlog "*** Ai.tcl 0.3 by KuNgFo0 loaded"

But the bot nickname variant is missing.
And I'd like to change this.

Code: Select all

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

to use $botnick example: line 9

Code: Select all

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

Could you help me get that variant?

I tried using this variant, but it doesn't work for me.

Code: Select all

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

[CrazyCat]

Try using subst with $trigger too

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

And in your ai_datas, use $::botnick rather than $botnick

[Arnold_X-P]

Code: Select all

 ###################################
# 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 in
set 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_ai

putlog "*** Ai.tcl 0.3 by KuNgFo0 loaded"

When I apply the suggestions it gives me the following error

Code: Select all

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

[CrazyCat]

Small error, I left a piece of test, a subst which must not be here.

Here is the working 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 in
set 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_ai

putlog "*** Ai.tcl 0.3 by KuNgFo0 loaded"

[Arnold_X-P]

It worked very well for me, thank you CrazyCat.