--- a/hedgewars/GSHandlers.inc	Sun Jun 28 21:43:46 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Sun Jun 28 23:36:41 2009 +0000
@@ -1822,6 +1822,7 @@
 	end;
 
 dec(Gear^.Health);
+Gear^.Timer:= Gear^.Health*10; // This is not seconds, but at least it is *some* feedback
 if (Gear^.Health = 0) or ((Gear^.Message and gm_Attack) <> 0) then
 	begin
 	FollowGear:= Gear;

--- a/hedgewars/uGears.pas	Sun Jun 28 21:43:46 2009 +0000
+++ b/hedgewars/uGears.pas	Sun Jun 28 23:36:41 2009 +0000
@@ -346,8 +346,7 @@
                 end;
    gtBlowTorch: begin
                 Result^.Radius:= cHHRadius + cBlowTorchC;
-                Result^.Timer:= 7500;
-                Result^.RenderTimer:= true
+                Result^.Timer:= 7500
                 end;
     gtSwitcher: begin
                 Result^.Z:= cCurrHHZ
@@ -381,8 +380,7 @@
                 end;
        gtDrill: begin
                 Result^.Timer:= 5000;
-                Result^.Radius:= 4;
-                Result^.RenderTimer:= true
+                Result^.Radius:= 4
                 end;
         gtBall: begin
                 Result^.Radius:= 5;