From 634b40720d4349c48e66af1d5c51ce93365be12a Mon Sep 17 00:00:00 2001 From: sasgis <> Date: Sat, 12 Dec 1970 12:00:00 +0000 Subject: [PATCH 1/3] update zmp --- mail.ru/MailMap.zmp/GetUrlScript.txt | 5 ++++- mail.ru/MailMap.zmp/params.txt | 2 +- mail.ru/MailSat.zmp/GetUrlScript.txt | 5 ++++- mail.ru/MailSat.zmp/params.txt | 2 +- 4 files changed, 10 insertions(+), 4 deletions(-) diff --git a/mail.ru/MailMap.zmp/GetUrlScript.txt b/mail.ru/MailMap.zmp/GetUrlScript.txt index 630fc28d..c76f523d 100644 --- a/mail.ru/MailMap.zmp/GetUrlScript.txt +++ b/mail.ru/MailMap.zmp/GetUrlScript.txt @@ -1,3 +1,6 @@ +var + tt: string; begin - ResultURL:=GetURLBase+'&x='+inttostr(GetX-((round(intpower(2,GetZ-1))div 2)))+'&y='+inttostr(((round(intpower(2,GetZ-1))div 2)-1)-GetY)+'&z='+inttostr(GetZ-1); + tt := RegExprReplaceMatchSubStr(GetURLBase, 't\.maps', 't'+inttostr( Random(4) )+'maps' ); + ResultURL := tt + inttostr(Getz-1)+'/'+inttostr(GetY)+'/'+inttostr(GetX)+'.png'; end. \ No newline at end of file diff --git a/mail.ru/MailMap.zmp/params.txt b/mail.ru/MailMap.zmp/params.txt index 8636422e..4aff959c 100644 --- a/mail.ru/MailMap.zmp/params.txt +++ b/mail.ru/MailMap.zmp/params.txt @@ -6,7 +6,7 @@ name= name_en=Map (Maps@mail) name_uk=Карта (Карты@Mail.Ru) NameInCache=mailmap -DefURLBase=http://t2.maps.mail.ru/TileSender.aspx?ModeKey=tiles&t=maps +DefURLBase=http://t.maps.mail.ru/tiles/scheme/ ContentType=image/png ParentSubMenu=mail.ru ParentSubMenu_en=mail.ru diff --git a/mail.ru/MailSat.zmp/GetUrlScript.txt b/mail.ru/MailSat.zmp/GetUrlScript.txt index 630fc28d..c6469acb 100644 --- a/mail.ru/MailSat.zmp/GetUrlScript.txt +++ b/mail.ru/MailSat.zmp/GetUrlScript.txt @@ -1,3 +1,6 @@ +var + tt: string; begin - ResultURL:=GetURLBase+'&x='+inttostr(GetX-((round(intpower(2,GetZ-1))div 2)))+'&y='+inttostr(((round(intpower(2,GetZ-1))div 2)-1)-GetY)+'&z='+inttostr(GetZ-1); + tt := RegExprReplaceMatchSubStr(GetURLBase, 't\.maps', 't'+inttostr( Random(4) )+'maps' ); + ResultURL:=tt+'&z='+inttostr(GetZ-1)+'&x='+inttostr(GetX-((round(intpower(2,GetZ-1))div 2)))+'&y='+inttostr(((round(intpower(2,GetZ-1))div 2)-1)-GetY); end. \ No newline at end of file diff --git a/mail.ru/MailSat.zmp/params.txt b/mail.ru/MailSat.zmp/params.txt index b029657a..a747cf66 100644 --- a/mail.ru/MailSat.zmp/params.txt +++ b/mail.ru/MailSat.zmp/params.txt @@ -6,7 +6,7 @@ name= name_en=Satellite (Maps@mail) name_uk=Супутник (Карты@Mail.Ru) NameInCache=mailsat -DefURLBase=http://t1.maps.mail.ru/TileSender.aspx?ModeKey=tiles&t=Images +DefURLBase=http://t.maps.mail.ru/TileSender.aspx?ModeKey=tiles&t=Images ContentType=image/jpeg ParentSubMenu=mail.ru ParentSubMenu_en=mail.ru From 8f63f0e0ef1921289b2f757749c4e9931eea0bb5 Mon Sep 17 00:00:00 2001 From: sasgis <> Date: Sat, 12 Dec 1970 12:00:00 +0000 Subject: [PATCH 2/3] update zmp --- mail.ru/MailMap.zmp/params.txt | 2 +- mail.ru/MailSat.zmp/params.txt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/mail.ru/MailMap.zmp/params.txt b/mail.ru/MailMap.zmp/params.txt index 4aff959c..810a9297 100644 --- a/mail.ru/MailMap.zmp/params.txt +++ b/mail.ru/MailMap.zmp/params.txt @@ -12,7 +12,7 @@ ParentSubMenu=mail.ru ParentSubMenu_en=mail.ru ParentSubMenu_uk=mail.ru Ext=.png -projection=2 +projection=1 sradiusa=6378137 sradiusb=6356752 separator=0 diff --git a/mail.ru/MailSat.zmp/params.txt b/mail.ru/MailSat.zmp/params.txt index a747cf66..1c0c7124 100644 --- a/mail.ru/MailSat.zmp/params.txt +++ b/mail.ru/MailSat.zmp/params.txt @@ -12,7 +12,7 @@ ParentSubMenu=mail.ru ParentSubMenu_en=mail.ru ParentSubMenu_uk=mail.ru Ext=.jpg -projection=2 +projection=1 sradiusa=6378137 sradiusb=6356752 separator=0 From 9937c989729957038460a63e3a6db62905bfc5a8 Mon Sep 17 00:00:00 2001 From: sasgis <> Date: Sat, 12 Dec 1970 12:00:00 +0000 Subject: [PATCH 3/3] update zmp --- mail.ru/MailMap.zmp/params.txt | 2 +- mail.ru/MailSat.zmp/params.txt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/mail.ru/MailMap.zmp/params.txt b/mail.ru/MailMap.zmp/params.txt index 810a9297..88b4b46e 100644 --- a/mail.ru/MailMap.zmp/params.txt +++ b/mail.ru/MailMap.zmp/params.txt @@ -5,7 +5,7 @@ asLayer=0 name=Карта (Карты@mail) name_en=Map (Maps@mail) name_uk=Карта (Карты@Mail.Ru) -NameInCache=mailmap +NameInCache=mail_map DefURLBase=http://t.maps.mail.ru/tiles/scheme/ ContentType=image/png ParentSubMenu=mail.ru diff --git a/mail.ru/MailSat.zmp/params.txt b/mail.ru/MailSat.zmp/params.txt index 1c0c7124..db914fbe 100644 --- a/mail.ru/MailSat.zmp/params.txt +++ b/mail.ru/MailSat.zmp/params.txt @@ -5,7 +5,7 @@ asLayer=0 name=Спутник (Карты@mail) name_en=Satellite (Maps@mail) name_uk=Супутник (Карты@Mail.Ru) -NameInCache=mailsat +NameInCache=mail_sat DefURLBase=http://t.maps.mail.ru/TileSender.aspx?ModeKey=tiles&t=Images ContentType=image/jpeg ParentSubMenu=mail.ru