# HG changeset patch
# User nemo
# Date 1351501575 14400
# Node ID ab6db9e07c4d90afe2c3bae2548f6b570849336c
# Parent  ff55648c73bf142e10bace6a4889bd0683f799bd
Allow cleavers to be knocked loose by explosions.  Probabilities might need tweaking.

diff -r ff55648c73bf -r ab6db9e07c4d hedgewars/GSHandlers.inc
--- 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