This is a pretty simple channel link script. Only works for one server at a time.

msg
action
topic
nickchange
channel notice
modes
quits
kicks
parts
bans
are all supported by this script.
if you want to make it so anyone can use it remove the if ($ulevel >= 4) { and the } at the bottom of the on text
or else add your host to the bots user level with /auser 4 Hosthere

I know it's pretty basic but it works well.

on *:text:*:#: { 
  if ($ulevel >= 4) {
    if ($1 == !link && $3 && !%spy && $me ison $2 && $3) {
    set %l1 $2 | set %l2 $3 | set %spy on | msg %l1 Linking between %l1 and %l2 | msg %l2 Linking between %l2 and %l1 } 
    if ($1 == !delink) && (%spy) {
    unset %spy | msg %l1 Stopped linking %l1 and %l2 | msg %l2 Stopped linking %l1 and %l2 | unset %l1 | unset %l2 }
  } 
  if (%spy) { if ($chan == %l1 || # == %l2) { msg $iif(%l1 == #, %l2,%l1) ( $+ $iif(%l1 == #, %l1,%l2) $+ ) ( $+ $nick $+ : $+ ) $1- } 
  } 
}

alias link { set %l1 $1 | set %l2 $2 | set %spy on }

on *:action:*:%l1,%l2: {
  if (%spy) { msg $iif(%l1 == #, %l2,%l1) ( $+ $iif(%l1 == #, %l1,%l2) $+  ) * $+ $nick $1- }
}
on *:part:%l1,%l2: { 
  if (%spy) { msg $iif(%l1 == #, %l2,%l1) ( $+ $nick parted from $iif(%l1 == #, %l1,%l2) $+ ) 
  }
} 
on *:join:%l1,%l2: { 
  if (%spy) { msg $iif(%l1 == #, %l2,%l1) ( $+ $nick joined $iif(%l1 == #, %l1,%l2) $+ ) 
  }
}
on *:kick:%l1,%l2: {
  if (%spy) { msg $iif(%l1 == #, %l2,%l1) ( $+ $iif(%l1 == #, %l2,%l1) $+ ) $knick was kicked from $iif(%l1 == #, %l1,%l2) $+ : ( $+ $1- $+ ) 
  } 
}
on *:rawmode:%l1,%l2: {
  if (%spy) { msg $iif(%l1 == #,%l2,%l1) ( $+ $iif(%l1 == #, %l1,%l2) $+ / $+  $+ ) ( $+ $nick sets mode $1- for $iif(# == %l1, %l1, %l2) $+ ) 
  } 
}
on *:topic:%l1,%l2: {
  if (%spy) { msg $iif(%l1 == #,%l2,%l1) ( $+ $nick sets the topic for $iif(%l1 == #,%l1,%l2) to: $1- $+ ) 
  } 
}
on *:notice:*:%l1,%l2: {
  if (%spy) { msg $iif(%l1 == #,%l2,%l1) ( $+ $nick sent a notice to $iif(%l1 == #,%l1,%l2) with the message of: $1- $+ ) 
  } 
}
on *:nick: {
  if (%spy) { var %x = 1 
    while ($comchan($nick,0) >= %x) { 
      if ($comchan($newnick,%x) == %l1 || $comchan($newnick,%x) == %l2) { msg $iif($comchan($newnick,%x) == %l1,%l2,%l1) ( $+  $nick is now known as $newnick $+ ) 
        inc %x 
      }
    }
  } 
}
on *:quit: { 
  if (%spy) { var %x = 1 
    while ($comchan($nick,0) >= %x) {
      if ($comchan($nick,%x) == %l1 || $comchan($nick,%x) == %l2) { msg $iif($comchan($nick,%x) == %l1,%l2,%l1) ( $+ $nick $+ ( $+ $address($nick,2) $+ ) has Quit IRC: $1- $+ ) 
      inc %x }
    }
  }
}