;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;Telnet Client;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on 1:sockread:telnet: {
  if ($sockerr > 0) {
    echo @TELNET 4ERROR: Disconnected from %telnet-address on port %telnet-port
    set %telnet-mode 0
    set $window(@TELNET).title %telnet-space
    return
  }
  :readagain
  /sockread -f %telnet-readdata
  if ($sockbr == 0) return
  if (%telnet-readdata != $null) {
    if ($left(%telnet-readdata, 1) == $chr(32)) {
      set %telnet-readdata  $+ %telnet-readdata
    }
    %telnet-space =  $+ $chr(32) $+ 
    //set %telnet-readdata $replace(%telnet-readdata, $chr(32), %telnet-space)
    ;BEGIN COLOR PARSING TABLE -- DO NOT REMOVE !!
    //set %telnet-readdata $replace(%telnet-readdata, , 99)
    //set %telnet-readdata $replace(%telnet-readdata, , 99)
    //set %telnet-readdata $replace(%telnet-readdata, , 99)
    //set %telnet-readdata $replace(%telnet-readdata, , 99)
    //set %telnet-readdata $replace(%telnet-readdata, , 99)
    //set %telnet-readdata $replace(%telnet-readdata, , 99)
    //set %telnet-readdata $replace(%telnet-readdata, , 99)
    //set %telnet-readdata $replace(%telnet-readdata, , 99)
    //set %telnet-readdata $replace(%telnet-readdata, , 99)
    //set %telnet-readdata $replace(%telnet-readdata, , 99)
    //set %telnet-readdata $replace(%telnet-readdata, , 14, , 01, , 01)
    //set %telnet-readdata $replace(%telnet-readdata, , 04, , 05, , 05)
    //set %telnet-readdata $replace(%telnet-readdata, , 09, , 03, , 03)
    //set %telnet-readdata $replace(%telnet-readdata, , 08, , 07, , 07)
    //set %telnet-readdata $replace(%telnet-readdata, , 12, , 02, , 02)
    //set %telnet-readdata $replace(%telnet-readdata, , 13, , 06, , 06)
    //set %telnet-readdata $replace(%telnet-readdata, , 11, , 10, , 10)
    //set %telnet-readdata $replace(%telnet-readdata, ÿû
, , ÿü
ÿüÿü, )
    ;END COLOR TABLE
    echo @TELNET %telnet-readdata
  }
  else {
    echo @TELNET  
  }
  goto readagain
}       
on 1:sockopen:telnet: {
  echo @TELNET 9Successfull connection to %telnet-address
}
on 1:sockclose:telnet: {
  echo @TELNET 9Lost connection to %telnet-address
  set %telnet-mode 0
}
alias telnetreconnect {
  if (%telnet-mode == 1) {
    echo @TELNET 4You are currently connected to %telnet-address
    return
  }
  /sockopen telnet %telnet-address %telnet-port
  set %telnet-mode 1
}
alias telnetstart {
  if (%telnet-mode == 1) {
    echo @TELNET 4You are currently connected to %telnet-address
    return
  }
  set %telnet-address $$?="Enter the telnet server's address"
  set %telnet-port $$?="Enter the telnet server's port"
  /sockopen telnet %telnet-address %telnet-port
  set %telnet-mode 1
}
alias sendtelnet {
  if ($left($1-, 1) == &) {
    echo @TELNET 4Sorry, you may not begin a command with &
    return
  }
  if ($1- == $null) {
    echo @TELNET 14<ENTER>
  }
  else {
    //echo @TELNET 14 $+ $1-
  }
  sockwrite -nt telnet $1-
}
alias telnetdisconnect {
  if (%telnet-mode == 0) {
    echo @TELNET 4You are currently not connected to a server.
    return
  }
  echo @TELNET 9Disconnected by user.
  set %telnet-mode 0
  sockclose telnet
  renwin @TELNET @TELNET
}
menu @TELNET {
  Connect: /telnetstart
  Reconnect to %telnet-address on port %telnet-port : /telnetreconnect
  Disconnect: /telnetdisconnect
}
menu menubar {
  -
  Open TELNET Client: /telnetopen
}

alias telnetopen {
  if (%telnet-window == 1) { 
    echo @TELNET 4You already have the telnet client window open.
    return
  }
  /window -exak[0] @TELNET Fixedsys 10
  set %telnet-mode 0
  set %telnet-window 1
  echo @TELNET 9mIRC's Telnet client.
  echo @TELNET 8Right click in this window for options
  echo @TELNET -
  echo @TELNET 8To press enter, type a space and press enter.
}

on 1:INPUT:@TELNET: {
  if (%telnet-mode == 0) {
    echo @TELNET 4Connect to a telnet server before trying to send commands!
    return
  }
  /sendtelnet $1-
  /halt
}
on 1:CLOSE:@TELNET: {
  set %telnet-mode 0
  set %telnet-window 0
  sockclose telnet
}