|
|
@@ -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. |