hedgewars/uGearsList.pas
changeset 15129 7a54df47b852
parent 15117 eff1a080cf40
child 15167 6b7d92fa4912
--- a/hedgewars/uGearsList.pas	Mon Jun 03 16:49:42 2019 +0200
+++ b/hedgewars/uGearsList.pas	Mon Jun 03 18:56:08 2019 +0200
@@ -330,6 +330,7 @@
                              ((GetRandom(90)+128) shl 16) or
                              (($d5+c) shl 8) or $ff}
                 end;
+   gtParachute: gear^.Z:= cCurrHHZ;
        gtShell: begin
                 gear^.Elasticity:= _0_8;
                 gear^.Friction:= _0_8;