hedgewars/uGearsHandlersMess.pas
changeset 15253 000d3262244c
parent 15246 4aa19b21707d
child 15278 16f389fcd462
--- a/hedgewars/uGearsHandlersMess.pas	Thu Jul 18 03:39:58 2019 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Thu Jul 18 18:45:30 2019 +0200
@@ -6330,7 +6330,12 @@
         begin
         if (HH^.Gear^.Damage <> 0) or (HH^.Gear^.Health = 0) or
         ((HH^.Gear^.State and (gstMoving or gstHHDeath or gstHHGone or gstDrowning)) <> 0) then
+            begin
             Gear^.Tag:= 1;
+            HH^.Gear^.State:= HH^.Gear^.State and (not gstAttacking);
+            HH^.Gear^.Message:= HH^.Gear^.Message and (not gmAttack);
+            AfterAttack;
+            end;
         end
     else if HH^.GearHidden = nil then
         Gear^.Tag:= 1;