A quiet little channel link that works entirely on socket connections.

Features
Multi-server
Runs quietly in the background
Mostly self-sufficient
Easy to use

Commands
/startlink [channel2 ...] [server2 [channel2 ...] ...]
/stoplink [reason]

Updates
1.1
Fixed nick changing glitch
Fixed problem with quit/part messages
Custom bot nick
1.2
Bot will now announce channels/servers that are linked upon joining a channel

WARNING! This script will accept unlimited servers and unlimited channels, your PC and/or the servers you connect to will not.

;Config

;Nick for bot to use
alias linkbotnick return LinkBot

;End of Conf

alias startlink { 
  if (*.*.* !iswm $1) { echo -at First parameter must be a server, link aborted 
    return
  }
  var %x 1
  while (%x <= $0) { 
    var %c $gettok($1-,%x,32)
    if (*.*.* iswm %c) { set %linkservers $addtok(%linkservers,%c,32) }
    elseif ($left(%c,1) == $chr(35)) { set %linkchannels. [ $+ [ $gettok(%linkservers,-1,32) ] ] $addtok(%linkchannels. [ $+ [ $gettok(%linkservers,-1,32) ] ],%c,44) }
    else { var %i $addtok(%i,%c,32) }
    inc %x
  }
  if (%i) { echo -at ERROR! Invalid paramters: %i $+ . Parameters must be channels or servers }
  var %s $numtok(%linkservers,32)
  while (%s) {
    if (!%linkchannels. [ $+ [ $gettok(%linkservers,%s,32) ] ]) { var %is $addtok(%is,$gettok(%linkservers,%s,32),32) }
    dec %s
  }
  if (%is) { echo -at ERROR! Channels were not specified for the following servers: %is }
  else { var %x $numtok(%linkservers,32) 
    while (%x) { 
      sockopen $+(linkbot-,$gettok(%linkservers,%x,32)) $gettok(%linkservers,%x,32) 6667
      sockmark $+(linkbot-,$gettok(%linkservers,%x,32)) %linkchannels. [ $+ [ $gettok(%linkservers,%x,32) ] ]
      dec %x
    }
  }
}

on *:SOCKOPEN:linkbot-*:{ 
  sockwrite -nt $sockname nick $linkbotnick
  sockwrite -nt $sockname user LinkBot LinkBot LinkBot :mIRC Socket Link Bot by CodeNinja
  sockwrite -nt $sockname join $replace(%linkchannels. [ $+ [ $gettok($sockname,2-,45) ] ],$chr(32),$chr(44))
}

on *:SOCKREAD:linkbot-*:{ sockread %data
  if ($sockerror) { stoplink $sockname encountered an error | halt }
  tokenize 32 %data
  if (($2 == PRIVMSG || $2 == MODE) && $3 == $linkbotnick) { return }
  elseif ($2 == KICK && $4 == $linkbotnick) { sockwrite -nt $sockname JOIN $3 }
  elseif (47? iswm $2) { delinkchan $gettok($sockname,2-,45) $4 }
  elseif ($1 == PING) { sockwrite -nt $sockname PONG $2 }
  elseif ($2 == JOIN && $+(:,$linkbotnick,!*@*) iswm $1) { showlinks $sockname $right($3,-1) }
  elseif ($regex($2,/(privmsg|topic|mode|kick|nick|quit|part|join)/i)) { botrelay $sockname $2 $remove($1,:) $3- }
}

on *:SOCKCLOSE:linkbot-*:{ stoplink $sockname connection closed }

alias -l botrelay { var %x $sock(linkbot-*,0)
  var %chan $iif($left($4,1) == $chr(35) || $2 == JOIN,$iif($2 == JOIN,$right($4,-1),$4),ALL) 
  while (%x) { 
    var %name $sock(linkbot-*,%x) 
    var %y $numtok($sock(%name).mark,44)
    while (%y) { 
      if ($gettok($sock(%name).mark,%y,44) != %chan) { sockwrite -nt %name PRIVMSG $gettok($sock(%name).mark,%y,44) $+(:,7,$chr(91),14,$replace($gettok($1,2-,45),.,7.14),7/14,%chan,7,$chr(93),) $getlinkstr($gettok($3,1,33),$gettok($3,2,33),$iif($4 == %chan,$5-,$4-)). [ $+ [ $2 ] ] }
      dec %y
    }
    dec %x
  }
}

alias stoplink { var %x $sock(linkbot-*,0)
  while (%x) { 
    sockwrite -nt $sock(linkbot-*,%x) QUIT :Link stopped: $iif($1,$1-,No Reason)
    sockclose $sock(linkbot-*,%x)
    dec %x
  }
  unset %linkservers
  unset %linkchannels.*
}

alias -l getlinkstr { 
  ;Nick Host Params
  ;(privmsg|topic|mode|nick|kick|quit|part)
  ;echo -t @debug $1 $chr(124) $2 $chr(124) $3 $chr(124) $4 $chr(124) $5
  if ($prop == privmsg) { if ($+(:,$chr(1),ACTION,*,$chr(1)) iswm $3-) { return * $1 $right($remove($3,$chr(1)),-8) }
    else { return $+(<,$1,>) $right($3,-1) }
  }
  elseif ($prop == topic) { return * $1 has changed topic to $+(",$right($3,-1),") }
  elseif ($prop == mode) { return * $1 has set mode: $3 }
  elseif ($prop == kick) { return * $1 has kicked $gettok($3,1,32) $+($chr(40),$right($gettok($3,2-,32),-1),$chr(41)) }
  elseif ($prop == quit) { return * $1 $+($chr(40),$2,$chr(41)) has quit $+($chr(40),$right($3,-1),$chr(41)) }
  elseif ($prop == part) { return * $1 $+($chr(40),$2,$chr(41)) has parted $+($chr(40),$right($3,-1),$chr(41)) }
  elseif ($prop == join) { return * $1 $+($chr(40),$2,$chr(41)) has joined }
  elseif ($prop == nick) { return * $1 has changed nick to $right($3,-1) }
}

alias -l showlinks { var %l
  var %x $numtok(%linkservers,32)
  while (%x) { 
    var %l $addtok(%l,$gettok(%linkservers,%x,32),32)
    var %l $addtok(%l,%linkchannels. [ $+ [ $gettok(%linkservers,%x,32) ] ],32)
    dec %x
  }
  sockwrite -nt $1 PRIVMSG $2 :The following servers/channels are linked: %l
}

alias -l delinkchan { set %linkchannels. [ $+ [ $1 ] ] $remtok(%linkchannels. [ $+ [ $1 ] ],$2,44)
  if (!%linkchannels. [ $+ [ $1 ] ]) { set %linkservers $remtok(%linkservers,$1,32)
    sockclose linkbot- [ $+ [ $1 ] ]
  }
}