egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-09-22T01:58:33-04:00 https://forum.eggheads.org/app.php/feed/topic/8310 2004-09-22T01:58:33-04:00 2004-09-22T01:58:33-04:00 https://forum.eggheads.org/viewtopic.php?p=41124#p41124 <![CDATA[Auto responder (need help with regsub)]]>
I did think of it first, but as you can see my logic is a bit complicated so I need to go with the if and else conditions and not the switching function.
Spiffy :) just worked great for me when i was trying to do dimilar things (trying to parse command options from user input in a reasonable manner that didn;t make me go cross eyed). Worked great for me and figured i'd suggest it based on a cursory glance at your code :)

Statistics: Posted by KevKev — Wed Sep 22, 2004 1:58 am

]]> 2004-09-21T07:13:21-04:00 2004-09-21T07:13:21-04:00 https://forum.eggheads.org/viewtopic.php?p=41081#p41081 <![CDATA[Auto responder (need help with regsub)]]> Statistics: Posted by awyeah — Tue Sep 21, 2004 7:13 am

]]> 2004-09-21T07:09:01-04:00 2004-09-21T07:09:01-04:00 https://forum.eggheads.org/viewtopic.php?p=41080#p41080 <![CDATA[Auto responder (need help with regsub)]]> Statistics: Posted by KevKev — Tue Sep 21, 2004 7:09 am

]]> 2004-09-21T01:33:09-04:00 2004-09-21T01:33:09-04:00 https://forum.eggheads.org/viewtopic.php?p=41068#p41068 <![CDATA[Auto responder (need help with regsub)]]>

Code: 

[subst [lindex $filteredresponses [rand [llength $filteredresponses]]]]
What about the braces? Do we really need to switch the triggers and responses, quotes to braces? But why?! Those are easier to set up multiple triggers and not messy or complicated. :roll:

Statistics: Posted by awyeah — Tue Sep 21, 2004 1:33 am

]]> 2004-09-20T16:37:23-04:00 2004-09-20T16:37:23-04:00 https://forum.eggheads.org/viewtopic.php?p=41060#p41060 <![CDATA[Re: Auto responder (need help with regsub)]]>
Not quite the solution, but anyway I will give it a look, kthx. :lol:
All you have to do to switch to 'subst' is replace % with $ and enclose your messages in braces instead of quotes. (and add variables for those color codes - and enclose variable names in braces where needed) As a bonus you get backslash/command substitution too (unless you turn it off). You should invoke 'subst' on the message right before it's sent, to avoid doing any redundant/unneeded work. If you for some reason want to do it the hard way, 'string map' would be much faster than 'regsub'.

Statistics: Posted by user — Mon Sep 20, 2004 4:37 pm

]]> 2004-09-20T12:09:57-04:00 2004-09-20T12:09:57-04:00 https://forum.eggheads.org/viewtopic.php?p=41051#p41051 <![CDATA[Auto responder (need help with regsub)]]>

Statistics: Posted by awyeah — Mon Sep 20, 2004 12:09 pm

]]> 2004-09-20T11:15:36-04:00 2004-09-20T11:15:36-04:00 https://forum.eggheads.org/viewtopic.php?p=41048#p41048 <![CDATA[Auto responder (need help with regsub)]]> subst.

Statistics: Posted by caesar — Mon Sep 20, 2004 11:15 am

]]> 2004-09-19T11:04:22-04:00 2004-09-19T11:04:22-04:00 https://forum.eggheads.org/viewtopic.php?p=41009#p41009 <![CDATA[Auto responder (need help with regsub)]]>

Code: 

