Browse Source

update zmp

master
sasbot 4 years ago
parent
commit
29fd68923f
12 changed files with 73 additions and 65 deletions
  1. +9
    -5
      Genshtab/ggc/karta_ggc_1km.zmp/GetUrlScript.txt
  2. +5
    -5
      Genshtab/ggc/karta_ggc_250m_png.zmp/GetUrlScript.txt
  3. +7
    -7
      Genshtab/ggc/karta_ggc_2km.zmp/GetUrlScript.txt
  4. +7
    -7
      Genshtab/ggc/karta_ggc_500m.zmp/GetUrlScript.txt
  5. +5
    -5
      Genshtab/karta_gsh_10km.zmp/GetUrlScript.txt
  6. +5
    -5
      Genshtab/karta_gsh_1km.zmp/GetUrlScript.txt
  7. +7
    -7
      Genshtab/karta_gsh_20km.zmp/GetUrlScript.txt
  8. +4
    -4
      Genshtab/karta_gsh_250m.zmp/GetUrlScript.txt
  9. +5
    -5
      Genshtab/karta_gsh_2km.zmp/GetUrlScript.txt
  10. +5
    -5
      Genshtab/karta_gsh_500m.zmp/GetUrlScript.txt
  11. +5
    -5
      Genshtab/karta_gsh_5km.zmp/GetUrlScript.txt
  12. +9
    -5
      history/5v_kavkaz.zmp/GetUrlScript.txt

+ 9
- 5
Genshtab/ggc/karta_ggc_1km.zmp/GetUrlScript.txt View File

@@ -6,8 +6,8 @@ begin
Result := 1; Result := 1;
if Assigned(Downloader) then begin if Assigned(Downloader) then begin
VResponseHeader := ''; VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(url, '', '', VResponseHeader, VResponseData);
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(url, '', '', VResponseHeader, VResponseData);
Result := VResponseCode; Result := VResponseCode;
end; end;
end; end;
@@ -25,11 +25,15 @@ begin
// Масштаба нет - говорить не о чем // Масштаба нет - говорить не о чем
if getz >= z_no then exit; if getz >= z_no then exit;
// Выбор зеркала
r := random(2);
// Выбор зеркала, если не указана версия
if version = '' then
r := random(2)
else
r := StrToInt(version);
case r of case r of
0: BaseUrl := GetURLBase; 0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088', 'maps.melda.ru');
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
end; end;
// Проверяем наличие масштаба // Проверяем наличие масштаба


+ 5
- 5
Genshtab/ggc/karta_ggc_250m_png.zmp/GetUrlScript.txt View File

@@ -25,15 +25,15 @@ begin
// Масштаба нет - говорить не о чем // Масштаба нет - говорить не о чем
if getz >= z_no then exit; if getz >= z_no then exit;
// Выбор зеркала , если не указана версия
// Выбор зеркала, если не указана версия
if version = '' then if version = '' then
r := random(2)
else
r := random(2)
else
r := StrToInt(version); r := StrToInt(version);
case r of case r of
0: BaseUrl := GetURLBase; 0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088', 'maps.melda.ru');
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
end; end;
// Проверяем наличие масштаба // Проверяем наличие масштаба


+ 7
- 7
Genshtab/ggc/karta_ggc_2km.zmp/GetUrlScript.txt View File

@@ -6,8 +6,8 @@ begin
Result := 1; Result := 1;
if Assigned(Downloader) then begin if Assigned(Downloader) then begin
VResponseHeader := ''; VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(url, '', '', VResponseHeader, VResponseData);
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(url, '', '', VResponseHeader, VResponseData);
Result := VResponseCode; Result := VResponseCode;
end; end;
end; end;
@@ -25,15 +25,15 @@ begin
// Масштаба нет - говорить не о чем // Масштаба нет - говорить не о чем
if getz >= z_no then exit; if getz >= z_no then exit;
// Выбор зеркала , если не указана версия
// Выбор зеркала, если не указана версия
if version = '' then if version = '' then
r := random(2)
else
r := random(2)
else
r := StrToInt(version); r := StrToInt(version);
case r of case r of
0: BaseUrl := GetURLBase; 0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088', 'maps.melda.ru');
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
end; end;
// Проверяем наличие масштаба // Проверяем наличие масштаба


