From 078c5bfdc8cb399e391d905d0571f63df1a645b7 Mon Sep 17 00:00:00 2001
From: sasgis <>
Date: Sat, 12 Dec 1970 12:00:00 +0000
Subject: [PATCH] update zmp
---
Genshtab/karta_gsh_10km.zmp/GetUrlScript.txt | 6 ++++--
Genshtab/karta_gsh_1km.zmp/GetUrlScript.txt | 6 ++++--
Genshtab/karta_gsh_250m.zmp/GetUrlScript.txt | 6 ++++--
Genshtab/karta_gsh_2km.zmp/GetUrlScript.txt | 6 ++++--
Genshtab/karta_gsh_500m.zmp/GetUrlScript.txt | 6 ++++--
Genshtab/karta_gsh_5km.zmp/GetUrlScript.txt | 6 ++++--
history/5v_kavkaz.zmp/GetUrlScript.txt | 6 ++++--
7 files changed, 28 insertions(+), 14 deletions(-)
diff --git a/Genshtab/karta_gsh_10km.zmp/GetUrlScript.txt b/Genshtab/karta_gsh_10km.zmp/GetUrlScript.txt
index ae7e6b5f..3af950cc 100644
--- a/Genshtab/karta_gsh_10km.zmp/GetUrlScript.txt
+++ b/Genshtab/karta_gsh_10km.zmp/GetUrlScript.txt
@@ -1,4 +1,6 @@
+var
+url: string;
begin
- GetURLBase[24]:=chr(ord('2')+random(4));
- ResultURL:=GetURLBase+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
+ url := RegExprReplaceMatchSubStr(GetURLBase, '8082', inttostr(8082 + Random(4) ));
+ ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
end.
\ No newline at end of file
diff --git a/Genshtab/karta_gsh_1km.zmp/GetUrlScript.txt b/Genshtab/karta_gsh_1km.zmp/GetUrlScript.txt
index ae7e6b5f..3af950cc 100644
--- a/Genshtab/karta_gsh_1km.zmp/GetUrlScript.txt
+++ b/Genshtab/karta_gsh_1km.zmp/GetUrlScript.txt
@@ -1,4 +1,6 @@
+var
+url: string;
begin
- GetURLBase[24]:=chr(ord('2')+random(4));
- ResultURL:=GetURLBase+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
+ url := RegExprReplaceMatchSubStr(GetURLBase, '8082', inttostr(8082 + Random(4) ));
+ ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
end.
\ No newline at end of file
diff --git a/Genshtab/karta_gsh_250m.zmp/GetUrlScript.txt b/Genshtab/karta_gsh_250m.zmp/GetUrlScript.txt
index ae7e6b5f..3af950cc 100644
--- a/Genshtab/karta_gsh_250m.zmp/GetUrlScript.txt
+++ b/Genshtab/karta_gsh_250m.zmp/GetUrlScript.txt
@@ -1,4 +1,6 @@
+var
+url: string;
begin
- GetURLBase[24]:=chr(ord('2')+random(4));
- ResultURL:=GetURLBase+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
+ url := RegExprReplaceMatchSubStr(GetURLBase, '8082', inttostr(8082 + Random(4) ));
+ ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
end.
\ No newline at end of file
diff --git a/Genshtab/karta_gsh_2km.zmp/GetUrlScript.txt b/Genshtab/karta_gsh_2km.zmp/GetUrlScript.txt
index ae7e6b5f..3af950cc 100644
--- a/Genshtab/karta_gsh_2km.zmp/GetUrlScript.txt
+++ b/Genshtab/karta_gsh_2km.zmp/GetUrlScript.txt
@@ -1,4 +1,6 @@
+var
+url: string;
begin
- GetURLBase[24]:=chr(ord('2')+random(4));
- ResultURL:=GetURLBase+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
+ url := RegExprReplaceMatchSubStr(GetURLBase, '8082', inttostr(8082 + Random(4) ));
+ ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
end.
\ No newline at end of file
diff --git a/Genshtab/karta_gsh_500m.zmp/GetUrlScript.txt b/Genshtab/karta_gsh_500m.zmp/GetUrlScript.txt
index ae7e6b5f..3af950cc 100644
--- a/Genshtab/karta_gsh_500m.zmp/GetUrlScript.txt
+++ b/Genshtab/karta_gsh_500m.zmp/GetUrlScript.txt
@@ -1,4 +1,6 @@
+var
+url: string;
begin
- GetURLBase[24]:=chr(ord('2')+random(4));
- ResultURL:=GetURLBase+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
+ url := RegExprReplaceMatchSubStr(GetURLBase, '8082', inttostr(8082 + Random(4) ));
+ ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
end.
\ No newline at end of file
diff --git a/Genshtab/karta_gsh_5km.zmp/GetUrlScript.txt b/Genshtab/karta_gsh_5km.zmp/GetUrlScript.txt
index ae7e6b5f..3af950cc 100644
--- a/Genshtab/karta_gsh_5km.zmp/GetUrlScript.txt
+++ b/Genshtab/karta_gsh_5km.zmp/GetUrlScript.txt
@@ -1,4 +1,6 @@
+var
+url: string;
begin
- GetURLBase[24]:=chr(ord('2')+random(4));
- ResultURL:=GetURLBase+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
+ url := RegExprReplaceMatchSubStr(GetURLBase, '8082', inttostr(8082 + Random(4) ));
+ ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
end.
\ No newline at end of file
diff --git a/history/5v_kavkaz.zmp/GetUrlScript.txt b/history/5v_kavkaz.zmp/GetUrlScript.txt
index 603ae32f..93113ccc 100644
--- a/history/5v_kavkaz.zmp/GetUrlScript.txt
+++ b/history/5v_kavkaz.zmp/GetUrlScript.txt
@@ -1,4 +1,6 @@
+var
+url: string;
begin
- GetURLBase[24]:=chr(ord('3')+random(8));
- ResultURL:=GetURLBase+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
+ url := RegExprReplaceMatchSubStr(GetURLBase, '8082', inttostr(8082 + Random(8) ));
+ ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
end.
\ No newline at end of file