--- a/hedgewars/uGears.pas	Sat Nov 13 20:42:26 2010 +0300
+++ b/hedgewars/uGears.pas	Sat Nov 13 23:03:17 2010 +0300
@@ -209,7 +209,8 @@
             @doStepPoisonCloud,
             @doStepHammer,
             @doStepHammerHit,
-            @doStepResurrector
+            @doStepResurrector,
+            @doStepNapalmBomb
             );
 
 procedure InsertGearToList(Gear: PGear);
@@ -545,6 +546,10 @@
      gtWaterUp: begin
                 gear^.Tag := 47;
                 end;
+  gtNapalmBomb: begin
+                gear^.Timer:= 1000;
+                gear^.Radius:= 5;
+                end;
     end;
 
 InsertGearToList(gear);