sasgis пре 54 година
родитељ
комит
078c5bfdc8
7 измењених фајлова са 28 додато и 14 уклоњено
  1. +4
    -2
      Genshtab/karta_gsh_10km.zmp/GetUrlScript.txt
  2. +4
    -2
      Genshtab/karta_gsh_1km.zmp/GetUrlScript.txt
  3. +4
    -2
      Genshtab/karta_gsh_250m.zmp/GetUrlScript.txt
  4. +4
    -2
      Genshtab/karta_gsh_2km.zmp/GetUrlScript.txt
  5. +4
    -2
      Genshtab/karta_gsh_500m.zmp/GetUrlScript.txt
  6. +4
    -2
      Genshtab/karta_gsh_5km.zmp/GetUrlScript.txt
  7. +4
    -2
      history/5v_kavkaz.zmp/GetUrlScript.txt

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

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

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

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

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

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

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

Loading…
Откажи
Сачувај