From 2e3744680ed93cbfff0bf95c6804e1f53abc0102 Mon Sep 17 00:00:00 2001
From: sasbot <>
Date: Sat, 6 Jun 2020 12:00:00 +0000
Subject: [PATCH] update zmp

---
 _Genshtab/karta_gsh_2km_new.zmp/18.bmp        | Bin 0 -> 1062 bytes
 _Genshtab/karta_gsh_2km_new.zmp/24.bmp        | Bin 0 -> 1782 bytes
 .../karta_gsh_2km_new.zmp/GetUrlScript.txt    |  57 ++++++++++++++++++
 _Genshtab/karta_gsh_2km_new.zmp/info.txt      |   3 +
 _Genshtab/karta_gsh_2km_new.zmp/params.txt    |  20 ++++++
 5 files changed, 80 insertions(+)
 create mode 100644 _Genshtab/karta_gsh_2km_new.zmp/18.bmp
 create mode 100644 _Genshtab/karta_gsh_2km_new.zmp/24.bmp
 create mode 100644 _Genshtab/karta_gsh_2km_new.zmp/GetUrlScript.txt
 create mode 100644 _Genshtab/karta_gsh_2km_new.zmp/info.txt
 create mode 100644 _Genshtab/karta_gsh_2km_new.zmp/params.txt

