egghelp/eggheads community

Relay Script.

2008-03-29T17:09:39-04:00

Works great! THANK YOU!

Statistics: Posted by Branden — Sat Mar 29, 2008 5:09 pm

Relay Script.

2008-03-29T16:38:37-04:00

Code:

bind msgm - {*} relaybind notc - {*} relayproc relay {nick host hand text {dest ""}} {    if {([info exists dest] || $dest != "") && [isbotnick $dest]} {        putserv "PRIVMSG #Satanic :--- Received NOTICE --- $nick ($nick!$host) = $text"   } else {        putserv "PRIVMSG #Satanic :--- Received PRIVMSG --- $nick ($nick!$host) = $text"    }}

not tested!

Statistics: Posted by r0t3n — Sat Mar 29, 2008 4:38 pm

Relay Script.

2008-03-29T16:01:58-04:00

Ok... I'm still getting the same error, and I've read the TCL commands file...

I do not understand what I'm doing wrong...

Code:

bind notc - * noticeproc notice {nick uhost hand text {dest ""}} {global botnick; if {$dest == ""} {set dest $botnick}set themessage [lrange $text 0 end]putserv "PRIVMSG #Satanic :--- Recieved NOTICE --- $nick = $themessage"}

[16:02] Tcl error [NOTICE]: wrong # args: should be "NOTICE text"

Statistics: Posted by Branden — Sat Mar 29, 2008 4:01 pm

Relay Script.

2008-03-26T18:41:05-04:00

The command mentioned in your error message doesn't match the name of your proc. Maybe you need to restart to get rid of old binds? Also, you should split $text before you use lrange on it. (or remove that part entirely, as you probably don't need it)

Statistics: Posted by user — Wed Mar 26, 2008 6:41 pm

Relay Script.

2008-03-26T15:28:47-04:00

I tried putting what you put and it didn't work, then I tried this;

Code:

proc notic { nick uhost handle text dest } {global botnickset themessage [lrange $text 0 end]if {$botnick == $dest} {putserv "PRIVMSG #Satanic :--- Recieved NOTICE --- $nick = $themessage"}}

and that didn't work, and I get this error now;

[15:30] Tcl error [NOTICE]: wrong # args: should be "NOTICE text"

Statistics: Posted by Branden — Wed Mar 26, 2008 3:28 pm

Re: Relay Script.

2008-03-26T06:19:00-04:00

Read doc/tcl-commands.doc

bind msgm
procname

bind notc
procname

...As you can see, there's no "chan". And keep in mind that the notc bind is triggered by public notices too, so you have to implement some sort of check to make sure you only relay notices sent to the bot. (Eg.: if {[isbotnick $dest]} {relay})

Statistics: Posted by user — Wed Mar 26, 2008 6:19 am

Relay Script.

2008-03-26T05:23:57-04:00

Ok..... But, can someone help me please?

Statistics: Posted by Branden — Wed Mar 26, 2008 5:23 am

Re: Relay Script.

2008-03-25T21:08:13-04:00

putserv "PRIVMSG #Satanic :$themessage"
putserv "PRIVMSG #Satanic :$themessage"

It just doesn't seem right to help the devil..

Next time, for better effect.. and to show others you don't dance naked in chicken blood while chanting verses from the bible backwards, omit the channel your referencing and just call it #somechan...

Statistics: Posted by speechles — Tue Mar 25, 2008 9:08 pm

Relay Script.

2008-03-25T16:43:58-04:00

I want the script to send all /msg's and /notice's messaged to a channel said by the bot, here is what I have, but fails to work, but no errors;

bind msgm - "*" PM
bind notc - "*" notice

proc PM { nick uhost handle chan text } {
set themessage [lrange $text 0 end]
putserv "PRIVMSG #Satanic :$themessage"
}

proc notic { nick uhost handle chan text dest } {
set themessage [lrange $text 0 end]
putserv "PRIVMSG #Satanic :$themessage"
}

Statistics: Posted by Branden — Tue Mar 25, 2008 4:43 pm