reduce shove frequency (perf). reduce dX so that less time is spent sliding.
authornemo
Wed, 26 Jun 2013 21:40:10 -0400
changeset 9277 ad1ec7212ac7
parent 9274 9749524d1767
child 9280 c3b11f913145
reduce shove frequency (perf). reduce dX so that less time is spent sliding.
hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Thu Jun 27 12:18:35 2013 +0200
+++ b/hedgewars/GSHandlers.inc	Wed Jun 26 21:40:10 2013 -0400
@@ -1926,12 +1926,12 @@
         end
     else
         begin
-        if sticky then
+        if sticky and (GameTicks and $F = 0) then
             begin
             Gear^.Radius := 7;
             tdX:= Gear^.dX;
             tdY:= Gear^.dY;
-            Gear^.dX.QWordValue:= 214748365;
+            Gear^.dX.QWordValue:= 120000000;
             Gear^.dY.QWordValue:= 429496730;
             Gear^.dX.isNegative:= getrandom(2)<>1;
             Gear^.dY.isNegative:= true;