[Aleks]

[center][size=18]Prosty chat w moogame
[/size][/center]
Stwórz obiekty i nazwij je według opisu
[color=red]Button[/color]: połącz
[color=red]Button[/color]: odłącz
[color=red]Button[/color]: wyślij
[color=red]Edit object[/color]: adres IP
[color=red]Edit object[/color]: użytkownik
[color=red]Edit object[/color]: wiadomość
[color=red]List[/color]: lista użytkowników
[color=red]MooGame[/color]
[color=red]Rich Edit Object[/color]

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

[img]http://images39.fotosik.pl/126/39d3a49e00840c19.png[/img]


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

[Szymonjjay]

a len to co?

[Cootje]

MooGame?

[Aleks]

ehhh

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