update zmp

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