diff --git a/Google/Ghyb.zmp/GetUrlScript.txt b/Google/Ghyb.zmp/GetUrlScript.txt index d4d85e3c6..8ba53c5bc 100644 --- a/Google/Ghyb.zmp/GetUrlScript.txt +++ b/Google/Ghyb.zmp/GetUrlScript.txt @@ -1,3 +1,3 @@ begin - ResultURL:=GetURLBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(18-GetZ)+'&s='+copy('Galileo',1,(GetX*3+GetY)mod 8); + ResultURL:=GetURLBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(18-GetZ)+'&s='+copy('Galileo',1, Random(8)); end. \ No newline at end of file diff --git a/Google/GoogleLand.zmp/GetUrlScript.txt b/Google/GoogleLand.zmp/GetUrlScript.txt index 2e3325c92..6a4da1ef9 100644 --- a/Google/GoogleLand.zmp/GetUrlScript.txt +++ b/Google/GoogleLand.zmp/GetUrlScript.txt @@ -1,3 +1,3 @@ begin - ResultURL:=GetUrlBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1)+'&s='+copy('Galileo',1,(GetX*3+GetY)mod 8); + ResultURL:=GetUrlBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1)+'&s='+copy('Galileo',1, Random(8)); end. \ No newline at end of file diff --git a/Google/GoogleMap.zmp/GetUrlScript.txt b/Google/GoogleMap.zmp/GetUrlScript.txt index b1cd7f9c0..f45edba06 100644 --- a/Google/GoogleMap.zmp/GetUrlScript.txt +++ b/Google/GoogleMap.zmp/GetUrlScript.txt @@ -1,3 +1,3 @@ begin - ResultURL:=GetUrlBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(18-GetZ)+'&s='+copy('Galileo',1,(GetX*3+GetY)mod 8); + ResultURL:=GetUrlBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(18-GetZ)+'&s='+copy('Galileo',1, Random(8)); end. \ No newline at end of file diff --git a/Google/GoogleSat.zmp/GetUrlScript.txt b/Google/GoogleSat.zmp/GetUrlScript.txt index 022542d5e..7ab834645 100644 --- a/Google/GoogleSat.zmp/GetUrlScript.txt +++ b/Google/GoogleSat.zmp/GetUrlScript.txt @@ -1,4 +1,3 @@ begin - //GetUrlBase[11]:=inttostr((GetX+GetY) mod 4)[1]; - ResultURL:=GetUrlBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1)+'&s='+copy('Galileo',1,(GetX*3+GetY)mod 8); -end. \ No newline at end of file + ResultURL:=GetUrlBase+'&x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&z='+inttostr(GetZ-1)+'&s='+copy('Galileo',1, Random(8)); +end.