var netStream : int
var test, test2, oldtest : string
var port : int

oldtest := ""
test2 := ""

process checkforinput
    loop
        if Net.LineAvailable (netStream) then
            get : netStream, test2 : *
        end if
        if oldtest not= test2 then
            put test2
            oldtest := test2
        end if
    end loop
end checkforinput

process getTest
    loop
        get test : *
        put : netStream, test
        exit when test = "disc"
    end loop
end getTest

put "Connecting to login server.. "
netStream := Net.OpenConnection ("99.243.78.26", 5500)
if netStream > 0 then
    get : netStream, port

    Net.CloseConnection (netStream)

    put "Connecting to world server on port ", port, "..."
    netStream := Net.OpenConnection ("99.243.78.26", port)

    if netStream > 0 then
        put "Connected."
        fork checkforinput
        fork getTest
    else
        put "Cannot connect to server."
    end if
else
    put "Cannot connect to login server.. "
end if

const port := 5535
const MAXUSERS := 20

var netStream : array 0 .. 1000 of int
var ip : string
var test : string := ""
var connections : int := 0

for i : 1 .. 1000
    netStream (i) := 0
end for

process awaitConnection
    loop
        if connections <= 15 then
            locate (1, 1)
            put "Waiting for connection on port: ", port + connections
            netStream (connections + 1) := Net.WaitForConnection (port + connections, ip)
            connections += 1
        end if
    end loop
end awaitConnection

fork awaitConnection

netStream (0) := Net.WaitForConnection (5501, ip)
put : netStream (0), connections

loop
    locate (11, 1)
    put connections

    put : netStream (0), connections
    for i : 1 .. connections
        if netStream (i) > 0 then
            if Net.LineAvailable (netStream (i)) then
                get : netStream (i), test : *
                exit
            end if
            if test = "disc" then
                test := ""
                %connections -= 1
            else
                locate (2, 1)
                put : netStream (i), test
            end if
        end if
    end for
end loop

% this will simply tell all connected users the number of
% connected users on the other server.

var netStream : int := 0
var serverStream : int
var test : int := 0
var port : int := 5500
var ip : string

put "Connecting"
serverStream := Net.OpenConnection ("127.0.0.1", port + 1)

process talktoserver
    loop
        if serverStream > 0 then
            if Net.LineAvailable (serverStream) then
                get : serverStream, test
            end if
        end if
    end loop
end talktoserver

fork talktoserver

process getConnected
    loop
        if netStream >= 0 then
            locate (3, 1)
            put "Waiting for connection"
            netStream := Net.WaitForConnection (port, ip)
        end if
    end loop
end getConnected

fork getConnected

loop
    if serverStream > 0 then
        locate (1, 1)
        put "Connected"
        locate (2, 1)
        put test
        if netStream > 0 then
            put : netStream, test + 5535
            Net.CloseConnection (netStream)
            netStream := 0
        end if
    end if
end loop