equal
deleted
inserted
replaced
45 Time: Longword; |
45 Time: Longword; |
46 Width: LongInt; |
46 Width: LongInt; |
47 s: shortstring; |
47 s: shortstring; |
48 Color: TSDL_Color; |
48 Color: TSDL_Color; |
49 end; |
49 end; |
50 TChatCmd = (ccQuit, ccPause, ccFinish, ccShowHistory, ccFullScreen); |
50 TChatCmd = (ccQuit, ccPause, ccShowHistory, ccFullScreen); |
51 |
51 |
52 var Strs: array[0 .. MaxStrIndex] of TChatLine; |
52 var Strs: array[0 .. MaxStrIndex] of TChatLine; |
53 MStrs: array[0 .. MaxStrIndex] of shortstring; |
53 MStrs: array[0 .. MaxStrIndex] of shortstring; |
54 LocalStrs: array[0 .. MaxStrIndex] of shortstring; |
54 LocalStrs: array[0 .. MaxStrIndex] of shortstring; |
55 missedCount: LongWord; |
55 missedCount: LongWord; |
86 ChatCmd: string[31]; |
86 ChatCmd: string[31]; |
87 ProcedureCallChatCmd: string[31]; |
87 ProcedureCallChatCmd: string[31]; |
88 end = ( |
88 end = ( |
89 (ChatCmd: '/quit'; ProcedureCallChatCmd: 'halt'), |
89 (ChatCmd: '/quit'; ProcedureCallChatCmd: 'halt'), |
90 (ChatCmd: '/pause'; ProcedureCallChatCmd: 'pause'), |
90 (ChatCmd: '/pause'; ProcedureCallChatCmd: 'pause'), |
91 (ChatCmd: '/finish'; ProcedureCallChatCmd: 'finish'), |
|
92 (ChatCmd: '/history'; ProcedureCallChatCmd: 'history'), |
91 (ChatCmd: '/history'; ProcedureCallChatCmd: 'history'), |
93 (ChatCmd: '/fullscreen'; ProcedureCallChatCmd: 'fullscr') |
92 (ChatCmd: '/fullscreen'; ProcedureCallChatCmd: 'fullscr') |
94 ); |
93 ); |
95 |
94 |
96 |
95 |