set responsetimer "1/2"set responsetime "2secs"#1 = defined time#2 = randomset responsechans "#bla1 #bla2 #bla3"set responsechantype "1/2"set nobotnick "1/2"set randomreply "0/1/2"set randomreplyno "5"set responsetimer "0/1"set respond_words {{ "lol" } { "Laughs Out Loud" "haha %nick" "yahoo!" }{ "brb" } { "Be Right Back %nick" "ok" "I'm right here on %chan" }{ "cya" } { "See you" "ok dude" "bye bye, %nick!" }{ "hi" "hello" } { "hey %nick" "hows ya doing, %nick?" "whats up, %nick?" } }#You can use %nick, %chan, %uhost and %hand for the reponses too,#Exampleset respond_words {{ "trigger1" } { "random reply 1" "random reply 2" }{ "trigger1" } { "random reply 1" "random reply 2" "random reply 3" }{ "trigger1" "trigger2" } { "random reply 1" "random reply 2" "random reply 3" }{ "trigger1" "trigger2" "trigger3" } { "random reply 1" "random reply 2" }{ "trigger1" "trigger2" "trigger3" } { "random reply 1" "random reply 2" "random reply 3" }{ "trigger1" "trigger2" "trigger3" } { "random reply 1" "random reply 2" "random reply 3" "random reply 4" }#You can set any amount of triggers and random replies.#Minimum for atleast 1 trigger there must be a reply set or vice versa.if {($responsetype == 3) || ($responsetype == 4)} { bind notc - * check_word }if {($responsetype == 2) || ($responsetype == 4)} { bind ctcp - ACTION check_word }if {($responsetype == 1) || ($responsetype == 4)} { bind pubm - * check_response_word }proc check_response_word {nick uhost hand chan text} { global respond_words responsechantype nobotnick randomreply if {([isbotnick $nick]) || ([isbotnick $chan]) || (![string equal "#" [string index $chan 0]])} { return 0 } if {($responsechantype == 1) && ([lsearch -exact [split [string tolower $responsechans]] [string tolower $chan]] == -1)} { return 0 }  foreach {triggers responses} $respond_words {; foreach trigger $triggers {  if {($responsetimer == 2)} { set responsetime [rand 10] }  set filteredresponses [response:filter $filteredresponses $nick $uhost $hand $chan]  if {(($responsetimer == 1) && ($reponsetime != "") && ($reponsetime > 0)) || ($responsetimer == 2)} {   if {($randomreply == 0) && ($nobotnick == 1) && ([string match -nocase "* $botnick *" " $text "]) && ([string match -nocase "* $trigger *" " $text "])} {    utimer $responsetime [list putserv "PRIVMSG $chan :[lindex $filteredresponses [rand [llength $filteredresponses]]]"]; return 0 }   if {($randomreply == 0) && ($nobotnick == 2) && (![string match -nocase "* $botnick *" " $text "]) && ([string match -nocase "* $trigger *" " $text "])} {    utimer $responsetime [list putserv "PRIVMSG $chan :[lindex $filteredresponses [rand [llength $filteredresponses]]]"]; return 0 }   if {($randomreply == 1) && ([rand 2] == 1) && ($nobotnick == 1) && ([string match -nocase "* $botnick *" " $text "]) && ([string match -nocase "* $trigger *" " $text "])} {    utimer $responsetime [list putserv "PRIVMSG $chan :[lindex $filteredresponses [rand [llength $filteredresponses]]]"]; return 0 }   if {($randomreply == 1) && ([rand 2] == 1) && ($nobotnick == 2) && (![string match -nocase "* $botnick *" " $text "]) && ([string match -nocase "* $trigger *" " $text "])} {    utimer $responsetime [list putserv "PRIVMSG $chan :[lindex $filteredresponses [rand [llength $filteredresponses]]]"]; return 0 }   if {($randomreply == 2) && ($randomreplyno != "") && ($randomreplyno > 0) && ($nobotnick == 1) && ([string match -nocase "* $botnick *" " $text "]) && ([string match -nocase "* $trigger *" " $text "])} {    utimer $responsetime [list putserv "PRIVMSG $chan :[lindex $filteredresponses [rand [llength $filteredresponses]]]"]; return 0 }    if {($randomreply == 2) && ($randomreplyno != "") && ($randomreplyno > 0) && ($nobotnick == 2) && (![string match -nocase "* $botnick *" " $text "]) && ([string match -nocase "* $trigger *" " $text "])} {    utimer $responsetime [list putserv "PRIVMSG $chan :[lindex $filteredresponses [rand [llength $filteredresponses]]]"]; return 0 } }   if {($responsetimer == 0)} {   if {($randomreply == 0) && ($nobotnick == 1) && ([string match -nocase "* $botnick *" " $text "]) && ([string match -nocase "* $trigger *" " $text "])} {    putserv "PRIVMSG $chan :[lindex $filteredresponses [rand [llength $filteredresponses]]]"; return 0 }   if {($randomreply == 0) && ($nobotnick == 2) && (![string match -nocase "* $botnick *" " $text "]) && ([string match -nocase "* $trigger *" " $text "])} {     putserv "PRIVMSG $chan :[lindex $filteredresponses [rand [llength $filteredresponses]]]"; return 0 }   if {($randomreply == 1) && ([rand 2] == 1) && ($nobotnick == 1) && ([string match -nocase "* $botnick *" " $text "]) && ([string match -nocase "* $trigger *" " $text "])} {    putserv "PRIVMSG $chan :[lindex $filteredresponses [rand [llength $filteredresponses]]]"; return 0 }   if {($randomreply == 1) && ([rand 2] == 1) && ($nobotnick == 2) && (![string match -nocase "* $botnick *" " $text "]) && ([string match -nocase "* $trigger *" " $text "])} {     putserv "PRIVMSG $chan :[lindex $filteredresponses [rand [llength $filteredresponses]]]"; return 0 }   if {($randomreply == 2) && ($randomreplyno != "") && ($randomreplyno > 0) && ($nobotnick == 1) && ([string match -nocase "* $botnick *" " $text "]) && ([string match -nocase "* $trigger *" " $text "])} {    putserv "PRIVMSG $chan :[lindex $filteredresponses [rand [llength $filteredresponses]]]"; return 0 }    if {($randomreply == 2) && ($randomreplyno != "") && ($randomreplyno > 0) && ($nobotnick == 2) && (![string match -nocase "* $botnick *" " $text "]) && ([string match -nocase "* $trigger *" " $text "])} {      putserv "PRIVMSG $chan :[lindex $filteredresponses [rand [llength $filteredresponses]]]"; return 0 }      }   }}proc check_word_act {nick uhost hand chan key text} { check_response_word $nick $uhost $hand $chan $text}proc check_word_notc {nick uhost hand text {chan ""}} {  check_response_word $nick $uhost $hand $chan $text}proc response:filter {data nick uhost hand chan} { global botnick regsub -all -- %nick $data $nick data ; regsub -all -- %uhost $data $uhost data regsub -all -- %botnick $data $botnick data regsub -all -- %hand $data $hand data ; regsub -all -- %chan $data $chan data regsub -all -- %b $data  data ; regsub -all -- %r $data  data regsub -all -- %u $data  data ; regsub -all -- %c $data  data return $data}
The way I have made the triggers and responses is it the best way todo them like this? Because I want an AI reply from the bot meaning any random reply from any of the single/multiple triggers.

The main problem I am having problem with the regsub. I want $nick to replace %nick in the triggers, %uhost for $uhost, %chan for $chan and so on...

But it doesn't seem to work correct. Can anyone help me? Would be kindly appreciated! :mrgreen:

Statistics: Posted by awyeah — Sun Sep 19, 2004 11:04 am

]]>