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

---
 Yandex/YaHyb.zmp/GetUrlScript.txt    | 5 ++++-
 Yandex/YaHyb.zmp/params.txt          | 2 +-
 Yandex/YaMapNew.zmp/GetUrlScript.txt | 7 +++++--
 Yandex/YaMapNew.zmp/params.txt       | 2 +-
 Yandex/YaSat.zmp/GetUrlScript.txt    | 5 ++++-
 5 files changed, 15 insertions(+), 6 deletions(-)

diff --git a/Yandex/YaHyb.zmp/GetUrlScript.txt b/Yandex/YaHyb.zmp/GetUrlScript.txt
index 165c75ea..7579a6d3 100644
--- a/Yandex/YaHyb.zmp/GetUrlScript.txt
+++ b/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.
\ No newline at end of file
diff --git a/Yandex/YaHyb.zmp/params.txt b/Yandex/YaHyb.zmp/params.txt
index 6c3f4ab9..9ffc9f38 100644
--- a/Yandex/YaHyb.zmp/params.txt
+++ b/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
diff --git a/Yandex/YaMapNew.zmp/GetUrlScript.txt b/Yandex/YaMapNew.zmp/GetUrlScript.txt
index 9ab9c4c0..9eea92f0 100644
--- a/Yandex/YaMapNew.zmp/GetUrlScript.txt
+++ b/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.
\ No newline at end of file
diff --git a/Yandex/YaMapNew.zmp/params.txt b/Yandex/YaMapNew.zmp/params.txt
index 71ad53a8..7f86a271 100644
--- a/Yandex/YaMapNew.zmp/params.txt
+++ b/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
diff --git a/Yandex/YaSat.zmp/GetUrlScript.txt b/Yandex/YaSat.zmp/GetUrlScript.txt
index 165c75ea..128acb44 100644
--- a/Yandex/YaSat.zmp/GetUrlScript.txt
+++ b/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.
\ No newline at end of file