if not listexists 'spinningwheeltypes'
  createlist 'spinningwheeltypes'
  pushlist 'spinningwheeltypes' 0x1019 //Spinning wheel East
  pushlist 'spinningwheeltypes' 0x1015 //Spinning wheel South
endif
while @findtype 0xdf9 'any' 'backpack' or findtype 0xdf8 'any' 'backpack'
  useobject 'found'
  waitfortarget 15000
  for 0 in 'spinningwheeltypes'
    if @findtype spinningwheeltypes[] 'any' 'ground' 1 2
      target! 'found' 1000
      break
    endif
  endfor
  pause 3500
endwhile
playmacro 'SpinCloth'