Code:

proc send_across {cmd chan nick text} {  global server channelList server1List server2List  if {[lsearch $channelList [string tolower $chan]] != -1} {    if  {[string first [lindex $server1List 0] $server] != -1} {      set fromServer "[lindex $server1List 1]"      set toBot "[lindex $server1List 2]"     } else {      set fromServer "[lindex $server2List 1]"      set toBot "[lindex $server2List 2]"     }    set botMsg [concat $cmd $chan $fromServer $nick $text]    putbot $toBot $botMsg  }}# Find out who's on the other network channelproc send_xnames {nick uhost hand arg} {  if {$arg == "" || [string first "#" $arg] != 0} {    putserv "NOTICE $nick :Usage\: /msg Eros xnames #channel"  } else {    if {[onchan $nick $arg]} {      send_across "names" $arg $nick "dummy"    } else {      putserv "NOTICE $nick :I'm sorry, you must be in channel $arg to do a remote names (xnames) command"    }  }}bind msg - xnames send_xnamesproc relay_xnames {frm_bot command arg} {  set startingChanlist "[chanlist [lindex $arg 0]]"   foreach mem $startingChanlist {    if {[isop $mem [lindex $arg 0]]} {      lappend finalChanlist \@$mem    } elseif {[isvoice $mem [lindex $arg 0]]} {      lappend finalChanlist \+$mem    } else {      lappend finalChanlist $mem    }  }  send_across "rnames" [lindex $arg 0] [lindex $arg 2] $finalChanlist}bind bot - names relay_xnamesproc recv_xnames {frm_bot command arg} {  putserv "NOTICE [lindex $arg 2] :The following people are on channel [lindex $arg 0] on net [lindex $arg 1] : [lrange $arg 3 end]"}bind bot - rnames recv_xnamesproc send_nick {nick uhost hand chan newnick} {  send_across "nick" $chan $nick $newnick}bind nick - * send_nickproc recv_nick {frm_bot command arg} {  putserv "PRIVMSG [lindex $arg 0] :\[[lindex $arg 1]\] *** [lindex $arg 2] is now known as [lrange $arg 3 end]"}bind bot - nick recv_nickproc send_mode {nick uhost hand chan mchg} {  if {[string first "b" [lindex $mchg 0]] != -1} {    send_across "ban" $chan $nick $mchg   }}bind mode - * send_mode# Multiple recv's from one sendproc recv_ban {frm_bot command arg} {  putserv "MODE [lindex $arg 0] [lrange $arg 3 end]"}bind bot - ban recv_banproc send_sign {nick uhost hand chan reason} {  send_across "sign" $chan $nick $reason}proc recv_sign {frm_bot command arg} {  putserv "PRIVMSG [lindex $arg 0] :\[[lindex $arg 1]\] *** [lindex $arg 2] Quit \([lrange $arg 3 end]\)"}bind bot - sign recv_signproc send_pubm {nick uhost hand chan text} {  set cmd "pubm"  send_across $cmd $chan $nick $text}bind pubm - * send_pubmproc recv_pubm {frm_bot command arg} {  putserv "PRIVMSG [lindex $arg 0] :\[[lindex $arg 1]\] \<[lindex $arg 2]\> [lrange $arg 3 end]"}bind bot - pubm recv_pubmproc send_action {nick uhost hand chan keyw text} {  send_across "act" $chan $nick $text}bind ctcp - "ACTION" send_actionproc recv_action {frm_bot command arg} {  putserv "PRIVMSG [lindex $arg 0] :\[[lindex $arg 1]\] \* [lindex $arg 2] [lrange $arg 3 end]"}bind bot - act recv_actionproc send_join {nick uhost hand chan} {  send_across "join" $chan $nick\($uhost\) "dummy"  send_across "names" $chan $nick "dummy"}bind join - * send_joinproc recv_join {frm_bot command arg} {  putserv "PRIVMSG [lindex $arg 0] :\[[lindex $arg 1]\] \*** [lindex $arg 2] has joined channel [lindex $arg 0]"}bind bot - join recv_joinproc send_part {nick uhost hand chan} {  send_across "part" $chan $nick ""}bind part - * send_partproc recv_part {frm_bot command arg} {  putserv "PRIVMSG [lindex $arg 0] :\[[lindex $arg 1]\] \*** [lindex $arg 2] has left channel [lindex $arg 0]"}bind bot - part recv_partputlog "relay 1.0.0 by: cl00bie <cl00bie@sorcery.net>"