--- a/hedgewars/uGears.pas	Sat May 10 14:46:02 2008 +0000
+++ b/hedgewars/uGears.pas	Sat May 10 16:26:53 2008 +0000
@@ -134,7 +134,8 @@
                                                                @doStepHealthTag,
                                                                @doStepSwitcher,
                                                                @doStepCase,
-                                                               @doStepMortar
+                                                               @doStepMortar,
+                                                               @doStepWhip
                                                                );
 
 procedure InsertGearToList(Gear: PGear);
@@ -303,6 +304,7 @@
                 Result^.Elasticity:= _0_2;
                 Result^.Friction:= _0_08
                 end;
+        gtWhip: Result^.Radius:= 20;
      end;
 InsertGearToList(Result);
 AddGear:= Result