Don't show ammo caption for every repeat rope attach
authorWuzzy <Wuzzy2@mail.ru>
Mon, 21 Jan 2019 21:06:55 +0100
changeset 14658 4aec7d17ef7d
parent 14657 919754e1c269
child 14659 8bd005067f4a
Don't show ammo caption for every repeat rope attach
hedgewars/uGearsHandlersRope.pas
--- a/hedgewars/uGearsHandlersRope.pas	Mon Jan 21 20:17:44 2019 +0100
+++ b/hedgewars/uGearsHandlersRope.pas	Mon Jan 21 21:06:55 2019 +0100
@@ -417,9 +417,9 @@
     if (Gear^.State and gstAttacked) = 0 then
         begin
         OnUsedAmmo(HHGear^.Hedgehog^);
-        Gear^.State := Gear^.State or gstAttacked
+        Gear^.State := Gear^.State or gstAttacked;
+        ApplyAmmoChanges(HHGear^.Hedgehog^);
         end;
-    ApplyAmmoChanges(HHGear^.Hedgehog^)
 end;
 
 procedure doStepRopeAttach(Gear: PGear);