/ScriptServ

[script]
n0=alias telnet sock $$1 23
n1=alias sock wincheck @telnet -e +n @telnet $center(1,1) 500 500 @telnet Terminal | .sockclose Socket | if ($1) { sockcon $1- 23 }
n2=alias sockcon sockopen Socket $1- | sockmark Socket Basic socket script | set %sock.srv $1 | set %sock.port $2 | set %sock.connected YES | set %sock.online 0 | echo 5 @telnet % $+  CONNECTiNG TO %sock.srv ON PORT %sock.port
n3=alias sockdiscon sockclose Socket | echo 5 @telnet % $+  DiSCONNECTEd | unset %sock.*
n4=alias sockopen {
n5=  if ($sock($1) != $null) { /uecho ERROR: SOCKET NAMEd " $+ $1 $+ " iS iN USE... | /uecho iF YOU WANT TO CLOSE THE SOCKET, TYPE: /sockclose $1 $+ | halt }
n6=  elseif ($3 == $null) { /uecho ERROR: MiSSiNG PARAMETERs! Syntax: /sockopen <name> <address> <port> | halt }
n7=  else { sockopen $1- }
n8=}
n9=alias wincheck {
n10=  if ($window($1).state == $null) { window $2- | return }
n11=  window -r $1 | window -a $1 | clear $1 | clear -l $1 | return
n12=}
n13=on 1:SOCKOPEN:Socket:if ($sockerr == 4) { echo 5 @telnet % $+  UNAbLE TO RESOLVE %sock.srv | sockclose Socket | unset %sock.* } | elseif ($sockerr > 0) { echo 5 @telnet % $+  UNkNOWN ERROR | sockclose Socket | unset %sock.* } | else { echo 5 @telnet % $+  CONNECTEd! }
n14=on 1:SOCKCLOSE:Socket:echo @Telnet DiSCONNECTEd | unset %sock.*
n15=on 1:SOCKWRITE:Socket:echo 5 @telnet % $+  $+ %sock.send
n16=on 1:SOCKREAD:Socket:{
n17=  if ($sockerr > 0) { echo 5 @telnet % $+  ERROR RECiEViNG DATA | return }
n18=  :nextread
n19=  sockread %sock.read
n20=  if ($sockbr == 0) { return }
n21=  if (%sock.read == $null) { set %sock.read $chr(255) }
n22=  aline @Telnet %sock.read
n23=  goto nextread
n24=}
n25=on 1:INPUT:@telnet:{ if ($left($1,5) == /sock) { sock $2- } | elseif (%sock.connected) { if ($1 == <D>) { sockdiscon } | else { sockwrite -tn Socket $1- | set %sock.send $1- } } | else { if ($2 isnum) { sockcon $1- } | else { sockcon $1 23 } } | halt }
n26=menu @telnet {
n27=  Connect: /telnet $$?="ENTER A HOST:"
n28=  Disconnect:/sockclose socket | echo 5 @telnet % $+  DiSCONNECTEd FROM %sock.srv
n29=}
n30=alias wing sock $$1 23