diff --git a/Google/GoogleSat.zmp/GetUrlScript.txt b/Google/GoogleSat.zmp/GetUrlScript.txt index 7ab83464..7943703a 100644 --- a/Google/GoogleSat.zmp/GetUrlScript.txt +++ b/Google/GoogleSat.zmp/GetUrlScript.txt @@ -1,3 +1,6 @@ -begin - ResultURL:=GetUrlBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1)+'&s='+copy('Galileo',1, Random(8)); +var + khm: string; +begin + khm := RegExprReplaceMatchSubStr(GetURLBase, 'khm\.google', 'khm'+inttostr( Random(4) )+'.google' ); + ResultURL := khm + '&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1)+'&s='+copy('Galileo',1, Random(8)); end.