update zmp

GGC/karta_ggc_1km.zmp/GetUrlScript.txt

@@ -13,10 +13,8 @@ begin
 end;
 
 var
-  BaseUrl: string;
   code: Cardinal;
   z_ok, z_no: integer;
-  r: integer;
 begin
   ResultURL := '';
   z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть
@@ -25,21 +23,9 @@ begin
   // Масштаба нет - говорить не о чем
   if getz >= z_no then exit;
 
-  // Выбор зеркала, если не указана версия
-  if version = '' then
-    r := random(3)
-  else
-    r := StrToInt(version);
-
-  case r of
-    0: BaseUrl := GetURLBase;
-    1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
-    2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088/pub', 'http://map.zeskmi.ru');
-  end;
-
   // Проверяем наличие масштаба
   if getz > z_ok then begin
-    code := GetCode(BaseUrl+'z'+inttostr(getz)+'/');
+    code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/');
 
     // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
     // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
@@ -53,5 +39,5 @@ begin
   end;
 
   // Ок, качаем тайлик
-  ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png';
+  ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png';
 end.

GGC/karta_ggc_1km.zmp/params.txt

@@ -9,7 +9,7 @@ name_ru=ГосГисЦентр 1 Км
 name=GosGisCentr 1 Km
 name_uk=GosGisCentr 1 Kм
 NameInCache=ggc1km
-DefURLBase=http://91.237.82.95:8088/pub/ggc/1km.png/
+DefURLBase=https://maps.melda.ru/pub/ggc/1km.png/
 defaultContentType=image/png
 Ext=.png
 projection=1

GGC/karta_ggc_250m_png.zmp/GetUrlScript.txt

@@ -13,10 +13,8 @@ begin
 end;
 
 var
-  BaseUrl: string;
   code: Cardinal;
   z_ok, z_no: integer;
-  r: integer;
 begin
   ResultURL := '';
   z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть
@@ -25,21 +23,9 @@ begin
   // Масштаба нет - говорить не о чем
   if getz >= z_no then exit;
 
-  // Выбор зеркала, если не указана версия
-  if version = '' then
-    r := random(3)
-  else
-    r := StrToInt(version);
-
-  case r of
-    0: BaseUrl := GetURLBase;
-    1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
-    2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088/pub', 'http://map.zeskmi.ru');
-  end;
-
   // Проверяем наличие масштаба
   if getz > z_ok then begin
-    code := GetCode(BaseUrl+'z'+inttostr(getz)+'/');
+    code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/');
 
     // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
     // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
@@ -53,5 +39,5 @@ begin
   end;
 
   // Ок, качаем тайлик
-  ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png';
+  ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png';
 end.

GGC/karta_ggc_250m_png.zmp/params.txt

@@ -8,7 +8,7 @@ ParentSubMenu=Topomaps\GGC
 name_ru=ГосГисЦентр 250 м (.png)
 name=GosGisCentr 250 m (.png)
 NameInCache=genshtab250m
-DefURLBase=http://91.237.82.95:8088/pub/ggc/250m.png/
+DefURLBase=https://maps.melda.ru/pub/ggc/250m.png/
 defaultContentType=image/png
 IgnoreContentType=1
 Ext=.png

GGC/karta_ggc_2km.zmp/GetUrlScript.txt

@@ -13,10 +13,8 @@ begin
 end;
 
 var
-  BaseUrl: string;
   code: Cardinal;
   z_ok, z_no: integer;
-  r: integer;
 begin
   ResultURL := '';
   z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть
@@ -25,21 +23,9 @@ begin
   // Масштаба нет - говорить не о чем
   if getz >= z_no then exit;
 
-  // Выбор зеркала, если не указана версия
-  if version = '' then
-    r := random(3)
-  else
-    r := StrToInt(version);
-
-  case r of
-    0: BaseUrl := GetURLBase;
-    1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
-    2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088/pub', 'http://map.zeskmi.ru');
-  end;
-
   // Проверяем наличие масштаба
   if getz > z_ok then begin
