mIRC Homepage
Posted By: Kendy Please help me fixed code Relay snippets - 12/05/20 03:01 PM
Hello friends. I found this Relay snippets code on the internet, I copied and pasted it into mIRC's remote (Alt + R) and installed it as instructed but still didn't work. I posted here to ask you to help me how it works on my following servers: 1. Server 1: irc7.davang.org (port 6667) + channel = #davang; 2.Server 2: irc.turboirc.net (port 6667) + channel = #misfits.
I want all the information in room #misfits to post to #davang of server1. You give detailed instructions on how to install and set parameters for it to work, if possible you can instead help yourself with the above information in this script. Thank you dear friends and look forward to hearing from you soon with the completed snippets.

Here is the code:

###############################################
# Relay script 1.0 by ChiefDean
# irc.HeatWaveIRC.net #Heatwave
###############################################

Menu * {
-
Relay Setup: {
set %serv1 $input(Enter Server One here.,e,Relay Script 1.0 by ChiefDean)
set %chan1 $input(Enter Channel One here.,e,Relay Script 1.0 by ChiefDean)
set %serv2 $input(Enter Server Two here.,e,Relay Script 1.0 by ChiefDean)
set %chan2 $input(Enter Channel Two here,e,Relay Script 1.0 by ChiefDean)
if ($numtok(%serv1 %chan1 %serv2 %chan2,32) == 4) { $input(Setup Complete.Remember to turn the power on!,,Script 1.0 by ChiefDean) }
else { $input(Critical Setup Error! Please return to Relay Setup and Start over!,,Script 1.0 by ChiefDean) }
}
$iif($group(#Relay) == On,$style(1)) Relay Power Switch
.$iif($group(#Relay) == On,$style(2)) On: .enable #Relay
.$iif($group(#Relay) == Off,$style(2)) Off: .disable #Relay

-
}
alias -l net {
var %netcount $scon(0)
while %netcount {
if ($scon(%netcount).network == $1) { var %netid %netcount }
dec %netcount
}
scon %netid return $!cid
}
alias -l relay {
scid $net($1)
if ($me ison $3) { $2- }
}
alias -l RCheck {
if ($1 == $2) && ($3 == $4) { return 1 }
else return 0
}
#Relay on
on *:TEXT:*:#:{
if ($rcheck($network,%serv1,$chan,%chan1)) { relay %serv2 msg %chan2 $+(04<,04,14,$nick,04@,14,$network,04,>) $1- }
elseif ($rcheck($network,%serv2,$chan,%chan2)) { relay %serv1 msg %chan1 $+(04<,04,14,$nick,04@,14,$network,04,>) $1- }
}
on *:MODE:#:{
if ($rcheck($network,%serv1,$chan,%chan1)) { relay %serv2 msg %chan2 $+(04<,04,14,Mode,04@,14,$network,04,>) $nick sets mode $1- }
elseif ($rcheck($network,%serv2,$chan,%chan2)) { relay %serv1 msg %chan1 $+(04<,04,14,Mode,04@,14,$network,04,>) $nick sets mode $1- }
}
on *:NICK: {
if ($rcheck($network,%serv1)) { relay %serv2 msg %chan2 $+(04<,14,Nick Change,04@,14,$network,04,>) $nick is now known as $newnick }
elseif ($rcheck($network,%serv2)) { relay %serv1 msg %chan1 $+(04<,14,Nick Change,04@,14,$network,04,>) $nick is now known as $newnick }
}
on *:join:#: {
if ($rcheck($network,%serv1,$chan,%chan1)) { relay %serv2 msg %chan2 $+(04<,14,Join,04@,14,$network,04,>) $Nick has joined $chan }
elseif ($rcheck($network,%serv2,$chan,%chan2)) { relay %serv1 msg %chan1 $+(04<,14,Join,04@,14,$network,04,>) $Nick has joined $chan }
}
on *:kick:#: {
if ($rcheck($network,%serv1,$chan,%chan1)) { relay %serv2 msg %chan2 $+(04<,14,Kick,04@,14,$network,04,>) $knick gets kicked from $chan by $+($nick,.) }
elseif ($rcheck($network,%serv2,$chan,%chan2)) { relay %serv1 msg %chan1 $+(04<,14,Kick,04@,14,$network,04,>) $knick gets kicked from $chan by $+($nick,.) }
}
on *:part:#: {
if ($rcheck($network,%serv1,$chan,%chan1)) { relay %serv2 msg %chan2 $+(04<,14,Part,04@,14,$network,04,>) $Nick has left $chan }
elseif ($rcheck($network,%serv2,$chan,%chan2)) { relay %serv1 msg %chan1 $+(04<,14,Part,04@,14,$network,04,>) $Nick has left $chan }
}
on *:ACTION:*:#: {
if ($rcheck($network,%serv1,$chan,%chan1)) { relay %serv2 msg %chan2 $+(04<,04,14,$nick,04@,14,$network,04,>) 6* $nick $1- }
elseif ($rcheck($network,%serv2,$chan,%chan2)) { relay %serv1 msg %chan1 $+(04<,14,$nick,04@,14,$network,04,>) 6* $nick $1- }
}
on 1:QUIT: {
if ($rcheck($network,%serv1)) { relay %serv2 msg %chan2 14 $+ $nick Quit $+($network,.) }
elseif ($rcheck($network,%serv2)) { relay %serv1 msg %chan1 14 $+ $nick Quit $+($network,.) }
}
#Relay End
Posted By: Kendy Re:Please help me fixed code Relay snippets - 12/05/20 03:31 PM
Additional questions:
1. Do I use one or two mIRCs at the same time? How is each mIRC used for a server?
2. Or can I use an mIRC after connecting to server1 then use the command / server -m server2 to connect?
Thank you for your enthusiastic guidance and help. I sincerely thank you all
© mIRC Discussion Forums