;======================================================
; Relay by Cameron
;======================================================
;
; This will allow you to relay, or link, if you
; will, two or more channels across two or more
; networks.
;
;
; Configuration:
; Relay.networks, this is a list, seperated by a
; space, of all the networks we are going to be
; relaying across.
alias -l relay.networks { return 1andallIRC mIRCAddict Pharos-IRC Replica }
;
; Relay.channels, this is a list, seperated by a
; space, of the channel names that we are going
; to be relaying, the channel names corrispond to
; the relay.networks above.
alias -l relay.channels { return #Chat #Chat #Chat #Chat }
;
; Relay.fmt.text, this is the format of normal
; relayed text.
; $1 = Nick
; $2 = Channel
; $3 = Network
; $4- = Text
alias -l relay.fmt.text { return $+(12<4,$1,12@4 ,$3,12>) $4- }
;
; Relay.fmt.action, this is the format of /me
; relayed text.
; $1 = Nick
; $2 = Channel
; $3 = Network
; $4- = Text
alias -l relay.fmt.action { return 13* $+($1,@,$3,) $4- }
;
; Relay.fmt.quit, this is the format of relayed
; quits.
; $1 = Nick
; $2 = Channel
; $3 = Network
; $4- = Quit Message
;
alias -l relay.fmt.quit { return 9* $+($1,@,$3) Quit $4- }
;
; Relay.fmt.join, this is the format of relayed
; joins.
; $1 = Nick
; $2 = Channel
; $3 = Network
alias -l relay.fmt.join { return 6* $+($1,@,$3) Joins $2 }
;
; Relay.fmt.part, this is the format of relayed
; parts.
; $1 = Nick
; $2 = Channel
; $3 = Network
; $4- = Part Message (if available)
alias -l relay.fmt.part { return 7* $+($1,@,$3) Parts $2 ( $+ $4- $+ ) }
;
; Relay.fmt.kick, this is the format of relayed
; parts.
; $1 = Nick
; $2 = Channel
; $3 = Network
; $4 = Kicker
; $5- = Kick Message
alias -l relay.fmt.kick { return 4* $+($4,@,$3) Kicks $+($1,@,$3) Out of $2 ( $+ $5- $+ ) }
;
; Relay.fmt.mode, this is the format of relayed
; modes.
; $1 = Nick
; $2 = Channel
; $3 = Network
; $4- = Modes
alias -l relay.fmt.mode { /mode #Chat $4- }
;
; Relay.fmt.topic, this is the format of relayed
; topics.
; $1 = Nick
; $2 = Channel
; $3 = Network
; $4- = Topic
alias -l relay.fmt.topic { if ($nick == $me) { HALT }
/topic #Chat $4- 7( $+ $+($1,@,$3) $+ ) }
;
;
on *:text:*:#:{
var %tok = $findtok($relay.networks,$network,1,32)
if ($chan == $gettok($relay.channels,%tok,32)) {
var %lcv = 1
var %tot = $gettok($relay.networks,0,32)
while (%lcv <= %tot) {
var %cid = $cid
var %ncid = $getcidfromnet($gettok($relay.networks,%lcv,32))
if (%ncid != %cid) {
var %net = $network
scid %ncid
msg $gettok($relay.channels,%lcv,32) $relay.fmt.text($nick,$chan,%net,$1-)
scid %cid
}
inc %lcv
}
}
}
on *:action:*:#: {
var %tok = $findtok($relay.networks,$network,1,32)
if ($chan == $gettok($relay.channels,%tok,32)) {
var %lcv = 1
var %tot = $gettok($relay.networks,0,32)
while (%lcv <= %tot) {
var %cid = $cid
var %ncid = $getcidfromnet($gettok($relay.networks,%lcv,32))
if (%ncid != %cid) {
var %net = $network
scid %ncid
msg $gettok($relay.channels,%lcv,32) $relay.fmt.action($nick,$chan,%net,$1-)
scid %cid
}
inc %lcv
}
}
}
on *:quit: {
var %tok = $findtok($relay.networks,$network,1,32)
if ($nick ison $gettok($relay.channels,%tok,32)) {
var %lcv = 1
var %tot = $gettok($relay.networks,0,32)
while (%lcv <= %tot) {
var %cid = $cid
var %ncid = $getcidfromnet($gettok($relay.networks,%lcv,32))
if (%ncid != %cid) {
var %net = $network
scid %ncid
msg $gettok($relay.channels,%lcv,32) $relay.fmt.quit($nick,$gettok($relay.channels,%tok,32),%net,$1-)
scid %cid
}
inc %lcv
}
}
}
on *:join:#: {
if ($nick != $me) {
var %tok = $findtok($relay.networks,$network,1,32)
if ($chan == $gettok($relay.channels,%tok,32)) {
var %lcv = 1
var %tot = $gettok($relay.networks,0,32)
while (%lcv <= %tot) {
var %cid = $cid
var %ncid = $getcidfromnet($gettok($relay.networks,%lcv,32))
if (%ncid != %cid) {
var %net = $network
scid %ncid
msg $gettok($relay.channels,%lcv,32) $relay.fmt.join($nick,$chan,%net)
scid %cid
}
inc %lcv
}
}
}
}
on *:part:#: {
if ($nick != $me) {
var %tok = $findtok($relay.networks,$network,1,32)
if ($chan == $gettok($relay.channels,%tok,32)) {
var %lcv = 1
var %tot = $gettok($relay.networks,0,32)
while (%lcv <= %tot) {
var %cid = $cid
var %ncid = $getcidfromnet($gettok($relay.networks,%lcv,32))
if (%ncid != %cid) {
var %net = $network
scid %ncid
msg $gettok($relay.channels,%lcv,32) $relay.fmt.part($nick,$chan,%net,$1-)
scid %cid
}
inc %lcv
}
}
}
}
on *:KICK:#: {
var %tok = $findtok($relay.networks,$network,1,32)
if ($chan == $gettok($relay.channels,%tok,32)) {
var %lcv = 1
var %tot = $gettok($relay.networks,0,32)
while (%lcv <= %tot) {
var %cid = $cid
var %ncid = $getcidfromnet($gettok($relay.networks,%lcv,32))
if (%ncid != %cid) {
var %net = $network
scid %ncid
msg $gettok($relay.channels,%lcv,32) $relay.fmt.kick($knick,$chan,%net,$nick,$1-)
scid %cid
}
inc %lcv
}
}
}
on *:rawmode:#: {
var %tok = $findtok($relay.networks,$network,1,32)
if ($chan == $gettok($relay.channels,%tok,32)) {
var %lcv = 1
var %tot = $gettok($relay.networks,0,32)
while (%lcv <= %tot) {
var %cid = $cid
var %ncid = $getcidfromnet($gettok($relay.networks,%lcv,32))
if (%ncid != %cid) {
var %net = $network
scid %ncid
$relay.fmt.mode($nick,$chan,%net,$1-)
scid %cid
}
inc %lcv
}
}
}
on *:topic:#: {
var %tok = $findtok($relay.networks,$network,1,32)
if ($chan == $gettok($relay.channels,%tok,32)) {
var %lcv = 1
var %tot = $gettok($relay.networks,0,32)
while (%lcv <= %tot) {
var %cid = $cid
var %ncid = $getcidfromnet($gettok($relay.networks,%lcv,32))
if (%ncid != %cid) {
var %net = $network
scid %ncid
$relay.fmt.topic($nick,$chan,%net,$1-)
scid %cid
}
inc %lcv
}
}
}
alias -l getcidfromnet {
var %lcv = 1
var %tot = $scon(0)
while (%lcv <= %tot) {
if ($scon(%lcv).network == $1) { return $scon(%lcv).cid }
inc %lcv
}
}
on *:TEXT:!servers:* {
msg $nick Current Networks: $relay.networks
closemsg
}
on *:TEXT:!help*:* {
if ($2- == $null) {
msg $nick These commands can be used: !rkick (Channel Ops Only) !rwhois !servers !users
msg $nick You can type !help <command> in a PM for more information on the command. Most commands can only be sent in a PM.
closemsg
}
if ($2- == !rkick) {
msg $nick !rkick <network> <nick> This command will kick <nick> from the channel on <network>. (Operators Only)
closemsg
}
if ($2- == !rwhois) {
msg $nick !rwhois <network> <nick> This returns WHOIS (/whois) information on <nick> from <network>.
closemsg
}
if ($2- == !servers) {
msg $nick !servers This command will show all servers currently connected to the relay.
closemsg
}
if ($2- == !users) {
msg $nick !users This command will return all users currently on the relay, accross all servers.
closemsg
}
}