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 

    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

    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

   377 end;

   374 end;

   378 

   375 

   379 end.

   376 end.