/ScriptServ

[script]
n0=
n1=menu @telnet {
n2=  dclick:sockopen telnet %telnet.addy %telnet.port
n3=}
n4=on 1:input:{ 
n5=  if ($active == @telnet) {
n6=    if ($portfree(%telnet.port) == $false) {
n7=      sockwrite -n telnet $strip($1-)
n8=      aline -hp @telnet $strip($1-)
n9=      halt
n10=    }
n11=    else aline -hp @telnet Not Connected To Server
n12=  }
n13=}
n14=on 1:sockopen:telnet: {
n15=  aline -hp @telnet Successful Connection: $chr(91) Address: %telnet.addy $chr(93) - $chr(91) Port: %telnet.port $chr(93)
n16=}
n17=
n18=on 1:sockclose:telnet: {
n19=  aline -hp @telnet $chr(91) Connection Terminated $chr(93)
n20=}
n21=on 1:sockread:telnet: {
n22=  :begin
n23=  sockread %telnet.data
n24=  if (%telnet.data != $null) aline -hp @telnet $strip(%telnet.data)
n25=  if ($sockbr > 0) goto begin
n26=}
n27=on 1:close:@: if ($target == @telnet) { unset %telnet.* | sockclose telnet }
n28=ctcp 1:page:*: {
n29=  if (%away.pager == on) {
n30=    aline -p @Pager $chr(91) $timestamp $chr(93) - $nick $+ : $parm2-
n31=    halt
n32=  }
n33=  if (%auto.pager == on) {
n34=    aline -p @Pager $chr(91) $timestamp $chr(93) - $nick $+ : $parm2-
n35=    halt
n36=  }
n37=}
n38=on 1:text:*:?: {
n39=  if (%away.msglog == on) {
n40=    aline -p @Message-Log $timestamp $+ -< $+ $nick $+ >- $+ $parms
n41=    .msg $nick $_gone
n42=    .msg $nick 0,1[4 $+ $nick $+ 0] 15 your Message is %msg and is being logged at $ustime 
n43=    .closemsg $nick
n44=    inc %msg 1
n45=  }
n46=  if (%auto.msglog == on && away != $true) {
n47=    aline -p @Message-Log $timestamp $+ -< $+ $nick $+ >- $+ $parms
n48=    .msg $nick $_agone
n49=    .msg $nick 0,1[4 $+ $nick $+ 0] 15 your Message is %msg and is being logged at $ustime 
n50=    .closemsg $nick
n51=    inc %msg 1
n52=  }
n53=}