changeset 11919 | e0476802c8b5 |
parent 11532 | bf86c6cb9341 |
child 12216 | 5b525d041fb4 |
11918:9da78300c5d0 | 11919:e0476802c8b5 |
---|---|
35 cTagsMasksNoHealth: array[0..15] of byte = (3, 2, 11, 1, 0, 0, 0, 0, 0, 10, 0, 9, 0, 0, 0, 0); |
35 cTagsMasksNoHealth: array[0..15] of byte = (3, 2, 11, 1, 0, 0, 0, 0, 0, 10, 0, 9, 0, 0, 0, 0); |
36 |
36 |
37 procedure chGenCmd(var s: shortstring); |
37 procedure chGenCmd(var s: shortstring); |
38 begin |
38 begin |
39 case s[1] of |
39 case s[1] of |
40 'R': if ReadyTimeLeft > 1 then |
40 'R': if ReadyTimeLeft > 0 then |
41 begin |
41 begin |
42 ReadyTimeLeft:= 1; |
42 ReadyTimeLeft:= 0; |
43 if not isExternalSource then |
43 if not isExternalSource then |
44 SendIPC('c'+s); |
44 SendIPC('c'+s); |
45 end |
45 end |
46 end |
46 end |
47 end; |
47 end; |