function CheckTiles:Array of array of Integer;
var
X0,Y0,i,q,x,y,One,Two:Integer;
StaticData:TStaticCell;
h:Byte;
TSTData:TStaticTileData;
Tiles:Array of array of Integer;
begin
for i:=0 to 33 do begin
x:=-15;
y:=2;
if i>0 then begin
if One=Two then begin
Inc(One);
end
else begin
Inc(Two);
end;
end;
While True do begin
X0:=GetX(Self)+x+One;
Y0:=GetY(Self)+y+Two;
StaticData:=ReadStaticsXY(X0,Y0,WorldNum);
if GetLayerCount(X0,Y0,WorldNum)<1 then begin
if x>2 then break;
Inc(x);
Dec(y);
Continue;
end;
TSTData:=GetStaticTileData(StaticData.Statics[0].Tile);
h:=TSTData.Height;
if (StaticData.Statics[0].Tile>3275) and (StaticData.Statics[0].Tile<3300) then begin
SetLength(Tiles, q+1);
SetLength(Tiles[q], 4);
Tiles[q][0]:=StaticData.Statics[0].Tile;
Tiles[q][1]:=StaticData.Statics[0].X;
Tiles[q][2]:=StaticData.Statics[0].Y;
Tiles[q][3]:=StaticData.Statics[0].Z;
if x>2 then break;
Inc(q);
Inc(x);
Dec(y);
Continue;
end
else begin
if x>2 then break;
Inc(x);
Dec(y);
Continue;
end;
end;
end;
Result:=Tiles;
end;