карта и координаты

[xkor]

const
  // размер одного блока карты:
  blockSize=32768; // что равно сдвигу в лево на 15 бит

var
  xbn,ybn,x,y,bx,by,xb,yb: integer;

begin
  // зависимость номера блока от координат:
  xbn:=(x div blockSize - x shr 31) + 20;
  ybn:=(y div blockSize - y shr 31) + 18;

  // расчет координат блока:
  bx:=(x div blockSize - x shr 31) * blockSize;
  by:=(y div blockSize - y shr 31) * blockSize;

  // расчет координат внутри блока:
  xb:=x - bx;
  yb:=y - by;
end;