Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix timings regression
authorunc0rr
Sun, 06 Jul 2008 20:02:42 +0000
changeset 1056 bb33a634a4b0
parent 1055 9af540b23409
child 1057 6b5785287f42
Fix timings regression
hedgewars/uGears.pas file | annotate | diff | comparison | revisions 
--- 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;
hedgewars