update zmp

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.

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

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.

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

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.

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