Code: Select all
CreateServer(1)
SystemRequest("Server", "This is the port: "..GetLocalPort(1, #NETWORKSERVER), "OK")
Function p_ClientConnect()
SystemRequest("Connection Established", "We have connection!", "OK")
EndFunction
InstallEventHandler({OnConnect=p_ClientConnect})
Repeat
WaitEvent
Forever