hedgewars/uGearsHedgehog.pas
changeset 10895 bce67defd804
parent 10818 f642a28cab0c
child 10942 5d7dd938dedc
--- a/hedgewars/uGearsHedgehog.pas	Sun Apr 05 12:44:54 2015 +0900
+++ b/hedgewars/uGearsHedgehog.pas	Sun Apr 05 16:41:39 2015 -0400
@@ -895,6 +895,7 @@
         if land and lfBouncy <> 0 then
             begin
             doStepFallingGear(Gear);
+            Gear^.AdvBounce:= 1;
             Gear^.dX:= Gear^.dX * _0_8
             end;
         if (land and lfBouncy = 0) or (Gear^.State and gstCollision <> 0) then
@@ -935,6 +936,7 @@
         if land and lfBouncy <> 0 then
             begin
             doStepFallingGear(Gear);
+            Gear^.AdvBounce:= 1;
             // hogs for some reason have very low friction. slippery little buggers
             Gear^.dX:= Gear^.dX * _0_8
             end;
@@ -1072,6 +1074,7 @@
         land:= TestCollisionYwithXYShift(Gear, 0, 1, 1);
         if land and lfBouncy <> 0 then
             doStepFallingGear(Gear);
+            Gear^.AdvBounce:= 1;
 
         if (land <> 0) and ((land and lfBouncy = 0) or (Gear^.State and gstCollision <> 0)) then
             begin