egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-02-05T20:52:55-04:00 https://forum.eggheads.org/app.php/feed/topic/9113 2005-02-05T20:52:55-04:00 2005-02-05T20:52:55-04:00 https://forum.eggheads.org/viewtopic.php?p=46308#p46308 <![CDATA[chan relay script mod]]>
When I try to !spychan, it doesn't join the channel and start spying on it (it seems it can't re-write $spy(chan))

Then, when I try !spypeek, I get the error Tcl error [set:spypeek]: invalid channel "" -- (In the original script, I have $spy(chan) "" <--set to that, but I have tried setting it to others, then !spychan and !spypeek, and it says the same error Tcl error [set:spypeek]: invalid channel "#testomg"

Statistics: Posted by dossi — Sat Feb 05, 2005 8:52 pm

]]> 2005-02-05T20:37:30-04:00 2005-02-05T20:37:30-04:00 https://forum.eggheads.org/viewtopic.php?p=46307#p46307 <![CDATA[chan relay script mod]]>
Hmm, I'm getting a few errors --

[17:35] Tcl error [set:spypeek]: can't read "spy(chan)": no such variable
(When trying to !spypeek and the others)
Remove the $ in the "global" line in each proc.
e.g. change

Code: 

global $spy(chan)
to

Code: 

global spy(chan)
or

Code: 

global spy

Statistics: Posted by Sir_Fz — Sat Feb 05, 2005 8:37 pm

]]> 2005-02-05T20:33:48-04:00 2005-02-05T20:33:48-04:00 https://forum.eggheads.org/viewtopic.php?p=46306#p46306 <![CDATA[chan relay script mod]]>

Code: 

global spy

Statistics: Posted by greenbear — Sat Feb 05, 2005 8:33 pm

]]> 2005-02-05T19:46:05-04:00 2005-02-05T19:46:05-04:00 https://forum.eggheads.org/viewtopic.php?p=46303#p46303 <![CDATA[chan relay script mod]]>
Hmm, I'm getting a few errors --

[17:35] Tcl error [set:spypeek]: can't read "spy(chan)": no such variable
(When trying to !spypeek and the others)
Remove the $ in the "global" line in each proc.
e.g. change

Code: 

global $spy(chan)
to

Code: 

global spy(chan)

Statistics: Posted by avilon — Sat Feb 05, 2005 7:46 pm

]]> 2005-02-05T19:36:42-04:00 2005-02-05T19:36:42-04:00 https://forum.eggheads.org/viewtopic.php?p=46302#p46302 <![CDATA[chan relay script mod]]>
[17:35] Tcl error [set:spypeek]: can't read "spy(chan)": no such variable
(When trying to !spypeek and the others)

Statistics: Posted by dossi — Sat Feb 05, 2005 7:36 pm

]]> 2005-02-05T08:46:46-04:00 2005-02-05T08:46:46-04:00 https://forum.eggheads.org/viewtopic.php?p=46276#p46276 <![CDATA[Re: chan relay script mod]]>
I found a script that relays what's happening in one channel, to another but I was wondering if someone could make public commands for it -- ex.

