Stwórz obiekty i nazwij je według opisu
Button: połącz
Button: odłącz
Button: wyślij
Edit object: adres IP
Edit object: użytkownik
Edit object: wiadomość
List: lista użytkowników
MooGame
Rich Edit Object

Rozmieś je według ilustracji lub wedle uznania
Ze względów estetycznych niektórym obiektom wyłączyłem 3D look.

Chat MooGame
1	Dezaktywowanie komponentów • Start of Frame EZ-button odłącz: Disable EZ-button wyślij: Disable EZ-Edit użytkownik: Set text "użytkownik"+Str$(Random(99)) EZ-Edit adres ip: Set text "localhost" akcja zdarzenia 1
2	Tworzenie połączenia lub łączenie się z serwerem • Button EZ-button (połącz) clicked MooGame: Set Name to Edittext$( "użytkownik" ) MooGame: Connect to Edittext$( "adres ip" ) on Port 1203
3	Po połączeniu się z serwerem wchodzi się do kanału "pokój1" • MooGame: On Connect EZ-button odłącz: Enable EZ-button wyślij: Enable EZ-button połącz: Disable MooGame: Sign On to Channel "pokój1"
4	Po wejściu do pokoju pobierana jest twoja nazwa użytkownika i dodana do listy • MooGame: On Sign On EZ-List lista użytkowników: Add line GetName$( "MooGame" )
5	Pętla dodaje listę użytkowników, którzy byli już wcześniej na czacie • MooGame: On User Is Here EZ-List lista użytkowników: Add line GetUserName$( "MooGame" )
6	Jeśli jakiś użytkownik wejdzie do czata, dodaj jego nazwę do listy • MooGame: On User Joined EZ-List lista użytkowników: Add line GetUserName$( "MooGame" )
7	Użytkownik opuszcza czat? Usuń go z listy • On User Left EZ-List lista użytkowników: Delete line FindStringExact( "lista użytkowników", GetUserName$( "MooGame" ), 1) Rich Edit Object: Set text to NewLine$+"użytkownik "+GetUserName$( "MooGame" )+" opuścił chat"
8	Utrata połączenia • MooGame: On Disconnect Rich Edit Object: Set text to "połączenie z serwerem zostało zerwane" EZ-List lista użytkowników: Reset
9	Opuszczanie czata • Button EZ-button (odłącz) clicked MooGame: Disconnect EZ-button połącz: Enable EZ-button odłącz: disable EZ-button wyślij: disable
10	Wysłanie wiadomości • Button EZ-button (wyślij) clicked • Len(Edittext$( "wiadomość" )) > 0 Rich Edit Object: Set text to NewLine$+"<"+GetName$( "MooGame" )+"> "+Edittext$( "wiadomość" ) MooGame: Send String Edittext$( "wiadomość" ) on Subchannel 0
11	Odbieranie wiadomości • MooGame: On String Message on Subchannel 0 Rich Edit Object: Set text to NewLine$+"<"+GetSenderName$( "MooGame" )+"> "+GetString$( "MooGame" )

Uruchom 2 klienty na swoim komputerze i spróbuj się połączyć