/ScriptServ

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