equal
deleted
inserted
replaced
12 uiCallbackFunction: TUICallback; |
12 uiCallbackFunction: TUICallback; |
13 isGame: boolean; |
13 isGame: boolean; |
14 |
14 |
15 procedure engineMessageCallback(p: pointer; msg: PChar; len: Longword); |
15 procedure engineMessageCallback(p: pointer; msg: PChar; len: Longword); |
16 begin |
16 begin |
17 if msg^ = 'T' then |
17 if (len >= 3) and (msg[1] = 'T') then |
18 begin |
18 begin |
19 inc(msg); |
19 isGame:= msg[2] = 'G'; |
20 isGame:= msg^ = 'G'; |
|
21 exit; |
20 exit; |
22 end; |
21 end; |
23 |
22 |
24 if isGame then |
23 if isGame then |
25 begin |
24 begin |