update zmp

Yandex/YaHyb.zmp/GetUrlScript.txt

@@ -1,3 +1,6 @@
+var
+  vec: string;
 begin 
- ResultURL:=GetURLBase+inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1); 
+ vec := RegExprReplaceMatchSubStr(GetURLBase, 'vec(\d+)\.', 'vec0'+inttostr(1 + Random(3)) + '.' );
+ ResultURL := vec +inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1)+'&g='+copy('Gagarin', 1, Random(8)); 
 end.

Yandex/YaHyb.zmp/params.txt

@@ -9,7 +9,7 @@ ParentSubMenu=
 ParentSubMenu_en=Yandex
 ParentSubMenu_uk=ßíäåêñ
 NameInCache=yahyb
-DefURLBase=http://vec01.maps.yandex.net/tiles?l=skl&v=2.14.0&x=
+DefURLBase=http://vec01.maps.yandex.net/tiles?l=skl&v=2.17.1&x=
 ContentType=image/png
 Ext=.png
 projection=2

Yandex/YaMapNew.zmp/GetUrlScript.txt

@@ -1,3 +1,6 @@
-begin
- ResultURL:=GetURLBase+inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1)+'&g='+copy('Gagarin',1,(GetX*3+GetY)mod 8);
+var
+  vec: string;
+begin 
+ vec := RegExprReplaceMatchSubStr(GetURLBase, 'vec(\d+)\.', 'vec0'+inttostr(1 + Random(3)) + '.' );
+ ResultURL := vec +inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1)+'&g='+copy('Gagarin', 1, Random(8));
 end.

Yandex/YaMapNew.zmp/params.txt

@@ -8,7 +8,7 @@ ParentSubMenu=
 ParentSubMenu_en=Yandex
 ParentSubMenu_uk=ßíäåêñ
 asLayer=0
-DefURLBase=http://vec.maps.yandex.net/tiles?l=map&v=2.17.1&x=
+DefURLBase=http://vec01.maps.yandex.net/tiles?l=map&v=2.17.1&x=
 projection=2
 sradiusa=6378137
 sradiusb=6356752

Yandex/YaSat.zmp/GetUrlScript.txt

@@ -1,3 +1,6 @@
+var
+  sat: string;
 begin 
- ResultURL:=GetURLBase+inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1); 
+ sat := RegExprReplaceMatchSubStr(GetURLBase, 'sat(\d+)\.', 'sat0'+inttostr(1 + Random(3)) + '.' );
+ ResultURL := sat +inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1)+'&g='+copy('Gagarin', 1, Random(8)); 
 end.