ソースを参照

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


読み込み中…
キャンセル
保存