-    code := GetCode(BaseUrl+'z'+inttostr(getz)+'/');
+    code := GetCode(GetURLBase+'z'+inttostr(getz)+'/');
 
     // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
     // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
@@ -53,5 +39,5 @@ begin
   end;
 
   // Ок, качаем тайлик
-  ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png';
+  ResultURL:= GetURLBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png';
 end.

GGC/karta_ggc_2km.zmp/params.txt

@@ -9,7 +9,7 @@ name_ru=ГосГисЦентр 2 Км
 name=GosGisCentr 2 Km
 name_uk=GosGisCentr 2 Kм
 NameInCache=ggc2km
-DefURLBase=http://91.237.82.95:8088/pub/ggc/2km.png/
+DefURLBase=https://maps.melda.ru/pub/ggc/2km.png/
 defaultContentType=image/png
 Ext=.png
 projection=1

GGC/karta_ggc_500m.zmp/GetUrlScript.txt

@@ -13,10 +13,8 @@ begin
 end;
 
 var
-  BaseUrl: string;
   code: Cardinal;
   z_ok, z_no: integer;
-  r: integer;
 begin
   ResultURL := '';
   z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть
@@ -25,21 +23,9 @@ begin
   // Масштаба нет - говорить не о чем
   if getz >= z_no then exit;
 
-  // Выбор зеркала, если не указана версия
-  if version = '' then
-    r := random(3)
-  else
-    r := StrToInt(version);
-
-  case r of
-    0: BaseUrl := GetURLBase;
-    1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
-    2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088/pub', 'http://map.zeskmi.ru');
-  end;
-
   // Проверяем наличие масштаба
   if getz > z_ok then begin
-    code := GetCode(BaseUrl+'z'+inttostr(getz)+'/');
+    code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/');
 
     // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
     // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
@@ -53,5 +39,5 @@ begin
   end;
 
   // Ок, качаем тайлик
-  ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png';
+  ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png';
 end.

GGC/karta_ggc_500m.zmp/params.txt

@@ -9,7 +9,7 @@ name_ru=ГосГисЦентр 500 м
 name=GosGisCentr 500 m
 name_uk=GosGisCentr 500 м
 NameInCache=ggc500m
-DefURLBase=http://91.237.82.95:8088/pub/ggc/500m.png/
+DefURLBase=https://maps.melda.ru/pub/ggc/500m.png/
 defaultContentType=image/png
 Ext=.png
 projection=1

GGC/karta_ggc_all.zmp/GetUrlScript.txt

@@ -1,25 +1,10 @@
-var
- r: integer;
- BaseUrl: string;
 begin
-  // Выбор зеркала, если не указана версия
-  if version = '' then
-    r := random(3)
-  else
-    r := StrToInt(version);
-
-  case r of
-   0: BaseUrl := GetURLBase;
-   1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
-   2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088/pub', 'http://map.zeskmi.ru');
-  end;
-
  if GetZ < 13 then
-   ResultURL := BaseUrl+'2km.png'+'/z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png'
+   ResultURL := GetUrlBase+'2km.png'+'/z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png'
  else if getz <14 then
-   ResultURL := BaseUrl+'1km.png'+'/z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png'
+   ResultURL := GetUrlBase+'1km.png'+'/z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png'
  else if getz <15 then
-   ResultURL := BaseUrl+'500m.png'+'/z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png'
+   ResultURL := GetUrlBase+'500m.png'+'/z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png'
  else
-   ResultURL := BaseUrl+'250m.png'+'/z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png'
+   ResultURL := GetUrlBase+'250m.png'+'/z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.png'
 end.

GGC/karta_ggc_all.zmp/params.txt

@@ -8,7 +8,7 @@ ParentSubMenu=Topomaps\GGC
 name_ru=ГосГисЦентр (все масштабы)
 name=GosGisCentr 
 NameInCache=ggc_all
-DefURLBase=http://91.237.82.95:8088/pub/ggc/
+DefURLBase=https://maps.melda.ru/pub/ggc/
 defaultContentType=image/png
 Ext=.png
 projection=1

