rendered paste body# CrazyCat Programming Factory
# ___ ____ ____
# / __)___( _ \ ___( ___)
# ( (__(___))___/(___))__)
# \___) (__) (__)
#
# http://www.c-p-f.org
#
######################################
#
# chanrelay.tcl 2.0
#
######################################
#
# A way to link your channels
#
######################################
## DESCRIPTION ##
#
# This TCL is a complete relay script wich works with botnet.
# All you have to do is to include this tcl in all the eggdrop who
# are concerned by it.
#
# You can use it as a spy or a full duplex communication tool.
#
# It don't mind if the eggdrops are on the same server or not,
# it just mind about the channels and the handle of each eggdrop.
## EVOLUTION ##
#
# Based on chanrelay 1.2 (from myself),
# this new version doesn't know any limitation
# whith number of eggdrops or channels.
#
# BUT, because there's a BUT, the system is now a de/multiplexer:
# Each bot transmit to all others, and each receive (so send to his chan)
# from all others.
## CONFIGURATION ##
# Fill the values as you want but don't forget to keep the same order between each array.
set eggdrops {"KillerJinn" "LinuxPassion_"}
set chans {"#linuxtalk" "##linux"}
set networks {"DALnet" "freenode"}
# Remember that all is case sensitive, so don't write DuMmY if your eggdrop is named dummy :)
# Do you want to use bold (1), underline (2) or nothing (0) to higtlight nicknames ?
set high "0"
# Do yo want to indicate from wich network comes the message (y/n)?
set snet "n"
# Do you want the bot transmit actions from the channel (y/n)?
set transmit "y"; # default value is yes
# Do you want the bot recept actions (y/n)?
set receive "y"; # default value is yes
# transmission configuration
set trans_pub "y"; # transmit the pub
set trans_act "y"; # transmit the actions (/me)
set trans_nick "n"; # transmit the nick changement
set trans_join "n"; # transmit the join
set trans_part "n"; # transmit the part
set trans_quit "n"; # transmit the quit
set trans_topic "n"; # transmit the topic changements
set trans_kick "n"; # transmit the kicks
set trans_mode "n"; #transmit the mode changements
# reception configuration
set recv_pub "y"; # recept the pub
set recv_act "y"; # recept the actions (/me)
set recv_nick "n"; # recept the nick changement
set recv_join "n"; # recept the join
set recv_part "n"; # recept the part
set recv_quit "n"; # recept the quit
set recv_topic "n"; # recept the topic changements
set recv_kick "n"; # recept the kicks
set recv_mode "n"; #recept the mode changements
############################################################
#
# The TCL begins here, if you don't know what to do, don't do anything :)
#
############################################################
bind msg o|o "rc.status" help:status
bind msg - "rc.help" help:cmds
if { $high == "1" } {
set hlnick "\002"
} elseif { $high == "2" } {
set hlnick "\037"
} else {
set hlnick ""
}
bind msg o|o "rc.light" set:light
bind msg o|o "rc.net" set:snet
if { $transmit == "y" } {
bind msg o|o "trans" set:trans
if { $trans_pub == "y" } { bind pubm - * trans_pub }
if { $trans_act == "y" } { bind ctcp - "ACTION" trans_act }
if { $trans_nick == "y" } { bind nick - * trans_nick }
if { $trans_join == "y" } { bind join - * trans_join }
if { $trans_part == "y" } { bind part - * trans_part }
if { $trans_quit == "y" } { bind sign - * trans_quit }
if { $trans_topic == "y" } { bind topc - * trans_topic }
if { $trans_kick == "y" } { bind kick - * trans_kick }
if { $trans_mode == "y" } { bind mode - * trans_mode }
}
if { $receive =="y" } {
bind msg o|o "recv" set:recv
if { $recv_pub == "y" } { bind bot - ">pub" recv_pub }
if { $recv_act == "y" } { bind bot - ">act" recv_act }
if { $recv_nick == "y" } { bind bot - ">nick" recv_nick }
if { $recv_join == "y" } { bind bot - ">join" recv_join }
if { $recv_part == "y" } { bind bot - ">part" recv_part }
if { $recv_quit == "y" } { bind bot - ">quit" recv_quit }
if { $recv_topic == "y" } { bind bot - ">topic" recv_topic }
if { $recv_kick == "y" } { bind bot - ">kick" recv_kick }
if { $recv_mode == "y" } { bind bot - ">mode" recv_mode }
}
# proc setting the type of highlight
proc set:light {nick host handle arg } {
global hlnick
if { $arg == "bo" } {
set hlnick "\002"
} elseif { $arg == "un" } {
set hlnick "\037"
} elseif { $arg == "off" } {
set hlnick ""
} else { putquick "NOTICE $nick :you must chose \002(bo)\002ld , \037(un)\037derline or (off)" }
}
proc set:snet {nick host handle arg } {
global snet
if { $arg == "yes" } {
set snet "y"
} elseif { $arg == "no" } {
set snet "n"
} else { putquick "NOTICE $nick :you must chose yes or no" }
}
# proc setting of transmission by msg
proc set:trans { nick host handle arg } {
global botnick transmit
if { $transmit == "y" } {
if { $arg == "" } {
putquick "NOTICE $nick :you'd better try /msg $botnick trans help"
}
if { [lindex [split $arg] 0] == "help" } {
putquick "NOTICE $nick :usage is /msg $botnick trans <value> on|off"
putquick "NOTICE $nick :with <value> = pub, act, nick, join, part, quit, topic, kick, mode"
return 0
} else {
set proc_change "trans_[lindex [split $arg] 0]"
switch [lindex [split $arg] 0] {
"pub" { set type pubm }
"act" { set type ctcp }
"nick" { set type nick }
"join" { set type join }
"part" { set type part }
"quit" { set type sign }
"topic" { set type topc }
"kick" { set type kick }
"mode" { set type mode }
}
if { [lindex [split $arg] 1] == "on" } {
bind $type - * $proc_change
} elseif { [lindex [split $arg] 1] == "off" } {
unbind $type - * $proc_change
} else {
putquick "NOTICE $nick :[lindex [split $arg] 1] is not a correct value, choose \002on\002 or \002off\002"
}
}
} else {
putquick "NOTICE $nick :transmission is not activated, you can't change anything"
}
}
# proc setting of reception by msg
proc set:recv { nick host handle arg } {
global botnick receive
if { $receive == "y" } {
if { $arg == "" } {
putquick "NOTICE $nick :you'd better try /msg $botnick recv help"
}
if { [lindex [split $arg] 0] == "help" } {
putquick "NOTICE $nick :usage is /msg $botnick recv <value> on|off"
putquick "NOTICE $nick :with <value> = pubm, act, nick, join, part, quit, topic, kick, mode"
return 0
} else {
set change ">[lindex [split $arg] 0]"
set proc_change "recv_[lindex [split $arg] 0]"
if { [lindex [split $arg] 1] == "on" } {
bind bot - $change $proc_change
} elseif { [lindex [split $arg] 1] == "off" } {
unbind bot - $change $proc_change
} else {
putquick "NOTICE $nick :[lindex [split $arg] 1] is not a correct value, choose \002on\002 or \002off\002"
}
}
} else {
putquick "NOTICE $nick :reception is not activated, you can't change anything"
}
}
####################################################
#
# Transmission
#
# proc used by all others for transmission
proc trans_bot { usercmd chan usernick text } {
global eggdrops chans botnick
set transmsg [concat $usercmd $usernick $text]
set me [lsearch $eggdrops $botnick]
if {$chan == [lindex $chans $me]} {
putallbots $transmsg
} else {
return 0
}
}
# proc transmission of pub (trans_pubm = y)
proc trans_pub {nick uhost hand chan text} {
trans_bot ">pub" $chan $nick $text
}
# proc transmission of action (trans_act = y)
proc trans_act {nick uhost hand chan key text} {
set arg [concat $key $text]
trans_bot ">act" $chan $nick $arg
}
# proc transmission of nick changement
proc trans_nick {nick uhost hand chan newnick} {
trans_bot ">nick" $chan $nick $newnick
}
# proc transmission of join
proc trans_join {nick uhost hand chan} {
trans_bot ">join" $chan $chan $nick\($uhost\)
}
# proc transmission of part
proc trans_part {nick uhost hand chan text} {
set arg [concat $chan $text]
trans_bot ">part" $chan $nick $arg
}
# proc transmission of quit
proc trans_quit {nick host hand chan text} {
trans_bot ">quit" $chan $nick $text
}
# proc transmission of topic changement
proc trans_topic {nick uhost hand chan topic} {
set arg [concat $chan $topic]
trans_bot ">topic" $chan $nick $arg
}
# proc transmission of kick
proc trans_kick {nick uhost hand chan victim reason} {
set arg [concat $victim $chan $reason]
trans_bot ">kick" $chan $nick $arg
}
# proc transmission of mode changement
proc trans_mode {nick uhost hand chan mc {victim ""}} {
if {$victim != ""} {append mc " $victim" }
set text [concat $nick $chan $mc]
trans_bot ">mode" $chan $nick $text
}
####################################################
#
# Reception
#
# proc reception of pub
proc recv_pub {frm_bot command arg} {
global eggdrops chans hlnick botnick snet networks
if {[set him [lsearch $eggdrops $frm_bot]] >= 0} {
set me [lsearch $eggdrops $botnick]
set recvchan [lindex $chans $me]
set speaker [make_user [lindex [split $arg] 0] $him]
putquick "PRIVMSG $recvchan :$speaker> [lrange $arg 1 end]"
} else {
return 0
}
}
# proc reception of action
proc recv_act {frm_bot command arg} {
global eggdrops chans hlnick botnick snet networks
if {[set him [lsearch $eggdrops $frm_bot]] >= 0} {
set me [lsearch $eggdrops $botnick]
set recvchan [lindex $chans $me]
set speaker [make_user [lindex [split $arg] 0] $him]
putquick "PRIVMSG $recvchan :* $speaker [lrange $arg 2 end]"
} else {
return 0
}
}
# proc reception of nick changement
proc recv_nick {frm_bot command arg} {
global eggdrops chans hlnick botnick snet networks
if {[set him [lsearch $eggdrops $frm_bot]] >= 0} {
set me [lsearch $eggdrops $botnick]
set recvchan [lindex $chans $me]
set speaker [make_user [lindex [split $arg] 0] $him]
putquick "PRIVMSG $recvchan :*** $speaker is now known as [lrange $arg 1 end]"
} else {
return 0
}
}
# proc reception of join
proc recv_join {frm_bot command arg} {
global eggdrops chans hlnick botnick snet networks
if {[set him [lsearch $eggdrops $frm_bot]] >= 0} {
set me [lsearch $eggdrops $botnick]
set recvchan [lindex $chans $me]
set speaker [make_user [lindex [split $arg] 1] $him]
putquick "PRIVMSG $recvchan :--> $speaker has joined channel [lindex [split $arg] 0]"
} else {
return 0
}
}
# proc reception of part
proc recv_part {frm_bot command arg} {
global eggdrops chans hlnick botnick snet networks
if {[set him [lsearch $eggdrops $frm_bot]] >= 0} {
set me [lsearch $eggdrops $botnick]
set recvchan [lindex $chans $me]
set speaker [make_user [lindex [split $arg] 0] $him]
putquick "PRIVMSG $recvchan :<-- $speaker has left channel [lindex [split $arg] 1] ([lrange $arg 2 end])"
} else {
return 0
}
}
# proc reception of quit
proc recv_quit {frm_bot command arg} {
global eggdrops chans hlnick botnick snet networks
if {[set him [lsearch $eggdrops $frm_bot]] >= 0} {
set me [lsearch $eggdrops $botnick]
set recvchan [lindex $chans $me]
set speaker [make_user [lindex [split $arg] 0] $him]
putquick "PRIVMSG $recvchan :-//- $speaker has quit ([lrange $arg 1 end])"
} else {
return 0
}
}
# proc reception of topic changement
proc recv_topic {frm_bot command arg} {
global eggdrops chans hlnick botnick snet networks
if {[set him [lsearch $eggdrops $frm_bot]] >= 0} {
set me [lsearch $eggdrops $botnick]
set recvchan [lindex $chans $me]
set speaker [make_user [lindex [split $arg] 0] $him]
putquick "PRIVMSG $recvchan :*** $speaker changes topic of [lindex [split $arg] 1] to '[lrange $arg 2 end]'"
} else {
return 0
}
}
# proc reception of kick
proc recv_kick {frm_bot command arg} {
global eggdrops chans hlnick botnick snet networks
if {[set him [lsearch $eggdrops $frm_bot]] >= 0} {
set me [lsearch $eggdrops $botnick]
set recvchan [lindex $chans $me]
set speaker [make_user [lindex [split $arg] 1] $him]
putquick "PRIVMSG $recvchan :*** $speaker has been kicked from [lindex [split $arg] 2] by [lindex [split $arg] 0]: [lrange $arg 3 end]"
} else {
return 0
}
}
# proc reception of mode changement
proc recv_mode {frm_bot command arg} {
global eggdrops chans hlnick botnick snet networks
if {[set him [lsearch $eggdrops $frm_bot]] >= 0} {
set me [lsearch $eggdrops $botnick]
set recvchan [lindex $chans $me]
set speaker [make_user [lindex [split $arg] 1] $him]
putquick "PRIVMSG $recvchan :*** $speaker set mode [lrange $arg 2 end]"
} else {
return 0
}
}
proc make_user { unick thenb } {
global snet networks hlnick
if { $snet == "y" } {
set speaker [concat "$hlnick$unick (from [lindex $networks $thenb])$hlnick"]
} else {
set speaker $hlnick$unick$hlnick
}
return $speaker
}
######################################
# proc for helping
#
# proc status
proc help:status { nick host handle arg } {
global trans_pub trans_act trans_nick trans_join trans_part trans_quit trans_topic trans_kick trans_mode recv_pub recv_act recv_nick recv_join recv_part recv_quit recv_topic recv_kick recv_mode hlnick transmit receive chan1 chan2
putquick "PRIVMSG $nick :\002 Global status\002"
putquick "PRIVMSG $nick :\037type\037 -- | trans -|- recept |"
putquick "PRIVMSG $nick :global -- | -- $transmit -- | -- $receive -- |"
putquick "PRIVMSG $nick :pub -- | -- $trans_pub -- | -- $recv_pub -- |"
putquick "PRIVMSG $nick :act -- | -- $trans_act -- | -- $recv_act -- |"
putquick "PRIVMSG $nick :nick -- | -- $trans_nick -- | -- $recv_nick -- |"
putquick "PRIVMSG $nick :join -- | -- $trans_join -- | -- $recv_join -- |"
putquick "PRIVMSG $nick :part -- | -- $trans_part -- | -- $recv_part -- |"
putquick "PRIVMSG $nick :quit -- | -- $trans_quit -- | -- $recv_quit -- |"
putquick "PRIVMSG $nick :topic -- | -- $trans_topic -- | -- $recv_topic -- |"
putquick "PRIVMSG $nick :kick -- | -- $trans_kick -- | -- $recv_kick -- |"
putquick "PRIVMSG $nick :mode -- | -- $trans_mode -- | -- $recv_mode -- |"
putquick "PRIVMSG $nick :nicks appears as $hlnick$nick$hlnick"
putquick "PRIVMSG $nick :[lindex $chan1 0] is on [lindex $chan1 1] and transmit to [lindex $chan1 2]"
putquick "PRIVMSG $nick :[lindex $chan2 0] is on [lindex $chan2 1] and transmit to [lindex $chan2 2]"
putquick "PRIVMSG $nick :\002 END of STATUS"
}
# proc help
proc help:cmds { nick host handle arg } {
global botnick
putquick "NOTICE $nick :/msg $botnick trans <type> on|off to change the transmissions"
putquick "NOTICE $nick :/msg $botnick recv <type> on|off ti change the receptions"
putquick "NOTICE $nick :/msg $botnick rc.status to see my actual status"
putquick "NOTICE $nick :/msg $botnick rc.help for this help"
putquick "NOTICE $nick :/msg $botnick rc.light <bo|un|off> to bold, underline or no higlight"
putquick "NOTICE $nick :/msg $botnick rc.net <yes|no> to show the network"
}
# End !
putlog "CHANRELAY 2.0 by \002CrazyCat\002 loaded - http://library.c-p-f.org"