reduce shove frequency (perf). reduce dX so that less time is spent sliding.
authornemo
Wed, 26 Jun 2013 21:40:10 -0400
changeset 9261 6e4feb4191a0
parent 9257 e89e1ab7f62b
child 9289 6bc1df062f04
reduce shove frequency (perf). reduce dX so that less time is spent sliding.
hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Mon Jun 24 22:11:07 2013 -0400
+++ 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;