hedgewars/GSHandlers.inc
changeset 9261 6e4feb4191a0
parent 9251 6c238c897213
--- 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;