hedgewars/uGearsHedgehog.pas
changeset 15146 6b7d92fa4912
parent 15127 f3f09c71ff6c
child 15394 b7e40129dbdb
--- a/hedgewars/uGearsHedgehog.pas	Sat Jun 15 12:10:42 2019 +0200
+++ b/hedgewars/uGearsHedgehog.pas	Sat Jun 15 12:58:01 2019 +0200
@@ -270,7 +270,7 @@
     newGear:  PGear;
     CurWeapon: PAmmo;
     usedAmmoType: TAmmoType;
-    altUse: boolean;
+    altUse, faceLeft: boolean;
     elastic: hwFloat;
 begin
 newGear:= nil;
@@ -414,7 +414,10 @@
                                  PlaySound(sndBaseballBat) // TODO: Only play if something is hit?
                                  end;
                     amParachute: begin
+                                 faceLeft:= IsHogFacingLeft(Gear);
                                  newGear:= AddGear(hwRound(lx), hwRound(ly), gtParachute, 0, _0, _0, 0);
+                                 if faceLeft then
+                                     newGear^.Tag:= -1;
                                  PlaySound(sndParachute)
                                  end;
                     // we save CurWeapon^.Pos (in this case: cursor direction) by using it as (otherwise irrelevant) X value of the new gear.