chan relay script mod

[dossi]

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: normal)

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

Here is the script:

Code: Select all

 # Info
# Author : MeTroiD - #v1per on Quakenet
# Version: 1.2
set 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 to
set spy(home) "#home"
 
# The channel it gets all the data from and then reports it to the homechannel
set spy(chan) "#chan"
 
 
bind PUBM   -|- *      spychan:chat
bind CTCP   -|- "ACTION"    spychan:action
bind SIGN   -|- "$spy(chan) *"   spychan:sign
bind JOIN   -|- "$spy(chan) *"   spychan:join
bind PART   -|- "$spy(chan) *"   spychan:part
bind SPLT   -|- "$spy(chan) *"   spychan:split
bind KICK   -|- "$spy(chan) *"   spychan:kick
bind 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.

[awyeah]

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: Select all

 # Info
# Author : MeTroiD - #v1per on Quakenet
# Version: 1.2
set 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 to
set spy(home) "#home"
 
# The channel it gets all the data from and then reports it to the homechannel
set spy(chan) "#chan"
 
 
bind PUBM   -|- *      spychan:chat
bind CTCP   -|- "ACTION"    spychan:action
bind SIGN   -|- "$spy(chan) *"   spychan:sign
bind JOIN   -|- "$spy(chan) *"   spychan:join
bind PART   -|- "$spy(chan) *"   spychan:part
bind SPLT   -|- "$spy(chan) *"   spychan:split
bind KICK   -|- "$spy(chan) *"   spychan:kick
bind 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: Select all

bind pub - "!spychan" set:spychan

proc 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:spyoff

proc set:spyoff {nick uhost hand chan text} {
 global $spy(chan)
 channel remove $spy(chan)
 set $spy(chan) ""
 }
}


bind pub - "!spypeek" set:spypeek

proc set:spypeek {nick uhost hand chan text} {
 global $spy(chan)
 putserv "PRIVMSG $chan :Status for $spy(chan): [chanlist $spy(chan)]"
}


bind pub - "!spyrelay" set:spyrelay

proc set:spyrelay {nick uhost hand chan text} {
 global $spy(home)
 if {[string index $text 0] == "#"} {
 set $spy(home) [lindex $text 0]
 }
}

[dossi]

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)

[avilon]

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: Select all

global $spy(chan)

to

Code: Select all

global spy(chan) 

[greenbear]

actually, 'spy' is is an array, so it should be just

Code: Select all

global spy

[Sir_Fz]

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: Select all

global $spy(chan)

to

Code: Select all

global spy(chan) 

or

Code: Select all

global spy

[dossi]

Ok, that works -- Thanks for the help so far, but I have a few more errors

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"