+ 7
- 7
Genshtab/ggc/karta_ggc_500m.zmp/GetUrlScript.txt View File

@@ -6,8 +6,8 @@ begin
Result := 1; Result := 1;
if Assigned(Downloader) then begin if Assigned(Downloader) then begin
VResponseHeader := ''; VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(url, '', '', VResponseHeader, VResponseData);
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(url, '', '', VResponseHeader, VResponseData);
Result := VResponseCode; Result := VResponseCode;
end; end;
end; end;
@@ -25,15 +25,15 @@ begin
// Масштаба нет - говорить не о чем // Масштаба нет - говорить не о чем
if getz >= z_no then exit; if getz >= z_no then exit;
// Выбор зеркала , если не указана версия
// Выбор зеркала, если не указана версия
if version = '' then if version = '' then
r := random(2)
else
r := random(2)
else
r := StrToInt(version); r := StrToInt(version);
case r of case r of
0: BaseUrl := GetURLBase; 0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088', 'maps.melda.ru');
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
end; end;
// Проверяем наличие масштаба // Проверяем наличие масштаба


+ 5
- 5
Genshtab/karta_gsh_10km.zmp/GetUrlScript.txt View File

@@ -25,15 +25,15 @@ begin
// Масштаба нет - говорить не о чем // Масштаба нет - говорить не о чем
if getz >= z_no then exit; if getz >= z_no then exit;
// Выбор зеркала , если не указана версия
if version = '' then
r := random(3)
else
// Выбор зеркала, если не указана версия
if version = '' then
r := random(3)
else
r := StrToInt(version); r := StrToInt(version);
case r of case r of
0: BaseUrl := GetURLBase; 0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088', 'maps.melda.ru');
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80'); 2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80');
end; end;


+ 5
- 5
Genshtab/karta_gsh_1km.zmp/GetUrlScript.txt View File

@@ -25,17 +25,17 @@ begin
// Масштаба нет - говорить не о чем // Масштаба нет - говорить не о чем
if getz >= z_no then exit; if getz >= z_no then exit;
// Выбор зеркала , если не указана версия
if version = '' then
// Выбор зеркала, если не указана версия
if version = '' then
r := random(2) r := random(2)
else
else
r := StrToInt(version); r := StrToInt(version);
case r of case r of
0: BaseUrl := GetURLBase; 0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088', 'maps.melda.ru');
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
// until dont update maps repo // until dont update maps repo
// 2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80');
// 2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80');
end; end;
// Проверяем наличие масштаба // Проверяем наличие масштаба


+ 7
- 7
Genshtab/karta_gsh_20km.zmp/GetUrlScript.txt View File

@@ -6,8 +6,8 @@ begin
Result := 1; Result := 1;
if Assigned(Downloader) then begin if Assigned(Downloader) then begin
VResponseHeader := ''; VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(url, '', '', VResponseHeader, VResponseData);
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(url, '', '', VResponseHeader, VResponseData);
Result := VResponseCode; Result := VResponseCode;
end; end;
end; end;
@@ -25,15 +25,15 @@ begin
// Масштаба нет - говорить не о чем // Масштаба нет - говорить не о чем
if getz >= z_no then exit; if getz >= z_no then exit;
// Выбор зеркала , если не указана версия
if version = '' then
// Выбор зеркала, если не указана версия
if version = '' then
r := random(2) r := random(2)
else
else
r := StrToInt(version); r := StrToInt(version);
case r of case r of
0: BaseUrl := GetURLBase; 0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088', 'maps.melda.ru');
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
end; end;
// Проверяем наличие масштаба // Проверяем наличие масштаба


