egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-06-11T10:45:28-04:00 https://forum.eggheads.org/app.php/feed/topic/4636 2003-06-11T10:45:28-04:00 2003-06-11T10:45:28-04:00 https://forum.eggheads.org/viewtopic.php?p=21669#p21669 <![CDATA[how to optimize that proc]]>
that's really great :)

I'll try it later on, but I think it's exactly what I meant! :)

Thanks again!

Statistics: Posted by eiSi — Wed Jun 11, 2003 10:45 am

]]> 2003-06-11T09:55:37-04:00 2003-06-11T09:55:37-04:00 https://forum.eggheads.org/viewtopic.php?p=21664#p21664 <![CDATA[how to optimize that proc]]>

Code: 

# outside the proc:# array of masks/answersarray set fishA {  "question" "answer"   "blah*" "$nick is verbose!"   "* bleh *" "no."   "bluh" "i hate $chan" }# array containing lists of masks starting with a certain chararray unset fishMforeach e [array names fishA] {  lappend fishM([string index $e 0]) $e}# and a sorted list of the charsset fishC [lsort -dict [array names fishM]]proc fishbot {nick uhost handle chan text} {  # converting $text to lowercase and making sure all your masks also are   # in lowercase might be a good idea to avoid multiple case conversions  global fishA fishM fishC  # first we make a list of masks that might match $text  # (based on the first char)  set masks {}  foreach e $fishC {    if {[string match $e* $text]} {      set masks [concat $masks $fishM($e)]    }  }  # then we do the actual matching  foreach m $masks {    if {[string match $m $text]} {      putserv "PRIVMSG $chan :[subst $fishA($m)]"      break    }  }}

Statistics: Posted by user — Wed Jun 11, 2003 9:55 am

]]> 2003-06-11T08:52:51-04:00 2003-06-11T08:52:51-04:00 https://forum.eggheads.org/viewtopic.php?p=21660#p21660 <![CDATA[how to optimize that proc]]>
thanks for your help!

I'll try it!

Statistics: Posted by eiSi — Wed Jun 11, 2003 8:52 am

]]> 2003-06-11T08:59:58-04:00 2003-06-10T17:33:45-04:00 https://forum.eggheads.org/viewtopic.php?p=21613#p21613 <![CDATA[how to optimize that proc]]>

Code: 

set crap {"question" "answer""blah*" "$nick is verbose!""* bleh *" "no.""bluh" "i hate $chan"}foreach {m a} $crap {  if {[string match $m $text]} {    # the 'subst' takes care of variable/command/backslash substitution    # in the string contained in 'a'.    putserv "PRIVMSG $chan :[subst $a]"    # then we 'break' to avoid answering more than once to each line    # of text and also cut down on the cpu usage    break  }}
You could of course store the mask/reply pairs in an array and loop through 'array names' or 'array get' instead.

Also make sure you put the most commonly matched masks first.

If you plan to have thousands of elements the best thing would probably be to sort them some way and use a binary search approach to decrease the number of mask having to be matched.

Statistics: Posted by user — Tue Jun 10, 2003 5:33 pm

]]> 2003-06-10T06:50:39-04:00 2003-06-10T06:50:39-04:00 https://forum.eggheads.org/viewtopic.php?p=21558#p21558 <![CDATA[how to optimize that proc]]>
some of you know the fishbot on quakenet.. he just gives silly answers to people saying a certain sentence.

I coded that in tcl, but how to optimize:

setudef flag fish
bind pubm -|- * fishbot

Code: 

proc fishbot {nick uhost handle chan text} {  if {![string match "*+fish*" [channel info $chan]]} { return 0 }    set fish1 "you can't just pick people at random!"    set fish2 "wertle"    if {[string match "$fish1" $text]} { putserv "PRIVMSG $chan : I can do anything I like, $nick, I'm eccentric! Rrarrrrrgh! Go!" }  if {[string match "$fish2" $text]} { putserv "PRIVMSG $chan : moo" }}
the list goes on that way.. fish3, fish4... and the responses do aswell.

what's the best way to solve this? with 2 arrays? (questions <--> answers)

thanks for any suggestions!

Statistics: Posted by eiSi — Tue Jun 10, 2003 6:50 am

]]>