hedgewars/uGearsHandlersRope.pas
changeset 7612 047c6692a2e7
parent 7611 5013e11e13e5
child 7647 e496587db93e
--- a/hedgewars/uGearsHandlersRope.pas	Sun Aug 26 21:07:12 2012 -0400
+++ b/hedgewars/uGearsHandlersRope.pas	Mon Aug 27 11:05:09 2012 +0200
@@ -86,7 +86,7 @@
             stuck:= TestCollisionYwithGear(HHGear, 1) <> 0;
             if stuck then HHGear^.Y:= HHGear^.Y-_1
             end
-        until (i = 8) or not stuck;
+        until (i = 8) or (not stuck);
         HHGear^.Y:= HHGear^.Y+_1;
         // experiment in simulating something the shoppa players apparently expect
         if Gear^.Message and gmDown <> 0 then
@@ -110,7 +110,7 @@
             stuck:= TestCollisionYwithGear(HHGear, -1) <> 0;
             if stuck then HHGear^.Y:= HHGear^.Y+_1
             end
-        until (i = 8) or not stuck;
+        until (i = 8) or (not stuck);
         HHGear^.Y:= HHGear^.Y-_1;
         if Gear^.Message and gmDown <> 0 then
             begin
@@ -124,7 +124,7 @@
         else if Gear^.Message and gmLeft <> 0 then
             HHGear^.dX.isNegative:= false
         end;
-    if TestCollisionXwithGear(HHGear, 1) and not TestCollisionXwithGear(HHGear, -1) then
+    if TestCollisionXwithGear(HHGear, 1) and (not TestCollisionXwithGear(HHGear, -1)) then
         begin
         i:= 1;
         repeat
@@ -133,7 +133,7 @@
             stuck:= TestCollisionXwithGear(HHGear, 1);
             if stuck then HHGear^.X:= HHGear^.X-_1
             end
-        until (i = 8) or not stuck;
+        until (i = 8) or (not stuck);
         HHGear^.X:= HHGear^.X+_1;
         if Gear^.Message and gmDown <> 0 then
             begin
@@ -147,7 +147,7 @@
         else if Gear^.Message and gmLeft <> 0 then
             HHGear^.dY.isNegative:= false
         end
-    else if TestCollisionXwithGear(HHGear, -1) and not TestCollisionXwithGear(HHGear, 1) then
+    else if TestCollisionXwithGear(HHGear, -1) and (not TestCollisionXwithGear(HHGear, 1)) then
         begin
         i:= 1;
         repeat
@@ -156,7 +156,7 @@
             stuck:= TestCollisionXwithGear(HHGear, -1);
             if stuck then HHGear^.X:= HHGear^.X+_1
             end
-        until (i = 8) or not stuck;
+        until (i = 8) or (not stuck);
         HHGear^.X:= HHGear^.X-_1;
         if Gear^.Message and gmDown <> 0 then
             begin