+ 4
- 4
Genshtab/karta_gsh_250m.zmp/GetUrlScript.txt View File

@@ -25,15 +25,15 @@ begin
// Масштаба нет - говорить не о чем // Масштаба нет - говорить не о чем
if getz >= z_no then exit; if getz >= z_no then exit;
// Выбор зеркала , если не указана версия
if version = '' then
// Выбор зеркала, если не указана версия
if version = '' then
r := random(2) r := random(2)
else
else
r := StrToInt(version); r := StrToInt(version);
case r of case r of
0: BaseUrl := GetURLBase; 0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088', 'maps.melda.ru');
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
end; end;
// Проверяем наличие масштаба // Проверяем наличие масштаба


+ 5
- 5
Genshtab/karta_gsh_2km.zmp/GetUrlScript.txt View File

@@ -25,15 +25,15 @@ begin
// Масштаба нет - говорить не о чем // Масштаба нет - говорить не о чем
if getz >= z_no then exit; if getz >= z_no then exit;
// Выбор зеркала , если не указана версия
if version = '' then
r := random(3)
else
// Выбор зеркала, если не указана версия
if version = '' then
r := random(3)
else
r := StrToInt(version); r := StrToInt(version);
case r of case r of
0: BaseUrl := GetURLBase; 0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088', 'maps.melda.ru');
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80'); 2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80');
end; end;


+ 5
- 5
Genshtab/karta_gsh_500m.zmp/GetUrlScript.txt View File

@@ -25,15 +25,15 @@ begin
// Масштаба нет - говорить не о чем // Масштаба нет - говорить не о чем
if getz >= z_no then exit; if getz >= z_no then exit;
// Выбор зеркала , если не указана версия
if version = '' then
r := random(3)
else
// Выбор зеркала, если не указана версия
if version = '' then
r := random(3)
else
r := StrToInt(version); r := StrToInt(version);
case r of case r of
0: BaseUrl := GetURLBase; 0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088', 'maps.melda.ru');
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80'); 2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80');
end; end;


+ 5
- 5
Genshtab/karta_gsh_5km.zmp/GetUrlScript.txt View File

@@ -25,15 +25,15 @@ begin
// Масштаба нет - говорить не о чем // Масштаба нет - говорить не о чем
if getz >= z_no then exit; if getz >= z_no then exit;
// Выбор зеркала , если не указана версия
if version = '' then
r := random(3)
else
// Выбор зеркала, если не указана версия
if version = '' then
r := random(3)
else
r := StrToInt(version); r := StrToInt(version);
case r of case r of
0: BaseUrl := GetURLBase; 0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088', 'maps.melda.ru');
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80'); 2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80');
end; end;


+ 9
- 5
history/5v_kavkaz.zmp/GetUrlScript.txt View File

@@ -6,8 +6,8 @@ begin
Result := 1; Result := 1;
if Assigned(Downloader) then begin if Assigned(Downloader) then begin
VResponseHeader := ''; VResponseHeader := '';
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(url, '', '', VResponseHeader, VResponseData);
VResponseData := '';
VResponseCode := Downloader.DoHttpRequest(url, '', '', VResponseHeader, VResponseData);
Result := VResponseCode; Result := VResponseCode;
end; end;
end; end;
@@ -25,11 +25,15 @@ begin
// Масштаба нет - говорить не о чем // Масштаба нет - говорить не о чем
if getz >= z_no then exit; if getz >= z_no then exit;
// Выбор зеркала
r := random(2);
// Выбор зеркала, если не указана версия
if version = '' then
r := random(2)
else
r := StrToInt(version);
case r of case r of
0: BaseUrl := GetURLBase; 0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088', 'maps.melda.ru');
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
end; end;
// Проверяем наличие масштаба // Проверяем наличие масштаба


Loading…
Cancel
Save