--- a/hedgewars/uGearsHandlersMess.pas	Sat Jun 15 13:06:15 2019 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Sat Jun 15 13:20:29 2019 +0200
@@ -2985,6 +2985,10 @@
         with HHGear^ do
             begin
             Message := 0;
+            if Gear^.Tag = 1 then
+                dX := _1
+            else
+                dX := - _1;
             SetLittle(dX);
             dY := _0;
             State := State or gstMoving;