From 4d290e4426434c5d75eac9e0d0834d701d2131b6 Mon Sep 17 00:00:00 2001
From: sasbot <>
Date: Sat, 6 Jun 2020 12:00:00 +0000
Subject: [PATCH] update zmp

---
 Google/Ghyb.zmp/GetUrlScript.txt       | 2 +-
 Google/GoogleLand.zmp/GetUrlScript.txt | 2 +-
 Google/GoogleMap.zmp/GetUrlScript.txt  | 2 +-
 Google/GoogleSat.zmp/GetUrlScript.txt  | 5 ++---
 4 files changed, 5 insertions(+), 6 deletions(-)

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.