Graphics 500, 200, 32, 2
SetBuffer FrontBuffer()
AppTitle "Server"

Const msgServer = 1
Const msgClient = 2

Type client_t
   Field name$
   Field stream
End Type

Type stack_t
   Field msgType
   Field message$
   Field source
End Type

server = CreateTCPServer(1000)
If server = 0 Then
   Print "Can't create server"
   WaitKey : End
EndIf

While Not KeyDown(1)
   strClient = AcceptTCPStream(server)
   If strClient<>0 Then
      While Eof(strClient) : Wend
      client.client_t = New client_t
      client\name$    = ReadString$(strClient)
      client\stream   = strClient
      
      stack.stack_t  = New stack_t
      stack\msgType  = msgServer
      stack\message$ = client\name$+" has joined"
   EndIf
   
   For client.client_t = Each client_t
      If ReadAvail(client\stream)
         While Not Eof(client\stream)
            message$ = ReadString$(client\stream)
            If message$ = "/end" Then
               stack.stack_t  = New stack_t
               stack\msgType  = msgServer
               stack\message$ = client\name$+" quited"
               stack\source   = client\stream
               CloseTCPStream client\stream : Delete client
            Else
               stack.stack_t  = New stack_t
               stack\msgType  = msgClient
               stack\message$ = client\name$+": "+message$
               stack\source   = client\stream
            EndIf
         Wend
      EndIf
   Next
   
   For stack.stack_t = Each stack_t
      For client.client_t = Each client_t
         If stack\source<>client\stream Then
            WriteInt    client\stream, stack\msgType
            WriteString client\stream, stack\message$
         EndIf
      Next
      
      If stack\msgType = msgSerer Then
         Color 0, 255, 255
         Print stack\message$
      Else
         Color 255, 255, 255
         Print stack\message$
      EndIf
      Delete stack
   Next
Wend

For client.client_t = Each client_t
   WriteByte   client\stream, msgServer
   WriteString client\stream, "/end"
Next

CloseTCPServer server : End

Graphics 500, 200, 32, 2
SetBuffer FrontBuffer()
AppTitle "Client"

Const msgServer = 1
Const msgClient = 2

serverIP$ = Input$("IP: ")
tcp = OpenTCPStream(serverIP$, 1000)
If tcp = 0 Then
   Print "Can't connect to server"
   WaitKey : End
EndIf

nick$ = Input$("Nickname: ")
WriteString tcp, nick$

Print "Press F1 to write"

While Not KeyDown(1)
   If ReadAvail(tcp) Then
      While Not Eof(tcp)
         msgType  = ReadByte(tcp)
         message$ = ReadString$(tcp)
      
         If message$ = "/end" Then
            Color 0, 255, 255
            Print "Server has quited"
            CloseTCPStream tcp
            WaitKey : End
         EndIf
         
         If msgType = msgServer Then
            Color 0, 255, 255
            Print message$
         Else
            Color 255, 255, 255
            Print message$
         EndIf
      Wend
   EndIf
   
   If KeyHit(59) Then
      Color 255, 255, 255
      message$ = Input$("msg: ")
      WriteString tcp, message$
      If message = "/end" Then
         CloseTCPStream tcp
         End
      EndIf
   EndIf
Wend

WriteString tcp, "/end"
CloseTCPStream tcp
End