// Shear All Sheep v1.1
removetimer 'Scanning Timer'
createtimer 'Scanning Timer'
settimer 'Scanning Timer' 3000
clearignorelist
while diffweight > 10
  if @findtype 0xcf 0 [source] [amount] 1
  elseif @findtype 0xcf 0 [source] [amount] 2
  elseif @findtype 0xcf 0 [source] [amount] 3
  elseif @findtype 0xcf 0 [source] [amount] 4
  elseif @findtype 0xcf 0 [source] [amount] 6
  elseif @findtype 0xcf 0 [source] [amount] 8
  elseif @findtype 0xcf 0 [source] [amount] 12
  else
    if timer 'Scanning Timer' > 5000
      headmsg 'Scanning ...' 666
      settimer 'Scanning Timer' 0
    endif
    pause 1000
    continue
  endif
  headmsg 'Found'111
  setalias 'ShearingTarget' 'found'
  while not @inrange 'ShearingTarget' 1
    if @x 'ShearingTarget' > x 'self' and @y 'ShearingTarget' > y 'self'
      run 'Southeast'
    elseif @x 'ShearingTarget' < x 'self' and @y 'ShearingTarget' > y 'self'
      run 'Southwest'
    elseif @x 'ShearingTarget' > x 'self' and @y 'ShearingTarget' < y 'self'
      run 'Northeast'
    elseif @x 'ShearingTarget' < x 'self' and @y 'ShearingTarget' < y 'self'
      run 'Northwest'
    elseif @x 'ShearingTarget' > x 'self' and @y 'ShearingTarget' == y 'self'
      run 'East'
    elseif @x 'ShearingTarget' < x 'self' and @y 'ShearingTarget' == y 'self'
      run 'West'
    elseif @x 'ShearingTarget' == x 'self' and @y 'ShearingTarget' > y 'self'
      run 'South'
    elseif @x 'ShearingTarget' == x 'self' and @y 'ShearingTarget' < y 'self'
      run 'North'
    endif
    pause 100
  endwhile
  usetype 0xf52
  waitfortarget 15000
  target! 'ShearingTarget'
  ignoreobject 'ShearingTarget'
  settimer 'Scanning Timer' 3000
endwhile
headmsg 'FULL'