--- a/hedgewars/uCollisions.pas Fri May 30 21:27:03 2008 +0000
+++ b/hedgewars/uCollisions.pas Sun Jun 01 12:16:24 2008 +0000
@@ -194,6 +194,9 @@
if flag then
begin
if hwAbs(Gear^.dX) < cHHKick then exit;
+ if (Gear^.State and gstHHJumping <> 0)
+ and (hwAbs(Gear^.dX) < _0_4) then exit;
+
mx:= hwRound(Gear^.X);
my:= hwRound(Gear^.Y);
@@ -242,6 +245,10 @@
if flag then
begin
if hwAbs(Gear^.dY) < cHHKick then exit(true);
+ if (Gear^.State and gstHHJumping <> 0)
+ and (not Gear^.dY.isNegative)
+ and (Gear^.dY < _0_4) then exit;
+
mx:= hwRound(Gear^.X);
my:= hwRound(Gear^.Y);