New simple echo script [solved]

[Gordon]

Yes, i was looking in tcl archive, no echo script there can do what i want, yet i think it should not be any problem for script coders to implement this feature so im writting here again..

i pretty much described what i need in this thread http://forum.egghelp.org/viewtopic.php?t=14123

Simply script that would echo (from channel to channel) only lines with specified words in them..

[DragnLord]

here is an easy implementaion of what you want
this script is set to relay all public messages with "word1" or "word2" shown in #channel1 to #channel2

Code: Select all

set chan1 "#channel1" 
set chan2 "#channel2" 

bind pubm - *word1* my:echo  
bind pubm - *word2* my:echo   

proc my:echo {n u h c t} {  
        global chan1 chan2
        set chan1 [string tolower $chan1]
        set c [string tolower $c]
        if {$c == $chan1} {
                puthelp "PRIVMSG $chan2 :\<$n@$c\> $t"
        }
}

you can add as many binds as you need to the same proc

[Gordon]

thank you very much for your efforts

but there is a problem, it echoes all messages, no matter what binds i set could you look to it once more ?

[DragnLord]

try this one:

Code: Select all

set chan1 "#channel1"
set chan2 "#channel2"
set wordlist "*word1* *word2*"     

foreach word $wordlist {
        bind pubm - "% $word" my:echo
}

proc my:echo {n u h c t} {
        global chan1 chan2
        set chan1 [string tolower $chan1]
        set c [string tolower $c]
        if {$c == $chan1} {
                puthelp "PRIVMSG $chan2 :\<$n@$c\> $t"
        }
}

if you have "bind pubm - * my:echo" it will relay everything, post the script as you have it if it does not work correctly

[DragnLord]

last script will automatically set binds based on $wordlist content, do not manually set binds

[Gordon]

works perfectly!

thanks a much