hedgewars/uGearsHedgehog.pas
changeset 7426 55b49cc1f33a
parent 7409 fd91aa100ce0
child 7442 9bb6abdb5675
child 7459 8511a3f899d3
--- a/hedgewars/uGearsHedgehog.pas	Tue Jul 24 18:53:42 2012 -0400
+++ b/hedgewars/uGearsHedgehog.pas	Wed Jul 25 10:56:14 2012 -0400
@@ -853,7 +853,7 @@
     Gear^.State:= Gear^.State and (not gstMoving);
     exit
     end;
-isFalling:= (Gear^.dY.isNegative) or not TestCollisionYKick(Gear, 1);
+isFalling:= (Gear^.dY.isNegative) or (not TestCollisionYKick(Gear, 1));
 if isFalling then
     begin
     if (Gear^.dY.isNegative) and TestCollisionYKick(Gear, -1) then
@@ -983,7 +983,7 @@
     begin
     Gear^.State:= Gear^.State and (not gstWinner);
     Gear^.State:= Gear^.State and (not gstMoving);
-    while (TestCollisionYWithGear(Gear,1) = 0) and not CheckGearDrowning(Gear) do
+    while (TestCollisionYWithGear(Gear,1) = 0) and (not CheckGearDrowning(Gear)) do
         Gear^.Y:= Gear^.Y+_1;
     SetLittle(Gear^.dX);
     Gear^.dY:= _0