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

---
 _Genshtab/gsh_500m_new.zmp/GetUrlScript.txt              | 6 ++++--
 _historic/1902_kuban.zmp/GetUrlScript.txt                | 6 ++++--
 _historic/1918_kuban_10v.zmp/GetUrlScript.txt            | 6 ++++--
 _historic/1925_maykop.zmp/GetUrlScript.txt               | 6 ++++--
 _historic/1930_kuban.zmp/GetUrlScript.txt                | 6 ++++--
 _historic/5v_kavk_1877.zmp/GetUrlScript.txt              | 6 ++++--
 _historic/eng_5v_kavkaz.zmp/GetUrlScript.txt             | 6 ++++--
 _historic/kuban_1v.zmp/GetUrlScript.txt                  | 6 ++++--
 _tourism/TyanShan/TyanShan.zmp/GetUrlScript.txt          | 6 ++++--
 _tourism/TyanShan/tyan_shan.zmp/GetUrlScript.txt         | 6 ++++--
 _tourism/ergaki_aradan.zmp/GetUrlScript.txt              | 6 ++++--
 _tourism/fgup_sk_agp/fgu_sk_agp_all.zmp/GetUrlScript.txt | 6 ++++--
 _tourism/gosgeodesia/tourism1991.zmp/GetUrlScript.txt    | 6 ++++--
 _tourism/hrebtovka_elbrus.zmp/GetUrlScript.txt           | 6 ++++--
 _tourism/kazbegi.zmp/GetUrlScript.txt                    | 6 ++++--
 _tourism/krim.zmp/GetUrlScript.txt                       | 6 ++++--
 _tourism/lcarta.zmp/GetUrlScript.txt                     | 6 ++++--
 _tourism/wkavkaz_kot.zmp/GetUrlScript.txt                | 6 ++++--
 18 files changed, 72 insertions(+), 36 deletions(-)

diff --git a/_Genshtab/gsh_500m_new.zmp/GetUrlScript.txt b/_Genshtab/gsh_500m_new.zmp/GetUrlScript.txt
index 38a68ab8..bc1dc926 100644
--- a/_Genshtab/gsh_500m_new.zmp/GetUrlScript.txt
+++ b/_Genshtab/gsh_500m_new.zmp/GetUrlScript.txt
@@ -1,4 +1,6 @@
+var
+url: string;
 begin
-  GetURLBase[24]:=chr(ord('2')+random(9));
-  ResultURL:=GetURLBase+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
+  url := RegExprReplaceMatchSubStr(GetURLBase, '8082', inttostr(8084 + Random(8) ));
+  ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
 end.
\ No newline at end of file
diff --git a/_historic/1902_kuban.zmp/GetUrlScript.txt b/_historic/1902_kuban.zmp/GetUrlScript.txt
index 603ae32f..bc1dc926 100644
--- a/_historic/1902_kuban.zmp/GetUrlScript.txt
+++ b/_historic/1902_kuban.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(8084 + Random(8) ));
+  ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
 end.
\ No newline at end of file
diff --git a/_historic/1918_kuban_10v.zmp/GetUrlScript.txt b/_historic/1918_kuban_10v.zmp/GetUrlScript.txt
index 603ae32f..bc1dc926 100644
--- a/_historic/1918_kuban_10v.zmp/GetUrlScript.txt
+++ b/_historic/1918_kuban_10v.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(8084 + Random(8) ));
+  ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
 end.
\ No newline at end of file
diff --git a/_historic/1925_maykop.zmp/GetUrlScript.txt b/_historic/1925_maykop.zmp/GetUrlScript.txt
index 603ae32f..bc1dc926 100644
--- a/_historic/1925_maykop.zmp/GetUrlScript.txt
+++ b/_historic/1925_maykop.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(8084 + Random(8) ));
+  ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
 end.
\ No newline at end of file
diff --git a/_historic/1930_kuban.zmp/GetUrlScript.txt b/_historic/1930_kuban.zmp/GetUrlScript.txt
index 603ae32f..bc1dc926 100644
--- a/_historic/1930_kuban.zmp/GetUrlScript.txt
+++ b/_historic/1930_kuban.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(8084 + Random(8) ));
+  ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
 end.
\ No newline at end of file
diff --git a/_historic/5v_kavk_1877.zmp/GetUrlScript.txt b/_historic/5v_kavk_1877.zmp/GetUrlScript.txt
index 603ae32f..bc1dc926 100644
--- a/_historic/5v_kavk_1877.zmp/GetUrlScript.txt
+++ b/_historic/5v_kavk_1877.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(8084 + Random(8) ));
+  ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
 end.
\ No newline at end of file
diff --git a/_historic/eng_5v_kavkaz.zmp/GetUrlScript.txt b/_historic/eng_5v_kavkaz.zmp/GetUrlScript.txt
index 603ae32f..bc1dc926 100644
--- a/_historic/eng_5v_kavkaz.zmp/GetUrlScript.txt
+++ b/_historic/eng_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(8084 + Random(8) ));
+  ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
 end.
