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 869 B

54 years ago
54 years ago
54 years ago
54 years ago
54 years ago
54 years ago
54 years ago
54 years ago
54 years ago
54 years ago
54 years ago
54 years ago
1234567891011121314151617181920
  1. var
  2. r: integer;
  3. BaseUrl: string;
  4. begin
  5. r := random(2);
  6. case r of
  7. 0: BaseUrl := GetURLBase;
  8. 1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088', 'maps.melda.ru');
  9. end;
  10. if GetZ < 13 then
  11. ResultURL := BaseUrl+'2km.png'+'/z'+inttostr(GetZ-1)+'/'+inttostr(GetY)+'/'+inttostr(GetX)+'.png'
  12. else if getz <14 then
  13. ResultURL := BaseUrl+'1km'+'/z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png'
  14. else if getz <15 then
  15. ResultURL := BaseUrl+'500m.png'+'/z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png'
  16. else
  17. ResultURL := BaseUrl+'250m.png'+'/z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png'
  18. end.