Genshtab/gsh_500m_new.zmp/GetUrlScript.txt

@@ -13,10 +13,8 @@ begin
 end;
 
 var
-  BaseUrl: string;
   code: Cardinal;
   z_ok, z_no: integer;
-  r: integer;
 begin
   ResultURL := '';
   z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть
@@ -25,21 +23,9 @@ begin
   // Масштаба нет - говорить не о чем
   if getz >= z_no then exit;
 
-  // Выбор зеркала, если не указана версия
-  if version = '' then
-    r := random(3)
-  else
-    r := StrToInt(version);
-
-  case r of
-    0: BaseUrl := GetURLBase;
-    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');
-  end;
-
   // Проверяем наличие масштаба
   if getz > z_ok then begin
-    code := GetCode(BaseUrl+'z'+inttostr(getz)+'/');
+    code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/');
 
     // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
     // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
@@ -53,5 +39,5 @@ begin
   end;
 
   // Ок, качаем тайлик
-  ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg';
+  ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg';
 end.

Genshtab/gsh_500m_new.zmp/params.txt

@@ -9,7 +9,7 @@ name_ru=Генштаб 500м (1999-2010)
 name=Genshtab 500m (1999-2010)
 name_uk=Генштаб 500м (1999-2010)
 NameInCache=genshtab500m_new
-DefURLBase=http://91.237.82.95:8088/pub/genshtab/500m.new/
+DefURLBase=https://maps.melda.ru/pub/genshtab/500m.new/
 defaultContentType=image/jpeg
 Ext=.jpg
 projection=1

Genshtab/karta_gsh_10km.zmp/GetUrlScript.txt

@@ -13,10 +13,8 @@ begin
 end;
 
 var
-  BaseUrl: string;
   code: Cardinal;
   z_ok, z_no: integer;
-  r: integer;
 begin
   ResultURL := '';
   z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть
@@ -25,21 +23,9 @@ begin
   // Масштаба нет - говорить не о чем
   if getz >= z_no then exit;
 
-  // Выбор зеркала, если не указана версия
-  if version = '' then
-    r := random(3)
-  else
-    r := StrToInt(version);
-
-  case r of
-    0: BaseUrl := GetURLBase;
-    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');
-  end;
-
   // Проверяем наличие масштаба
   if getz > z_ok then begin
-    code := GetCode(BaseUrl+'z'+inttostr(getz)+'/');
+    code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/');
 
     // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
     // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
@@ -53,5 +39,5 @@ begin
   end;
 
   // Ок, качаем тайлик
-  ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg';
+  ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg';
 end.

Genshtab/karta_gsh_10km.zmp/params.txt

@@ -9,7 +9,7 @@ name_ru=Генштаб 10 км
 name=Genshtab 10 km
 name_uk=Генштаб 10 км
 NameInCache=Genshtab10km
-DefURLBase=http://91.237.82.95:8088/pub/genshtab/10km/
+DefURLBase=https://maps.melda.ru/pub/genshtab/10km/
 Ext=.jpg
 projection=1
 sradiusa=6378137

Genshtab/karta_gsh_1km.zmp/GetUrlScript.txt

@@ -13,10 +13,8 @@ begin
 end;
 
 var
-  BaseUrl: string;
   code: Cardinal;
   z_ok, z_no: integer;
-  r: integer;
 begin
   ResultURL := '';
   z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть
@@ -25,22 +23,9 @@ begin
   // Масштаба нет - говорить не о чем
   if getz >= z_no then exit;
 
-  // Выбор зеркала, если не указана версия
-  if version = '' then
-    r := random(2)
-  else
-    r := StrToInt(version);
-
-  case r of
-    0: BaseUrl := GetURLBase;
-    1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
-// until dont update maps repo
-//    2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80');
-  end;
-
   // Проверяем наличие масштаба
   if getz > z_ok then begin
-    code := GetCode(BaseUrl+'z'+inttostr(getz)+'/');
+    code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/');
 
     // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
     // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
