update zmp

master
sasbot 2020-06-06 12:00:00 +00:00
parent 88c3a76ade
commit f0dc29385f
7 changed files with 7 additions and 7 deletions
Genshtab
karta_gsh_10km.zmp
karta_gsh_1km.zmp
karta_gsh_250m.zmp
karta_gsh_2km.zmp
karta_gsh_500m.zmp
karta_gsh_5km.zmp
history/5v_kavkaz.zmp

View File

@ -1,6 +1,6 @@
var
url : string;
begin
url := RegExprReplaceMatchSubStr( GetURLBase, '8082', inttostr(8082 + Random(10)) );
url := RegExprReplaceMatchSubStr( GetURLBase, '8082', inttostr(8082 + Random(4)) );
ResultURL := URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
end.

View File

@ -1,6 +1,6 @@
var
url : string;
begin
url := RegExprReplaceMatchSubStr( GetURLBase, '8082', inttostr(8082 + Random(10)) );
url := RegExprReplaceMatchSubStr( GetURLBase, '8082', inttostr(8082 + Random(4)) );
ResultURL := URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
end.

View File

@ -1,6 +1,6 @@
var
url : string;
begin
url := RegExprReplaceMatchSubStr( GetURLBase, '8082', inttostr(8082 + Random(10)) );
url := RegExprReplaceMatchSubStr( GetURLBase, '8082', inttostr(8082 + Random(4)) );
ResultURL := URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
end.

View File

@ -1,6 +1,6 @@
var
url : string;
begin
url := RegExprReplaceMatchSubStr( GetURLBase, '8082', inttostr(8082 + Random(10)) );
url := RegExprReplaceMatchSubStr( GetURLBase, '8082', inttostr(8082 + Random(4)) );
ResultURL := URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
end.

View File

@ -1,6 +1,6 @@
var
url : string;
begin
url := RegExprReplaceMatchSubStr( GetURLBase, '8082', inttostr(8082 + Random(10)) );
url := RegExprReplaceMatchSubStr( GetURLBase, '8082', inttostr(8082 + Random(4)) );
ResultURL := URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
end.

View File

@ -1,6 +1,6 @@
var
url : string;
begin
url := RegExprReplaceMatchSubStr( GetURLBase, '8082', inttostr(8082 + Random(10)) );
url := RegExprReplaceMatchSubStr( GetURLBase, '8082', inttostr(8082 + Random(4)) );
ResultURL := URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
end.

View File

@ -1,6 +1,6 @@
var
url : string;
begin
url := RegExprReplaceMatchSubStr( GetURLBase, '8082', inttostr(8082 + Random(10)) );
url := RegExprReplaceMatchSubStr( GetURLBase, '8082', inttostr(8084 + Random(6)) );
ResultURL := URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
end.