--- a/hedgewars/uGears.pas	Mon Jun 09 15:26:52 2008 +0000
+++ b/hedgewars/uGears.pas	Mon Jun 09 20:34:45 2008 +0000
@@ -136,7 +136,8 @@
                                                                @doStepSwitcher,
                                                                @doStepCase,
                                                                @doStepMortar,
-                                                               @doStepWhip
+                                                               @doStepWhip,
+                                                               @doStepKamikaze
                                                                );
 
 procedure InsertGearToList(Gear: PGear);
@@ -306,6 +307,10 @@
                 Result^.Friction:= _0_08
                 end;
         gtWhip: Result^.Radius:= 20;
+    gtKamikaze: begin
+                Result^.Health:= 2048;
+                Result^.Radius:= 20
+                end;
      end;
 InsertGearToList(Result);
 AddGear:= Result