--- a/hedgewars/uGears.pas	Tue Jan 06 11:30:50 2009 +0000
+++ b/hedgewars/uGears.pas	Tue Jan 06 14:18:09 2009 +0000
@@ -295,9 +295,9 @@
      gtCluster: Result^.Radius:= 2;
       gtShover: Result^.Radius:= 20;
        gtFlame: begin
-                Result^.Tag:= Counter mod 64;
+                Result^.Tag:= Counter mod 32;
                 Result^.Radius:= 1;
-                Result^.Health:= 2;
+                Result^.Health:= 5;
                 if (Result^.dY.QWordValue = 0) and (Result^.dX.QWordValue = 0) then
                 	begin
                 	Result^.dY:= (getrandom - _0_8) * _0_03;