hedgewars/uGearsHandlersMess.pas
changeset 14003 23fb123bd70c
parent 14001 755f389a1e73
child 14010 31bdb759d98b
--- a/hedgewars/uGearsHandlersMess.pas	Sat Oct 27 00:17:43 2018 +0300
+++ b/hedgewars/uGearsHandlersMess.pas	Sat Oct 27 00:01:53 2018 +0200
@@ -5576,6 +5576,7 @@
 
     if (Gear^.Health = 0) or ((HHGear^.State and gstHHDriven) = 0) then
         begin
+        HHGear^.Message:= HHGear^.Message and (not (gmAttack or gmLeft or gmRight));
         HHGear^.State := HHGear^.State and (not gstNotKickable);
         StopSoundChan(Gear^.SoundChannel, 300);
         DeleteGear(Gear);
@@ -5661,7 +5662,7 @@
 
     if (Gear^.Health = 0) or ((HHGear^.State and gstHHDriven) = 0) or ((HHGear^.Message and gmAttack) <> 0) then
         begin
-        HHGear^.Message:= HHGear^.Message and (not gmAttack);
+        HHGear^.Message:= HHGear^.Message and (not (gmAttack or gmLeft or gmRight));
         HHGear^.State := HHGear^.State and (not gstNotKickable);
         StopSoundChan(gear^.SoundChannel);
         DeleteGear(Gear);