Code:

# Use this script with spychan.tcl# it unbinds the binds from that script, to effect an "off"# and will rebind them, to effect and "on"## Usage: For "off", send:         /msg <botnick> !unbind-spy##        For "on", send:          /msg <botnick> !rebind-spy## As is, this script will only allow users with +o flag to trigger it.#bind msg o "!rebind-spy" rebind:spybind msg o "!unbind-spy" unbind:spyproc rebind:spy {nick uhost handle text} {global spybind 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 unbind:spy {nick uhost handle text} {global spyunbind PUBM   -|- *                spychan:chatunbind CTCP   -|- "ACTION"         spychan:actionunbind SIGN   -|- "$spy(chan) *"   spychan:signunbind JOIN   -|- "$spy(chan) *"   spychan:joinunbind PART   -|- "$spy(chan) *"   spychan:partunbind SPLT   -|- "$spy(chan) *"   spychan:splitunbind KICK   -|- "$spy(chan) *"   spychan:kickunbind RAW     *  "MODE"           spychan:mode }

Code:

# Info# Author : MeTroiD - #v1per on Quakenet# Version: 1.2set spy(author)  "MeTroiD - #v1per on Quakenet"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) "#twilight-zone"# The channel it gets all the data from and then reports it to the homechannelset spy(chan) "#v1per"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:modesetudef flag spychanproc spychan:part { nickname hostname handle channel reason } {   global spyif {([lsearch -exact [channel info $channel] {+spychan}] != -1)} {   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 spyif {([lsearch -exact [channel info $channel] {+spychan}] != -1)} {   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 spyif {([lsearch -exact [channel info $channel] {+spychan}] != -1)} {   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]]if {([lsearch -exact [channel info $channel] {+spychan}] != -1)} {   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 spyif {([lsearch -exact [channel info $channel] {+spychan}] != -1)} {   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 spyif {([lsearch -exact [channel info $channel] {+spychan}] != -1)} {   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 spyif {([lsearch -exact [channel info $channel] {+spychan}] != -1)} {   if {[string equal -nocase $channel $spy(chan)]} {        putserv "PRIVMSG $spy(home) :\[$channel\] <$nickname> $arguments"        }}       }proc spychan:action { nickname hostname handle channel keyword arguments } {   global spyif {([lsearch -exact [channel info $channel] {+spychan}] != -1)} {   if {[string equal -nocase $channel $spy(chan)]} {        putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname $arguments"        }}       }putlog "Spychan.tcl version $spy(version) by $spy(author) Loaded!" 

Code:

# Info# Author : MeTroiD - #v1per on Quakenet# Version: 1.2set spy(author)  "MeTroiD - #v1per on Quakenet"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) "#twilight-zone"# The channel it gets all the data from and then reports it to the homechannelset spy(chan) "#v1per"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:modeproc spychan:part { nickname hostname handle channel reason } {global spyif {[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 spyif {[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 spyif {[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 spyset 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 spyif {[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 spyif {[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 spyif {[string equal -nocase $channel $spy(chan)]} {        putserv "PRIVMSG $spy(home) :\[$channel\] <$nickname> $arguments"        }       }proc spychan:action { nickname hostname handle channel keyword arguments } {global spyif {[string equal -nocase $channel $spy(chan)]} {        putserv "PRIVMSG $spy(home) :\[$channel\] * $nickname $arguments"        }       }putlog "Spychan.tcl version $spy(version) by $spy(author) Loaded!"