hedgewars/uCollisions.pas
changeset 542 ec26095f1bed
parent 538 74219eadab5e
child 838 1faae19f2116
--- a/hedgewars/uCollisions.pas	Mon Jun 11 15:53:29 2007 +0000
+++ b/hedgewars/uCollisions.pas	Sun Jun 17 14:48:15 2007 +0000
@@ -207,7 +207,7 @@
              with cGear^ do
                   begin
                   dX:= Gear^.dX;
-                  dY:= Gear^.dY;
+                  dY:= Gear^.dY * _0_5;
                   State:= State or gstMoving;
                   Active:= true
                   end;
@@ -254,8 +254,8 @@
              begin
              with cGear^ do
                   begin
-                  dX:= Gear^.dX;
-                  dY:= Gear^.dY * _0_5;
+                  dX:= Gear^.dX * _0_5;
+                  dY:= Gear^.dY;
                   State:= State or gstMoving;
                   Active:= true
                   end;