Ви не можете вибрати більше 25 тем Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.

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.