You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

преди 54 години
преди 54 години
преди 54 години
преди 54 години
преди 54 години
преди 54 години
преди 54 години
преди 54 години
преди 54 години
преди 54 години
преди 54 години
преди 54 години
преди 54 години
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455
  1. function addzero(i:integer):string;
  2. var rs:string;
  3. begin
  4. rs:=inttostr(i);
  5. while length(rs)<3 do rs:='0'+rs;
  6. result:=rs;
  7. end;
  8. var
  9. sx,sy,sz:string;
  10. dx,dy:integer;
  11. tx,ty:integer;
  12. sh_x:array[0..24] of integer;
  13. sh_y:array[0..24] of integer;
  14. begin
  15. sh_x[0]:=0; sh_y[0]:=0;
  16. sh_x[1]:=0; sh_y[1]:=0;
  17. sh_x[2]:=0; sh_y[2]:=0;
  18. sh_x[3]:=-1; sh_y[3]:=1;
  19. sh_x[4]:=-1; sh_y[4]:=2;
  20. sh_x[5]:=0; sh_y[5]:=2;
  21. sh_x[6]:=0; sh_y[6]:=4;
  22. sh_x[7]:=0; sh_y[7]:=7;
  23. sh_x[8]:=0; sh_y[8]:=14;
  24. sh_x[9]:=0; sh_y[9]:=29;
  25. sh_x[10]:=1; sh_y[10]:=57;
  26. sh_x[11]:=4; sh_y[11]:=113;
  27. sh_x[12]:=6; sh_y[12]:=227;
  28. sh_x[13]:=12; sh_y[13]:=454;
  29. sh_x[14]:=23; sh_y[14]:=908;
  30. sh_x[15]:=46; sh_y[15]:=1816;
  31. sh_x[16]:=-116; sh_y[16]:=3813;
  32. sh_x[17]:=-233; sh_y[17]:=7626;
  33. sh_x[18]:=0; sh_y[18]:=0;
  34. sh_x[19]:=0; sh_y[19]:=0;
  35. sh_x[20]:=0; sh_y[20]:=0;
  36. sh_x[21]:=0; sh_y[21]:=0;
  37. sh_x[22]:=0; sh_y[22]:=0;
  38. sh_x[23]:=0; sh_y[23]:=0;
  39. sh_x[24]:=0; sh_y[24]:=0;
  40. tx:=getx+sh_x[getz];
  41. dx:=(tx div 999);
  42. sx:=addzero(tx-dx*999);
  43. ty:=(round(intpower(2,GetZ-1))-Gety)-sh_y[getz];
  44. dy:=(ty div 999);
  45. ty:=ty-dy*999-1;
  46. sy:=addzero(ty);
  47. sz:=inttostr(Getz-1);
  48. ResultURL:=GetUrlBase+sz+'/00/000/'+addzero(dx)+'/'+sx+'/000/'+addzero(dy)+'/'+sy+'.png';
  49. end.