--- a/hedgewars/uGears.pas	Tue Aug 03 13:40:11 2010 +0100
+++ b/hedgewars/uGears.pas	Tue Aug 03 15:13:32 2010 +0200
@@ -204,7 +204,8 @@
             @doStepFlamethrower,
             @doStepSMine,
             @doStepPoisonCloud,
-            @doStepHammer
+            @doStepHammer,
+            @doStepHammerHit
             );
 
 procedure InsertGearToList(Gear: PGear);
@@ -341,6 +342,10 @@
                 gear^.Radius:= 10;
                 gear^.Timer:= 4000
                 end;
+   gtHammerHit: begin
+                gear^.Radius:= 8;
+                gear^.Timer:= 125
+                end;
         gtRope: begin
                 gear^.Radius:= 3;
                 gear^.Friction:= _450;