--- a/hedgewars/uCommandHandlers.pas Wed Mar 18 23:13:37 2015 +0300
+++ b/hedgewars/uCommandHandlers.pas Wed Mar 18 23:18:52 2015 +0300
@@ -27,6 +27,7 @@
implementation
uses uCommands, uTypes, uVariables, uIO, uDebug, uConsts, uScript, uUtils, SDLh, uWorld, uRandom, uCaptions
+ , uVisualGearsList
{$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF};
var prevGState: TGameState = gsConfirm;
@@ -776,7 +777,14 @@
procedure chFastUntilLag(var s: shortstring);
begin
-fastUntilLag:= StrToInt(s) <> 0
+ fastUntilLag:= StrToInt(s) <> 0;
+
+ if not fastUntilLag then
+ begin
+ // update health bars and the wind indicator
+ AddVisualGear(0, 0, vgtTeamHealthSorter);
+ AddVisualGear(0, 0, vgtSmoothWindBar)
+ end
end;
procedure chCampVar(var s:shortstring);