Set %Gold 0
Set %Clothstack 0
Display OK Start Macro

wait 5s
Set #LTARGETKIND 1
wait 5s
start:
finditem POF C_ , #BackpackID
set %gold #findstack
finditem HAG C_ , #BackpackID
set %sewkit #FindID
wait 1s
set %modX #findx + 25
set %modY #findy + 10
click %modX %modY mc
click %modX %modY d
wait 10s
if #CONTSIZE <> 530_437
goto start

sew:
If #CHARGHOST = YES
goto endscript
finditem CUI C_ , #BackpackID
wait .5s
set %clothstack #findstack
wait .5s
If %Clothstack = 0
goto sew

if #findstack < 100
  {
  goto stopsewing
  }
finditem HAG C_ , #BackpackID
if #findid <> %sewkit
goto stopsewing

if #CONTSIZE = 530_437
  {
  click 324 452 mc
  click 324 452
  wait .5s
  goto sew
  }
goto sew

stopsewing:

wait 3s
if #CONTSIZE = 530_437
{
click 250 420 mc
click 250 420 r
}
sellevent:
wait 7s
finditem RDH G_20
if #finddist < 3
msg Seymour Sell All$
wait 2s
finditem TQL C_ , #backpackid
set #ltargetid #findid
event macro 22
wait 10s
finditem TQL C_ , #backpackid
if #findid = X
goto finishmacro

goto sellevent
finishmacro:
finditem CUI C_ , #BackpackID
if #findstack < 100
goto endscript

goto start

endscript:
sound notify.wav
wait 4s
goto endscript