anchor.diff:  end;
   
   
  -function TKMEye.GetClosestTrees(aLoc: TKMPoint): TKMPointTagList;
  -begin
  -  Result := nil;
  -end;
  -
  -
   function TKMEye.GetCoalLocs(): TKMPointTagList;
   var
  -  I,K,Own: Integer;
  +  I,Own: Integer;
     Loc: TKMPoint;
     Output: TKMPointTagList;
   begin
     Output := TKMPointTagList.Create();
  -  for I := 0 to fCoalMiningTiles.Count - 1 do
  +  for I := fCoalMiningTiles.Count - 1 downto 0 do
     begin
       Loc := fCoalMiningTiles.Items[I];
       Own := gAIFields.Influences.Ownership[fOwner, Loc.Y, Loc.X];
  
positive.code:       Exit;
    end;
  
    BestBid := 0;
    for I := Mines.Count - 1 downto 0 do
      if (gAIFields.Influences.Ownership[fOwner, Mines.Items[I].Y, Mines.Items[I].X] > BestBid) then
        if CanAddHousePlan(Mines.Items[I], aHT, True, False) AND CheckResourcesNearMine(Mines.Items[I], aHT) then
        begin
          BestBid := gAIFields.Influences.Ownership[fOwner, Mines.Items[I].Y, Mines.Items[I].X];
          aLoc := Mines.Items[I];
        end
        else
          Mines.Delete(I);
    Result := (BestBid <> 0);
  end;
  
  
  
negative.code:   MIN_POINTS_CNT = 3;
    UNVISITED_TREE = 1;
    VISITED_TREE = 2;
    AVOID_BUILDING_FOREST_LIMIT = 250;
  var
    X,X2,Y,Y2, Distance: Integer;
    Cnt: Single;
  