update zmp

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.

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.

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.

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.

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.

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.

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.