menu status,menubar,query,channel {
WormholeMUD
.Connect:dialog -ma WormholeMUD WormholeMUD
}
dialog WormholeMUD {
title "WormholeMUD"
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:WormholeMUD:sclick:4: {
%mud.WormholeMUD.addy = $did(1).text
%mud.WormholeMUD.port = $did(3).text
%mud.WormholeMUD.info $1-
sockopen WormholeMUD $did(1).text $did(3).text
window -exk[9] @WormholeMUD Fixedsys 9
aline -p @WormholeMUD 7Trying to connect to $did(1).text on port $did(3).text
if ($sock(WormholeMUD).status == active) { aline 1 @WormholeMUD Already connected }
}
on *:input:*: {
if ($active == @WormholeMUD) {
if ($sock(WormholeMUD).status == $null) { aline 1 @WormholeMUD 4Not connected | halt }
else sockwrite -nt WormholeMUD $1-
aline 15 @WormholeMUD 4[ $+ $nick $+ 4] $1-
halt
}
}
on *:sockopen:WormholeMUD: {
if ($sockerr > 0) { aline 4 @WormholeMUD Cannot connect to %mud.WormholeMUD.addy | return }
else aline 7 @WormholeMUD Connection opened to %mud.WormholeMUD.addy
}
on *:sockread:WormholeMUD: {
:nextread
if ($sockerr > 0) { return }
else {
sockread -fn %mud.info
if ($sockbr == 0) { return }
if (%mud.info == $null) { %mud.info = }
if ([24;1f isin %mud.info) { %mud.info = $replacex(%mud.info,[24;1f,$ctrl) }
if ([20;1f isin %mud.info) { %mud.info = $replacex(%mud.info,[20;1f,$ctrl) }
if ([J isin %mud.info) { %mud.info = $replacex(%mud.info,[J,$ctrl) }
if ([21;1f isin %mud.info) { %mud.info = $replacex(%mud.info,[21;1f,$ctrl) }
if ([23;1f isin %mud.info) { %mud.info = $replacex(%mud.info,[23;1f,$ctrl) }
if ([23;63f isin %mud.info) { %mud.info = $replacex(%mud.info,[23;63f,$ctrl) }
%mud.info2 = $ansi2mirc(%mud.info)
if %mud.info2 = $null { %mud.info2 = }
aline -p 15 @WormholeMUD %mud.info2
goto nextread
}
}
on *:sockclose:WormholeMUD: {
aline 15 @WormholeMUD 7Connection to %mud.WormholeMUD.addy closed.
}
alias closetel {
if ($sock(WormholeMUD).status == $null) { halt }
sockclose WormholeMUD | aline 15 @WormholeMUD 7Connection to %mud.WormholeMUD.addy closed.
}
menu @WormholeMUD {
Disconnect:closetel
Open New:sockclose WormholeMUD | dialog -m WormholeMUD WormholeMUD
-
Clear Buffer:clear @WormholeMUD
}