// 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.