GetUrlScript.txt 220 B

54 年前
123
  1. begin
  2. ResultURL:=GetUrlBase+roundex(320/intpower(2,(getz-1)),5)+'&x_shift='+inttostr(-128+(-GetX+((round(intpower(2,GetZ-1)))div 2))*256)+'&y_shift='+inttostr(-128+(-GetY+((round(intpower(2,GetZ-1)))div 2))*256);
  3. end.