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;