hedgewars/GSHandlers.inc
changeset 7874 c8aba48f38dc
parent 7872 ab6db9e07c4d
child 7958 c031c3e2eb2a
child 7992 0b7dc27b2baf
--- 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