egghelp/eggheads community

How to use a tcl script on two #channels?

2009-06-17T00:54:57-04:00

my pleasure, fine it works out

please also add [SOLVED] to your threads topic as a prefix if it has been solved

Statistics: Posted by raider2k — Wed Jun 17, 2009 12:54 am

How to use a tcl script on two #channels?

2009-06-16T12:49:39-04:00

Thank you!:). Worked perfectly!

Statistics: Posted by N30 — Tue Jun 16, 2009 12:49 pm

How to use a tcl script on two #channels?

2009-06-16T11:16:38-04:00

usually that one should do the trick, untested though:

Code:

Script =set listenport ""# port for your script you want to listen on (you need to set same port in php script)set password ""# password (you need to set same password in php script)set multichannels [list #channel1 #channel2]# channel you want to send output to# add more channels if you want using the same way as abovelisten $listenport script botlistenproc botlisten {idx} {control $idx botlisten2}proc botlisten2 {idx args} {set args [join $args]set password1 [lindex [split $args] 0]set message [join [lrange [split $args] 1 end]]if {[string match $::password $password1]} {# NEW FROM HEREforeach cchannel $::multichannels {putquick "PRIVMSG $cchannel :$message"# NEW END HERE}} else {putlog "Unauthorized person tried to connect to the bot"}}

correct syntax ftw!

Statistics: Posted by raider2k — Tue Jun 16, 2009 11:16 am

How to use a tcl script on two #channels?

2009-06-16T09:53:31-04:00

How to edit "Set Chan " so i can use 2 #channels?
Script =
set listenport ""

# port for your script you want to listen on (you need to set same port in php script)

set password ""

# password (you need to set same password in php script)

set chan ""

# channel you want to send output to

listen $listenport script botlisten

proc botlisten {idx} {
control $idx botlisten2
}

proc botlisten2 {idx args} {

set args [join $args]
set password1 [lindex [split $args] 0]
set message [join [lrange [split $args] 1 end]]

if {[string match $::password $password1]} {
putquick "PRIVMSG $::chan :$message"
} else {
putlog "Unauthorized person tried to connect to the bot"
}
}

Statistics: Posted by N30 — Tue Jun 16, 2009 9:53 am