author | sheepluva |
Sat, 18 Jul 2015 19:10:57 +0200 | |
changeset 11020 | 2aa09da8f3ef |
parent 11019 | 67ef02300508 |
child 11021 | 981775ec7dda |
--- a/hedgewars/uGearsHandlersMess.pas Sat Jul 18 02:44:36 2015 +0200 +++ b/hedgewars/uGearsHandlersMess.pas Sat Jul 18 19:10:57 2015 +0200 @@ -1504,6 +1504,11 @@ SetLittle(HHGear^.dX); HHGear^.dY := _0; end + else if Gear^.dY.isNegative and (TestCollisionYwithGear(HHGear, -1) <> 0) then + begin + Gear^.dY := cGravity; + HHGear^.dY := cGravity; + end else begin if CheckLandValue(hwRound(Gear^.X), hwRound(Gear^.Y + Gear^.dY + cGravity), lfLandMask) then