diff --git a/_tourism/TyanShan/TyanShan.zmp/18.bmp b/_tourism/TyanShan/TyanShan.zmp/18.bmp deleted file mode 100644 index 47d65f27..00000000 Binary files a/_tourism/TyanShan/TyanShan.zmp/18.bmp and /dev/null differ diff --git a/_tourism/TyanShan/TyanShan.zmp/24.bmp b/_tourism/TyanShan/TyanShan.zmp/24.bmp deleted file mode 100644 index 595f438b..00000000 Binary files a/_tourism/TyanShan/TyanShan.zmp/24.bmp and /dev/null differ diff --git a/_tourism/TyanShan/TyanShan.zmp/GetUrlScript.txt b/_tourism/TyanShan/TyanShan.zmp/GetUrlScript.txt deleted file mode 100644 index 607d9e8f..00000000 --- a/_tourism/TyanShan/TyanShan.zmp/GetUrlScript.txt +++ /dev/null @@ -1,56 +0,0 @@ -function GetCode(const url: AnsiString): Cardinal; -var - VResponseCode: Cardinal; - VResponseHeader, VResponseData: AnsiString; -begin - Result := 1; - if Assigned(Downloader) then begin - VResponseHeader := ''; - VResponseData := ''; - VResponseCode := Downloader.DoHttpRequest(url, '', '', VResponseHeader, VResponseData); - Result := VResponseCode; - end; -end; - -var - BaseUrl: string; - code: Cardinal; - z_ok, z_no: integer; - r: integer; -begin - ResultURL := ''; - z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть - z_no := StrToIntDef(GetAfter(';', ScriptBuffer), 25); // Минимальный масштаб, которого точно нет - - // Масштаба нет - говорить не о чем - if getz >= z_no then exit; - - // Выбор зеркала, если не указана версия - if version = '' then - r := random(2) - else - r := StrToInt(version); - - case r of - 0: BaseUrl := GetURLBase; - 1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru'); - end; - - // Проверяем наличие масштаба - if getz > z_ok then begin - code := GetCode(BaseUrl+'z'+inttostr(getz)+'/'); - - // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное" - // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется. - if code = 404 then z_no := getz else z_ok := getz; - - // Сохраняем актуализированные границы для последующих вызовов - ScriptBuffer := inttostr(z_ok) + ';' + inttostr(z_no); - - // Масштаба нет (о чём могли только что при проверке узнать) - говорить не о чем - if getz >= z_no then exit; - end; - - // Ок, качаем тайлик - ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg'; -end. diff --git a/_tourism/TyanShan/TyanShan.zmp/info.txt b/_tourism/TyanShan/TyanShan.zmp/info.txt deleted file mode 100644 index cf6e9ac5..00000000 --- a/_tourism/TyanShan/TyanShan.zmp/info.txt +++ /dev/null @@ -1,4 +0,0 @@ - ""
-
- - garl@mail.ru
-
diff --git a/_tourism/TyanShan/TyanShan.zmp/params.txt b/_tourism/TyanShan/TyanShan.zmp/params.txt deleted file mode 100644 index 063d4026..00000000 --- a/_tourism/TyanShan/TyanShan.zmp/params.txt +++ /dev/null @@ -1,18 +0,0 @@ - -[PARAMS] -pnum=17 -GUID={03F32FF2-2450-406C-9007-364BA6361DE8} -name_ru= - -name=Tyan-Shan mountain pass -ParentSubMenu_ru=\- -ParentSubMenu=Tourism\Tyan-Shan -DefURLBase=http://91.237.82.95:8088/pub/tourism/tyanshan/ -projection=1 -sradiusa=6378137 -sradiusb=6378137 -NameInCache=TyanShan -Ext=.jpg -defaultContentType=image/jpeg -ContentType="image/jpeg" -MaxConnectToServerCount=1 -IsUseDownloaderInScript=1