GetUrlScript.txt 514 B

4 年前
4 年前
4 年前
4 年前
4 年前
123456789101112131415161718
  1. var
  2. sh_x:array[0..24] of integer;
  3. sh_y:array[0..24] of integer;
  4. begin
  5. sh_x[3]:=301; sh_y[3]:=589;
  6. sh_x[4]:=603; sh_y[4]:=1178;
  7. sh_x[5]:=1177; sh_y[5]:=2302;
  8. sh_x[6]:=2355; sh_y[6]:=4604;
  9. sh_x[7]:=4711; sh_y[7]:=9209;
  10. sh_x[8]:=10773; sh_y[8]:=21055;
  11. sh_x[9]:=18845; sh_y[9]:=36839;
  12. sh_x[10]:=37690; sh_y[10]:=73679;
  13. sh_x[11]:=75381; sh_y[11]:=147359;
  14. sh_x[12]:=150762; sh_y[12]:=294719;
  15. ResultURL:=GetUrlBase+'/'+inttostr(Getz-3)+'/'+inttostr(GetY+sh_y[getz])+'/'+inttostr(GetX+sh_x[getz]);
  16. end.