GetUrlScript.txt 1.2 KiB

54 anni fa
54 anni fa
54 anni fa
54 anni fa
54 anni fa
54 anni fa
54 anni fa
54 anni fa
54 anni fa
54 anni fa
54 anni fa
54 anni fa
54 anni fa
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.