egghelp/eggheads community

Need a lil help with this tcl script

2004-03-21T19:55:20-04:00

Code:

if {[string equal -nocase $channel "#blacklistchan"]} { return }

stick that at the top of the procedure

Statistics: Posted by spock — Sun Mar 21, 2004 7:55 pm

Need a lil help with this tcl script

2004-03-21T15:19:15-04:00

Thanks guys! But one more thing
Is it possible to "blacklist" one channel, so the bot does not check just that channel, but all the other channels the bot is in?

Statistics: Posted by Guest — Sun Mar 21, 2004 3:19 pm

Need a lil help with this tcl script

2004-03-21T14:58:28-04:00

string match will NEVER EVER IN A MILLION YEARS return -1

heh... wanna bet?

Code:

proc string {args} {return -1}

edit: naaah *donk* loaded this script for testing and now i just wondered why my scripts were producing one error after another...
/me slaps himself and goes to bed...

Statistics: Posted by arcane — Sun Mar 21, 2004 2:58 pm

Need a lil help with this tcl script

2004-03-21T13:47:42-04:00

strikelight good idea
In future I read an entire thread before replying.

Statistics: Posted by Rusher2K — Sun Mar 21, 2004 1:47 pm

Need a lil help with this tcl script

2004-03-21T13:36:02-04:00

I had only see :

Useful script you got there! But is it possible to change the "mainchan" part so it instead checks all the channels the bot is in, and not just one channel? I'm kind of new to tcl, so i'm very thankful if somebody could tell me how to do this.

Then maybe you should read an entire thread before replying.... Just a thought.

Now the fixed code:

Code:

set relaychan "#relay" set word "keywordhere" bind pubm - "*" relay_pubm proc relay_pubm {nick host handle channel text} {     if {[string match -nocase "*$::word*" $text] == 1} {         putserv "PRIVMSG $::relaychan :($channel) $nick: $text"     } }

As previously mentioned with the original fix....
you can make it just:

Code:

if {[string match -nocase "*$::word*" $text]} {

Statistics: Posted by strikelight — Sun Mar 21, 2004 1:36 pm

Need a lil help with this tcl script

2004-03-21T05:49:11-04:00

I had only see :

Useful script you got there! But is it possible to change the "mainchan" part so it instead checks all the channels the bot is in, and not just one channel? I'm kind of new to tcl, so i'm very thankful if somebody could tell me how to do this.

Now the fixed code:

Code:

set relaychan "#relay" set word "keywordhere" bind pubm - "*" relay_pubm proc relay_pubm {nick host handle channel text} {     if {[string match -nocase "*$::word*" $text] == 1} {         putserv "PRIVMSG $::relaychan :($channel) $nick: $text"     } }

Statistics: Posted by Rusher2K — Sun Mar 21, 2004 5:49 am

Need a lil help with this tcl script

2004-03-21T05:25:41-04:00

tweaKey here:

Code:

set relaychan "#relay" set word "keywordhere" bind pubm - "*" relay_pubm proc relay_pubm {nick host handle channel text} {     if {[string match -nocase "*$::word*" $text] != -1} {         putserv "PRIVMSG $::relaychan :($channel) $nick: $text"     } }

Heh... oy... again with the same bug as previously mentioned...
string match will NEVER EVER IN A MILLION YEARS return -1, thus making the comparison ALWAYS TRUE... heh....

Statistics: Posted by strikelight — Sun Mar 21, 2004 5:25 am

Need a lil help with this tcl script

2004-03-21T04:36:58-04:00

tweaKey here:

Code:

set relaychan "#relay" set word "keywordhere" bind pubm - "*" relay_pubm proc relay_pubm {nick host handle channel text} {     if {[string match -nocase "*$::word*" $text] != -1} {         putserv "PRIVMSG $::relaychan :($channel) $nick: $text"     } }

Statistics: Posted by Rusher2K — Sun Mar 21, 2004 4:36 am

Need a lil help with this tcl script

2004-03-20T20:04:58-04:00

Useful script you got there! But is it possible to change the "mainchan" part so it instead checks all the channels the bot is in, and not just one channel? I'm kind of new to tcl, so i'm very thankful if somebody could tell me how to do this.

Statistics: Posted by Guest — Sat Mar 20, 2004 8:04 pm

Need a lil help with this tcl script

2004-03-07T11:03:16-04:00

That would be because string match never returns -1...

oops lsearch returns -1... my fault.

to change use it for multiple words you should work with lists.
set words {"word1" "word2" "word3"}
and then:
foreach word $words {
if string match *$word* $text
}
this should give you the idea.

Statistics: Posted by arcane — Sun Mar 07, 2004 11:03 am

Need a lil help with this tcl script

2004-03-07T05:16:57-04:00

what would you have to change in this script to respond to multiple words?

Statistics: Posted by cvanmeer — Sun Mar 07, 2004 5:16 am

Need a lil help with this tcl script

2004-03-06T16:37:28-04:00

that worked, thanks )

Statistics: Posted by XceL — Sat Mar 06, 2004 4:37 pm

Need a lil help with this tcl script

2004-03-06T15:19:13-04:00

That would be because string match never returns -1...

change

Code:

if {[string match -nocase "*$::word*" $text] != -1} {

Code:

if {[string match -nocase "*$::word*" $text]} {

Statistics: Posted by strikelight — Sat Mar 06, 2004 3:19 pm

Need a lil help with this tcl script

2004-03-06T08:25:15-04:00

nope still didnt work, no matter what i typed it sent it to the relay channel..

Statistics: Posted by XceL — Sat Mar 06, 2004 8:25 am

Need a lil help with this tcl script

2004-03-06T07:40:19-04:00

Code:

set mainchan "#main" set relaychan "#relay" set word "keywordhere" bind pubm - "*" relay_pubm proc relay_pubm {nick host handle channel text} {    if {[strlwr $channel] != [strlwr $::mainchan]} { return }    if {[string match -nocase "*$::word*" $text] != -1} {        putserv "PRIVMSG $::relaychan :($channel) $nick: $text"    } }

should work (not tested).

Statistics: Posted by arcane — Sat Mar 06, 2004 7:40 am