hedgewars/uChat.pas
changeset 9311 5baf10a52f43
parent 9145 6b51a32e48ed
child 9317 a04c30940d2d
equal deleted inserted replaced
9309:7e8f91634f80 9311:5baf10a52f43
    56     ChatReady: boolean;
    56     ChatReady: boolean;
    57     showAll: boolean;
    57     showAll: boolean;
    58 
    58 
    59 const
    59 const
    60     colors: array[#0..#6] of TSDL_Color = (
    60     colors: array[#0..#6] of TSDL_Color = (
    61             (r:$FF; g:$FF; b:$FF; unused:$FF), // unused, feel free to take it for anything
    61             (r:$FF; g:$FF; b:$FF; a:$FF), // unused, feel free to take it for anything
    62             (r:$FF; g:$FF; b:$FF; unused:$FF), // chat message [White]
    62             (r:$FF; g:$FF; b:$FF; a:$FF), // chat message [White]
    63             (r:$FF; g:$00; b:$FF; unused:$FF), // action message [Purple]
    63             (r:$FF; g:$00; b:$FF; a:$FF), // action message [Purple]
    64             (r:$90; g:$FF; b:$90; unused:$FF), // join/leave message [Lime]
    64             (r:$90; g:$FF; b:$90; a:$FF), // join/leave message [Lime]
    65             (r:$FF; g:$FF; b:$A0; unused:$FF), // team message [Light Yellow]
    65             (r:$FF; g:$FF; b:$A0; a:$FF), // team message [Light Yellow]
    66             (r:$FF; g:$00; b:$00; unused:$FF), // error messages [Red]
    66             (r:$FF; g:$00; b:$00; a:$FF), // error messages [Red]
    67             (r:$00; g:$FF; b:$FF; unused:$FF)  // input line [Light Blue]
    67             (r:$00; g:$FF; b:$FF; a:$FF)  // input line [Light Blue]
    68             );
    68             );
    69     ChatCommandz: array [TChatCmd] of record
    69     ChatCommandz: array [TChatCmd] of record
    70             ChatCmd: string[31];
    70             ChatCmd: string[31];
    71             ProcedureCallChatCmd: string[31];
    71             ProcedureCallChatCmd: string[31];
    72             end = (
    72             end = (