update zmp

_tourism/TyanShan/TyanShan.zmp/params.txt

@@ -10,7 +10,6 @@ DefURLBase=http://91.237.82.95:8088/pub/tourism/tyanshan/
 projection=1
 sradiusa=6378137
 sradiusb=6378137
-CACHETYPE=4
 NameInCache=TyanShan
 Ext=.jpg
 defaultContentType=image/jpeg

_tourism/TyanShan/tyan_shan.zmp/params.txt

@@ -10,7 +10,6 @@ DefURLBase=http://91.237.82.95:8088/pub/tourism/tyan_shan/
 projection=1
 sradiusa=6378137
 sradiusb=6378137
-CACHETYPE=4
 NameInCache=Tyan_Shan
 Ext=.jpg
 defaultContentType=image/jpeg

_tourism/djungarii.zmp/params.txt

@@ -9,7 +9,6 @@ DefURLBase=http://g-utka.ru/tsvetik/automaps/jungariaoro/olmap/
 projection=1
 sradiusa=6378137
 sradiusb=6378137
-CACHETYPE=4
 NameInCache=djungarii
 Ext=.jpg
 UsePreloadPage=0

_tourism/hrebtovka_elbrus.zmp/params.txt

@@ -10,7 +10,6 @@ DefURLBase=http://91.237.82.95:8088/pub/tourism/hr_elbrus/
 projection=1
 sradiusa=6378137
 sradiusb=6378137
-CACHETYPE=4
 NameInCache=hr_elbrus
 Ext=.jpg
 defaultContentType=image/jpeg

_tourism/kyrgyz.zmp/GetUrlScript.txt

@@ -0,0 +1,53 @@
+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;
+
+  // Выбор зеркала
+//  r := random(2);
+    r := 0;  
+  case r of
+    0: BaseUrl := GetURLBase;
+//    1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088', '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.

_tourism/kyrgyz.zmp/info.txt

@@ -0,0 +1,16 @@
+<br>
+Если у Вас есть чем дополнить этот раздел - смело шлите на ящик garl@mail.ru <br>
+<br>
+<br>
+<br>Схема-хребтовка Киргизского хребта.
+<br>
+<br>Схема разбита на шесть листов, приблизительно соответствующих стандартным номенклатурным листам. Масштаб схемы 1:50000. Файлы выложены в формате GeoTIFF. Их можно открывать как обычными программами для работы с графическими файлами, так и специализированными программами для работы с геоданными (Global mapper, Ozi explorer и др.) Разрешение изображений 254 dpi или 100 точек на сантиметр.
+<br>Точность привязки соответствует карте масштаба 1:200000.
+<br>
+<br>Схема распространяется в формате AS IS (как есть). Она заведомо содержит некоторое количество ошибок. Я стараюсь находить их и исправлять, однако не доверяйте этой схеме как единственному источнику информации, проверяйте местоположение объектов по другим данным. Я буду рад любой информации, которорая позволит уточнить схемы. Пишите мне электронной почтой (avp westra.ru) или (что надёжнее) личным сообщением на форуме.
+<br>Схема довольно часто обновляется.
+<br>
+<br>Разрешается некоммерческое использование схемы. Любое коммерческое использование (продажа, издание, включение в коммерческие сборники схем) запрещается. Если вы используете фрагменты схемы в отчётах и <br>т.д., пожалуйста, поставьте ссылку на эту страницу. Так вы дадите своим читателям возможность скачать свежую версию схемы
+<br>
+<br>Версия 04.04.2007
+<br>http://westra.ru/reports/tianshan/kirgmap.html

_tourism/kyrgyz.zmp/params.txt

@@ -0,0 +1,19 @@
+
+[PARAMS]
+pnum=17
+GUID={6e2d3659-d51a-4121-8b38-9c96381370b3}
+name_ru=Ñõåìà-õðåáòîâêà Êèðãèçñêîãî õðåáòà.
+name=Kyrgyz ridge map
+ParentSubMenu_ru=Òóðèñòè÷åñêèå\Êèðãèçèÿ
+ParentSubMenu=Tourism\Kyrgyz
+DefURLBase=http://91.237.82.95:8088/pub/tourism/kyrgyz/
+projection=1
+sradiusa=6378137
+sradiusb=6378137
+NameInCache=kyrgyz
+Ext=.jpg
+defaultContentType=image/jpeg
+ContentType="image/jpeg"
+MaxConnectToServerCount=1
+License=© Àëåêñàíäð Ïóðèêîâ
+IsUseDownloaderInScript=1

_tourism/terskey.zmp/params.txt

@@ -9,7 +9,6 @@ DefURLBase=http://map.g-utka.ru/
 projection=1
 sradiusa=6378137
 sradiusb=6378137
-CACHETYPE=4
 NameInCache=Terskey
 Ext=.png
 UsePreloadPage=0