@@ -54,5 +39,5 @@ begin
   end;
 
   // Ок, качаем тайлик
-  ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg';
+  ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg';
 end.

Genshtab/karta_gsh_1km.zmp/params.txt

@@ -9,7 +9,7 @@ name_ru=Генштаб 1 км
 name=Genshtab 1 km
 name_uk=Генштаб 1 км
 NameInCache=genshtab1km
-DefURLBase=http://91.237.82.95:8088/pub/genshtab/1km/
+DefURLBase=https://maps.melda.ru/pub/genshtab/1km/
 defaultContentType=image/jpeg
 IgnoreContentType=1
 Ext=.jpg

Genshtab/karta_gsh_20km.zmp/GetUrlScript.txt

@@ -13,10 +13,8 @@ begin
 end;
 
 var
-  BaseUrl: string;
   code: Cardinal;
   z_ok, z_no: integer;
-  r: integer;
 begin
   ResultURL := '';
   z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть
@@ -25,20 +23,9 @@ begin
   // Масштаба нет - говорить не о чем
   if getz >= z_no then exit;
 
-  // Выбор зеркала, если не указана версия
-  if version = '' then
-    r := random(2)
-  else
-    r := StrToInt(version);
-
-  case r of
-    0: BaseUrl := GetURLBase;
-    1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
-  end;
-
   // Проверяем наличие масштаба
   if getz > z_ok then begin
-    code := GetCode(BaseUrl+'z'+inttostr(getz)+'/');
+    code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/');
 
     // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
     // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
@@ -52,5 +39,5 @@ begin
   end;
 
   // Ок, качаем тайлик
-  ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg';
+  ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg';
 end.

Genshtab/karta_gsh_20km.zmp/params.txt

@@ -9,7 +9,7 @@ name_ru=Генштаб 20 км
 name=Genshtab 20 km
 name_uk=Генштаб 20 км
 NameInCache=Genshtab20km
-DefURLBase=http://91.237.82.95:8088/pub/genshtab/20km/
+DefURLBase=https://maps.melda.ru/pub/genshtab/20km/
 Ext=.jpg
 projection=1
 sradiusa=6378137

Genshtab/karta_gsh_250m.zmp/GetUrlScript.txt

@@ -13,10 +13,8 @@ begin
 end;
 
 var
-  BaseUrl: string;
   code: Cardinal;
   z_ok, z_no: integer;
-  r: integer;
 begin
   ResultURL := '';
   z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть
@@ -25,20 +23,9 @@ begin
   // Масштаба нет - говорить не о чем
   if getz >= z_no then exit;
 
-  // Выбор зеркала, если не указана версия
-  if version = '' then
-    r := random(2)
-  else
-    r := StrToInt(version);
-
-  case r of
-    0: BaseUrl := GetURLBase;
-    1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, 'http://91.237.82.95:8088', 'https://maps.melda.ru');
-  end;
-
   // Проверяем наличие масштаба
   if getz > z_ok then begin
-    code := GetCode(BaseUrl+'z'+inttostr(getz)+'/');
+    code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/');
 
     // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
     // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
@@ -52,5 +39,5 @@ begin
   end;
 
   // Ок, качаем тайлик
-  ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg';
+  ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg';
 end.

Genshtab/karta_gsh_250m.zmp/params.txt

@@ -9,7 +9,7 @@ name_ru=Генштаб 250 м
 name=Genshtab 250 m
 name_uk=Генштаб 250 м
 NameInCache=genshtab.250m
-DefURLBase=http://91.237.82.95:8088/pub/genshtab/250m/
+DefURLBase=https://maps.melda.ru/pub/genshtab/250m/
 defaultContentType=image/jpeg
 IgnoreContentType=1
 Ext=.jpg

Genshtab/karta_gsh_2km.zmp/GetUrlScript.txt

@@ -13,10 +13,8 @@ begin
 end;
 
 var
-  BaseUrl: string;
   code: Cardinal;
   z_ok, z_no: integer;
-  r: integer;
 begin
   ResultURL := '';
   z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть
