[Aleks]

Prosty chat w moogame

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

[Szymonjjay]

a len to co?

[Cootje]

MooGame?

[Aleks]

ehhh

https://www.dropbox.com/s...x6/lac_chat.rar