--- a/hedgewars/uGears.pas	Fri Dec 15 12:48:40 2006 +0000
+++ b/hedgewars/uGears.pas	Sun Dec 17 17:55:41 2006 +0000
@@ -86,6 +86,7 @@
 procedure SpawnBoxOfSmth; forward;
 procedure AfterAttack; forward;
 procedure FindPlace(Gear: PGear; withFall: boolean; Left, Right: integer); forward;
+procedure HedgehogStep(Gear: PGear); forward;
 
 {$INCLUDE GSHandlers.inc}
 {$INCLUDE HHHandlers.inc}
@@ -118,7 +119,8 @@
                                                                doStepActionTimer,
                                                                doStepParachute,
                                                                doStepAirAttack,
-                                                               doStepAirBomb
+                                                               doStepAirBomb,
+                                                               doStepBlowTorch
                                                                );
 
 procedure InsertGearToList(Gear: PGear);
@@ -259,9 +261,12 @@
                 Result.Radius:= 15;
                 Result.Tag:= Y
                 end;
-    gtAirBomb: begin
-               Result.Radius:= 10;
-               end;
+     gtAirBomb: begin
+                Result.Radius:= 10;
+                end;
+   gtBlowTorch: begin
+                Result.Timer:= 6000;
+                end;
      end;
 InsertGearToList(Result)
 end;