From df43d64a165ff0ccfdcbf0f31577b4ecf5b06fae Mon Sep 17 00:00:00 2001 From: sasgis <> Date: Sat, 12 Dec 1970 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