39     Tex: PTexture;

    39     Tex: PTexture;

    40     Time: Longword;

    40     Time: Longword;

    41     Width: LongInt;

    41     Width: LongInt;

    42     s: shortstring;

    42     s: shortstring;

    43     end;

    43     end;

    45 

    45 

    46 var Strs: array[0 .. MaxStrIndex] of TChatLine;

    46 var Strs: array[0 .. MaxStrIndex] of TChatLine;

    47     MStrs: array[0 .. MaxStrIndex] of shortstring;

    47     MStrs: array[0 .. MaxStrIndex] of shortstring;

    48     LocalStrs: array[0 .. MaxStrIndex] of shortstring;

    48     LocalStrs: array[0 .. MaxStrIndex] of shortstring;

    49     missedCount: LongWord;

    49     missedCount: LongWord;

    71             ProcedureCallChatCmd: string[31];

    71             ProcedureCallChatCmd: string[31];

    72             end = (

    72             end = (

    73             (ChatCmd: '/quit'; ProcedureCallChatCmd: 'halt'),

    73             (ChatCmd: '/quit'; ProcedureCallChatCmd: 'halt'),

    74             (ChatCmd: '/pause'; ProcedureCallChatCmd: 'pause'),

    74             (ChatCmd: '/pause'; ProcedureCallChatCmd: 'pause'),

    75             (ChatCmd: '/finish'; ProcedureCallChatCmd: 'finish'),

    75             (ChatCmd: '/finish'; ProcedureCallChatCmd: 'finish'),

    76             (ChatCmd: '/fullscreen'; ProcedureCallChatCmd: 'fullscr')

    77             (ChatCmd: '/fullscreen'; ProcedureCallChatCmd: 'fullscr')

    77             );

    78             );

    78 

    79 

    79 procedure SetLine(var cl: TChatLine; str: shortstring; isInput: boolean);

    80 procedure SetLine(var cl: TChatLine; str: shortstring; isInput: boolean);

    80 var strSurface, resSurface: PSDL_Surface;

    81 var strSurface, resSurface: PSDL_Surface;