Du kan inte välja fler än 25 ämnen
Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.
|
- var
-
- Number: integer;
- FirstPartURL: array[0..3] of String;
- SecondPartURL: array[0..3] of string;
-
-
- begin
- // Mapbox даёт бесплатно выкачать только 50000 тайлов в месяц.
- // В таком случае, можно зарегистрировать кучу бесплатных аккаунтов.
-
- FirstPartURL[0]:= 'https://api.mapbox.com/styles/v1/nnngrach/cjot3z99v0i5e2rqg319j4dxg/tiles/256/';
- FirstPartURL[1]:= 'https://api.mapbox.com/styles/v1/nnngrach2/cjot5o6fq38dq2snohos5m1ws/tiles/256/';
- FirstPartURL[2]:= 'https://api.mapbox.com/styles/v1/nnngrach3/cjot5ygtc3avq2ro4q9mcozbk/tiles/256/';
- FirstPartURL[3]:= 'https://api.mapbox.com/styles/v1/nnngrach4/cjot6btfv89k52rp6oy8zkgju/tiles/256/';
-
- SecondPartURL[0]:= '@2x?access_token=pk.eyJ1Ijoibm5uZ3JhY2giLCJhIjoiY2pvc3lwcDhwMHQwMzNxbGh5cmIzMzR5ayJ9.uW0dUw6sZCBcrL0cg0JgLA';
- SecondPartURL[1]:= '@2x?access_token=pk.eyJ1Ijoibm5uZ3JhY2gyIiwiYSI6ImNqb3Q1bnVoazB2NHgzc25yYXNlbjZ6NXEifQ.Icvq22SoRbXWafVls1vQzw';
- SecondPartURL[2]:= '@2x?access_token=pk.eyJ1Ijoibm5uZ3JhY2gzIiwiYSI6ImNqb3Q1d3J4YzB2NXQzcWtmZjZ5ZjdzNmEifQ.JfDmgQvzdsfSKHqaH-KSow';
- SecondPartURL[3]:= '@2x?access_token=pk.eyJ1Ijoibm5uZ3JhY2g0IiwiYSI6ImNqb3Q2YTA2eDB2N2Eza285bndzbWxtbzEifQ.5oZcsK5zbp5mXCfCT-f_XQ';
-
- Number:= Random(4);
-
- ResultURL:= FirstPartURL[Number] + inttostr(GetZ-1) + '/' + inttostr(GetX) + '/' + inttostr(GetY) + SecondPartURL[Number];
-
- end.
-
-
-
-
|