egghelp/eggheads community

Problem with echoscript

2002-12-22T19:55:47-04:00

No problem. To filter things out, consider using string match to check for the content you want or do not want to echo.. If you have any problems with code that you write for this, drop me a PM or a post in this thread and I'll help you out with it.

Statistics: Posted by tainted — Sun Dec 22, 2002 7:55 pm

Problem with echoscript

2002-12-22T10:38:19-04:00

Thanks for helping me out m8
It's actually working now!

Now I only need to get some filters working to not echo all the stuff the bot says..

Statistics: Posted by Guest — Sun Dec 22, 2002 10:38 am

Problem with echoscript

2002-12-21T22:39:57-04:00

Code:

#<-totalNFO 1.0 by GoMp->##-#This is a script that will make your bot join the NFOrce-channel#and echo everything the bot nforce says to a specified chan,#meaning all the latest releases will be displayed to your chan...#Note: Only tested on EFnet#-#Variable definingset tnchan "#chan1 #chan2"#the channels the bot will echo to#<- end ->set tnvers "1.0"set tnnick "SOURCENICK"proc tnlog {msg} { putlog "\002.:totalNFO:.\002 $msg" }proc gotechoTN {nick uhost hand chan arg} {        global tnchan tnnick        if {([string match -nocase $tnnick $nick]) && ([string match -nocase #nforce $chan])} {                foreach tarchan [split $tnchan] {puthelp "PRIVMSG $tarchan :$arg"}                tnlog "$arg" }}proc offechoTN {nick uhost hand chan arg} {        global tnnick        if {[string tolower $nick] == [string tolower $tnnick]} {        tnlog "the NFOrce bot has quit IRC..."        }}proc onechoTN {nick uhost hand chan} {        global tnnick        if {[string tolower $nick] == [string tolower $tnnick]} {        tnlog "the NFOrce bot has joined #NFOrce again. Logging re-started..."        }}proc nickchoTN {nick uhost hand chan newnick} {        global tnnick        if {[string tolower $nick] == [string tolower $tnnick]} {        tnlog "the NFOrce bot has changed nick from $nick to ${newnick}: echoing will only work on someone with nick 'NFOrce'.        }}bind pubm - * gotechoTNbind sign - * offechoTNbind join - * onechoTNbind nick - * nickchoTNputlog "\002:-: totalNFO v${tnvers}\002 by GoMp < http://www.g0mp.org/gomp/ > loaded... \002:-:\002"

Please, please, look at what I changed so you will know how to avoid the problems that I addressed for the future. I had to take out the channel check at the end, because the bot does not load the channels until after the config, thus why it could never find the channel #nforce upon startup. Maybe someone else can chime in and offer more pointers here.

Known issues:

No channel check.

When the "tnnick" bot changes nicks, it echos the nick change message about ten times to the partyline.

I didn't have time to test it further, but at least now it works. Excuse the sloppy code too, I had to wrap this up and yank all my debugs in a hurry.

Statistics: Posted by tainted — Sat Dec 21, 2002 10:39 pm

Problem with echoscript

2002-12-21T20:27:16-04:00

Code:

                foreach msg [split $tnchan { puthelp "PRIVMSG $tnchan :$arg" }

Should be..

Code:

                foreach msg [split $tnchan] { puthelp "PRIVMSG $tnchan :$arg" }

(From the gotecho proc)

After doing that - it seems to repeat the text in the wrong channel. I'll toy with it a bit more.

Statistics: Posted by tainted — Sat Dec 21, 2002 8:27 pm

Problem with echoscript

2002-12-21T16:12:38-04:00

Got problem when echoing a bot on the same server on another channel.
I can succesfully load the tcl when starting eggdrop, but when the on the moment that the bot says something , that supposed to be echoied in mychannel, I get the following error in the partyline & the text isn't echoied.

Tcl error [gotechoTN]: missing close-bracket

I have already searched to fix it but didn't found it yet, maybe someone can help me out ?

tcl script:

Code:

<-totalNFO 1.0 by GoMp->##-#This is a script that will make your bot join the NFOrce-channel#and echo everything the bot nforce says to a specified chan,#meaning all the latest releases will be displayed to your chan...#Note: Only tested on EFnet#-#Variable definingset tnchan "#mychannel"; #the channels the bot will echo to#<- end ->set tnvers "1.0"set tnnick "NFOrce"proc tnlog {msg} { putlog "\002.:totalNFO:.\002 $msg" }proc gotechoTN {nick uhost hand chan arg} {global tnchan tnnickif {[string tolower $nick] == [string tolower $tnnick]} {foreach msg [split $tnchan { puthelp "PRIVMSG $tnchan :$arg" }tnlog "$arg"}}proc offechoTN {nick uhost hand chan arg} {global tnnickif {[string tolower $nick] == [string tolower $tnnick]} {tnlog "the NFOrce bot has quit IRC..."}}proc onechoTN {nick uhost hand chan} {global tnnickif {[string tolower $nick] == [string tolower $tnnick]} {tnlog "the NFOrce bot has joined #NFOrce again. Logging re-started..."}}proc nickchoTN {nick uhost hand chan newnick} {global tnnickif {[string tolower $nick] == [string tolower $tnnick]} {tnlog "the NFOrce bot has changed nick from $nick to ${newnick}: echoing will only work on someone with nick 'NFOrce'..."}}bind pubm - * gotechoTNbind sign - * offechoTNbind join - * onechoTNbind nick - * nickchoTNset tnmatch 0set tnchans [channels]foreach tnchan $tnchans { if {[string tolower [join $tnchan]] == "#nforce"} { set tnmatch 1 }}if {!$tnmatch} {tnlog "#nforce was not found in the channel list: adding #nforce to the channel list..."channel add "#nforce"}putlog "\002:-: totalNFO v${tnvers}\002 by GoMp < http://www.g0mp.org/gomp/ > loaded... \002:-:\002"

[/size][/b]

Statistics: Posted by Guest — Sat Dec 21, 2002 4:12 pm