Browse Source

update zmp

master
sasbot 4 years ago
parent
commit
be13328b70
1 changed files with 3 additions and 3 deletions
  1. +3
    -3
      _tourism/Syberia/ergaki_2017.zmp/GetUrlScript.txt

+ 3
- 3
_tourism/Syberia/ergaki_2017.zmp/GetUrlScript.txt View File

@@ -38,11 +38,11 @@ begin


// Проверяем наличие масштаба // Проверяем наличие масштаба
if getz > z_ok then begin if getz > z_ok then begin
code := GetCode(BaseUrl+inttostr(getz)+'/');
code := GetCode(BaseUrl+inttostr(getz-1)+'/');


// Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное" // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
// Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется. // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
if code = 404 then z_no := getz else z_ok := getz;
if code = 404 then z_no := getz-1 else z_ok := getz-1;


// Сохраняем актуализированные границы для последующих вызовов // Сохраняем актуализированные границы для последующих вызовов
ScriptBuffer := inttostr(z_ok) + ';' + inttostr(z_no); ScriptBuffer := inttostr(z_ok) + ';' + inttostr(z_no);
@@ -52,6 +52,6 @@ begin
end; end;


// Ок, качаем тайлик // Ок, качаем тайлик
ResultURL:= BaseUrl+inttostr(getz-1)+'/'+inttostr(getx)+'/'+inttostr(gety )+'.jpg';
ResultURL:= BaseUrl+inttostr(getz-1)+'/'+inttostr(getx)+'/'+inttostr(gety)+'.jpg';


end. end.

Loading…
Cancel
Save