equal
deleted
inserted
replaced
3266 HHGear := Gear^.Hedgehog^.Gear; |
3266 HHGear := Gear^.Hedgehog^.Gear; |
3267 OnUsedAmmo(HHGear^.Hedgehog^); |
3267 OnUsedAmmo(HHGear^.Hedgehog^); |
3268 with HHGear^ do |
3268 with HHGear^ do |
3269 begin |
3269 begin |
3270 State := State and (not gstAttacking); |
3270 State := State and (not gstAttacking); |
3271 Message := Message and (not gmAttack) |
3271 Message := Message and (not (gmAttack or gmSwitch)) |
3272 end |
3272 end |
3273 end; |
3273 end; |
3274 |
3274 |
3275 //////////////////////////////////////////////////////////////////////////////// |
3275 //////////////////////////////////////////////////////////////////////////////// |
3276 procedure doStepMortar(Gear: PGear); |
3276 procedure doStepMortar(Gear: PGear); |