-=-=------=-=<>0mega v2.0 by p1mpb0y y2k -=------=<>
-=<>-=<>[0mega]v2.0 by p1mpb0y-=<>-=<>
-=<>-(!)-(!)-version layout beta1 simplicity-(!)-(!)-=<>
-=-=------=-=<>0mega v2.0 by p1mpb0y y2k -=------=<>

alias telnet { dialog -m telnet telnet }

dialog telnet {
  title "(0mega;telnet..by p1mpb0y)"
  size -1 -1 416 185
  list 2, 5 60 406 140,sort
  edit "" 3, 5 5 130 20,
  edit "" 4, 140 5 90 20,
  button "Connect", 5 , 236 5 50 20,
  button "Close", 6, 300 5 50 20, ok
  button "Clear", 7, 360 5 50 20,
  edit "", 8, 5 30 350 20, autohs
  button "Send", 9, 360 30 50 20
}
on 1:dialog:telnet:sclick:5:{
  set %server/port $did(3).text $did(4).text
  set %telnet.server $did(3).text
  set %telnet.port $did(4).text
  did -o telnet 2 1 -[Telnet]- Connection to %server/port
  sockclose telnet  
  sockopen telnet $did(3).text $did(4).text
}
on 1:SOCKREAD:telnet: {
  if ($sockerr > 0) { return }
  :telnet
  sockread %telnet
  if ($sockbr == 0) { return }
  if ($did(telnet,2).lines >= 9) { did -d telnet 2 1 }  
  if (%telnet == $null) { set %telnet - }
  did -a telnet 2 %telnet
  goto telnet
}
on 1:dialog:telnet:sclick:9:{
  sockwrite -n telnet $did(8).text
  did -r telnet 8 
}
on 1:dialog:telnet:sclick:6:{
  sockclose telnet
  dialog -x telnet
}
on 1:dialog:telnet:sclick:7:{
  did -r telnet 2
}
