diff --git a/ProGorod1.zmp/18.bmp b/ProGorod1.zmp/18.bmp new file mode 100644 index 00000000..a942fa46 Binary files /dev/null and b/ProGorod1.zmp/18.bmp differ diff --git a/ProGorod1.zmp/24.bmp b/ProGorod1.zmp/24.bmp new file mode 100644 index 00000000..e46b7562 Binary files /dev/null and b/ProGorod1.zmp/24.bmp differ diff --git a/ProGorod1.zmp/GetUrlScript.txt b/ProGorod1.zmp/GetUrlScript.txt index 39546bb8..f6c1b31f 100644 --- a/ProGorod1.zmp/GetUrlScript.txt +++ b/ProGorod1.zmp/GetUrlScript.txt @@ -1,13 +1,21 @@ +function addzero(i:integer):string; +var rs:string; +begin +rs:=inttostr(i); +while length(rs)<3 do rs:='0'+rs; +result:=rs; +end; var sx,sy,sz:string; - +dx,dy:integer; +ty:integer; begin -sx:=inttostr(Getx); -sy:=inttostr(round(intpower(2,GetZ-1))-Gety); +dx:=(getx div 1000); +sx:=addzero(Getx-dx*1000); +ty:=round(intpower(2,GetZ-1))-Gety; +dy:=(ty div 1000); +ty:=ty-dy*1000-1; +sy:=addzero(ty); sz:=inttostr(Getz-1); -while length(sx)<3 do sx:='0'+sx; -while length(sy)<3 do sy:='0'+sy; -while length(sz)<2 do sz:='0'+sz; - -ResultURL:=GetUrlBase+sz+'/00/000/000/'+sx+'/000/000/'+sy+'.png'; +ResultURL:=GetUrlBase+sz+'/00/000/'+addzero(dx)+'/'+sx+'/000/'+addzero(dy)+'/'+sy+'.png'; end. \ No newline at end of file