@@ -25,21 +23,9 @@ begin
   // Масштаба нет - говорить не о чем
   if getz >= z_no then exit;
 
-  // Выбор зеркала, если не указана версия
-  if version = '' then
-    r := random(3)
-  else
-    r := StrToInt(version);
-
-  case r of
-    0: BaseUrl := GetURLBase;
-    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');
-  end;
-
   // Проверяем наличие масштаба
   if getz > z_ok then begin
-    code := GetCode(BaseUrl+'z'+inttostr(getz)+'/');
+    code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/');
 
     // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
     // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
@@ -53,5 +39,5 @@ begin
   end;
 
   // Ок, качаем тайлик
-  ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg';
+  ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg';
 end.

Genshtab/karta_gsh_2km.zmp/params.txt

@@ -9,7 +9,7 @@ name_ru=Генштаб 2 км
 name=Genshtab 2 km
 name_uk=Генштаб 2 км
 NameInCache=Genshtab2km
-DefURLBase=http://91.237.82.95:8088/pub/genshtab/2km/
+DefURLBase=https://maps.melda.ru/pub/genshtab/2km/
 Ext=.jpg
 projection=1
 sradiusa=6378137

Genshtab/karta_gsh_2km_new.zmp/GetUrlScript.txt

@@ -13,10 +13,8 @@ begin
 end;
 
 var
-  BaseUrl: string;
   code: Cardinal;
   z_ok, z_no: integer;
-  r: integer;
 begin
   ResultURL := '';
   z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть
@@ -25,21 +23,9 @@ begin
   // Масштаба нет - говорить не о чем
   if getz >= z_no then exit;
 
-  // Выбор зеркала, если не указана версия
-  if version = '' then
-    r := random(3)
-  else
-    r := StrToInt(version);
-
-  case r of
-    0: BaseUrl := GetURLBase;
-    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');
-  end;
-
   // Проверяем наличие масштаба
   if getz > z_ok then begin
-    code := GetCode(BaseUrl+'z'+inttostr(getz)+'/');
+    code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/');
 
     // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
     // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
@@ -53,5 +39,5 @@ begin
   end;
 
   // Ок, качаем тайлик
-  ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg';
+  ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg';
 end.

Genshtab/karta_gsh_2km_new.zmp/params.txt

@@ -9,7 +9,7 @@ name_ru=Генштаб 2 км (new)
 name=Genshtab 2 km (new)
 name_uk=Генштаб 2 км (new)
 NameInCache=Genshtab2km_new
-DefURLBase=http://91.237.82.95:8088/pub/genshtab/2km.new/
+DefURLBase=https://maps.melda.ru/pub/genshtab/2km.new/
 Ext=.jpg
 projection=1
 sradiusa=6378137

Genshtab/karta_gsh_500m.zmp/GetUrlScript.txt

@@ -13,10 +13,8 @@ begin
 end;
 
 var
-  BaseUrl: string;
   code: Cardinal;
   z_ok, z_no: integer;
-  r: integer;
 begin
   ResultURL := '';
   z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть
@@ -25,21 +23,9 @@ begin
   // Масштаба нет - говорить не о чем
   if getz >= z_no then exit;
 
-  // Выбор зеркала, если не указана версия
-  if version = '' then
-    r := random(2)
-  else
-    r := StrToInt(version);
-
-  case r of
-    0: BaseUrl := GetURLBase;
-    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');
-  end;
-
   // Проверяем наличие масштаба
   if getz > z_ok then begin
-    code := GetCode(BaseUrl+'z'+inttostr(getz)+'/');
+    code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/');
 
     // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
     // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
@@ -53,5 +39,5 @@ begin
   end;
 
   // Ок, качаем тайлик
-  ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg';
+  ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg';
 end.

Genshtab/karta_gsh_500m.zmp/params.txt

@@ -9,7 +9,7 @@ name_ru=Генштаб 500 м
 name=Genshtab 500 m
 name_uk=Генштаб 500 м
 NameInCache=genshtab500m
