update zmp

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.