28 implementation |
28 implementation |
29 uses uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uRandom, uCaptions |
29 uses uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uRandom, uCaptions |
30 {$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF}; |
30 {$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF}; |
31 |
31 |
32 var prevGState: TGameState = gsConfirm; |
32 var prevGState: TGameState = gsConfirm; |
|
33 cTagsMasks : array[0..15] of byte = (7, 0, 0, 0, 15, 6, 4, 5, 0, 0, 0, 0, 0, 14, 12, 13); |
|
34 cTagsMasksNoHealth: array[0..15] of byte = (3, 2, 11, 1, 0, 0, 0, 0, 0, 10, 0, 9, 0, 0, 0, 0); |
33 |
35 |
34 procedure chGenCmd(var s: shortstring); |
36 procedure chGenCmd(var s: shortstring); |
35 begin |
37 begin |
36 case s[1] of |
38 case s[1] of |
37 'R': if ReadyTimeLeft > 1 then |
39 'R': if ReadyTimeLeft > 1 then |