maps/mapbox/osm_mapbox_hillshade.zmp/GetUrlScript.txt

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/cjot2untt0mem2rmktww3pae0/tiles/256/';
  FirstPartURL[1]:= 'https://api.mapbox.com/styles/v1/nnngrach2/cjot5r1t34diy2roz62sp20hl/tiles/256/';
  FirstPartURL[2]:= 'https://api.mapbox.com/styles/v1/nnngrach3/cjot5xbdl4dp32rozdghb1kzh/tiles/256/';
  FirstPartURL[3]:= 'https://api.mapbox.com/styles/v1/nnngrach4/cjot6aakzev942rlmuuq33z0i/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.