anchor.diff:    InitQueue(True);
     for I := 0 to Length(InitPointsArr) - 1 do
       with InitPointsArr[I] do
  -    begin
  -      if not CanBeVisited(X,Y,Y*fMapX + X, True) then
  -        FML();
  -      MarkAsVisited(X,Y, InsertInQueue(Y*fMapX + X), 0);
  -    end;
  +      if CanBeVisited(X,Y,Y*fMapX + X, True) then
  +        MarkAsVisited(X,Y, InsertInQueue(Y*fMapX + X), 0);
   
     HouseFF();
   end;
  
positive.code:   MIN_SCAN_DIST_FROM_HOUSE = 2; // Houses must have at least 1 tile of space between them
  
  var
    GA_EYE_GetForests_RndOwnLim     : Single = 4.376474;
    GA_EYE_GetForests_InflLimit     : Single = 220.1373;
    GA_EYE_GetForests_OwnLimit      : Single = 89.57248;
    GA_EYE_GetForests_MinTrees      : Single = 3.430406;
    GA_EYE_GetForests_Radius        : Single = 5.34699;
  
  
  type
  
negative.code:   for I := 0 to gHands[fOwner].Houses.Count - 1 do
    begin
      H := gHands[fOwner].Houses[I];
      if (H <> nil) AND not H.IsDestroyed AND H.IsComplete AND (H.HouseType in SCANNED_HOUSES) then
      begin
        Result[Cnt] := KMPointBelow(H.Entrance);
        Cnt := Cnt + 1;
  