maps/_Belarus/belgeodesy.zmp/GetUrlScript.txt

// Source: http://belgeodesy.by/map/
// Zmp v1 by gpsMax - http://sasgis.ru/mantis/view.php?id=693
// Zmp v... by ...

var xx,yy,zz:string;
var dx,dy:array[1..50] of longint;
begin
   // map:z1, Sasplanet:z7
   dx[1]:=36;
   dy[1]:=20;
   // map:z2, Sasplanet:z8
   dx[2]:=72;
   dy[2]:=40;
   // map:z3, Sasplanet:z9
   dx[3]:=144;
   dy[3]:=80;
   // map:z4, Sasplanet:z10
   dx[4]:=289;
   dy[4]:=160;
   // map:z5, Sasplanet:z11
   dx[5]:=579;
   dy[5]:=320;
   // map:z6, Sasplanet:z12
   dx[6]:=1159;
   dy[6]:=640;
   // map:z7, Sasplanet:z13
   dx[7]:=2318;
   dy[7]:=1277;
   // map:z8, Sasplanet:z14
   dx[8]:=4637;
   dy[8]:=2553;
   // map:z9, Sasplanet:z15
   dx[9]:=9274;
   dy[9]:=5106;

   xx:=inttostr(GetX-dx[GetZ-6]);
   yy:=inttostr(GetY-dy[GetZ-6]);

   while length(xx)<4 do xx:='0'+xx;
   while length(yy)<4 do yy:='0'+yy;

   ResultURL:=GetURLBase+IntToStr(GetZ-6)+'/'+xx+yy+'.png'; 
end.