\ No newline at end of file
diff --git a/_historic/kuban_1v.zmp/GetUrlScript.txt b/_historic/kuban_1v.zmp/GetUrlScript.txt
index 603ae32f..bc1dc926 100644
--- a/_historic/kuban_1v.zmp/GetUrlScript.txt
+++ b/_historic/kuban_1v.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(8084 + Random(8) ));
+  ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
 end.
\ No newline at end of file
diff --git a/_tourism/TyanShan/TyanShan.zmp/GetUrlScript.txt b/_tourism/TyanShan/TyanShan.zmp/GetUrlScript.txt
index 603ae32f..bc1dc926 100644
--- a/_tourism/TyanShan/TyanShan.zmp/GetUrlScript.txt
+++ b/_tourism/TyanShan/TyanShan.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(8084 + Random(8) ));
+  ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
 end.
\ No newline at end of file
diff --git a/_tourism/TyanShan/tyan_shan.zmp/GetUrlScript.txt b/_tourism/TyanShan/tyan_shan.zmp/GetUrlScript.txt
index 603ae32f..bc1dc926 100644
--- a/_tourism/TyanShan/tyan_shan.zmp/GetUrlScript.txt
+++ b/_tourism/TyanShan/tyan_shan.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(8084 + Random(8) ));
+  ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
 end.
\ No newline at end of file
diff --git a/_tourism/ergaki_aradan.zmp/GetUrlScript.txt b/_tourism/ergaki_aradan.zmp/GetUrlScript.txt
index 603ae32f..bc1dc926 100644
--- a/_tourism/ergaki_aradan.zmp/GetUrlScript.txt
+++ b/_tourism/ergaki_aradan.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(8084 + Random(8) ));
+  ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
 end.
\ No newline at end of file
diff --git a/_tourism/fgup_sk_agp/fgu_sk_agp_all.zmp/GetUrlScript.txt b/_tourism/fgup_sk_agp/fgu_sk_agp_all.zmp/GetUrlScript.txt
index 603ae32f..bc1dc926 100644
--- a/_tourism/fgup_sk_agp/fgu_sk_agp_all.zmp/GetUrlScript.txt
+++ b/_tourism/fgup_sk_agp/fgu_sk_agp_all.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(8084 + Random(8) ));
+  ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
 end.
\ No newline at end of file
diff --git a/_tourism/gosgeodesia/tourism1991.zmp/GetUrlScript.txt b/_tourism/gosgeodesia/tourism1991.zmp/GetUrlScript.txt
index 603ae32f..bc1dc926 100644
--- a/_tourism/gosgeodesia/tourism1991.zmp/GetUrlScript.txt
+++ b/_tourism/gosgeodesia/tourism1991.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(8084 + Random(8) ));
+  ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
 end.
\ No newline at end of file
diff --git a/_tourism/hrebtovka_elbrus.zmp/GetUrlScript.txt b/_tourism/hrebtovka_elbrus.zmp/GetUrlScript.txt
index 603ae32f..bc1dc926 100644
--- a/_tourism/hrebtovka_elbrus.zmp/GetUrlScript.txt
+++ b/_tourism/hrebtovka_elbrus.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(8084 + Random(8) ));
+  ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
 end.
\ No newline at end of file
diff --git a/_tourism/kazbegi.zmp/GetUrlScript.txt b/_tourism/kazbegi.zmp/GetUrlScript.txt
index 603ae32f..bc1dc926 100644
--- a/_tourism/kazbegi.zmp/GetUrlScript.txt
+++ b/_tourism/kazbegi.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(8084 + Random(8) ));
+  ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
 end.
\ No newline at end of file
diff --git a/_tourism/krim.zmp/GetUrlScript.txt b/_tourism/krim.zmp/GetUrlScript.txt
index 603ae32f..bc1dc926 100644
--- a/_tourism/krim.zmp/GetUrlScript.txt
+++ b/_tourism/krim.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(8084 + Random(8) ));
+  ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
 end.
\ No newline at end of file
diff --git a/_tourism/lcarta.zmp/GetUrlScript.txt b/_tourism/lcarta.zmp/GetUrlScript.txt
index 603ae32f..bc1dc926 100644
--- a/_tourism/lcarta.zmp/GetUrlScript.txt
+++ b/_tourism/lcarta.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(8084 + Random(8) ));
+  ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
 end.
\ No newline at end of file
diff --git a/_tourism/wkavkaz_kot.zmp/GetUrlScript.txt b/_tourism/wkavkaz_kot.zmp/GetUrlScript.txt
index 603ae32f..bc1dc926 100644
--- a/_tourism/wkavkaz_kot.zmp/GetUrlScript.txt
+++ b/_tourism/wkavkaz_kot.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(8084 + Random(8) ));
+  ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
 end.
\ No newline at end of file