equal
deleted
inserted
replaced
878 |
878 |
879 procedure doStepParachute(Gear: PGear); |
879 procedure doStepParachute(Gear: PGear); |
880 var HHGear: PGear; |
880 var HHGear: PGear; |
881 begin |
881 begin |
882 HHGear:= PHedgehog(Gear.Hedgehog).Gear; |
882 HHGear:= PHedgehog(Gear.Hedgehog).Gear; |
883 |
883 HHGear.State:= HHGear.State and not gstAttacking; |
884 if TestCollisionYwithGear(HHGear, 1) or ((HHGear.State and gstHHDriven) = 0) then |
884 |
|
885 if TestCollisionYwithGear(HHGear, 1) |
|
886 or ((HHGear.State and gstHHDriven) = 0) |
|
887 or CheckGearDrowning(HHGear) then |
885 begin |
888 begin |
886 with HHGear^ do |
889 with HHGear^ do |
887 begin |
890 begin |
888 Message:= 0; |
891 Message:= 0; |
889 dx:= 0.0000001 * hwSign(dX); |
892 dx:= 0.0000001 * hwSign(dX); |