Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.

GetUrlScript.txt 1.2 KiB

54 anos atrás
54 anos atrás
54 anos atrás
54 anos atrás
54 anos atrás
54 anos atrás
54 anos atrás
54 anos atrás
54 anos atrás
54 anos atrás
54 anos atrás
54 anos atrás
54 anos atrás
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.