--- a/hedgewars/uGears.pas	Thu Apr 24 15:40:39 2008 +0000
+++ b/hedgewars/uGears.pas	Thu Apr 24 19:55:10 2008 +0000
@@ -21,6 +21,7 @@
 uses SDLh, uConsts, uFloat;
 {$INCLUDE options.inc}
 const AllInactive: boolean = false;
+      PrvInactive: boolean = false;
 
 type PGear = ^TGear;
      TGearStepProcedure = procedure (Gear: PGear);
@@ -387,6 +388,7 @@
              stAfterDelay, stSpawn, stNTurn) = stDelay;
 var Gear, t: PGear;
 begin
+PrvInactive:= AllInactive;
 AllInactive:= true;
 t:= GearsList;
 while t<>nil do
@@ -486,6 +488,11 @@
 	aAngle, dAngle: real;
 	defaultPos: boolean;
 begin
+if (Gear^.State and gstHHDeath) <> 0 then
+	begin
+	DrawSprite(sprHHDeath, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 26 + WorldDy, Gear^.Pos);
+	exit
+	end;
 defaultPos:= true;
 
 hx:= hwRound(Gear^.X) + 1 + 8 * hwSign(Gear^.dX) + WorldDx;