# HG changeset patch # User sheepluva # Date 1346058309 -7200 # Node ID 047c6692a2e7c93089c99a2ce4dceea19eb65d56 # Parent 5013e11e13e544f0c848ccd1236ef6c983a41187 shutting the windows/pas2c build bot up: pas2c seems to fail parsing 'not' after a logical 'and' or 'or' (if no parenthesis) diff -r 5013e11e13e5 -r 047c6692a2e7 hedgewars/uGearsHandlersRope.pas --- 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