25'ten fazla konu seçemezsiniz Konular bir harf veya rakamla başlamalı, kısa çizgiler ('-') içerebilir ve en fazla 35 karakter uzunluğunda olabilir.

GetUrlScript.txt 1.4 KiB

54 yıl önce
54 yıl önce
54 yıl önce
54 yıl önce
54 yıl önce
54 yıl önce
54 yıl önce
54 yıl önce
54 yıl önce
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.