menu channel {
Telnet
.Connect:dialog -ma Telnet Telnet
}
dialog telnet {
title "Telnet"
size -1 -1 200 135
edit "mud.wormhole.se", 1, 5 25 190 20, autohs
text "Port", 2, 6 47 50 20
edit "4000", 3, 5 65 190 20, autohs
button "Connect", 4, 5 95 60 30, ok
button "Cancel", 5, 135 95 60 30, cancel
box "Remote Host:", 6, 0 1 200 135
}
on *:dialog:telnet:sclick:4: {
%hd.telnet.addy = $did(1).text
%hd.telnet.port = $did(3).text
%hd.telnet.info $1-
sockopen telnet $did(1).text $did(3).text
window -exk[9] @telnet Verdana 10
aline -p @telnet 7Trying to connect to $did(1).text on port $did(3).text
if ($sock(telnet).status == active) { aline 1 @telnet Already connected }
}
on *:input:*: {
if ($active == @telnet) {
if ($sock(telnet).status == $null) { aline 1 @telnet 4Not connected | halt }
else sockwrite -nt telnet $1-
aline 1 @telnet 4[15 $+ $nick $+ 4]15 $1-
halt
}
}
on *:sockopen:telnet: {
if ($sockerr > 0) { aline 4 @telnet Cannot connect to %hd.telnet.addy | return }
else aline 7 @telnet Connection opened to %hd.telnet.addy
}
on *:sockread:telnet: {
sockread %hd.info
aline 15 @telnet $ansi2mirc(%hd.info)
}
on *:sockclose:telnet: {
aline 1 @telnet 7Connection to %hd.telnet.addy closed.
}
alias closetel {
if ($sock(telnet).status == $null) { halt }
sockclose telnet | aline 1 @telnet 7Connection to %hd.telnet.addy closed.
}
menu @telnet {
Disconnect:closetel
Open New:sockclose telnet | dialog -m telnet telnet
-
Clear Buffer:clear @telnet
}