sasgis преди 54 години
родител
ревизия
5d8fc4ade4
променени са 18 файла, в които са добавени 72 реда и са изтрити 36 реда
  1. +4
    -2
      _Genshtab/gsh_500m_new.zmp/GetUrlScript.txt
  2. +4
    -2
      _historic/1902_kuban.zmp/GetUrlScript.txt
  3. +4
    -2
      _historic/1918_kuban_10v.zmp/GetUrlScript.txt
  4. +4
    -2
      _historic/1925_maykop.zmp/GetUrlScript.txt
  5. +4
    -2
      _historic/1930_kuban.zmp/GetUrlScript.txt
  6. +4
    -2
      _historic/5v_kavk_1877.zmp/GetUrlScript.txt
  7. +4
    -2
      _historic/eng_5v_kavkaz.zmp/GetUrlScript.txt
  8. +4
    -2
      _historic/kuban_1v.zmp/GetUrlScript.txt
  9. +4
    -2
      _tourism/TyanShan/TyanShan.zmp/GetUrlScript.txt
  10. +4
    -2
      _tourism/TyanShan/tyan_shan.zmp/GetUrlScript.txt
  11. +4
    -2
      _tourism/ergaki_aradan.zmp/GetUrlScript.txt
  12. +4
    -2
      _tourism/fgup_sk_agp/fgu_sk_agp_all.zmp/GetUrlScript.txt
  13. +4
    -2
      _tourism/gosgeodesia/tourism1991.zmp/GetUrlScript.txt
  14. +4
    -2
      _tourism/hrebtovka_elbrus.zmp/GetUrlScript.txt
  15. +4
    -2
      _tourism/kazbegi.zmp/GetUrlScript.txt
  16. +4
    -2
      _tourism/krim.zmp/GetUrlScript.txt
  17. +4
    -2
      _tourism/lcarta.zmp/GetUrlScript.txt
  18. +4
    -2
      _tourism/wkavkaz_kot.zmp/GetUrlScript.txt

+ 4
- 2
_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.

+ 4
- 2
_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.

+ 4
- 2
_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.

+ 4
- 2
_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.

+ 4
- 2
_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.

+ 4
- 2
_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.

+ 4
- 2
_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.

+ 4
- 2
_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.

+ 4
- 2
_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.

+ 4
- 2
_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.

+ 4
- 2
_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.

+ 4
- 2
_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.

+ 4
- 2
_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.

+ 4
- 2
_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.

+ 4
- 2
_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.

+ 4
- 2
_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.

+ 4
- 2
_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.

+ 4
- 2
_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.

Зареждане…
Отказ
Запис