Вы не можете выбрать более 25 тем Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.

54 лет назад
54 лет назад
54 лет назад
54 лет назад
54 лет назад
54 лет назад
54 лет назад
54 лет назад
54 лет назад
54 лет назад
54 лет назад
54 лет назад
54 лет назад
54 лет назад
54 лет назад
54 лет назад
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657
  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]:=0; sh_y[3]:=0;
  19. sh_x[4]:=0; sh_y[4]:=0;
  20. sh_x[5]:=0; sh_y[5]:=0;
  21. sh_x[6]:=0; sh_y[6]:=0;
  22. sh_x[7]:=0; sh_y[7]:=0;
  23. sh_x[8]:=0; sh_y[8]:=0;
  24. sh_x[9]:=0; sh_y[9]:=1;
  25. sh_x[10]:=0; sh_y[10]:=1;
  26. sh_x[11]:=0; sh_y[11]:=3;
  27. sh_x[12]:=0; sh_y[12]:=6;
  28. sh_x[13]:=0; sh_y[13]:=11;
  29. sh_x[14]:=0; sh_y[14]:=22;
  30. sh_x[15]:=0; sh_y[15]:=44;
  31. sh_x[16]:=0; sh_y[16]:=88;
  32. sh_x[17]:=0; sh_y[17]:=175;
  33. sh_x[18]:=0; sh_y[18]:=350;
  34. sh_x[19]:=-90; sh_y[19]:=946;
  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 1000);
  42. sx:=addzero(tx-dx*1000);
  43. ty:=(round(intpower(2,GetZ-1))-Gety)-sh_y[getz];
  44. dy:=(ty div 1000);
  45. ty:=ty-dy*1000-1;
  46. sy:=addzero(ty);
  47. sz:=inttostr(Getz-1);
  48. ResultURL:=GetUrlBase+sz+'/00/000/'+addzero(dx)+'/'+sx+'/000/'+addzero(dy)+'/'+sy+'.png'+'?e16a5f67e5cc3887282038bf6bc27657';
  49. end.