hedgewars/GSHandlers.inc
changeset 4969 ffc9ac920985
parent 4966 fa612a614317
child 4976 088d40d8aba2
--- a/hedgewars/GSHandlers.inc	Sun Feb 27 21:06:28 2011 +0300
+++ b/hedgewars/GSHandlers.inc	Sun Feb 27 13:35:08 2011 -0500
@@ -1703,8 +1703,8 @@
             else if Gear^.dX.isNegative and (Gear^.dX < -_0_2) and TestCollisionXwithGear(Gear, -1) then
                  inc(Gear^.Damage, hwRound(Gear^.dX * -_70));
         
-        if (Gear^.Damage > random(10)) and ((GameTicks and $FF) = 0) then
-            AddVisualGear(hwRound(Gear^.X) - 16 + Random(32), hwRound(Gear^.Y), vgtSmoke);
+        if (Gear^.Damage > random(30)) and ((GameTicks and $FF) = 0) then
+            AddVisualGear(hwRound(Gear^.X) - 4  + Random(8), hwRound(Gear^.Y) - 4 - Random(4), vgtSmoke);
 
         if (Gear^.Damage > 35) then
             begin