From f5d5e281ab3fa43acab0b3f19aa9ae0af68686ac Mon Sep 17 00:00:00 2001 From: sasbot <> Date: Sat, 6 Jun 2020 12:00:00 +0000 Subject: [PATCH] update zmp --- megafonpro.zmp/18.bmp | Bin 0 -> 1438 bytes megafonpro.zmp/24.bmp | Bin 0 -> 1654 bytes megafonpro.zmp/GetUrlScript.txt | 173 ++++++++++++++++++++++++++++++++ megafonpro.zmp/info.txt | 1 + megafonpro.zmp/params.txt | 27 +++++ 5 files changed, 201 insertions(+) create mode 100644 megafonpro.zmp/18.bmp create mode 100644 megafonpro.zmp/24.bmp create mode 100644 megafonpro.zmp/GetUrlScript.txt create mode 100644 megafonpro.zmp/info.txt create mode 100644 megafonpro.zmp/params.txt diff --git a/megafonpro.zmp/18.bmp b/megafonpro.zmp/18.bmp new file mode 100644 index 0000000000000000000000000000000000000000..bd4ec3e3f650698dc8f0d4adabc88f77d15a2f26 GIT binary patch literal 1438 zcmXw&2~^E#6u^IxeQa4GyU-%_qViI!u zIg^;m-m%RgRHDXKw#oconS0JX-~E2)-tR8wehzNg?Pw7jT`(3by&tMW#}*!@1BT|U ziePKCgK(^TaDiX*@(?Fmv(#h)!#w)%si}#IQ=bIIG1&UWWTq}s}noRQ=0VXR*NE zk+*g4IHx&HvF0)dA6>z$*I=Tv!b$X+&l)o~s=j|jl5S6w$$0LRl`-0HC@ycFlsOblIzlXpCagc&m4)V*eOh9f6a_pmQO z#e<8bgbWm6Q|QaWzj8Tzx`3Do(=d{m<4_cb%YIiX@7<;B#&x7yBz$lD%nVI3lRNZg zO@1sdUOZ<|yB>HBHzAL}6|Ov;{0(Xmtf^QM75v?ru2hsgnUgbuSs6lBVVDS@oD zbYr(~JO;X5Srr?{#G-h1xJHs->WJ(1+4OZaps4;aB^qI_Nn%P0PT`+8`Q-&2_VFwEvza&dn?Co;0I zH4-suwlN=GH&A}`97bM)si}T}g^**ius=b|1DF#gN?)n z)wkrmy7LfwWzpO^cAm$@*LhxkkAwcpc~?_M?z|Z0$N9F@;a$9zBjL%|`HIPsMv=I0 z1vmdJC40^)-hF(}Zub~eB6m{!qEXn)!Rg3CVfW(kJseGrDw%K1|F-n}z4;sd<~I1< zE+ppG394(WX>4jFFK8_};YwUp67nOG$njo9!`CJr*FNP%RTam#?4__Uk8zPBXlQs% zgRr|b&#FkACOhUiU{^^S~`v{A}hS!b0;YRpR8fcaxXh|+q3dV|Q>(>Zk6P=l?*vxl~k zNd?wZp3rq?J4f3dioOcdEvrQ;fpxccUTB=rvHNV7HCBE`n^wsLCY?4RZhYXBxy$`` zciKMBE^35Y$h&Kp_uwQiLmRhs;kug#{iKu%%%W|2QuG4%0qghnTO!_OsuKKym2>*< z>lUksb&Jqnr@JR;t?-^){qroRL>-+;ZZj5-?leXyP>7W(GadS*t+4DcP=B4tRGC`K z)WPvfd-?iWc3EUSbE8t(+OIlTHO|a+)by|&DO#lUQz+EZ&dWwxq$Deqa^cp>6pCM@ M<^u3hYmvbI0~GNRN&o-= literal 0 HcmV?d00001 diff --git a/megafonpro.zmp/24.bmp b/megafonpro.zmp/24.bmp new file mode 100644 index 0000000000000000000000000000000000000000..fd0270b14826cb820736ddbc4297cf540c668617 GIT binary patch literal 1654 zcmaJ;c{J1s9RE~Oq)lqAN*B{LWt3}%%=k6TXfhodU2FzfqC|3(=%B(xD9Sjxv~(bT zGvmlzlp~6qkq#wlLfL2A{;)f$eQ$UF*zbFv_rCA*`CjkyWv>rV#@8@W0+uQ=t?w9z z$zOS5JfKVa28>fsV^BnQeKXQ8Uxite5kd_F5U9EV!M6S? z)J=at(gt4`EqX4;8xp>syg^<)hboF$iupkfiXY9~aSp#|y6>}%6WAhpglKeujOIHsO z*N-FS$t^6jnTPm;!7xeTgRe0Up<5kc=&6gU-gaDy7o#LA2Wt9iFbiiQ*w-J=x;jx? z{Qv2I|aQR zI%sZgf`BT-5H&{e5kQf#YwwDp~ z=2P(bkKbXFu?jH_6S?C z4%1Xrar$X7_@UNVTNjUxmR6XJn+m=;8;06T!7ADZy6+0O#|xniRj}{J;rz}(IBHX2 z-*^k%11~X+sg4NRCRE+4K#L6^K6Ng<(#wseDCRXnUJ!Z12I3b|a4 zlA=4Pudl=K@Gv4*32(9@^bn$xBQWykDEvB#(69KV^h!FI0W@f^rX#`9 z9js&m7IAds#9Tslb~+5bC>R`+WAMEkeXn|Olx2&~wl;_=6R=m8g-CrROi*}1{(ngN zq+w#QxJ2@=GKticAs`6CnUHS!hr)9u1dTqfR+V<+C4`RK-z_q6UgHsC@%RVT4~n-t z=1FDW1d-S|SnY!s5k6&F{>CHtbo*>!A(OzYi{ zw)=`*(+sOLikdh=J;+2-V-Y zqkP1q&&^n-NB2HYvw-lTi$71*Jn5Zr`WMBa3vcdC*C-b=hKx=~ws11}SzBgg_+r7bOwA|9rlX!C>%syb{K@LX!Lon@g#n literal 0 HcmV?d00001 diff --git a/megafonpro.zmp/GetUrlScript.txt b/megafonpro.zmp/GetUrlScript.txt new file mode 100644 index 000000000..26099de62 --- /dev/null +++ b/megafonpro.zmp/GetUrlScript.txt @@ -0,0 +1,173 @@ +var a:array[0..35] of char; +max:array[0..20] of byte; + +x1,x2,x3:integer; +y1,y2,y3:integer; +px1,px2,px3:integer; +py1,py2,py3:integer; +ppx1,ppx2,ppx3:integer; +ppy1,ppy2,ppy3:integer; +dx3,dx2,dx1:integer; +dy3,dy2,dy1:integer; + +sxy:string; +strx1,strx2,strx3:string; +stry1,stry2,stry3:string; + +begin + +a[0]:= '0'; +a[1]:= '1'; +a[2]:= '2'; +a[3]:= '3'; +a[4]:= '4'; +a[5]:= '5'; +a[6]:= '6'; +a[7]:= '7'; +a[8]:= '8'; +a[9]:= '9'; +a[10]:='A'; +a[11]:='B'; +a[12]:='C'; +a[13]:='D'; +a[14]:='E'; +a[15]:='F'; +a[16]:='G'; +a[17]:='H'; +a[18]:='I'; +a[19]:='J'; +a[20]:='K'; +a[21]:='L'; +a[22]:='M'; +a[23]:='N'; +a[24]:='O'; +a[25]:='P'; +a[26]:='Q'; +a[27]:='R'; +a[28]:='S'; +a[29]:='T'; +a[30]:='U'; +a[31]:='V'; +a[32]:='W'; +a[33]:='X'; +a[34]:='Y'; +a[35]:='Z'; + +max[0]:= 15; +max[1]:= 15; +max[2]:= 15; +max[3]:= 15; +max[4]:= 15; +max[5]:= 15; +max[6]:= 16; +max[7]:= 16; +max[8]:= 16; +max[9]:= 16; +max[10]:=16; +max[11]:=16; +max[12]:=16; +max[13]:=16; +max[14]:=16; +max[15]:=16; +max[16]:=16; +max[17]:=16; +max[18]:=16; +max[19]:=16; + + sxy:=''; + strx1:=''; + strx2:=''; + strx3:=''; + stry1:=''; + stry2:=''; + stry3:=''; + + x3:=0; + y3:=0; + x2:=0; + y2:=0; + x1:=0; + y1:=0; + px3:=0; + py3:=0; + px2:=0; + py2:=0; + px1:=0; + py1:=0; + + + if (gety>=round(intpower(2,GetZ-1)/2)) and (getx >=round(intpower(2,GetZ-1)/2)) then sxy:='/A'; + if (gety>=round(intpower(2,GetZ-1)/2)) and (getx < round(intpower(2,GetZ-1)/2)) then sxy:='/B'; + if (gety< round(intpower(2,GetZ-1)/2)) and (getx >= round(intpower(2,GetZ-1)/2))then sxy:='/D'; + if (gety< round(intpower(2,GetZ-1)/2)) and (getx < round(intpower(2,GetZ-1)/2))then sxy:='/C'; + + dx3:=round(intpower(2,GetZ-1)/2)-GetX; + if dx3<0 then dx3:=-dx3; + + dy3:=round(intpower(2,GetZ-1)/2)-GetY; + if dy3<0 then dy3:=-dy3; + + + + +if GetZ>3 then + begin + dx2:=dx3 div max[getz]; + dy2:=dy3 div max[getz]; + + dx1:=dx2 div max[getz]; + dy1:=dy2 div max[getz]; + end; + + px3:=dx3 div 35; + py3:=dy3 div 35; + ppx3:=px3 div 35; + ppy3:=py3 div 35; + x3:=dx3 mod 35; + y3:=dy3 mod 35; + px3:=px3-ppx3*35; + py3:=py3-ppy3*35; + + px2:=dx2 div 35; + py2:=dy2 div 35; + ppx2:=px2 div 35; + ppy2:=py2 div 35; + x2:=dx2 mod 35; + y2:=dy2 mod 35; + px2:=px2-ppx2*35; + py2:=py2-ppy2*35; + + px1:=dx1 div 35; + py1:=dy1 div 35; + ppx1:=px1 div 35; + ppy1:=py1 div 35; + x1:=dx1 mod 35; + y1:=dy1 mod 35; + px1:=px1-ppx1*35; + py1:=py1-ppy1*35; + + + strx3:=a[x3]; + stry3:=a[y3]; + if px3>0 then strx3:=a[px3]+strx3; + if py3>0 then stry3:=a[py3]+stry3; + if ppx3>0 then strx3:=a[ppx3]+strx3; + if ppy3>0 then stry3:=a[ppy3]+stry3; + + strx2:=a[x2]; + stry2:=a[y2]; + if px2>0 then strx2:=a[px2]+strx2; + if py2>0 then stry2:=a[py2]+stry2; + if ppx2>0 then strx2:=a[ppx2]+strx2; + if ppy2>0 then stry2:=a[ppy2]+stry2; + + strx1:=a[x1]; + stry1:=a[y1]; + if px1>0 then strx1:=a[px1]+strx1; + if py1>0 then stry1:=a[py1]+stry1; + if ppx1>0 then strx1:=a[ppx1]+strx1; + if ppy1>0 then stry1:=a[ppy1]+stry1; + + ResultURL:=GetURLBase+'Z'+inttostr(19-GetZ)+sxy+'/L1'+strx1+'Z'+stry1+'/L2'+strx2+'Z'+stry2+'/'+strx3+'Z'+stry3+'.png'; +end. + diff --git a/megafonpro.zmp/info.txt b/megafonpro.zmp/info.txt new file mode 100644 index 000000000..b116cfe6a --- /dev/null +++ b/megafonpro.zmp/info.txt @@ -0,0 +1 @@ +http://navigator.megafonpro.ru/ \ No newline at end of file diff --git a/megafonpro.zmp/params.txt b/megafonpro.zmp/params.txt new file mode 100644 index 000000000..f4f37422b --- /dev/null +++ b/megafonpro.zmp/params.txt @@ -0,0 +1,27 @@ +[PARAMS] +pnum=104 +GUID={A8B5CADF-FA15-492D-9BC2-BCBA7DCE888F} +asLayer=0 +name=Мегафон Навигатор +name_en=Megafon Navigator +name_uk=Мегафон Навигатор +ParentSubMenu=Другие карты +ParentSubMenu_en=Other maps +ParentSubMenu_uk=Інші карти +NameInCache=megafonpro +DefURLBase=http://193.201.231.115/ +ContentType=image/png +Ext=.png +projection=1 +sradiusa=6378137 +sradiusb=6356752 +separator=0 +UseDwn=1 +Usestick=1 +UseGenPrevious=1 +Usedel=1 +Usesave=1 +UseAntiBan=0 +Sleep=0 +DefHotKey=0 +BanIfLen=0 \ No newline at end of file