hedgewars/uCollisions.pas
changeset 967 8be3938d73c2
parent 906 1cc10dde304c
child 1066 1f1b3686a2b0
--- 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);