hedgewars/uGears.pas
changeset 1056 bb33a634a4b0
parent 1055 9af540b23409
child 1058 c53c5c4e7b48
--- 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;