Arbitrarily tweaked to not firepunch loose, and to increase chance of bazooka doing it to about 20%
--- a/hedgewars/GSHandlers.inc Mon Oct 29 14:32:54 2012 +0400
+++ b/hedgewars/GSHandlers.inc Mon Oct 29 09:35:16 2012 -0400
@@ -5254,8 +5254,8 @@
// 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;
+ else if Gear^.Damage > 30 then
+ if GetRandom(max(4,18-Gear^.Damage div 10)) < 3 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