From 2edc5a62ed61365b2e7547fb5e895e1f18c8ba0f Mon Sep 17 00:00:00 2001
From: sasgis <>
Date: Sat, 12 Dec 1970 12:00:00 +0000
Subject: [PATCH] update zmp
---
_tourism/ukraine/karpaty2018.zmp/18.bmp | Bin 0 -> 1062 bytes
_tourism/ukraine/karpaty2018.zmp/24.bmp | Bin 0 -> 1782 bytes
.../ukraine/karpaty2018.zmp/GetUrlScript.txt | 57 ++++++++++++++++++
_tourism/ukraine/karpaty2018.zmp/info.txt | 6 ++
_tourism/ukraine/karpaty2018.zmp/params.txt | 20 ++++++
5 files changed, 83 insertions(+)
create mode 100644 _tourism/ukraine/karpaty2018.zmp/18.bmp
create mode 100644 _tourism/ukraine/karpaty2018.zmp/24.bmp
create mode 100644 _tourism/ukraine/karpaty2018.zmp/GetUrlScript.txt
create mode 100644 _tourism/ukraine/karpaty2018.zmp/info.txt
create mode 100644 _tourism/ukraine/karpaty2018.zmp/params.txt
diff --git a/_tourism/ukraine/karpaty2018.zmp/18.bmp b/_tourism/ukraine/karpaty2018.zmp/18.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..47d65f276ee5e4851f34fe840f80f2090024fad0
GIT binary patch
literal 1062
zcmZ9KZA_Y16vywfecXqopY~~KvaH?alDW=SYHg=3GPOl9RSFgDth`K7@Qo=-*J_cr
zA|hiJ0Rgd4QIwa7Pz7;{2#U}GkBEw`PBW8kvt8H9W^CLOoSW^<IsbFc&Hs15+>?Sj
z@)n4m6R>^==b?Y|4e)OC{^^_1@`~(&-Pgjd?Hm`;10tM`l?N-_zh;0(0LTB_9x<n)
zJRalz>6I@!2R25VR|jbB+t>*;@1XMl2Sf1dTchNcka*|O$oh(RDiD6YWZ8kFJCk*r
zJ?L3Q<$vft=jazaYX4%}O5An{A_48rL%TP)Fbpj&&rfgpjFDOK_C(EAAJQky+e4$A
zRd;8Ob39_a_?Mj(amgZH&C8I^WV3MlM{jAIa)supOR+m6j#%l>l?l_*G8m0=_8U3B
zOAuS;@+}Mdg^l-ztv%wD^>>R%^_}FaBJ?-RT3VGy%J|#Xu&u+bwjLYTN&wJHcyr9y
zXUdGt-m)hH^e0;8rvB;+GfT+1iD9q_^n$bJ3p0?ouT#$~D=VLAh?{~>-69eIz167D
zwWGiNaQ0_$!CDt-t-Ivco?@kdjU=+Ozs<{UIz_%lI(LbY7@yWnLvF|mA9Ih*Hzoog
zOL_YN^@HVxqy=8?Qae7}ftwN$krizSk}!$dm|2m5ZOqES;_p^uLj2ri4jN)0c=e?K
zbe%lp#vchXQ+@o4enEban={^m$-?A)g8444KzuZlSU|=(u4gZ_otte&Eiq0r=_T>?
zN&rM(e&iseKrFmZK=AU5e63mbD``#GxKw0jdiG^@3CeXP*;$`7QI|N)NF1(?&uyZf
zyg&h<qZn%~#|2tx9!cfAxY&3-pGGO-mY{^xG$S?6RUJE46=$Kxj?iMq%RW|95Xl%k
zIw=7FgHkbevo_e-80_VYbktxjk=q#retEW#nr^1X=t@5ysyZ=TjrfrgqbD3zqYocH
zb)HbeivHi2Qs!3)SFLwd;x=Lxi`~@RaD%02t91(sCV7`9`9)K_LUa9BnhWpso_QxF
z=CfNu#r~cJhX&RsttQJ1OVraMA8eGUN?W?siZ1V<#Amqe*Kj@ZItwvb@IGLspWfdW
zxcXg=4an`g52*~+p`WG<Mk}{N#}fB_FICRm)Bobouh{zTRbn{_F(z&Q0S<1%!N5v5
zJni>}!U4O>V{<)l`e#iehP4p%(Bqvm>D09qgHh;J4xZqcm~n*G!)|{l00l!U_XA7L
R_0>hQ$*Ppg_6&Opz&}nENZ<ef
literal 0
HcmV?d00001
diff --git a/_tourism/ukraine/karpaty2018.zmp/24.bmp b/_tourism/ukraine/karpaty2018.zmp/24.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..595f438be3aec0b54bc6e8fdc206d5f6c0f26cc2
GIT binary patch
literal 1782
zcma)+O-NKx6o4m)u#LEI;ik3jL~KTEV}<<;rlzHi8Z8QRUYdqKjU%n1Vsv_?<-n8>
zlAv#9NGpGGqQXVRm>`Lcnyn-%Q9%j{YGdE?*hTCu8qOTfyZ4;$oO|xi;ryR_Y@0s^
zI*otI)_>QgWwVWM&2KtwsSVqPrK~J3$A*KEfam?)+R5HV<W(s6X>rcd*>Vs<{O#z6
zz-eNaqIbT>I?-=JzOP38psyJFe`ud4Vh~nC#e}cVKSh48J&8?BV*Fa@V34W#wnAu@
zHOL@I@%cS|7Js6MCG~WC7Qx_?aRdiwRBMT%4@-VKKHpw=a3%^_{SpWAd|@3eBTV6d
z+mFzGlI}oJ=d?FdLDt?qLL_h?8WZUck9>>{F(@e71&ZtnWmfLZWKePN6cqYeR|F~1
zO{321W7n7!6suzis#oSN`0Wgmf|?l@!5PD^-_C6bK+v@IgB7*q6`J9$5l<<J8Yqcf
zp3&@z!xXY;=m61hARrfR)Kt1kk)zJMtSrYsYa<S%M&PhP9JVocGK*rn1+rcDwfY?A
z8-Sd<dEk(zsM+JmDbqn!WT)dVvf8m1Bi@<^$2<~#yP5(;16k1#cLYvubr}#)b^iSH
zWA&BJ6AxVZgy4^+9w1ZhQ&Z(hVlzm%qOlyZ(;R4ms@7^RRu%QNoD?5{@QEkQnQ<ne
zg)baznolg*bE<S`7&I9OQ%Wc!tQ8b^LkPySD}xbcfhZ22{q77}3c*~9tJK|6C~hOo
z4h$sfN$$MfwEOB65{(6YEOw&ll0eXsj%vvcif(ji#l*691VaRyS++oSkdse~R59Ed
zP#u@+R4V|o5yTRuAdK+YTb_wqT51{@IYJx;s#@&s;=sTGLMsSYCGCJf5Kf;fk!ts4
zG!PDlTVrwz{q?B9i6R9@mxYVaaH>TsgU*0rmxI{}93<8ySBxXgt$`-u>*+4h1Anho
z;PL%?z^Rr}$t7*1)E;LdoHHp2Y`SpJJYRE>Fj}rQ5N>z-!y%5M+)$1^)uIuw(Aec$
zsfmb!U{Dee-UJL#K-60SGu$1fNHp&)F92mjW0!&ORBq>pEw3L_=1UTv#Sj|CpkYLx
zjp0B#G|M!O=UGCeDnS8}mk>`3L=0x3(XrvSHhliAWXA}rL-3Rr731Z~01z3sEaMLs
CO&z=d
literal 0
HcmV?d00001
diff --git a/_tourism/ukraine/karpaty2018.zmp/GetUrlScript.txt b/_tourism/ukraine/karpaty2018.zmp/GetUrlScript.txt
new file mode 100644
index 00000000..168fbb2a
--- /dev/null
+++ b/_tourism/ukraine/karpaty2018.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(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+inttostr(getz-1)+'/');
+
+ // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
+ // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
+ if code = 404 then z_no := getz-1 else z_ok := getz-1;
+
+ // Сохраняем актуализированные границы для последующих вызовов
+ ScriptBuffer := inttostr(z_ok) + ';' + inttostr(z_no);
+
+ // Масштаба нет (о чём могли только что при проверке узнать) - говорить не о чем
+ if getz >= z_no then exit;
+ end;
+
+ // Ок, качаем тайлик
+ ResultURL:= BaseUrl+inttostr(getz-1)+'/'+inttostr(getx)+'/'+inttostr(gety)+'.png';
+
+end.
diff --git a/_tourism/ukraine/karpaty2018.zmp/info.txt b/_tourism/ukraine/karpaty2018.zmp/info.txt
new file mode 100644
index 00000000..c335feb4
--- /dev/null
+++ b/_tourism/ukraine/karpaty2018.zmp/info.txt
@@ -0,0 +1,6 @@
+��� ����� � ����� �� ������� "�������������" ����������� �� ���������� <br><br>
+<br>
+<br>������� ������� ��� ����� �� ������ ����-�� <A href=https://cloud.mail.ru/public/64hJ/Eun9HcSD4>https://cloud.mail.ru/public/64hJ/Eun9HcSD4</a>
+<br>
+���� � ��� ���� ��� ��������� ���� ������ - ����� ����� �� ���� garl@mail.ru <br>
+<br>
diff --git a/_tourism/ukraine/karpaty2018.zmp/params.txt b/_tourism/ukraine/karpaty2018.zmp/params.txt
new file mode 100644
index 00000000..00c6fed6
--- /dev/null
+++ b/_tourism/ukraine/karpaty2018.zmp/params.txt
@@ -0,0 +1,20 @@
+
+[PARAMS]
+pnum=17
+GUID={8debebc0-b593-49f5-8046-53339fcf7044}
+ParentSubMenu_ru=Туристические\Украина
+ParentSubMenu_uk=Туристичний\Україна
+ParentSubMenu=Hike\Ukraine
+name_ru=Карпаты 500м
+name=Chornogora-Marmarosy
+DefURLBase=http://91.237.82.95:8088/pub/tourism/ukraine/050_karpaty2018/
+projection=1
+sradiusa=6378137
+sradiusb=6378137
+NameInCache=050_karpaty2018
+Ext=.png
+ContentType="image/png"
+defaultContentType="image/png"
+MaxConnectToServerCount=1
+IsUseDownloaderInScript=1
+License=(c) Издательство Стежки та мапи
\ No newline at end of file