25 procedure initModule; |
25 procedure initModule; |
26 procedure freeModule; |
26 procedure freeModule; |
27 |
27 |
28 implementation |
28 implementation |
29 uses uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uWorld, uRandom, uCaptions |
29 uses uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uWorld, uRandom, uCaptions |
|
30 , uVisualGearsList |
30 {$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF}; |
31 {$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF}; |
31 |
32 |
32 var prevGState: TGameState = gsConfirm; |
33 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 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); |
35 cTagsMasksNoHealth: array[0..15] of byte = (3, 2, 11, 1, 0, 0, 0, 0, 0, 10, 0, 9, 0, 0, 0, 0); |
774 cMinesTime:= StrToInt(s) |
775 cMinesTime:= StrToInt(s) |
775 end; |
776 end; |
776 |
777 |
777 procedure chFastUntilLag(var s: shortstring); |
778 procedure chFastUntilLag(var s: shortstring); |
778 begin |
779 begin |
779 fastUntilLag:= StrToInt(s) <> 0 |
780 fastUntilLag:= StrToInt(s) <> 0; |
|
781 |
|
782 if not fastUntilLag then |
|
783 begin |
|
784 // update health bars and the wind indicator |
|
785 AddVisualGear(0, 0, vgtTeamHealthSorter); |
|
786 AddVisualGear(0, 0, vgtSmoothWindBar) |
|
787 end |
780 end; |
788 end; |
781 |
789 |
782 procedure chCampVar(var s:shortstring); |
790 procedure chCampVar(var s:shortstring); |
783 begin |
791 begin |
784 CampaignVariable := s; |
792 CampaignVariable := s; |