Sub TileItem(X,Y)
  UO.Ignorereset()
  UO.Set('finddistance','16')
  UO.FindType('-1','-1','ground')
  while UO.FindCount()
    if UO.GetX('finditem')==X and UO.GetY('finditem')==Y then
      return UO.GetSerial('finditem')
    end if
    UO.Ignore('finditem')
    UO.FindType('-1','-1','ground')
  wend
  UO.Ignorereset()
  return 0
end sub