hedgewars/GSHandlers.inc
changeset 3307 275af46392bd
parent 3303 397a8f048bb3
child 3320 506f7d6a82b3
equal deleted inserted replaced
3306:fcdf6d85b042 3307:275af46392bd
  2955 else
  2955 else
  2956     Gear^.Tag:= 1;
  2956     Gear^.Tag:= 1;
  2957 Gear^.Pos:= 0;
  2957 Gear^.Pos:= 0;
  2958 AllInactive:= false;
  2958 AllInactive:= false;
  2959 FollowGear:= HHGear;
  2959 FollowGear:= HHGear;
  2960 OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
       
  2961 ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
       
  2962 with HHGear^ do
  2960 with HHGear^ do
  2963     begin
  2961     begin
  2964     State:= State and not gstAttacking;
  2962     State:= State and not gstAttacking;
  2965     Message:= Message and not (gm_Attack or gm_Up or gm_Precise or gm_Left or gm_Right)
  2963     Message:= Message and not (gm_Attack or gm_Up or gm_Precise or gm_Left or gm_Right)
  2966     end
  2964     end