From 26d1c15a814b9133084365a90ff184300c200483 Mon Sep 17 00:00:00 2001 From: sasbot <> Date: Sat, 6 Jun 2020 12:00:00 +0000 Subject: [PATCH] update zmp --- Google/GoogleLand.zmp/GetUrlScript.txt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Google/GoogleLand.zmp/GetUrlScript.txt b/Google/GoogleLand.zmp/GetUrlScript.txt index 666d2fb9..b73174e3 100644 --- a/Google/GoogleLand.zmp/GetUrlScript.txt +++ b/Google/GoogleLand.zmp/GetUrlScript.txt @@ -1,7 +1,8 @@ var mt: string; begin - if (GetZ < 17) then - 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)); + if (GetZ < 17) then begin + 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 end. \ No newline at end of file