--- a/hedgewars/GSHandlers.inc	Sat May 10 14:46:02 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Sat May 10 16:26:53 2008 +0000
@@ -968,7 +968,7 @@
 procedure doStepIdle(Gear: PGear);
 begin
 AllInactive:= false;
-dec(Gear^.Timer);addfilelog(inttostr(Gear^.Timer));
+dec(Gear^.Timer);
 if Gear^.Timer = 0 then
 	begin
 	DeleteGear(Gear);
@@ -988,6 +988,25 @@
 end;
 
 ////////////////////////////////////////////////////////////////////////////////
+procedure doStepWhip(Gear: PGear);
+var HHGear: PGear;
+    i: LongInt;
+begin
+HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
+HHGear^.State:= HHGear^.State or gstNoDamage;
+
+for i:= 0 to 3 do
+	begin
+	AmmoShove(Gear, 30, 25);
+	Gear^.X:= Gear^.X + Gear^.dX * 5
+	end;
+
+HHGear^.State:= HHGear^.State and not gstNoDamage;
+Gear^.Timer:= 250;
+Gear^.doStep:= @doStepIdle
+end;
+
+////////////////////////////////////////////////////////////////////////////////
 procedure doStepFlame(Gear: PGear);
 begin
 AllInactive:= false;