--- a/hedgewars/GSHandlers.inc	Sun May 20 10:45:16 2012 -0400
+++ b/hedgewars/GSHandlers.inc	Sun May 20 10:55:58 2012 -0400
@@ -5490,7 +5490,14 @@
             gY:= hwRound(Y);
             if Target.X = NoPointX then t:= hwRound(hwSqr(X-HHGear^.X)+hwSqr(Y-HHGear^.Y));
             if Target.X <> NoPointX then
+                begin
+                if (abs(gX-Target.X) < 2) and (abs(gY-Target.Y) < 2) then
+                    begin
+                    X:= HHGear^.X;
+                    Y:= HHGear^.Y
+                    end;
                 inc(Pos)
+                end
             else if (gY > cWaterLine) or
                     (((gX and LAND_WIDTH_MASK = 0) and (gY and LAND_HEIGHT_MASK = 0))
                         and ((Land[gY, gX] and $FF00 and not lfIce <> 0) or

--- a/hedgewars/uGearsRender.pas	Sun May 20 10:45:16 2012 -0400
+++ b/hedgewars/uGearsRender.pas	Sun May 20 10:55:58 2012 -0400
@@ -1198,9 +1198,9 @@
                           if RealTicks mod 2 = 0 then
                                 begin
                                 i:= random(100)+100;
-                                DrawLine(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40);
                                 if Gear^.Target.X <> NoPointX then
-                                    DrawLine(Gear^.Target.X, Gear^.Target.Y, hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40);
+                                    DrawLine(Gear^.Target.X, Gear^.Target.Y, hwRound(HHGear^.X), hwRound(HHGear^.Y), 4.0, i, i, $FF, $40)
+                                else DrawLine(hwRound(HHGear^.X), hwRound(HHGear^.Y), hwRound(Gear^.X), hwRound(Gear^.Y), 4.0, i, i, $FF, $40);
                                 end
                           end
                       end

Binary file share/hedgewars/Data/Graphics/LandIce.png has changed