equal
deleted
inserted
replaced
1133 Gear^.Y:= HHGear^.Y |
1133 Gear^.Y:= HHGear^.Y |
1134 end; |
1134 end; |
1135 |
1135 |
1136 procedure doStepParachute(Gear: PGear); |
1136 procedure doStepParachute(Gear: PGear); |
1137 var HHGear: PGear; |
1137 var HHGear: PGear; |
1138 Timer: Longword; |
|
1139 begin |
1138 begin |
1140 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
1139 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
1141 |
1140 |
1142 DeleteCI(HHGear); |
1141 DeleteCI(HHGear); |
1143 |
1142 |
1144 OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^); |
1143 OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^); |
1145 ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^); |
1144 ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^); |
1146 |
1145 |
1147 HHGear^.State:= HHGear^.State and not (gstAttacking or gstAttacked); |
1146 HHGear^.State:= HHGear^.State and not (gstAttacking or gstAttacked or gstMoving); |
1148 HHGear^.Message:= HHGear^.Message and not gm_Attack; |
1147 HHGear^.Message:= HHGear^.Message and not gm_Attack; |
1149 |
1148 |
1150 Gear^.doStep:= @doStepParachuteWork; |
1149 Gear^.doStep:= @doStepParachuteWork; |
1151 |
1150 |
1152 Gear^.Message:= HHGear^.Message; |
1151 Gear^.Message:= HHGear^.Message; |