Channel to Channel local network relay script

Ryan · Post by **Ryan** » Wed May 28, 2003 12:07 am

Hello, I know that this would be quite simple to do, but I can't seem to understand how. What I am looking to do is create a script for the bot - it will be in two rooms, say #room1 and #room2 - when someone says something in #room1 or someone joins/parts, it is mirriored by the bot into #room2.

e.g

#room1

<Ryan> hello

#room2

<bot> <Ryan> hello

Thank's for any help you can offer

ReaLz · Post by **ReaLz** » Wed May 28, 2003 12:16 am

you can find some scripts like this here.

Ryan · Post by **Ryan** » Wed May 28, 2003 12:20 am

Hi, thanks - correct me if I'm wrong, as I already did look, but arent those all for multi networks? I just one it for one, channel to channel

Ryan · Post by **Ryan** » Wed May 28, 2003 12:24 am

Not sure if it helps any, but it could easily be done in mIRC, just don't know how to do it on here

i.e

on *:TEXT:*:#chan1:/msg #chan2 $nick $1-

Above probably would work, but thats the basics of what I'm looking for, only in eggdrop

ReaLz · Post by **ReaLz** » Wed May 28, 2003 12:28 am

to paste what people say from one to another channel you can use pubm bind, then for joins the join bind and for parts and quits their binds.
here is an example with the pubm bind:

Code: Select all

bind pubm - "*" relay_pubm

proc relay_pubm {nick host handle channel args} {
set otherchan "#gloox"
PRIVMSG $otherchan :($channel) $nick: $args
}

I think it works but I haven't tested it.

Ryan · Post by **Ryan** » Wed May 28, 2003 12:32 am

Hello, I really appriciate your help, two things

1. After rehash, for each line I type:

[04:31] Tcl error [relay_pubm]: invalid command name "PRIVMSG"
[04:31] Tcl error [relay_pubm]: invalid command name "PRIVMSG"

2. Where would I specify the channel to pick up the messages from, then relay to?

Again, thanks for your help

Post by **caesar** » Wed May 28, 2003 2:25 am

Use this code, was fixed for the first and has the second request:

Code: Select all

set mainchan "#main"
set relaychan "#relay"

bind pubm - "*" relay_pubm 

proc relay_pubm {nick host handle channel args} { 
if {[strlwr $channel] != [strlwr $::mainchan]} {
return
}
putserv "PRIVMSG $::relaychan :($channel) $nick: $args"
}

ReaLz · Post by **ReaLz** » Wed May 28, 2003 5:50 am

oops sorry... I forgot the putserv
hehe

Ryan · Post by **Ryan** » Wed May 28, 2003 3:56 pm

Thanks again

Works great