--- a/hedgewars/uGears.pas	Tue May 18 13:09:57 2010 +0000
+++ b/hedgewars/uGears.pas	Wed May 19 02:10:28 2010 +0000
@@ -182,7 +182,8 @@
             @doStepPortalShot,
             @doStepPiano,
             @doStepBomb,
-            @doStepSineGunShot
+            @doStepSineGunShot,
+            @doStepFlamethrower
             );
 
 procedure InsertGearToList(Gear: PGear);
@@ -483,6 +484,9 @@
                 gear^.Radius:= 5;
                 gear^.Health:= 6000;
                 end;
+gtFlamethrower: begin
+                gear^.Timer:= 5001;
+                end;
      end;
 InsertGearToList(gear);
 AddGear:= gear;