hedgewars/uCommandHandlers.pas
changeset 10862 4575977d3ce0
parent 10822 def423815f24
child 11024 b02e38762bbb
--- 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);