вот бля )
ньюби тож опозорился )
если чего в оригинале:
delphi Код:
blockSize = 32768;
xbn:=(x div blockSize - x shr 31) + 20;
ybn:=(y div blockSize - y shr 31) + 18;
ну или если флором то
delphi Код:
xbn:=floor(x / blockSize) + 20;
ybn:=floor(y / blockSize) + 18;