hedgewars/uGearsList.pas
changeset 15151 6b7d92fa4912
parent 15113 7a54df47b852
child 15215 f783f5d55717
--- a/hedgewars/uGearsList.pas	Sat Jun 15 12:10:42 2019 +0200
+++ b/hedgewars/uGearsList.pas	Sat Jun 15 12:58:01 2019 +0200
@@ -330,7 +330,10 @@
                              ((GetRandom(90)+128) shl 16) or
                              (($d5+c) shl 8) or $ff}
                 end;
-   gtParachute: gear^.Z:= cCurrHHZ;
+   gtParachute: begin
+                gear^.Tag:= 1; // hog face dir. 1 = right, -1 = left
+                gear^.Z:= cCurrHHZ;
+                end;
        gtShell: begin
                 gear^.Elasticity:= _0_8;
                 gear^.Friction:= _0_8;