hedgewars/uGearsHandlersMess.pas
changeset 9356 2f00db522065
parent 9305 8e5140875ab5
child 9362 c9fdf8a3baf0
--- a/hedgewars/uGearsHandlersMess.pas	Fri Jul 12 08:21:25 2013 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Thu Jul 18 16:58:28 2013 -0400
@@ -5249,7 +5249,7 @@
     vg: PVisualGear;
 begin
     HHGear := Gear^.Hedgehog^.Gear;
-    if (Gear^.Message and gmAttack <> 0) or (HHGear = nil) or ((HHGear^.State and gstHHDriven) = 0) or (HHGear^.dX.QWordValue > 4294967)  then
+    if (Gear^.Message and gmAttack <> 0) or (Gear^.Health = 0) or (HHGear = nil) or ((HHGear^.State and gstHHDriven) = 0) or (HHGear^.dX.QWordValue > 4294967)  then
         begin
         StopSoundChan(Gear^.SoundChannel);
         DeleteGear(Gear);