/////////////////////////
//Bod Swapper, v 1d
/////////////////////////
if not @findalias 'Smith2Swap'
  headmsg 'Please target the Blacksmith'
  promptalias 'Smith2Swap' 15000
endif
if not @findobject 'SwapBODSBook'
  headmsg 'Please target the Source BOD Book'
  promptalias 'SwapBODSBook' 15000
endif
if not @findobject 'NewBodsBook'
  headmsg 'Please target the NEW BOD Book'
  promptalias 'NewBodsBook' 15000
endif
if @findtype 0x1ebb 'any' 'backpack' and @property 'Tool Box' 'found'
  @setalias 'ToolBox' 'found'
endif
if not listexists 'Gumps'
  createlist 'Gumps'
  pushlist 'Gumps' 0xd6bcf63a
  pushlist 'Gumps' 0x9bade6ea
  pushlist 'Gumps' 0x307b71a8
  pushlist 'Gumps' 0x15bc9aa4
endif
waitforcontext 'Smith2Swap' 3 15000
for 0 to Gumps
  while @gumpexists Gumps[]
    if @gumpexists 0x9bade6ea
      replygump 0x9bade6ea 1
    elseif @gumpexists 0xd6bcf63a
      replygump 0xd6bcf63a 1
    elseif @gumpexists 0x307b71a8
      replygump 0x307b71a8 1
    elseif @gumpexists 0x15bc9aa4
      replygump 0x15bc9aa4 1
      pause 1000
    endif
  endwhile
endfor
/////////////////////////////////
/////////////////////////////////
/////////////////////////////////
/////////////////////////////////
//Use the bod to determine if filled or can be turned in
if not @findtype 0x2258 1102 'backpack'
  @useobject 'SwapBODSBook'
  waitforgump 0x6abce12 2000
  replygump 0x6abce12 1
  waitforgump 0xb2f21f1a 1500
  replygump 0xb2f21f1a 100
  pause 1000
  replay
else
  @setalias 'BOD' 'found'
  @moveitem 'found' 'Smith2Swap'
  pause 400
  waitforcontext 'ToolBox' 2 15000
  waitforgump 0x6abce12 1000
  replygump 0x6abce12 0
  pause 1000
  if @injournal 'You have not completed the order'
    waitforcontext 'NewBodsBook' 2 15000
  endif
endif
////////////////////////////////
// checks and gold
while @findtype 0xeed 0x0 'backpack'
  @usetype 0xeed 0x0 'backpack'
endwhile
if @findtype 0x14f0 52 'backpack'
  useobject 0x42c79fe3
  waitforgump 0x9021dd59 1500
  replygump 0x9021dd59 5 2
  waitfortarget 1500
  targettype! 0x14f0 52 500
  pause 100
  canceltarget
  replygump 0x9021dd59 0 2
endif