| @@ -0,0 +1,50 @@ | |||||
| var res:string; | |||||
| i:byte; | |||||
| osX,osY,prX,prY:integer; | |||||
| begin | |||||
| res:=''; | |||||
| osX:=round(intpower(2,GetZ-1)) div 2; | |||||
| osY:=round(intpower(2,GetZ-1)) div 2; | |||||
| prX:=osX; prY:=osY; | |||||
| for i:=2 to GetZ do | |||||
| begin | |||||
| prX:=prX div 2; | |||||
| prY:=prY div 2; | |||||
| if GetX<osX | |||||
| then begin | |||||
| osX:=osX-prX; | |||||
| if GetY<osY then begin | |||||
| osY:=osY-prY; | |||||
| res:=res+'1'; | |||||
| end | |||||
| else begin | |||||
| osY:=osY+prY; | |||||
| res:=res+'3'; | |||||
| end; | |||||
| end | |||||
| else begin | |||||
| osX:=osX+prX; | |||||
| if Gety<osy then begin | |||||
| osY:=osY-prY; | |||||
| res:=res+'2'; | |||||
| end | |||||
| else begin | |||||
| osY:=osY+prY; | |||||
| res:=res+'4'; | |||||
| end; | |||||
| end; | |||||
| end; | |||||
| res := Copy(res, 4, 99); | |||||
| ResultURL:=GetURLBase + inttostr(GetZ-1)+ '/' + res + '.jpg'; | |||||
| RequestHead:='User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:2.0) Gecko/20100101 Firefox/4.0' + #13#10 + | |||||
| 'Accept: image/png,image/*;q=0.8,*/*;q=0.5' + #13#10 + | |||||
| 'Accept-Language: en-us,en;q=0.5' + #13#10 + | |||||
| 'Accept-Encoding: gzip, deflate' + #13#10 + | |||||
| 'Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7' + #13#10 + | |||||
| 'DNT: 1' + #13#10 + | |||||
| 'Proxy-Connection: keep-alive' + #13#10 + | |||||
| 'Referer: http://mosday.ru/map/?ll=55.806312,37.512119&z=16&t=h' + #13#10; | |||||
| end. | |||||
| @@ -0,0 +1 @@ | |||||
| <a href="http://mosday.ru/map/">http://mosday.ru/map/</a> | |||||
| @@ -0,0 +1,26 @@ | |||||
| [PARAMS] | |||||
| pnum= | |||||
| GUID={9A360A5D-7A71-402D-1904-D670BD739B7B} | |||||
| name=Êàðòà Ìîñêâû 1904 (mosday.ru) | |||||
| name_en=Moscow Map 1904 (mosday.ru) | |||||
| name_uk=Êàðòà Ìîñêâû 1904 (mosday.ru) | |||||
| ParentSubMenu=Èñòîðè÷åñêèå | |||||
| ParentSubMenu_en=Historic | |||||
| ParentSubMenu_uk=²ñòîðè÷í³ | |||||
| ContentType=image/jpeg | |||||
| asLayer=0 | |||||
| DefURLBase=http://mosday.ru/map/tiles/mw1904/ | |||||
| projection=1 | |||||
| sradiusa=6378137 | |||||
| sradiusb=6378137 | |||||
| NameInCache=mosday.1904 | |||||
| separator=0 | |||||
| Ext=.jpg | |||||
| UseDwn=1 | |||||
| Usestick=1 | |||||
| UseGenPrevious=1 | |||||
| Usedel=1 | |||||
| Usesave=1 | |||||
| UseAntiBan=0 | |||||
| Sleep=0 | |||||
| DefHotKey= | |||||
| @@ -0,0 +1,12 @@ | |||||
| begin | |||||
| ResultURL:=GetUrlBase+inttostr(GetZ-1)+'/'+inttostr(GetZ-1)+'_'+inttostr(GetY)+'_'+inttostr(GetX)+'.jpg'; | |||||
| RequestHead:='User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:2.0) Gecko/20100101 Firefox/4.0' + #13#10 + | |||||
| 'Accept: image/png,image/*;q=0.8,*/*;q=0.5' + #13#10 + | |||||
| 'Accept-Language: en-us,en;q=0.5' + #13#10 + | |||||
| 'Accept-Encoding: gzip, deflate' + #13#10 + | |||||
| 'Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7' + #13#10 + | |||||
| 'DNT: 1' + #13#10 + | |||||
| 'Proxy-Connection: keep-alive' + #13#10 + | |||||
| 'Referer: http://mosday.ru/map/?ll=55.806312,37.512119&z=16&t=h' + #13#10; | |||||
| end. | |||||
| @@ -0,0 +1 @@ | |||||
| <a href="http://mosday.ru/map/">http://mosday.ru/map/</a> | |||||
| @@ -0,0 +1,26 @@ | |||||
| [PARAMS] | |||||
| pnum= | |||||
| GUID={9A360A5D-7A71-402D-1912-D670BD739B7B} | |||||
| name=Êàðòà Ìîñêâû 1912 (mosday.ru) | |||||
| name_en=Moscow Map 1912 (mosday.ru) | |||||
| name_uk=Êàðòà Ìîñêâû 1912 (mosday.ru) | |||||
| ParentSubMenu=Èñòîðè÷åñêèå | |||||
| ParentSubMenu_en=Historic | |||||
| ParentSubMenu_uk=²ñòîðè÷í³ | |||||
| ContentType=image/jpeg | |||||
| asLayer=0 | |||||
| DefURLBase=http://mosday.ru/map/tiles/mw1912/ | |||||
| projection=1 | |||||
| sradiusa=6378137 | |||||
| sradiusb=6378137 | |||||
| NameInCache=mosday.1912 | |||||
| separator=0 | |||||
| Ext=.jpg | |||||
| UseDwn=1 | |||||
| Usestick=1 | |||||
| UseGenPrevious=1 | |||||
| Usedel=1 | |||||
| Usesave=1 | |||||
| UseAntiBan=0 | |||||
| Sleep=0 | |||||
| DefHotKey= | |||||
| @@ -0,0 +1,50 @@ | |||||
| var res:string; | |||||
| i:byte; | |||||
| osX,osY,prX,prY:integer; | |||||
| begin | |||||
| res:=''; | |||||
| osX:=round(intpower(2,GetZ-1)) div 2; | |||||
| osY:=round(intpower(2,GetZ-1)) div 2; | |||||
| prX:=osX; prY:=osY; | |||||
| for i:=2 to GetZ do | |||||
| begin | |||||
| prX:=prX div 2; | |||||
| prY:=prY div 2; | |||||
| if GetX<osX | |||||
| then begin | |||||
| osX:=osX-prX; | |||||
| if GetY<osY then begin | |||||
| osY:=osY-prY; | |||||
| res:=res+'1'; | |||||
| end | |||||
| else begin | |||||
| osY:=osY+prY; | |||||
| res:=res+'3'; | |||||
| end; | |||||
| end | |||||
| else begin | |||||
| osX:=osX+prX; | |||||
| if Gety<osy then begin | |||||
| osY:=osY-prY; | |||||
| res:=res+'2'; | |||||
| end | |||||
| else begin | |||||
| osY:=osY+prY; | |||||
| res:=res+'4'; | |||||
| end; | |||||
| end; | |||||
| end; | |||||
| res := Copy(res, 4, 99); | |||||
| ResultURL:=GetURLBase + inttostr(GetZ-1)+ '/' + res + '.jpg'; | |||||
| RequestHead:='User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:2.0) Gecko/20100101 Firefox/4.0' + #13#10 + | |||||
| 'Accept: image/png,image/*;q=0.8,*/*;q=0.5' + #13#10 + | |||||
| 'Accept-Language: en-us,en;q=0.5' + #13#10 + | |||||
| 'Accept-Encoding: gzip, deflate' + #13#10 + | |||||
| 'Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7' + #13#10 + | |||||
| 'DNT: 1' + #13#10 + | |||||
| 'Proxy-Connection: keep-alive' + #13#10 + | |||||
| 'Referer: http://mosday.ru/map/?ll=55.806312,37.512119&z=16&t=h' + #13#10; | |||||
| end. | |||||
| @@ -0,0 +1 @@ | |||||
| <a href="http://mosday.ru/map/">http://mosday.ru/map/</a> | |||||
| @@ -0,0 +1,26 @@ | |||||
| [PARAMS] | |||||
| pnum= | |||||
| GUID={9A360A5D-7A71-402D-1964-D670BD739B7B} | |||||
| name=Êàðòà Ìîñêâû 1964 (mosday.ru) | |||||
| name_en=Moscow Map 1964 (mosday.ru) | |||||
| name_uk=Êàðòà Ìîñêâû 1964 (mosday.ru) | |||||
| ParentSubMenu=Èñòîðè÷åñêèå | |||||
| ParentSubMenu_en=Historic | |||||
| ParentSubMenu_uk=²ñòîðè÷í³ | |||||
| ContentType=image/jpeg | |||||
| asLayer=0 | |||||
| DefURLBase=http://mosday.ru/map/tiles/mw1964/ | |||||
| projection=1 | |||||
| sradiusa=6378137 | |||||
| sradiusb=6378137 | |||||
| NameInCache=mosday.1964 | |||||
| separator=0 | |||||
| Ext=.jpg | |||||
| UseDwn=1 | |||||
| Usestick=1 | |||||
| UseGenPrevious=1 | |||||
| Usedel=1 | |||||
| Usesave=1 | |||||
| UseAntiBan=0 | |||||
| Sleep=0 | |||||
| DefHotKey= | |||||
| @@ -0,0 +1,38 @@ | |||||
| var res:string; | |||||
| i:byte; | |||||
| osX,osY,prX,prY:integer; | |||||
| begin | |||||
| res:=''; | |||||
| osX:=round(intpower(2,GetZ-1)) div 2; | |||||
| osY:=round(intpower(2,GetZ-1)) div 2; | |||||
| prX:=osX; prY:=osY; | |||||
| for i:=2 to GetZ do | |||||
| begin | |||||
| prX:=prX div 2; | |||||
| prY:=prY div 2; | |||||
| if GetX<osX | |||||
| then begin | |||||
| osX:=osX-prX; | |||||
| if GetY<osY then begin | |||||
| osY:=osY-prY; | |||||
| res:=res+'0'; | |||||
| end | |||||
| else begin | |||||
| osY:=osY+prY; | |||||
| res:=res+'2'; | |||||
| end; | |||||
| end | |||||
| else begin | |||||
| osX:=osX+prX; | |||||
| if Gety<osy then begin | |||||
| osY:=osY-prY; | |||||
| res:=res+'1'; | |||||
| end | |||||
| else begin | |||||
| osY:=osY+prY; | |||||
| res:=res+'3'; | |||||
| end; | |||||
| end; | |||||
| end; | |||||
| ResultURL:=GetURLBase + res + '.jpg'; | |||||
| end. | |||||
| @@ -0,0 +1,26 @@ | |||||
| [PARAMS] | |||||
| pnum= | |||||
| GUID={9A360A5D-1987-402D-8A11-D670BD739B7B} | |||||
| name=Êàðòà Ìîñêâû 1987 (retromap.ru) | |||||
| name_en=Moscow Map 1987 (retromap.ru) | |||||
| name_uk=Êàðòà Ìîñêâû 1987 (retromap.ru) | |||||
| ContentType=image/jpeg | |||||
| ParentSubMenu=Èñòîðè÷åñêèå | |||||
| ParentSubMenu_en=Historic | |||||
| ParentSubMenu_uk=²ñòîðè÷í³ | |||||
| asLayer=0 | |||||
| DefURLBase=http://www.retromap.ru/f19f53e/FFd2da_051987/ | |||||
| projection=1 | |||||
| sradiusa=6378137 | |||||
| sradiusb=6378137 | |||||
| NameInCache=retromap.1987 | |||||
| separator=0 | |||||
| Ext=.jpg | |||||
| UseDwn=1 | |||||
| Usestick=1 | |||||
| UseGenPrevious=1 | |||||
| Usedel=1 | |||||
| Usesave=1 | |||||
| UseAntiBan=0 | |||||
| Sleep=0 | |||||
| DefHotKey= | |||||