[script]
n0=;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
n1=;;;                                                                    ;;; 
n2=;;;                 MX- Multi Server connection      ;;;  
n3=;;;                           © phys1ks 1999               ;;;  
n4=;;;                                                                    ;;;  
n5=;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
n6=on 1:LOAD:{ echo -a 3*** msx[1.5b2] by phys1ks loaded. /mx to use | set %mx.ver mx-v1b0 by phys1ks : Keep it to yourself! }
n7=alias mn { return $right($1-,$calc($len($1-)-1)) }
n8=alias mx {
n9=  set %mx.nick $$?="Nickname"
n10=  set %mx.server $1
n11=  set %mx.port $2
n12=  if (%mx.server = $null) { set %mx.server $?="enter irc server:" }
n13=  if (%mx.port = $null) { set %mx.port $?="enter port" }
n14=  sockopen mx %mx.server %mx.port
n15=}
n16=on 1:sockopen:mx:{ 
n17=  window -aesx @mx
n18=  echo @mx 3*** Attemping Connection..
n19=  sockwrite -n mx USER weaponx rawircx rawircx rawircx
n20=  sockwrite -n mx IRCX
n21=  sockwrite -n mx NICK %mx.nick 
n22=  unset %chan.*
n23=}
n24=on 1:sockread:mx:{
n25=  sockread 1000 %temp
n26=  if (PING isin $gettok(%temp,1,32)) {        
n27=    sockwrite -n mx PONG $gettok(%temp,2,32)
n28=    echo @mx 3PING? PONG
n29=  }
n30=  if (NOTICE isin $gettok(%temp,2,32)) {
n31=    if ($chr(1) isin $gettok(%temp,4,32)) {
n32=      if (PING isin $gettok(%temp,4-,32)) {
n33=        set %mx.ping $gettok(%temp,5,32)
n34=        set %mx.ping $duration($calc($ctime - %mx.ping))
n35=        echo -a 4[ $+ $mnick($gettok(%temp,1,32)) PING reply]: %mx.ping     
n36=      }
n37=      else {
n38=        echo -a 4[ $+ $mnick($gettok(%temp,1,32)) reply]: $gettok(%temp,3-,32)
n39=      }
n40=    }
n41=  }
n42=  if (PRIVMSG isin $gettok(%temp,2,32)) {
n43=    if ($chr(1) isin $gettok(%temp,4,32)) {
n44=      if ($gettok(%temp,4,32) = :
ACTION) {
n45=        echo @^ $+ $gettok(%temp,3,32) 6* $mnick($gettok(%temp,1,32)) $remove($gettok(%temp,5-,32),
)
n46=        halt
n47=      } 
n48=      echo @mx 4[ $+ $mnick($gettok(%temp,1,32)) $gettok(%temp,4-,32)
n49=      if (VERSION isin $gettok(%temp,4-,32)) { 
n50=        sockwrite -n mx NOTICE $mnick($gettok(%temp,1,32)) : $+ $chr(1) $+ VERSION %mx.ver $+ $chr(1)
n51=      }
n52=      if (PING isin $gettok(%temp,4-,32)) {
n53=        sockwrite -n mx NOTICE $mnick($gettok(%temp,1,32)) : $+ $chr(1) $+ PING $ctime $+ $chr(1)
n54=      }  
n55=      halt
n56=    }      
n57=    if ($chr(35) !isin $gettok(%temp,3,32)) {
n58=      ;echo @mx * $+ $mnick($gettok(%temp,1,32)) $+ ( $+ $gettok($gettok(%temp,1,32),2,33) $+ )* $remove($gettok(%temp,4-,32),:)
n59=      set %window $mnick($gettok(%temp,1,32))
n60=      set %window @^ $+ %window
n61=      if ($window(%window) = $null) { 
n62=        .window -aesx @^ $+ $mnick($gettok(%temp,1,32))
n63=        titlebar @^ $+ $mnick($gettok(%temp,1,32)) ( $+ $gettok($gettok(%temp,1,32),2,33) $+ )
n64=      }      
n65=      echo @^ $+ $mnick($gettok(%temp,1,32)) < $+ $mnick($gettok(%temp,1,32)) $+ > $mn($gettok(%temp,4-,32))                                                                                          
n66=      halt
n67=    }
n68=    else {
n69=      echo @^ $+ $gettok(%temp,3,32) < $+ $mnick($gettok(%temp,1,32)) $+ > $mn($gettok(%temp,4-,32))
n70=    }
n71=  }
n72=  if ($gettok(%temp,2,32) = NOTICE) {
n73=    echo @mx - $+ $mnick($gettok(%temp,1,32))) $+ - $remove($gettok(%temp,4,32),:) $gettok(%temp,5-,32)
n74=    halt
n75=  }
n76=  if ($gettok(%temp,1,32) = NOTICE) {
n77=    echo @mx - $+ $gettok(%temp,2,32)) $+ - $remove($gettok(%temp,3,32),:) $gettok(%temp,4-,32)
n78=    halt
n79=  }
n80=  if (00 isin $gettok(%temp,2,32)) {
n81=    echo @mx $remove($gettok(%temp,4-,32),:)
n82=    halt
n83=  }
n84=  if (251 isin $gettok(%temp,2,32)) {
n85=    echo @mx $remove($gettok(%temp,4-,32),:)
n86=    halt
n87=  }
n88=  if (353 isin $gettok(%temp,2,32)) {
n89=    echo @^ $+ $gettok(%temp,5,32) 3Users on $gettok(%temp,5,32) $+ :
n90=    echo @^ $+ $gettok(%temp,5,32) 3 $+ $remove($gettok(%temp,6,32),:) $gettok(%temp,7-,32)
n91=    halt
n92=  }
n93=  if (366 isin $gettok(%temp,2,32)) {
n94=    echo @^ $+ $gettok(%temp,4,32) 3 $+ $remove($gettok(%temp,5-,32),:)
n95=    halt
n96=  }
n97=  if (376 isin $gettok(%temp,2,32)) {
n98=    echo @mx $remove($gettok(%temp,4-,32),:)
n99=    halt
n100=  }  
n101=  if (252 isin $gettok(%temp,2,32)) {
n102=    echo @mx $remove($gettok(%temp,4-,32),:)
n103=    halt
n104=  }
n105=  if (253 isin $gettok(%temp,2,32)) {
n106=    echo @mx $remove($gettok(%temp,4-,32),:)
n107=    halt
n108=  }
n109=  if (254 isin $gettok(%temp,2,32)) {
n110=    echo @mx $remove($gettok(%temp,4-,32),:)
n111=    halt
n112=  }
n113=  if (255 isin $gettok(%temp,2,32)) {
n114=    echo @mx $remove($gettok(%temp,4-,32),:)
n115=    halt
n116=  }
n117=  if (305 isin $gettok(%temp,2,32)) {
n118=    echo @mx $remove($gettok(%temp,4-,32),:)
n119=    halt
n120=  }
n121=  if (306 isin $gettok(%temp,2,32)) {
n122=    echo @mx $remove($gettok(%temp,4-,32),:)
n123=    halt
n124=  }
n125=  if (375 isin $gettok(%temp,2,32)) {
n126=    echo @mx $remove($gettok(%temp,4-,32),:)
n127=    halt
n128=  }
n129=  if (318 isin $gettok(%temp,2,32)) {
n130=    halt
n131=  }
n132=  if (372 isin $gettok(%temp,2,32)) {
n133=    halt
n134=  }
n135=  if (265 isin $gettok(%temp,2,32)) {
n136=    echo @mx $remove($gettok(%temp,4-,32),:)
n137=    halt
n138=  }
n139=  if (266 isin $gettok(%temp,2,32)) {
n140=    echo @mx $remove($gettok(%temp,4-,32),:)
n141=    halt
n142=  }
n143=  if (332 isin $gettok(%temp,2,32)) {
n144=    echo @^ $+ $gettok(%temp,4,32) 3*** Topic for $gettok(%temp,4,32) $+ : $remove($gettok(%temp,5,32),:) $gettok(%temp,6-,32)
n145=    halt
n146=  }
n147=  if (333 isin $gettok(%temp,2,32)) {
n148=    echo @^ $+ $gettok(%temp,4,32) 3*** Topic set by: $gettok(%temp,5,32) $asctime($gettok(%temp,6,32))
n149=    halt
n150=  }
n151=  if ($gettok(%temp,2,32) = 311) {
n152=    echo @mx $gettok(%temp,4,32) ( $+ $gettok(%temp,5,32) $+ @ $+ $gettok(%temp,6,32) $+ ) $gettok(%temp,7-,32)
n153=    halt
n154=  }
n155=  if ($gettok(%temp,2,32) = 442) {
n156=    echo @mx 3*** $gettok(%temp,4,32) $+ : You're not on that channel.
n157=    halt
n158=  }
n159=  if ($gettok(%temp,2,32) = 401) {
n160=    echo @mx 3*** $gettok(%temp,4,32) $+ : No such nick/channel
n161=    halt
n162=  }
n163=  if ($gettok(%temp,2,32) = 319) {
n164=    echo @mx $gettok(%temp,4,32) is on: $remove($gettok(%temp,5-,32),:)
n165=    halt
n166=  }
n167=  if ($gettok(%temp,2,32) = 312) {
n168=    echo @mx $gettok(%temp,4,32) is using:  $gettok(%temp,5-,32)
n169=    halt
n170=  }
n171=  if ($gettok(%temp,2,32) = 301) {
n172=    echo @mx $gettok(%temp,4,32) is away: $remove($gettok(%temp,5,32),:) $gettok(%temp,6-,32)
n173=    halt
n174=  }
n175=  if ($gettok(%temp,2,32) = 317) {
n176=    echo @mx $gettok(%temp,4,32) is idle: $duration($gettok(%temp,5,32)) SignOn: $asctime($gettok(%temp,6,32))
n177=    halt             
n178=  }
n179=  if (TOPIC isin $gettok(%temp,2,32)) {
n180=    echo @^ $+ $remove($gettok(%temp,3,32),:) 3*** $mnick($gettok(%temp,1,32)) changes $gettok(%temp,3,32) topic to: " $+ $remove($gettok(%temp,4-,32),:) $+ "
n181=    halt
n182=  }
n183=  if (NICK = $gettok(%temp,2,32)) {
n184=    echo @mx 3*** $mnick($gettok(%temp,1,32)) is now known as $mn($gettok(%temp,3,32))
n185=    if $mnick($gettok(%temp,1,32)) = %mx.nick { set %mx.nick $mn($gettok(%temp,3,32)) }
n186=  } 
n187=  if (KICK isin $gettok(%temp,2,32)) {
n188=    echo @^ $+ $remove($gettok(%temp,3,32),:) 3*** $gettok(%temp,4,32) was kicked by $mnick($gettok(%temp,1,32)) ( $+ $remove($gettok(%temp,5,32),:) $gettok(%temp,6-,32) $+ )
n189=    if ($gettok(%temp,4,32) = %mx.nick) { sockwrite -n mx join $gettok(%temp,3,32) | echo @^ $+ $gettok(%temp,3,32) 3*** Rejoining $gettok(%temp,3,32) }
n190=  }
n191=  if (JOIN isin $gettok(%temp,2,32)) {
n192=    echo @^ $+ $remove($gettok(%temp,3,32),:) 3*** $mnick($gettok(%temp,1,32)) ( $+ $gettok($gettok(%temp,1,32),2,33) $+ ) has joined.
n193=  }
n194=  if (PART isin $gettok(%temp,2,32)) {
n195=    echo @^ $+ $remove($gettok(%temp,3,32),:) 3*** $mnick($gettok(%temp,1,32)) ( $+ $gettok($gettok(%temp,1,32),2,33) $+ ) has left.
n196=  }
n197=  if (MODE isin $gettok(%temp,2,32)) {
n198=    if ($chr(35) !isin $remove($gettok(%temp,3,32),:)) {
n199=      echo @mx 3*** $mnick($gettok(%temp,1,32)) sets mode: $gettok(%temp,4-,32)
n200=      halt
n201=    }
n202=    echo @^ $+ $remove($gettok(%temp,3,32),:) 3*** $mnick($gettok(%temp,1,32)) ( $+ $gettok($gettok(%temp,1,32),2,33) $+ ) sets mode: $gettok(%temp,4-,32)
n203=    halt 
n204=  }
n205=  if (QUIT isin $gettok(%temp,2,32)) {
n206=    echo @mx 2*** $mnick($gettok(%temp,1,32)) has left IRC ( $+ $remove($gettok(%temp,3,32),:) $gettok(%temp,4-,32) $+ )
n207=  }
n208=  if (PROP $gettok(%temp,3,32) OWNERKEY isin %temp) {
n209=    if (%o.key.prot == on) {
n210=      echo -a 8*** $mnick($gettok(%temp,1,32)) proped the ownerkey of $remove($gettok(%temp,5,32),:) - Taking the action of kicking them
n211=      sockwrite -n $sockname kick $gettok(%temp,3,32) $mnick($gettok(%temp,1,32)) keys
n212=      sockwrite -n $sockname prop $gettok(%temp,3,32) OWNERKEY  : $+ %sock.key
n213=      halt
n214=    }
n215=  }
n216=  else {
n217=    ;echo @mx %temp
n218=  }
n219=}
n220=on 1:INPUT:@mx:{ 
n221=  ;echo @mx $1-
n222=  if (/join isin $1) {
n223=    sockwrite -n mx join $2-
n224=    window -aesx @^ $+ $2
n225=    echo @^ $+ $2 3Joining $2 $+ ..
n226=  } 
n227=  if (/ctcp isin $1) {
n228=    sockwrite -n mx PRIVMSG $2 : $+ $chr(1) $+ $upper($3-) $+ $chr(1)
n229=    echo $active 4-> 4[ $+ $2 $+ 4] $3-
n230=    halt
n231=  }
n232=  if (/msg isin $1) {
n233=    sockwrite -n mx PRIVMSG $2 : $+ $3-
n234=    echo $active -> * $+ $2 $+ * $3-
n235=    halt
n236=  }
n237=  if ($1 = /help) {
n238=    echo -a 3msx commands:
n239=    echo -a 3/away /back  [built in away system]
n240=    echo -a 3*************
n241=    echo -a 3everything else is just as it is in regular mirc
n242=    halt
n243=  }
n244=  if ($1 = /away) || ($1 = /maway) { maway $2- | halt }
n245=  if ($1 = /back) || ($1 = /mback) { mback | halt }
n246=  if ($1 = /quit) { echo @mx 6*** Disconnected: $2- | sockwrite -n mx quit : $+ $1- | halt }
n247=  if (/server isin $1) { mx $1- | halt }
n248=  else {
n249=    sockwrite -n mx $remove($1-,/) | halt
n250=  } 
n251=  halt 
n252=}
n253=on 1:INPUT:@:{
n254=  if (^ isin $active) {
n255=    set %mx.chan $remove($active,@)
n256=    set %mx.chan $remove(%mx.chan,^)
n257=    set %Mx.chan $remove(%mx.chan,@)
n258=    if (/join isin $1) {
n259=      sockwrite -n mx join $2-
n260=      window -aesx @^ $+ $2
n261=      echo @^ $+ $2 3Joining $2 $+ ..
n262=    } 
n263=    if (/part isin $1) {
n264=      sockwrite -n mx part $2-
n265=      window -c $active
n266=    }
n267=    if (/me isin $1) {
n268=      sockwrite -n mx PRIVMSG %mx.chan : $+ $chr(1) $+ ACTION $2- $+ $chr(1)
n269=      echo $active 6* %mx.nick $2-
n270=      halt
n271=    }
n272=    if (/ctcp isin $1) {
n273=      sockwrite -n mx PRIVMSG $2 : $+ $chr(1) $+ $upper($3-) $+ $chr(1)
n274=      echo $active 4-> 4[ $+ $2 $+ 4] $3-
n275=      halt
n276=    }
n277=    if ($1 = /help) {
n278=      echo -a 3msx commands:
n279=      echo -a 3/away /back  [built in away system]
n280=      echo -a 3*************
n281=      echo -a 3everything else is just as it is in regular mirc
n282=      halt
n283=    }
n284=    if ($1 = /away) || ($1 = /maway) { maway $2- | halt }
n285=    if ($1 = /back) || ($1 = /mback) { mback | halt }
n286=    if (/msg isin $1) {
n287=      sockwrite -n mx PRIVMSG $2 : $+ $3-
n288=      echo $active -> * $+ $2 $+ * $3-
n289=      halt
n290=    }
n291=    if (/quit isin $1) { sockwrite -n mx quit : $+ $2- | halt }
n292=    if (/server isin $1) { mx $1- | halt }
n293=    if (/ !isin $1) {
n294=      sockwrite -n mx privmsg %mx.chan : $+ $1- 
n295=      echo $active < $+ %mx.nick $+ > $1-
n296=      halt
n297=    }
n298=    else {
n299=      sockwrite -n mx $remove($1-,/)
n300=      halt
n301=    }
n302=  }
n303=}
n304=alias mnick return $remove($gettok($1,1,33),:)
n305=alias maddress return $gettok($1,2,33)
n306=alias machan {
n307=  set %cur 0
n308=  :loop
n309=  inc %cur 1
n310=  if (%cur > $window(0)) { goto done }
n311=  set %window $window(%cur)
n312=  if (^ !isin %window) { goto loop }
n313=  if ($chr(35) !isin %window) { goto loop }
n314=  echo %window 6* %mx.nick $1-
n315=  sockwrite -n mx privmsg $remove($remove(%window,@),^) : $+ $chr(1) $+ ACTION $1- $+ $chr(1)
n316=  goto loop
n317=  :done
n318=}
n319=alias maway {
n320=  set %maway $1-
n321=  if (%maway = $null) { set %maway bbl }
n322=  machan is away: ( $+ %maway $+ ) msglog(on)
n323=  sockwrite -n mx away :is away: ( $+ %maway $+ ) msglog(on)
n324=  set %msx.away $ctime
n325=
n326=}
n327=alias mback {
n328=  machan is back from the dead. Gone $duration($calc($ctime - %msx.away))
n329=  sockwrite -n mx away : 
n330=}
n331=menu @^* {
n332=  IRCX Commands
n333=  .Clear All:sockwrite -n mx access $remove($remove($active,@),^) clear
n334=  .-
n335=  .Owner Key:/sockwrite -n mx prop $remove($remove($active,@),^) OWNERKEY  : $+ $?="Owner Key?"
n336=  .Host Key:/sockwrite -n mx prop $remove($remove($active,@),^) HOSTKEY  : $+ $?="Host Key?"
n337=  .-
n338=  .On Join Msg:/sockwrite -n mx prop $remove($remove($active,@),^) ONJOIN : $+ $?="Message?"
n339=  .On Part Msg:/sockwrite -n mx prop $remove($remove($active,@),^) ONPART : $+ $?="Message?"
n340=  .Topic:/sockwrite -n mx prop $remove($remove($active,@),^) TOPIC : $+ $?="Default Topic?"
n341=  .-
n342=  .Owner
n343=  ..Add:/sockwrite -n mx access $remove($remove($active,@),^) Add owner $?="Mask" 0 : $+ $?="Reason" 
n344=  ..Delete:/sockwrite -n mx access $remove($remove($active,@),^) DELETE owner $?="Mask"
n345=  ..Clear:/sockwrite -n mx access $remove($remove($active,@),^) Clear owner
n346=  .Host
n347=  ..Add:/sockwrite -n mx access $remove($remove($active,@),^) Add host $?="Mask" 0 : $+ $?="Reason" 
n348=  ..Delete:/sockwrite -n mx access $remove($remove($active,@),^) DELETE host $?="Mask"
n349=  ..Clear:/sockwrite -n mx access $remove($remove($active,@),^) Clear host
n350=  .Voice
n351=  ..Add:/sockwrite -n mx access $remove($remove($active,@),^) Add voice $$?="Mask" 0 : $+ $?="Reason" 
n352=  ..Delete:/sockwrite -n mx access $remove($remove($active,@),^) DELETE voice$$?="Mask"
n353=  ..Clear:/sockwrite -n mx access $remove($remove($active,@),^) Clear voice
n354=  .Deny
n355=  ..Add Deny Access:/sockwrite -n mx access $remove($remove($active,@),^) ADD DENY $?="Enter Hostmask" $?="Time in min." : $+ $?="Reason for Deny" 
n356=  ..Delete:/sockwrite -n mx access $remove($remove($active,@),^) DELETE DENY $?="Mask"
n357=  ..Clear:/sockwrite -n mx access $remove($remove($active,@),^) Clear deny
n358=  .Silence
n359=  ..List Silence list:Silence
n360=  ..Silence a nick:Silence +$address($snicks,1)
n361=  ..Remove silence from a nick:Silence -$address($snicks,1)
n362=  .-
n363=  .Clear All:/sockwrite -n mx access $remove($remove($active,@),^) clear
n364=  .List:/sockwrite -n mx access $remove($remove($active,@),^) LIST
n365=  ( $+ $active $+ )
n366=  .Set New Modes +
n367=  ..Secret (+s):/sockwrite -n mx mode $remove($remove($active,@),^) +s
n368=  ..Private (+p):/sockwrite -n mx mode $remove($remove($active,@),^) +p
n369=  ..Topic Change (+t):/sockwrite -n mx mode $remove($remove($active,@),^) +t
n370=  ..Notices Flood (+n):/sockwrite -n mx mode $remove($remove($active,@),^) +n
n371=  ..Topic+Notices (+nt):/sockwrite -n mx mode $remove($remove($active,@),^) +nt
n372=  ..Secret+Topic+Notices (+nst):/sockwrite -n mx mode $remove($remove($active,@),^) +nst
n373=  ..Set Key:/sockwrite -n mx mode $remove($remove($active,@),^) +k $$?="Enter keyname"
n374=  ..Set Max Users:/sockwrite -n mx mode $remove($remove($active,@),^) +l $$?="Enter max number ov users"
n375=  .Clear Modes -
n376=  ..Secret (-s):/sockwrite -n mx mode $remove($remove($active,@),^) -s
n377=  ..Private (-p):/sockwrite -n mx mode $remove($remove($active,@),^) -p
n378=  ..Topic Change (-t):/sockwrite -n mx mode $remove($remove($active,@),^) -t
n379=  ..Notices Flood (-n):/sockwrite -n mx mode $remove($remove($active,@),^) -n
n380=  ..Invite+Private (-ip):/sockwrite -n mx mode $remove($remove($active,@),^) -ip
n381=  ..Topic+Notices (-nt):/sockwrite -n mx mode $remove($remove($active,@),^) -nt
n382=  ..Secret+Topic+Notices (-nst):/sockwrite -n mx mode $remove($remove($active,@),^) -nst
n383=  ..Remove Key:/sockwrite -n mx mode $remove($remove($active,@),^) -k $$?="Enter key name"
n384=  ..Clear Users Limit:/sockwrite -n mx mode $remove($remove($active,@),^) -l $$?="Enter current user limit" 
n385=  -
n386=  Away System
n387=  .away:/maway $$?="Away Reason"
n388=  .Back:/mback
n389=  -
n390=  Owner Key prot
n391=  .on://set %o.key.prot on
n392=  .off://set %o.ket.prot off
n393=  -
n394=  Owner Key://set %sock.key $$?="Owner Key"
n395=}
n396=on 1:close:@: if ($target == @mx) { sockclose mx }
n397=menu channel {
n398=  MX:/mx
n399=}