소스 검색

update zmp

master
sasbot 4 년 전
부모
커밋
be13328b70
1개의 변경된 파일3개의 추가작업 그리고 3개의 파일을 삭제
  1. +3
    -3
      _tourism/Syberia/ergaki_2017.zmp/GetUrlScript.txt

+ 3
- 3
_tourism/Syberia/ergaki_2017.zmp/GetUrlScript.txt 파일 보기

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

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

// Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
// Если дело дошло до проверки наличия масштаба - значит какая-то граница (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);
@@ -52,6 +52,6 @@ begin
end;

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

end.

불러오는 중...
취소
저장