瀏覽代碼

update zmp

pull/1/head
sasbot 3 年之前
父節點
當前提交
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.

Loading…
取消
儲存