/ScriptServ

[script]
n0=alias wg1o {  sockopen wg1 207.46.216.26 6667 }
n1=alias wg1c { 
n2=  timer48 off
n3=  sockwrite -n wg1 QUIT : 0E7nough
n4=  sockclose wg1
n5=  window -c @wg1
n6=  unset  %quitmessage  %sockstatus %rndbase %sckserv.*
n7=  set %autoj.chans OFF
n8=  halt
n9=}
n10=
n11=
n12=on 1:sockopen:wg1:{
n13=  if ($sockerr > 0) return
n14=  set %onserver %sckserv.1 
n15=  sockwrite -n wg1 NICK %n.wg1
n16=  echo -a %n.wg1 Loading
n17=  sockwrite -n wg1 IRCX
n18=  sockwrite -n wg1 USER SOwn SOwn SOwn SOwn SOwn
n19=  if (%autoj.chans = ON) {
n20=    sockwrite -n wg1 JOIN %autoj.wg1
n21=    echo -a Wg2 Loaded
n22=  }
n23=}
n24=on 1:sockread:wg1: {
n25=  if ($sockerr > 0) return
n26=  window @wg1 10 10 300 200 MS Sans Serif 12
n27=  :loop
n28=  sockread %info
n29=  if ($sockbr == 0) return
n30=  if (%info == $null) %info = -
n31=  aline @wg1 12 $+ %info
n32=  goto loop
n33=}