-DefURLBase=http://91.237.82.95:8088/pub/genshtab/500m/
+DefURLBase=https://maps.melda.ru/pub/genshtab/500m/
 defaultContentType=image/jpeg
 Ext=.jpg
 projection=1

Genshtab/karta_gsh_5km.zmp/GetUrlScript.txt

@@ -13,10 +13,8 @@ begin
 end;
 
 var
-  BaseUrl: string;
   code: Cardinal;
   z_ok, z_no: integer;
-  r: integer;
 begin
   ResultURL := '';
   z_ok := StrToIntDef(GetBefore(';', ScriptBuffer), 1); // Максимальный масштаб, который точно есть
@@ -25,21 +23,9 @@ begin
   // Масштаба нет - говорить не о чем
   if getz >= z_no then exit;
 
-  // Выбор зеркала, если не указана версия
-  if version = '' then
-    r := random(3)
-  else
-    r := StrToInt(version);
-
-  case r of
-    0: BaseUrl := GetURLBase;
-    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');
-  end;
-
   // Проверяем наличие масштаба
   if getz > z_ok then begin
-    code := GetCode(BaseUrl+'z'+inttostr(getz)+'/');
+    code := GetCode(GetUrlBase+'z'+inttostr(getz)+'/');
 
     // Внимание! Если сервер вернёт 403 - code почему-то будет 0. Так что выбор "404 или что-то иное"
     // Если дело дошло до проверки наличия масштаба - значит какая-то граница (z_ok / z_no) точно подвинется.
@@ -53,5 +39,5 @@ begin
   end;
 
   // Ок, качаем тайлик
-  ResultURL:= BaseUrl+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg';
+  ResultURL:= GetUrlBase+'z'+inttostr(getz)+'/'+inttostr(getx div 1024)+'/x'+inttostr(getx)+'/'+inttostr(gety div 1024)+'/y'+inttostr(gety)+'.jpg';
 end.

Genshtab/karta_gsh_5km.zmp/params.txt

@@ -9,7 +9,7 @@ name_ru=Генштаб 5 км
 name=Genshtab 5 km
 name_uk=Генштаб 5 км
 NameInCache=Genshtab5km
-DefURLBase=http://91.237.82.95:8088/pub/genshtab/5km/
+DefURLBase=https://maps.melda.ru/pub/genshtab/5km/
 Ext=.jpg
 projection=1
 sradiusa=6378137

Genshtab_and_others/topomapper.zmp/params.txt

@@ -1,4 +1,5 @@
-[PARAMS]
+
+[PARAMS]
 pnum=141
 GUID={B5F81E9E-7354-45DC-8B42-5F3952C39039}
 ParentSubMenu_ru=Топокарты\Генштаб
@@ -7,7 +8,7 @@ ParentSubMenu=Topomaps\Soviet military maps
 name_ru=TopoMapper.com - Генштаб 1км (вся планета)
 name=TopoMapper.com
 NameInCache=topomapper.com
-DefURLBase=https://proxy.nakarte.me/http/88.99.52.155/cgi-bin/tapp/tilecache.py/1.0.0/topomapper_v2/{z}/{x}/{y}.jpg
+DefURLBase=https://proxy.nakarte.me/http/88.99.52.155/tmg/{z}/{x}/{y}
 ContentType=image/jpeg
 Ext=.jpg
 projection=1

Here/here.com.sat_new.zmp/params.txt

@@ -1,4 +1,5 @@
-[PARAMS]
+
+[PARAMS]
 pnum=6
 GUID={EA38519A-1945-4D50-8BB8-42CB98CA07C9}
 ParentSubMenu_ru=Спутниковые
@@ -8,7 +9,7 @@ name=Here.com - Satellite
 name_ru=Here.com - Спутник 
 name_uk=Here.com - Спутник
 ContentType=image/png
