hedgewars/HHHandlers.inc
changeset 369 2aed85310727
parent 351 29bc9c36ad5f
child 371 731ad6d27bd1
--- a/hedgewars/HHHandlers.inc	Fri Jan 26 18:39:40 2007 +0000
+++ b/hedgewars/HHHandlers.inc	Fri Jan 26 22:36:21 2007 +0000
@@ -280,7 +280,7 @@
    if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then SetLittle(Gear^.dX);
    Gear^.X:= Gear^.X + Gear^.dX;
    Gear^.dY:= Gear^.dY + cGravity;
-   if (Gear^.dY < 0)and TestCollisionYwithGear(Gear, -1) then Gear^.dY:= 0;
+   if (Gear^.dY.isNegative)and TestCollisionYwithGear(Gear, -1) then Gear^.dY:= 0;
    Gear^.Y:= Gear^.Y + Gear^.dY;
    if (not Gear^.dY.isNegative)and TestCollisionYwithGear(Gear, 1) then
       begin