# HG changeset patch
# User alfadur
# Date 1558045971 -10800
# Node ID 1a2dcea1732a5cfcd844f82aa5675a59a7c79522
# Parent  f359d8f86501cf97d003e5e6a70195c0c5b0c217
fix anchors

diff -r f359d8f86501 -r 1a2dcea1732a hedgewars/uLandObjects.pas
--- a/hedgewars/uLandObjects.pas	Thu May 16 23:04:19 2019 +0200
+++ b/hedgewars/uLandObjects.pas	Fri May 17 01:32:51 2019 +0300
@@ -536,10 +536,12 @@
         if bRes then
             begin
             anchored:= anchorcnt = 0;
-            for i:= 1 to anchorcnt do
+            i:= 0;
+            while i < anchorcnt do
                 begin
                     anchored := CheckLandAny(anchors[i], x, y, lfLandMask);
                     if anchored then break;
+                    inc(i);
                 end;
             bRes:= anchored;
             end;