3 рядки
220 B

  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.