egghelp/eggheads community

tclscript blocks bot

2003-12-03T02:56:57-04:00

Code:

switch [string tolower $args] {

Try and get out of that habit before it causes your problems. $args is a list, 'string' is for strings. Read http://www.peterre.com/characters.html as many times as it takes to understand it.

Statistics: Posted by Souperman — Wed Dec 03, 2003 2:56 am

tclscript blocks bot

2003-12-02T05:02:20-04:00

lack of knowledge
but thanx I'll try that.

A lack isn't a real trouble, if you try improve your knowledges
Just a small example for you:

Code:

switch [string tolower $args] {   "physik" {      fileserv $nick $args   }   "chemie" {      fileserv $nick $args   }.....   default {      putquick "PRIVMSG $nick :\0039,1 \[BORG\] Techtree interface .... \003"      putquick "PRIVMSG $nick :\0039,1 Connecting ... \003"      putquick "PRIVMSG $nick :\0039,1 Choose Subsection : physik, chemie, biologie, mechanik, architektur, wirtschaft, taktik \003"   }}

Statistics: Posted by CrazyCat — Tue Dec 02, 2003 5:02 am

tclscript blocks bot

2003-12-02T04:55:52-04:00

Just a small and stupid question:
why do you use all this if {...} and not a select switch?
It may be easier to read

lack of knowledge
but thanx I'll try that.

Statistics: Posted by Guest — Tue Dec 02, 2003 4:55 am

tclscript blocks bot

2003-12-01T11:30:42-04:00

Just a small and stupid question:
why do you use all this if {...} and not a select switch?
It may be easier to read

Statistics: Posted by CrazyCat — Mon Dec 01, 2003 11:30 am

tclscript blocks bot

2003-12-01T07:19:43-04:00

thx man,

that really helped a lot.

now i only have to find a way to rewrite the fileserv proc, because this is still blocked as long as its running.
but i think that would need some very good skills with tcl.

im trying, but if anyone has an easy idea or tutorial about this i would be very pleased.

Statistics: Posted by Guest — Mon Dec 01, 2003 7:19 am

Re: tclscript blocks bot

2003-11-27T13:26:33-04:00

Code:

::fileutil::foreachLine line $basedir$section.txt {putquick "PRIVMSG $nick :\0039,1 $line \003"}

Use a different queue if you want those messages to have a lower priority. (puthelp or putserv)

Statistics: Posted by user — Thu Nov 27, 2003 1:26 pm

tclscript blocks bot

2003-11-26T18:39:55-04:00

its no lagg, after the script finished the bots respond normal again.

Statistics: Posted by Guest — Wed Nov 26, 2003 6:39 pm

tclscript blocks bot

2003-11-26T10:10:46-04:00

Maybe it goes to lagg?I had same problem, but not with this scipr, then after few days (i didnt do nothing) bot started to work well, like now...

Statistics: Posted by ]Kami[ — Wed Nov 26, 2003 10:10 am

tclscript blocks bot

2003-11-26T08:35:12-04:00

sorry to raise this topic again, but im searching for an solution for days now and i cant find anything helpful.
Is this behavior normal for an eggdrop?
perhaps someone could give me an hint where i can find out more about it.

Statistics: Posted by Guest — Wed Nov 26, 2003 8:35 am

tclscript blocks bot

2003-11-24T22:43:45-04:00

the code:

Code:

package require fileutilbind pub o|o !techtree techtreeset basedir /home/mutombo/eggdrop/scripts/tt/proc techtree {nick uhost hand chan args} {global basedirif {[string match physik [string tolower $args]]} {fileserv $nick $args}  if {[string match chemie [string tolower $args]]} {fileserv $nick $args}     if {[string match biologie [string tolower $args]]} {fileserv $nick $args}         if {[string match mechanik [string tolower $args]]} {fileserv $nick $args}            if {[string match architektur [string tolower $args]]} {fileserv $nick $args}               if {[string match wirtschaft [string tolower $args]]} {fileserv $nick $args}                  if {[string match taktik [string tolower $args]]} {fileserv $nick $args} else {                    putquick "PRIVMSG $nick :\0039,1 \[BORG\] Techtree interface .... \003"                    putquick "PRIVMSG $nick :\0039,1 Connecting ... \003"                    putquick "PRIVMSG $nick :\0039,1 Choose Subsection : physik, chemie, biologie, mechanik, architektur, wirtschaft, taktik \003"}}proc fileserv {nick section} {global basedir::fileutil::foreachLine line $basedir$section.txt {putquick "PRIVMSG $nick :\0039,1 $line \003"}}

this little script reacts on a trigger with a special argument an then give out a file as private msg.

this is working, but as long as the bot puts out the file(sometimes over 20 lines) it doesnt respond to anything else.
No ping or dcc is working, but i can see that the bot gets the pingrequest in time, but he starts first answering when the tclscript is finished.

could someone give me some advice here waht im doing wrong ?

greetings mutombo

Statistics: Posted by Guest — Mon Nov 24, 2003 10:43 pm