--- a/hedgewars/VGSHandlers.inc	Fri Jul 30 12:07:30 2010 -0400
+++ b/hedgewars/VGSHandlers.inc	Fri Jul 30 18:20:42 2010 +0200
@@ -543,3 +543,19 @@
 Gear^.doStep:= @doStepBigExplosionWork;
 if Steps > 1 then Gear^.doStep(Gear, Steps-1);
 end;
+
+procedure doStepChunk(Gear: PVisualGear; Steps: Longword);
+begin
+Gear^.X:= Gear^.X + Gear^.dX * Steps;
+
+Gear^.Y:= Gear^.Y + Gear^.dY * Steps;
+Gear^.dY:= Gear^.dY + cGravityf * Steps;
+
+Gear^.Angle:= round(Gear^.Angle + Steps) mod cMaxAngle;
+
+if round(Gear^.Y) > cWaterLine then
+    begin
+    DeleteVisualGear(Gear);
+    AddVisualGear(round(Gear^.X), round(Gear^.Y), vgtDroplet);
+    end
+end;