Forums Scripts & Popups Help with a relay script...

menu channel {
  Relay channels
  .Start {
    set %rel_net_1 $$?="Enter the first network name"
    set %rel_chan_1 $$?="Enter channel name"
    set %rel_net_2 $$?="Enter the other network name?"
    set %rel_chan_2 $$?="Enter channel name"
    echo -at * Now linking %rel_chan_1 ( $+ %rel_net_1 $+ ) to %rel_chan_2 ( $+ %rel_net_2 $+ ).
  }
  .Stop {
    unset %rel_*_*
    echo -at * No longer linking channels.
  }
}

on *:text:*:%rel_chan_1,%rel_chan_2:{
  ;
  ; The tokenized result will be:
  ;
  ; $1 = target network
  ; $2 = target channel
  ; $3- = text
  ;
  if $network $chan == %rel_net_1 %rel_chan_1 {
    tokenize 32 %rel_net_2 %rel_chan_2 $1-
  }
  else {
    tokenize 32 %rel_net_1 %rel_chan_1 $1-
  }
  ;
  ; /scid -at1 loops through any active connection
  ; to find the target network, then messages the target channel.
  ;
  scid -at1 if $1 == $!network && $!me ison $2 { msg $2 ( $+ $nick $+ @ $+ $network $+ ) $3- }
}

menu nicklist {
  Relay
  .Start {
    set %source_nick $1
    set %source_chan #
    set %source_net $network
    set %target_net $$?="Target network?"
    set %target_chan $$?="Target channel?"
  }
  .Stop { unset %source_* %target_* }
}
On *:text:*:%source_chan:{
  if $nick == %source_nick && $network == %source_net {
    scon -at1 if $!network == %target_net && $!me ison %target_chan { msg %target_chan $+(<,$nick,@,$network,>) $1- }
  }
}