From 993c8597fa29f98e4fa3a0121a9050302104c614 Mon Sep 17 00:00:00 2001
From: sasbot <>
Date: Sat, 6 Jun 2020 12:00:00 +0000
Subject: [PATCH] update zmp

---
 Google/Ghyb.zmp/GetUrlScript.txt       | 5 ++++-
 Google/Ghyb.zmp/params.txt             | 2 +-
 Google/GoogleLand.zmp/GetUrlScript.txt | 5 ++++-
 Google/GoogleLand.zmp/params.txt       | 2 +-
 Google/GoogleMap.zmp/GetUrlScript.txt  | 5 ++++-
 Google/GoogleMap.zmp/params.txt        | 2 +-
 6 files changed, 15 insertions(+), 6 deletions(-)

diff --git a/Google/Ghyb.zmp/GetUrlScript.txt b/Google/Ghyb.zmp/GetUrlScript.txt
index 8ba53c5bc..6be28f2dc 100644
--- a/Google/Ghyb.zmp/GetUrlScript.txt
+++ b/Google/Ghyb.zmp/GetUrlScript.txt
@@ -1,3 +1,6 @@
+var
+  mt: string;
 begin 
- ResultURL:=GetURLBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(18-GetZ)+'&s='+copy('Galileo',1, Random(8));
+ mt := RegExprReplaceMatchSubStr(GetURLBase, 'mt\.google', 'mt'+inttostr( Random(4) )+'.google' );
+ ResultURL := mt+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(18-GetZ)+'&s='+copy('Galileo',1, Random(8));
 end.
\ No newline at end of file
diff --git a/Google/Ghyb.zmp/params.txt b/Google/Ghyb.zmp/params.txt
index 49804ac6d..bec11da90 100644
--- a/Google/Ghyb.zmp/params.txt
+++ b/Google/Ghyb.zmp/params.txt
@@ -9,7 +9,7 @@ ParentSubMenu=Google
 ParentSubMenu_en=Google
 ParentSubMenu_uk=Google
 NameInCache=Both
-DefURLBase=http://mt0.google.com/vt/lyrs=h@159000000&hl=ru
+DefURLBase=http://mt.google.com/vt/lyrs=h@169000000&hl=ru
 ContentType=image/png
 Ext=.png
 projection=1
diff --git a/Google/GoogleLand.zmp/GetUrlScript.txt b/Google/GoogleLand.zmp/GetUrlScript.txt
index 0d7c576e5..666d2fb9b 100644
--- a/Google/GoogleLand.zmp/GetUrlScript.txt
+++ b/Google/GoogleLand.zmp/GetUrlScript.txt
@@ -1,4 +1,7 @@
+var
+  mt: string;
 begin 
   if (GetZ < 17) then 
-    ResultURL:=GetUrlBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1)+'&s='+copy('Galileo',1, Random(8));
+ mt := RegExprReplaceMatchSubStr(GetURLBase, 'mt\.google', 'mt'+inttostr( Random(4) )+'.google' );
+ ResultURL := mt+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1)+'&s='+copy('Galileo',1, Random(8));
 end.
\ No newline at end of file
diff --git a/Google/GoogleLand.zmp/params.txt b/Google/GoogleLand.zmp/params.txt
index 16e91f75b..1957b0ba4 100644
--- a/Google/GoogleLand.zmp/params.txt
+++ b/Google/GoogleLand.zmp/params.txt
@@ -8,7 +8,7 @@ ParentSubMenu=Google
 ParentSubMenu_en=Google
 ParentSubMenu_uk=Google
 asLayer=0
-DefURLBase=http://mt.google.com/vt/lyrs=t@127,r@159000000&hl=ru
+DefURLBase=http://mt.google.com/vt/lyrs=t@128,r@169000000&hl=ru
 projection=1
 sradiusa=6378137
 sradiusb=6378137
diff --git a/Google/GoogleMap.zmp/GetUrlScript.txt b/Google/GoogleMap.zmp/GetUrlScript.txt
index f45edba06..6be28f2dc 100644
--- a/Google/GoogleMap.zmp/GetUrlScript.txt
+++ b/Google/GoogleMap.zmp/GetUrlScript.txt
@@ -1,3 +1,6 @@
+var
+  mt: string;
 begin 
- ResultURL:=GetUrlBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(18-GetZ)+'&s='+copy('Galileo',1, Random(8));
+ mt := RegExprReplaceMatchSubStr(GetURLBase, 'mt\.google', 'mt'+inttostr( Random(4) )+'.google' );
+ ResultURL := mt+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(18-GetZ)+'&s='+copy('Galileo',1, Random(8));
 end.
\ No newline at end of file
diff --git a/Google/GoogleMap.zmp/params.txt b/Google/GoogleMap.zmp/params.txt
index a48a3b7a8..100e056fa 100644
--- a/Google/GoogleMap.zmp/params.txt
+++ b/Google/GoogleMap.zmp/params.txt
@@ -8,7 +8,7 @@ ParentSubMenu=Google
 ParentSubMenu_en=Google
 ParentSubMenu_uk=Google
 asLayer=0
-DefURLBase=http://mt0.google.com/vt/lyrs=m@159000000&hl=ru
+DefURLBase=http://mt.google.com/vt/lyrs=m@169000000&hl=ru
 projection=1
 sradiusa=6378137
 sradiusb=6378137