--- a/hedgewars/GSHandlers.inc	Mon Oct 29 12:51:21 2012 +0400
+++ b/hedgewars/GSHandlers.inc	Mon Oct 29 05:06:15 2012 -0400
@@ -5253,6 +5253,10 @@
 begin
     // Gear is shrunk so it can actually escape the hog without carving into the terrain
     if (Gear^.Radius = 6) and (Gear^.CollisionMask = $FFFF) then Gear^.Radius:= 16;
+    if Gear^.Damage > 100 then Gear^.CollisionMask:= 0
+    else if Gear^.Damage > 20 then
+        if GetRandom(max(2,10-Gear^.Damage div 10)) = 0 then Gear^.CollisionMask:= 0;
+    Gear^.Damage:= 0;
     if Gear^.Timer > 0 then dec(Gear^.Timer);
     if (Gear^.State and gstMoving <> 0) and (Gear^.State and gstCollision = 0) then
         begin