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;