Relay Script 1.0

[chain]

Relay Script 1.0

 

ChiefDean's Cross-Server Relay script.

 

Description:

This script takes any motion in a certain channel on a certain network, and displays it on a totally different network on a totally different channel.

 

Usage:

1.) Copy snippet and paste it into mIRC remotes (Alt+r)

2.) Go to any channel and right click in the channel.

3.) Go to "Relay setup"

4.) Enter in:

-Server one Name.

-Server one Channel.

-Server two Name.

-Server two Channel.

5.) Make sure the relay bot is on both servers, and both channels.

6.) Enjoy your new Relay bot!

 

>################################################ 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 onon *: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,$chan,%chan1)) { relay %serv2 msg %chan2 $+(04«,14,nick,04@,14,$network,04,») $nick is now known as $newnick }  elseif ($rcheck($network,%serv2,$chan,%chan2)) { relay %serv1 msg %chan1 $+(04«,14,nick,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 joins $chan }  elseif ($rcheck($network,%serv2,$chan,%chan2)) { relay %serv1 msg %chan1 $+(04«,14,join,04@,14,$network,04,») $Nick joins $chan }}  on *:quit: {    if ($rcheck($network,%serv1,$chan,%chan1)) { relay %serv2 msg %chan2 14 $+ $nick has just quit $+($network,.) }  elseif ($rcheck($network,%serv2,$chan,%chan2)) { relay %serv1 msg %chan1 14 $+ $nick has just quit $+($network,.) }   } 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 parts $chan }  elseif ($rcheck($network,%serv2,$chan,%chan2)) { relay %serv1 msg %chan1 $+(04«,14,part,04@,14,$network,04,») $Nick parts $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- }}#Relay End