Помогите определить в каком квадрате находиться игрок, сам игрок передвигаеться постепенно x+1, а квадраты генерируються так:
for y:=0 to mapwidth do
for x:=0 to maplength do
begin
randomize;
block[x,y]:=random(kolichestvoBlockov)+1;(размер квадрата 30х30)
и рисуются так:
begin
for y:=0 to (getHeight/30) do
for x:=0 to (getWidth/30) do
begin
x2:=x*30;
y2:=y*30;
if block[x,y]=1 then drawimage(zemlya,x2,y2);
if block[x,y]=2 then drawimage(trava,x2,y2);
if block[x,y]=3 then drawimage(kamen,x2,y2);
if block[x,y]=4 then drawimage(pesok,x2,y2);
end;
помогите пожалуйста