changeset 4848 | 03aa62a64978 |
parent 4814 | e19791f08443 |
child 4901 | d1e2d82d9ccc |
4843:673f74c89687 | 4848:03aa62a64978 |
---|---|
27 |
27 |
28 procedure AddChatString(s: shortstring); |
28 procedure AddChatString(s: shortstring); |
29 procedure DrawChat; |
29 procedure DrawChat; |
30 procedure KeyPressChat(Key: Longword); |
30 procedure KeyPressChat(Key: Longword); |
31 |
31 |
32 var UserNick: shortstring = ''; |
|
33 ChatReady: boolean; |
|
34 showAll: boolean; |
|
35 |
|
36 implementation |
32 implementation |
37 uses SDLh, uKeys, uTypes, uVariables, uCommands, uUtils, uTextures, uRender, uIO; |
33 uses SDLh, uKeys, uTypes, uVariables, uCommands, uUtils, uTextures, uRender, uIO; |
38 |
34 |
39 const MaxStrIndex = 27; |
35 const MaxStrIndex = 27; |
40 |
36 |
50 missedCount: LongWord; |
46 missedCount: LongWord; |
51 lastStr: LongWord; |
47 lastStr: LongWord; |
52 visibleCount: LongWord; |
48 visibleCount: LongWord; |
53 InputStr: TChatLine; |
49 InputStr: TChatLine; |
54 InputStrL: array[0..260] of char; // for full str + 4-byte utf-8 char |
50 InputStrL: array[0..260] of char; // for full str + 4-byte utf-8 char |
51 ChatReady: boolean; |
|
52 showAll: boolean; |
|
55 |
53 |
56 const colors: array[#1..#5] of TSDL_Color = ( |
54 const colors: array[#1..#5] of TSDL_Color = ( |
57 (r:$FF; g:$FF; b:$FF; unused:$FF), // chat message [White] |
55 (r:$FF; g:$FF; b:$FF; unused:$FF), // chat message [White] |
58 (r:$FF; g:$00; b:$FF; unused:$FF), // action message [Purple] |
56 (r:$FF; g:$00; b:$FF; unused:$FF), // action message [Purple] |
59 (r:$90; g:$FF; b:$90; unused:$FF), // join/leave message [Lime] |
57 (r:$90; g:$FF; b:$90; unused:$FF), // join/leave message [Lime] |
371 missedCount:= 0; |
369 missedCount:= 0; |
372 end; |
370 end; |
373 |
371 |
374 procedure freeModule; |
372 procedure freeModule; |
375 begin |
373 begin |
376 UserNick:= ''; |
|
377 end; |
374 end; |
378 |
375 |
379 end. |
376 end. |