From 581ee423541575369704c2075b004f3110b5e862 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_20km.zmp/18.bmp           | Bin 0 -> 1062 bytes
 Genshtab/karta_gsh_20km.zmp/24.bmp           | Bin 0 -> 1782 bytes
 Genshtab/karta_gsh_20km.zmp/GetUrlScript.txt |  52 +++++++++++++++++++
 Genshtab/karta_gsh_20km.zmp/info.txt         |   5 ++
 Genshtab/karta_gsh_20km.zmp/params.txt       |  19 +++++++
 5 files changed, 76 insertions(+)
 create mode 100644 Genshtab/karta_gsh_20km.zmp/18.bmp
 create mode 100644 Genshtab/karta_gsh_20km.zmp/24.bmp
 create mode 100644 Genshtab/karta_gsh_20km.zmp/GetUrlScript.txt
 create mode 100644 Genshtab/karta_gsh_20km.zmp/info.txt
 create mode 100644 Genshtab/karta_gsh_20km.zmp/params.txt

diff --git a/Genshtab/karta_gsh_20km.zmp/18.bmp b/Genshtab/karta_gsh_20km.zmp/18.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..bcdbfa38fdcd1761e20eddbc0cd584a343fd52cf
GIT binary patch
literal 1062
zcmaKp&r4KM6vwaVUmyf!N`m%-R;4jP?h@PuQJWTSTD6#siv*!n=*nv2B52X3VnT3?
zv4s&83{=ltWKudmP*4e?OrPd+X5P=!_ucRFGEUIryz|bx=li+moO>@{In|={lY&2k
zw>5d2)KR^@)2u&-+{~5*J2!SK4%YK95h>2)drq|4g~u?Zgobq!E0qwMCWJg7gHjG}
z0!_1?sf6USdufz0s0QLn4ctL*%oAdVL>q|hEt}m^uRS4yB4CmzViJcrBWE!KL5^8r
zsC04gVfX2inM_9S1j&COmbB)U2~EA72dY#(!5E%e<8yCb58W97S62^RHK3IHkyQL>
zPh|ATEQ$R5*BgU3i7Lfu{+$Ulh)d}lEIs<@%hE6IclZ8tpmlwk_WndNZLQxPe~LU%
z#D(9o?N&|Ov(`6V4+PBhYRKTwGOrfc7@(q^s6&afe6WMA$3GBel#vIMi?*y(4wMp8
z)hPM(B+~Z)f_KBlHod^Excgy1*|Fp8wEaLTk}N7^i0r#Xa33}{cLUe)+)#pQ;5m-7
zT3#tFm0xCOOmQGe;ka_2eyr`u_gw*(wLZJzdlEvG>hDVp^mX-|J<{3H*44?jaIlc+
zdVZLk)$l|X+thrCVoau{Uo00(g;M$bM+*iy4QM>y4jcGcli`W@wwz=Jxq9t-TYJa(
Q-V065Ef|sY;GtLQFA-YE)Bpeg

literal 0
HcmV?d00001

diff --git a/Genshtab/karta_gsh_20km.zmp/24.bmp b/Genshtab/karta_gsh_20km.zmp/24.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..a99072010cc89961e3fdce4d0017235f648b6279
GIT binary patch
literal 1782
zcmaKr-AhzK7>8Gi{(vYj(=xP-uF66o?+U^Tqo|t-Z@SXhn=Z6myeci|Lr5=zh$K`t
z0@ql(u)?g3Y|WsO@)H9MA<A_9Sa<jAo;}m=?C<nC?q<X6%gmXXXP$Rv_Q>(bCReJI
zAnwI4+xcasS}xaXXFN5@3Egu+)cuWBY;;ctlvX-!xkIB5q@s&Km&>V~h%O2UtxIoK
zY3pzZB!?&+0@NxYC8qnxTKWhijX>;bM$At0Atx;<kzqO#*YjBqqRY(Bg#?@FGd5r!
zwQ$%#Btef|!RgY<yQHo0nGW!LfGXa(IWr?2g5`iTwDpjq`^X^!qN6fpXd)2s=>vj5
zn24Y<Av7s0+D#Km>I8ftgc%XV<C2U7;`MsdP%?)QLD2*pK?$Vu<scx8HT8|Um@LnH
zbwmk-CW30Z(|Wb-19SNggtozf5!{YAl%J@UHh>qJ`*i}_h>|HA{@xcC>+8TFiav-1
zdkP7xa6d#AX(+BuSSpgRmX*Tgk`NgDa;EaUSnb%AEvaoODwoGbpl$-fVYeUE-Ei;o
z@GlNsx&4UP=Y0XBcKyB|UC*^<k&$$kEQM!QbF&>2fI@rpx0*MivPDnuD^ZM9jecAK
zH2^W<G0eml@3T*w0LYmAN3=^)*`q8VPDT_At1sQa%nDC$X@y5LK#-%TYkE8svL{Oc
zC2BdnxUvjoEg0tPVr(X=fI4@%9b+J%io<N&3`LBUq{(I5w&$|0m@1;2kFpATy&8#}
z^>hfq*Ea-I|M%HN(+J0nq%xysJRA;xo0uFQo_Ol(c5G7nA}Q`G5!c~=|6^)d%`Do6
zzTihgCE_>_rAm&Ll^iQ8DBia<KQE^spV~q|12U*cka~%va~HKOK44=BW!V_j+4W>(
zY<zTl;_bU2s%#AcnD&e{Wr4k)F;&}Qzn1XdGdOwbbWU#GfrE##Hf+QZ(dS<T8}J85
C`ThX_

literal 0
HcmV?d00001

diff --git a/Genshtab/karta_gsh_20km.zmp/GetUrlScript.txt b/Genshtab/karta_gsh_20km.zmp/GetUrlScript.txt
new file mode 100644
index 000000000..4f9711807
--- /dev/null
+++ b/Genshtab/karta_gsh_20km.zmp/GetUrlScript.txt
@@ -0,0 +1,52 @@
+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);
+  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.
diff --git a/Genshtab/karta_gsh_20km.zmp/info.txt b/Genshtab/karta_gsh_20km.zmp/info.txt
new file mode 100644
index 000000000..d1dacb58a
--- /dev/null
+++ b/Genshtab/karta_gsh_20km.zmp/info.txt
@@ -0,0 +1,5 @@
+��� ����� �� ����� ����������� �� �������<br>
+���� � ��� ���� ��� �������� ��� ������� ���������� �������, �������� garl@mail.ru<br>
+<br>
+������������� � �� ��� ������� �������:<br>
+Gm <br>
\ No newline at end of file
diff --git a/Genshtab/karta_gsh_20km.zmp/params.txt b/Genshtab/karta_gsh_20km.zmp/params.txt
new file mode 100644
index 000000000..6a11263a1
--- /dev/null
+++ b/Genshtab/karta_gsh_20km.zmp/params.txt
@@ -0,0 +1,19 @@
+
+[PARAMS]
+pnum=142
+GUID={9a7a3df4-d219-4a4b-aa41-350809e30f88}
+name_ru=Генштаб 20 км
+name=Genshtab 20 km
+name_uk=Генштаб 20 км
+NameInCache=Genshtab20km
+DefURLBase=http://91.237.82.95:8088/pub/genshtab/20km/
+ParentSubMenu_ru=Генштаб
+ParentSubMenu=Genshtab
+ParentSubMenu_uk=Генштаб
+Ext=.jpg
+projection=1
+sradiusa=6378137
+sradiusb=6378137
+ContentType="image/jpeg"
+MaxConnectToServerCount=1
+IsUseDownloaderInScript=1