-DefURLBase=https://{s}.aerial.maps.api.here.com/maptile/2.1/maptile/newest/satellite.day/{z}/{x}/{y}/256/png8?app_id=xWVIueSv6JL0aJ5xqTxb&app_code=djPZyynKsbTjIUDOBcHZ2g&lg={ver}&ppi=72&pview=DEF
+DefURLBase=https://{s}.aerial.maps.api.here.com/maptile/2.1/maptile/newest/satellite.day/{z}/{x}/{y}/256/png8?app_id=5E8QOXI78RNGgasTxmPR&token=NJI0HzzrkzLyyne3mAFm3Q&lg={ver}&ppi=72&pview=DEF
 ServerNames=1,2,3,4
 NameInCache=here.com.satellite.jpg
 EPSG=3785

__anygis_filegenerator/Osm_Cyclosm.zmp/params.txt

@@ -11,10 +11,10 @@ name=OSM Cyclosm
 NameInCache=Osm_Cyclosm
 EPSG=3785
 
-DefURLBase=https://dev.{s}.tile.openstreetmap.fr/cyclosm/{z}/{x}/{y}.png
+DefURLBase=https://{s}.tile-cyclosm.openstreetmap.fr/cyclosm/{z}/{x}/{y}.png
 
 ServerNames=a,b,c
-RequestHead=Connection: keep-alive\r\nUser-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/62.0.3202.94 Safari/537.36\r\nAccept: image/webp,image/apng,image/*,*/*;q=0.8\r\nAccept-Encoding: gzip, deflate\r\nAccept-Language: ru,en-US;q=0.9,en;q=0.8
+RequestHead=Referer: https://a.tile-cyclosm.openstreetmap.fr\r\nConnection: keep-alive\r\nUser-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/62.0.3202.94 Safari/537.36\r\nAccept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.7\r\nAccept-Encoding: gzip, deflate\r\nAccept-Language: ru,en-US;q=0.9,en;q=0.8
 
 Ext=.png
 DetectContentType=1

_aviation/fly_MVL.zmp/params.txt → _broken_maps/_aviation/fly_MVL.zmp/params.txt

@@ -2,9 +2,9 @@
 [PARAMS]
 pnum=999
 GUID={9a723df4-d219-4a4b-aa41-350809e30f88}
-ParentSubMenu_ru=Лётные карты
-ParentSubMenu_uk=Льотні карти
-ParentSubMenu=Fly maps
+ParentSubMenu_ru=Сломанные карты\Лётные карты
+ParentSubMenu_uk=Зламані карти\Льотні карти
+ParentSubMenu=Not working\Fly maps
 name_ru=Лётные карты МВЛ
 name=Fly Maps MVL
 NameInCache=fly_MVL

_aviation/fly_RNK2016.zmp/params.txt → _broken_maps/_aviation/fly_RNK2016.zmp/params.txt

@@ -2,9 +2,9 @@
 [PARAMS]
 pnum=999
 GUID={6edd7eac-e032-4758-88d6-a2937905c31a}
-ParentSubMenu_ru=Лётные карты
-ParentSubMenu_uk=Льотні карти
-ParentSubMenu=Fly maps
+ParentSubMenu_ru=Сломанные карты\Лётные карты
+ParentSubMenu_uk=Зламані карти\Льотні карти
+ParentSubMenu=Not working\Fly maps
 name_ru=Лётные карты RNK2016
 name=Fly Maps RNK2016
 NameInCache=fly_RNK2016

_aviation/fly_RNK2019.zmp/params.txt → _broken_maps/_aviation/fly_RNK2019.zmp/params.txt

@@ -2,9 +2,9 @@
 [PARAMS]
 pnum=999
 GUID={b61d827a-d0f2-46cc-b66d-7d2f0d7548a7}
-ParentSubMenu_ru=Лётные карты
-ParentSubMenu_uk=Льотні карти
-ParentSubMenu=Fly maps
+ParentSubMenu_ru=Сломанные карты\Лётные карты
+ParentSubMenu_uk=Зламані карти\Льотні карти
+ParentSubMenu=Not working\Fly maps
 name_ru=Лётные карты RNK2019
 name=Fly Maps RNK2019
 NameInCache=fly_RNK2019