# HG changeset patch
# User unc0rr
# Date 1215374562 0
# Node ID bb33a634a4b085a2e9700378c848749d2eea7eec
# Parent  9af540b2340975b9389f28a6aa19237eedc1ff52
Fix timings regression

diff -r 9af540b23409 -r bb33a634a4b0 hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Sun Jul 06 19:31:12 2008 +0000
+++ b/hedgewars/uGears.pas	Sun Jul 06 20:02:42 2008 +0000
@@ -483,14 +483,18 @@
         stWater: begin
                  if GameTicks > 25 * 60 * 1000 then bWaterRising:= true;
 
-                 if not bWaterRising then inc(step);
-                 if delay = 0 then
-                    delay:= 17
+                 if not bWaterRising then
+                    inc(step)
                  else
-                    dec(delay);
+                    begin
+                    if delay = 0 then
+                       delay:= 17
+                    else
+                       dec(delay);
 
-                 if delay = 0 then
-                    if not WaterMachine then inc(step)
+                    if delay = 0 then
+                       if not WaterMachine then inc(step)
+                    end
                  end;
        stHealth: begin
                  if GameTicks > 20 * 60 * 1000 then cHealthDecrease:= 5;