You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

GetUrlScript.txt 1.4 KiB

пре 54 година
пре 54 година
пре 54 година
пре 54 година
пре 54 година
пре 54 година
пре 54 година
пре 54 година
пре 54 година
123456789101112131415161718192021222324
  1. var
  2. Number: integer;
  3. FirstPartURL: array[0..3] of String;
  4. SecondPartURL: array[0..3] of string;
  5. begin
  6. // Mapbox даёт бесплатно выкачать только 50000 тайлов в месяц.
  7. // В таком случае, можно зарегистрировать кучу бесплатных аккаунтов.
  8. FirstPartURL[0]:= 'https://api.mapbox.com/styles/v1/nnngrach/cjot2wu8l08d42rmyizof9alp/tiles/256/';
  9. FirstPartURL[1]:= 'https://api.mapbox.com/styles/v1/nnngrach2/cjot5r5xg0eho2spvrqncv59w/tiles/256/';
  10. FirstPartURL[2]:= 'https://api.mapbox.com/styles/v1/nnngrach3/cjot65ons55ux2sphqxqfohud/tiles/256/';
  11. FirstPartURL[3]:= 'https://api.mapbox.com/styles/v1/nnngrach4/cjot6d7f30kea2rqggfrfwuk0/tiles/256/';
  12. SecondPartURL[0]:= '@2x?access_token=pk.eyJ1Ijoibm5uZ3JhY2giLCJhIjoiY2pvc3lwcDhwMHQwMzNxbGh5cmIzMzR5ayJ9.uW0dUw6sZCBcrL0cg0JgLA';
  13. SecondPartURL[1]:= '@2x?access_token=pk.eyJ1Ijoibm5uZ3JhY2gyIiwiYSI6ImNqb3Q1bnVoazB2NHgzc25yYXNlbjZ6NXEifQ.Icvq22SoRbXWafVls1vQzw';
  14. SecondPartURL[2]:= '@2x?access_token=pk.eyJ1Ijoibm5uZ3JhY2gzIiwiYSI6ImNqb3Q1d3J4YzB2NXQzcWtmZjZ5ZjdzNmEifQ.JfDmgQvzdsfSKHqaH-KSow';
  15. SecondPartURL[3]:= '@2x?access_token=pk.eyJ1Ijoibm5uZ3JhY2g0IiwiYSI6ImNqb3Q2YTA2eDB2N2Eza285bndzbWxtbzEifQ.5oZcsK5zbp5mXCfCT-f_XQ';
  16. Number:= Random(4);
  17. ResultURL:= FirstPartURL[Number] + inttostr(GetZ-1) + '/' + inttostr(GetX) + '/' + inttostr(GetY) + SecondPartURL[Number];
  18. end.