浏览代码

update zmp

master
sasbot 4 年前
父节点
当前提交
993c8597fa
共有 6 个文件被更改,包括 15 次插入6 次删除
  1. +4
    -1
      Google/Ghyb.zmp/GetUrlScript.txt
  2. +1
    -1
      Google/Ghyb.zmp/params.txt
  3. +4
    -1
      Google/GoogleLand.zmp/GetUrlScript.txt
  4. +1
    -1
      Google/GoogleLand.zmp/params.txt
  5. +4
    -1
      Google/GoogleMap.zmp/GetUrlScript.txt
  6. +1
    -1
      Google/GoogleMap.zmp/params.txt

+ 4
- 1
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.

+ 1
- 1
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


+ 4
- 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.

+ 1
- 1
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


+ 4
- 1
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.

+ 1
- 1
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


正在加载...
取消
保存