diff --git a/_Genshtab/karta_gsh_2km_new.zmp/18.bmp b/_Genshtab/karta_gsh_2km_new.zmp/18.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..25edf7b56e492401c44d844ac70bbb7e9de78039
GIT binary patch
literal 1062
zcmaKp&r4N76vs#OFA#z<B|)udRTeMEU4gqmYSY3^s}^t5B0*>sw(7^mMbM&6#S6h_
zJX;u1!Gr3Wi%Lr04-7JbDATKXeed0$r|+HbZ5UfLoO|xfne&<NIWwov9_&zh<lqnE
z>&(73wO7YC+x2gkn_YKcN3UN>C#z+ch*amxg9kd@%01e{n|TB=lrokPnkIyOKsIV~
zng>liql7TBAY)Ji?bfpi1F<}!5T*wG#=6UDtss@?fl>*aL9PA_X43z;3nUPQ(#g>~
z{f7n$g#r%H4gCk=!Or|Lq3IV3K$Wry&f!fFoRpqFyL@#VoTbM;Sexky>0u&`FxeKF
zxIagtyzueD=tZJR8N!Ar1L9P^1j|p{{jl_t!E3i30k!Hh<^4`%##y~`;{o=8VqW<r
z8-9}<{G9Vi>w$pzK?^ZlTH)z?76z#5X4$c%yBs({>v09bv@(8sYSERI#@|dysb-Qb
z14;BdfZ*G(u(cp^8~#olF>T-eZrV;H4atH^8KU@d5!~yqYg>`;1%511GYUM<`&?hC
zE!CeCXN@=zrEp!Px8J{P%eO57S9IR_5(W|@D|conH$2ogcw|p+Pgh?r%fiJXP3whm
zc2{GQMI6%#B}p-vo_V}ntyOCES8p5`(rG}`{x(^_kCu#0rmy8?J;=zp^IhFN$Bv(9
OYwtjd)PqO9QhxxbDbtYv

literal 0
HcmV?d00001

diff --git a/_Genshtab/karta_gsh_2km_new.zmp/24.bmp b/_Genshtab/karta_gsh_2km_new.zmp/24.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..95db5e053c55f3d1f620c6f50deec65e53bfb4d2
GIT binary patch
literal 1782
zcma)*&r4KM6vs!3{(vYj(=x^~T9t)D?h3+%QPifwO)HJrw9s;JRa(#wAzcI!NvKQ&
zjxn~d!mNpG%%GC;$B2Q35M?_47-#0qym`0poA2}ZoKfj==5X%2=YH<@oO|ck$;cK*
zY81oo$1mIZWu+pA<E^!xO0rznOaOMUp^`z@q+i)a`yE$k<dGPrwnZ~^I4lF9W#Qcl
zZ5<AQYjQ|lA*6)a^~hf8$%Lfou_|J9Ha+BQP!yGrww|8<fy~Z??EOj8Gum&qS~v{g
z<#Y);1Cu2c_d&y#ReC1<><>^yySHv!5w-(T-`Y*i%8jGX%gq7Aj>;56B?1vWAP9to
z2r3goB?X0hsf1<P3HU+?D<X>RVluoyJRVOPN^%Gh6qSG@D1mgm9sq>Cx~{=4Otxpf
zI-&$ZC4y?a*K)n}6KmN3LbZYZVcd>rC_7apF@Tqv`s@V8@KPxQU(c({b+zCSMLqD&
zeFX%TyB?#8G!*wH3>8Tji%Q{gN$?MRJ6Ca0RPEZ6Ev0QMER)AZpj`<FM_oRctNy{)
zp+8)@cJ~RfFMItc?dC%trtTX}B1XztFch9y_3bt!0EKwuubS1OazuCFJ5ltN4L)1}
zWdNeZW5~o8&x<ci0A$qs>zE^{%vBB$$0G^~tFGKaX1Tkkq}(ksK#*3{Ha;B;naMIh
zi5k`{t_)2XbDBOqADfCQpe|f(!x{)M(J&p?LlJE$sdL+oow>9nT}71jQFh_1H^Y(h
z?sg$~dk2B)`#C+YYvH(-RC-j8hr{6?W8=Z0vFF|{OHJxr6vcDJ<2rmFe@!f^sd-bO
zH}F|gi8%V9RPpiB;uEFLq66FW^KzW|lr01V5CcPjl$S_acTv;q1vZvYhKW%fozI3x
zgCoJQ_a6c<IT{2o&5TuJj<eq}Rnu&~mhf^9PM<lOlbd(w@R6)do6#cbS&Lu-{sF$*
B2nGNE

literal 0
HcmV?d00001

diff --git a/_Genshtab/karta_gsh_2km_new.zmp/GetUrlScript.txt b/_Genshtab/karta_gsh_2km_new.zmp/GetUrlScript.txt
new file mode 100644
index 000000000..52c6241d1
--- /dev/null
+++ b/_Genshtab/karta_gsh_2km_new.zmp/GetUrlScript.txt
@@ -0,0 +1,57 @@
+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(3)
+  else
+    r := StrToInt(version);
+
+  case r of
+    0: BaseUrl := GetURLBase;
+    1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
+    2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80');
+  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/_Genshtab/karta_gsh_2km_new.zmp/info.txt b/_Genshtab/karta_gsh_2km_new.zmp/info.txt
new file mode 100644
index 000000000..af6f3ab99
--- /dev/null
+++ b/_Genshtab/karta_gsh_2km_new.zmp/info.txt
@@ -0,0 +1,3 @@
+��� ����� �� ����� ����������� �� �������<br>
+���� � ��� ���� ��� �������� ��� ������� ���������� �������, �������� garl@mail.ru<br>
+<br>
diff --git a/_Genshtab/karta_gsh_2km_new.zmp/params.txt b/_Genshtab/karta_gsh_2km_new.zmp/params.txt
new file mode 100644
index 000000000..61f818f82
--- /dev/null
+++ b/_Genshtab/karta_gsh_2km_new.zmp/params.txt
@@ -0,0 +1,20 @@
+
+[PARAMS]
+pnum=144
+GUID={AF077DC2-E749-4963-9C7D-DEAA705A18F6}
+name_ru=Генштаб 2km (new)
+name=Genshtab 2 km (new)
+name_uk=Генштаб 2 км (new)
+NameInCache=Genshtab2km_new
+DefURLBase=http://91.237.82.95:8088/pub/genshtab/2km.new/
+ParentSubMenu_ru=Генштаб
+ParentSubMenu=Genshtab
+ParentSubMenu_uk=Генштаб
+Ext=.jpg
+projection=1
+sradiusa=6378137
+sradiusb=6378137
+DefHotKey=50
+ContentType="image/jpeg"
+MaxConnectToServerCount=1
+IsUseDownloaderInScript=1