--- a/hedgewars/VGSHandlers.inc	Sun Nov 14 02:38:05 2010 -0500
+++ b/hedgewars/VGSHandlers.inc	Sun Nov 14 12:57:01 2010 +0100
@@ -618,3 +618,12 @@
     DeleteVisualGear(Gear);
     end
 end;
+
+////////////////////////////////////////////////////////////////////////////////
+procedure doStepBulletHit(Gear: PVisualGear; Steps: Longword);
+begin
+  if Gear^.FrameTicks <= Steps then
+      DeleteVisualGear(Gear)
+  else
+      dec(Gear^.FrameTicks, Steps);
+end;