Code: Select all
# Rls: NiCk_SpY.tcl .v1.0
# Date: 19/04/10
# Coded by: SaNcTuM
# Contact: #a.b.inner-sanctum@EFNET
#########################
set spy(home) "#steve"
set spy(chan) "#tsara"
set spy(nick) "doggo"
## Script Starts Here - DO NOT EDIT BELOW! ##
bind PUBM -|- * spychan:chat
proc spychan:chat { nickname hostname handle channel arguments } {
global spy
if {$spy(nick) == $nickname} {
if {[string equal -nocase $channel $spy(chan)]} {
putquick "PRIVMSG $spy(home) : $arguments"
}
}
}
putlog "NiCk_SpY.tcl #alt.binaries.inner-sanctum"
Code: Select all
[01:52pm] * Attempting to rejoin channel #tsara
[01:52pm] * Rejoined channel #tsara
[#tsara]
• synched in 2103wks 5days 12hrs 52mins 10secs
[end]
[01:52pm] <dog> this is a test
[01:52pm] <dog> see how it didnt work
[01:53pm] <dog> let me change my nick
[01:53pm] * dog is now known as doggo
[01:53pm] <doggo> this is another test :)
Code: Select all
[01:52pm] * Attempting to rejoin channel #steve
[01:52pm] * Rejoined channel #steve
[#steve]
• synched in 2103wks 5days 12hrs 52mins 47secs
[end]
[01:53pm] * dog is now known as doggo
[01:53pm] <tsara> this is another test :)