?spychan <chan> (bot joins channel and sets the variable $spy(chan) to <chan>

?spyoff (bot leaves channel and turns spying off [sets $spy(chan) to ""])

?spypeek (shows all names in spy channel, ops: voice: normalSmiley

?spyrelay <chan> (sets the $spy(home) to <chan>Wink

Here is the script:

Code: 

 # Info# Author : MeTroiD - #v1per on Quakenet# Version: 1.2set spy(author)  "MeTroiD"set spy(version) "1.2" # Description # This script will relay anything said on one channel to the other channel you configure# I recommend you don't run this script on a bot that already has to do alot# If the channel you're spying on has alot of users with alot of talking your bot could excess flood # Configuration # The channel it reports everything toset spy(home) "#home" # The channel it gets all the data from and then reports it to the homechannelset spy(chan) "#chan"  bind PUBM   -|- *      spychan:chatbind CTCP   -|- "ACTION"    spychan:actionbind SIGN   -|- "$spy(chan) *"   spychan:signbind JOIN   -|- "$spy(chan) *"   spychan:joinbind PART   -|- "$spy(chan) *"   spychan:partbind SPLT   -|- "$spy(chan) *"   spychan:splitbind KICK   -|- "$spy(chan) *"   spychan:kickbind RAW     *  "MODE"      spychan:mode  proc spychan:part { nickname hostname handle channel reason } { global spy if {[string equal -nocase $channel $spy(chan)]} { putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname ($hostname) has left $spy(chan)" }  }  proc spychan:join { nickname hostname handle channel } { global spy if {[string equal -nocase $channel $spy(chan)]} { putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname ($hostname) has joined $spy(chan)" }  } proc spychan:kick { nickname hostname handle channel target reason } { global spy if {[string equal -nocase $channel $spy(chan)]} { putserv "PRIVMSG $spy(home) :\[$channel\] * $target was kicked from $spy(chan) by $nickname ($reason)" }  } proc spychan:mode { from key arguments } { global spy set channel [string trim [lindex [split $arguments] 0]]   set modechange [string trim [lindex [split $arguments] 1]]   set victims [string trim [join [lrange [split $arguments] 2 end]]]    set nickname [string trim [lindex [split $from "!"] 0]]   set hostname [string trim [lindex [split $from "!"] 1]] if {[string equal -nocase $channel $spy(chan)]} { putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname sets mode: $modechange $victims" }  } proc spychan:sign { nickname hostname handle channel reason } { global spy if {[string equal -nocase $channel $spy(chan)]} { putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname ($hostname) has quit IRC ($reason)" }  } proc spychan:split { nickname hostname handle channel arguments } { global spy if {[string equal -nocase $channel $spy(chan)]} { putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname has split from the network" }  } proc spychan:chat { nickname hostname handle channel arguments } { global spy if {[string equal -nocase $channel $spy(chan)]} {   putserv "PRIVMSG $spy(home) :\[$channel\] <$nickname> $arguments"   }  } proc spychan:action { nickname hostname handle channel keyword arguments } { global spy if {[string equal -nocase $channel $spy(chan)]} {   putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname $arguments"   }  }  putlog "spy $spy(version) loaded"
Any help/guidance is appriciated.
Here are the small binds and procs you requested. Try to combine them into your script now:

Code: 

bind pub - "!spychan" set:spychanproc set:spychan {nick uhost hand chan text} { global $spy(chan) if {[string index $text 0] == "#"} { set $spy(chan) [lindex $text 0] }}bind pub - "!spyoff" set:spyoffproc set:spyoff {nick uhost hand chan text} { global $spy(chan) channel remove $spy(chan) set $spy(chan) "" }}bind pub - "!spypeek" set:spypeekproc set:spypeek {nick uhost hand chan text} { global $spy(chan) putserv "PRIVMSG $chan :Status for $spy(chan): [chanlist $spy(chan)]"}bind pub - "!spyrelay" set:spyrelayproc set:spyrelay {nick uhost hand chan text} { global $spy(home) if {[string index $text 0] == "#"} { set $spy(home) [lindex $text 0] }}

Statistics: Posted by awyeah — Sat Feb 05, 2005 8:46 am

]]> 2005-02-05T19:19:04-04:00 2005-02-04T23:48:40-04:00 https://forum.eggheads.org/viewtopic.php?p=46272#p46272 <![CDATA[chan relay script mod]]>
?spychan <chan> (bot joins channel and sets the variable $spy(chan) to <chan>

?spyoff (bot leaves channel and turns spying off [sets $spy(chan) to ""])

?spypeek (shows all names in spy channel, ops: voice: normal)

?spyrelay <chan> (sets the $spy(home) to <chan>

Here is the script:

Code: 

 # Info# Author : MeTroiD - #v1per on Quakenet# Version: 1.2set spy(author)  "MeTroiD"set spy(version) "1.2" # Description # This script will relay anything said on one channel to the other channel you configure# I recommend you don't run this script on a bot that already has to do alot# If the channel you're spying on has alot of users with alot of talking your bot could excess flood # Configuration # The channel it reports everything toset spy(home) "#home" # The channel it gets all the data from and then reports it to the homechannelset spy(chan) "#chan"  bind PUBM   -|- *      spychan:chatbind CTCP   -|- "ACTION"    spychan:actionbind SIGN   -|- "$spy(chan) *"   spychan:signbind JOIN   -|- "$spy(chan) *"   spychan:joinbind PART   -|- "$spy(chan) *"   spychan:partbind SPLT   -|- "$spy(chan) *"   spychan:splitbind KICK   -|- "$spy(chan) *"   spychan:kickbind RAW     *  "MODE"      spychan:mode  proc spychan:part { nickname hostname handle channel reason } { global spy if {[string equal -nocase $channel $spy(chan)]} { putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname ($hostname) has left $spy(chan)" }  }  proc spychan:join { nickname hostname handle channel } { global spy if {[string equal -nocase $channel $spy(chan)]} { putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname ($hostname) has joined $spy(chan)" }  } proc spychan:kick { nickname hostname handle channel target reason } { global spy if {[string equal -nocase $channel $spy(chan)]} { putserv "PRIVMSG $spy(home) :\[$channel\] * $target was kicked from $spy(chan) by $nickname ($reason)" }  } proc spychan:mode { from key arguments } { global spy set channel [string trim [lindex [split $arguments] 0]]   set modechange [string trim [lindex [split $arguments] 1]]   set victims [string trim [join [lrange [split $arguments] 2 end]]]    set nickname [string trim [lindex [split $from "!"] 0]]   set hostname [string trim [lindex [split $from "!"] 1]] if {[string equal -nocase $channel $spy(chan)]} { putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname sets mode: $modechange $victims" }  } proc spychan:sign { nickname hostname handle channel reason } { global spy if {[string equal -nocase $channel $spy(chan)]} { putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname ($hostname) has quit IRC ($reason)" }  } proc spychan:split { nickname hostname handle channel arguments } { global spy if {[string equal -nocase $channel $spy(chan)]} { putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname has split from the network" }  } proc spychan:chat { nickname hostname handle channel arguments } { global spy if {[string equal -nocase $channel $spy(chan)]} {   putserv "PRIVMSG $spy(home) :\[$channel\] <$nickname> $arguments"   }  } proc spychan:action { nickname hostname handle channel keyword arguments } { global spy if {[string equal -nocase $channel $spy(chan)]} {   putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname $arguments"   }  }  putlog "spy $spy(version) loaded"
Any help/guidance is appriciated.

Statistics: Posted by dossi — Fri Feb 04, 2005 11:48 pm

]]>