hedgewars/GSHandlers.inc
changeset 7864 667b7583c389
parent 7829 c1dc7839d7b9
child 7872 ab6db9e07c4d
--- a/hedgewars/GSHandlers.inc	Mon Oct 29 00:03:42 2012 +0400
+++ b/hedgewars/GSHandlers.inc	Sun Oct 28 17:31:54 2012 -0400
@@ -5249,6 +5249,7 @@
 procedure doStepKnife(Gear: PGear);
 var ox, oy: LongInt;
     la: hwFloat;
+    a: real;
 begin
     // Gear is shrunk so it can actually escape the hog without carving into the terrain
     if (Gear^.Radius = 6) and (Gear^.CollisionMask = $FFFF) then Gear^.Radius:= 16;
@@ -5260,7 +5261,9 @@
         Gear^.Health:= hwRound(hwSqr((hwAbs(Gear^.dY)+hwAbs(Gear^.dX))*_4));
         doStepFallingGear(Gear);
         AllInactive := false;
-        CalcRotationDirAngle(Gear)
+        a:= Gear^.DirAngle;
+        CalcRotationDirAngle(Gear);
+        Gear^.DirAngle:= a+(Gear^.DirAngle-a)*2*hwSign(Gear^.dX) // double rotation
         end
     else if (Gear^.CollisionIndex = -1) and (Gear^.Timer = 0) then
         begin