fix pickhammer collision when moving upwards, thanks to MK for reporting
authorsheepluva
Sat, 18 Jul 2015 19:10:57 +0200
changeset 11020 2aa09da8f3ef
parent 11019 67ef02300508
child 11021 981775ec7dda
fix pickhammer collision when moving upwards, thanks to MK for reporting
hedgewars/uGearsHandlersMess.pas
--- 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