hedgewars/uGears.pas
changeset 13811 3fa9e30927f1
parent 13763 6fd56a26e8b8
child 13833 c0a7ef988151
--- a/hedgewars/uGears.pas	Wed Sep 12 19:51:45 2018 +0300
+++ b/hedgewars/uGears.pas	Sat Sep 15 15:26:23 2018 +0200
@@ -336,14 +336,18 @@
         if TotalRoundsPre = cSuddenDTurns + 1 then
             bWaterRising:= true;
         if bWaterRising and (cWaterRise > 0) then
+            begin
+            bDuringWaterRise:= true;
             AddGear(0, 0, gtWaterUp, 0, _0, _0, 0)^.Tag:= cWaterRise;
+            end;
         inc(step)
         end
-    else // since we are not raising the water, a second win-check isn't needed
+    else // since we are not raising the water, another win-check isn't needed
         inc(step,2);
     stChWin3:
         begin
         CheckForWin;
+        bDuringWaterRise:= false;
         inc(step)
         end;