Pārlūkot izejas kodu

update zmp

master
sasgis pirms 54 gadiem
vecāks
revīzija
c6b9efb1fc
1 mainītis faili ar 3 papildinājumiem un 3 dzēšanām
  1. +3
    -3
      _tourism/Syberia/ergaki_2017.zmp/GetUrlScript.txt

+ 3
- 3
_tourism/Syberia/ergaki_2017.zmp/GetUrlScript.txt Parādīt failu

@@ -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.

Notiek ielāde…
Atcelt
Saglabāt