Browse Source

update zmp

master
sasgis 54 years ago
parent
commit
548a51d5fa
5 changed files with 15 additions and 6 deletions
  1. +4
    -1
      Yandex/YaHyb.zmp/GetUrlScript.txt
  2. +1
    -1
      Yandex/YaHyb.zmp/params.txt
  3. +5
    -2
      Yandex/YaMapNew.zmp/GetUrlScript.txt
  4. +1
    -1
      Yandex/YaMapNew.zmp/params.txt
  5. +4
    -1
      Yandex/YaSat.zmp/GetUrlScript.txt

+ 4
- 1
Yandex/YaHyb.zmp/GetUrlScript.txt View File

@@ -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.

+ 1
- 1
Yandex/YaHyb.zmp/params.txt View File

@@ -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


+ 5
- 2
Yandex/YaMapNew.zmp/GetUrlScript.txt View File

@@ -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.

+ 1
- 1
Yandex/YaMapNew.zmp/params.txt View File

@@ -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


+ 4
- 1
Yandex/YaSat.zmp/GetUrlScript.txt View File

@@ -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.

Loading…
Cancel
Save