hedgewars/uGearsHandlersMess.pas
changeset 13825 096cc009e0b8
parent 13806 506cca5a48cb
child 13871 4e4111a75256
equal deleted inserted replaced
13824:552f0d5ab3e7 13825:096cc009e0b8
  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);