--- 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;