Leather Suit Crafting and Organizing

if not @findalias 'suitcontainer'
  sysmsg 'select suit container'
  promptalias 'suitcontainer'
endif
if not @findalias 'bagcontainer'
  sysmsg 'select bag container'
  promptalias 'bagcontainer'
endif
if not listexists 'bags'
  createlist 'bags'
endif
if not listexists 'dyeables'
  createlist 'dyeables'
endif
clearlist 'bags'
clearlist 'dyeables'
while @findtype '0xe76' 'any' 'bagcontainer'
  pushlist 'bags' 'found'
  moveitem 'found' 'suitcontainer'
  pause 1000
endwhile
//now to start crafting
for 0 to 'bags'
  headmsg bags[]
  usetype '0xf9d'
  waitforgump 0x38920abd 15000
  replygump 0x38920abd 36
  usetype '0xf9d'
  waitforgump 0x38920abd 15000
  replygump 0x38920abd 2
  pause 1600
  usetype '0xf9d'
  waitforgump 0x38920abd 15000
  replygump 0x38920abd 9
  pause 1600
  usetype '0xf9d'
  waitforgump 0x38920abd 15000
  replygump 0x38920abd 16
  pause 1600
  usetype '0xf9d'
  waitforgump 0x38920abd 15000
  replygump 0x38920abd 23
  pause 1600
  usetype '0xf9d'
  waitforgump 0x38920abd 15000
  replygump 0x38920abd 30
  pause 1600
  usetype '0xf9d'
  waitforgump 0x38920abd 15000
  replygump 0x38920abd 37
  pause 1600
  findtype '0x13c7' 'any' 'backpack' // gorget
  moveitem 'found' bags[]
  pushlist 'dyeables' 'found'
  pause 1000
  findtype '0x1db9' 'any' 'backpack' // helmet
  moveitem 'found' bags[]
  pushlist 'dyeables' 'found'
  pause 1000
  findtype '0x13c6' 'any' 'backpack' // gloves
  moveitem 'found' bags[]
  pushlist 'dyeables' 'found'
  pause 1000
  findtype '0x13cd' 'any' 'backpack' // sleeves
  moveitem 'found' bags[]
  pushlist 'dyeables' 'found'
  pause 1000
  findtype '0x13cb' 'any' 'backpack' // leggings
  moveitem 'found' bags[]
  pushlist 'dyeables' 'found'
  pause 1000
  findtype '0x13cc' 'any' 'backpack' // tunic
  moveitem 'found' bags[]
  pushlist 'dyeables' 'found'
  pause 1000
endfor


//-----------------------------

for 0 to 'bags'
  pause 600
  useobject 0x402e68fd
  waitfortarget 5000
  target bags[]
endfor
for 0 to 'dyeables'
  pause 600
  useobject 0x402e68fd
  waitfortarget 5000
  target dyeables[]
endfor