steam skinning macro, coding help

[Geriatric]

now i didnt make this macro i dont know who did, and for the most part it works great
it skins the leather puts it in a bag cuts it up with scissors and adds it to the keys
it also loots dragon scales and adds those to the keys
and even claims the corpse at the end leaving things nice and clean

but im one of those sorts of greedy bastards that likes to collect the meat/feathers and that sort of thing
so i tried adding a "movetype" command to the macro for those specific items
the macro still works it picks up the leather and scales cuts and keys them, but its not picking up the meat

im not expecting any rush to get this working out but if someone wants to have a crack id sure welcome the help

----------------------------------------------------------------------------------
if not @findobject 'LootBag1'
headmsg 'Select a bag to store your hides and leather'
promptalias 'LootBag1'
endif
if not @findobject 'TailorKeys'
headmsg 'Select your tailor keys'
promptalias 'TailorKeys'
endif
if not @findalias 'dagger1'
headmsg 'Which dagger1 will you use?'
promptalias 'dagger1'
endif
if not @findalias 'scissors'
headmsg 'Which scissors do you wish to use?'
promptalias 'scissors'
endif
if not listexists 'cutloot'
createlist 'cutloot'
pushlist 'cutloot' '0x1079' //leather
pushlist 'cutloot' '0xdf8' //wool
pushlist 'cutloot' '0x1bd1' //feather
endif
// cutting up and claiming corpses
if @findtype 0x2006 'any' 'ground' 'any' 2
setalias 'corpse' 'found'
useobject 'dagger1'
waitfortarget 5000
@target 'corpse'
pause 800
useobject 'corpse'
pause 1200
// Looting hides
if @findtype 0x1079 'any' 'corpse' 'any' 2
while @findtype 0x1079 'any' 'corpse' 'any' 2
@movetype 0x1079 'corpse' 'LootBag1'
pause 800
endwhile
while @findtype 0x26b4 'any' 'corpse' 'any' 2
@movetype 0x26b4 'corpse' 'LootBag1'
pause 800
endwhile
while @findtype 0x9b9 'any' 'corpse' 'any' 2
@movetype 0x9b9 'corpse' 'LootBag1'
pause 800
endwhile
while @findtype 0x9f1 'any' 'corpse' 'any' 2
@movetype 0x9f1 'corpse' 'LootBag1'
pause 800
endwhile
while @findtype 0x1bd1 'any' 'corpse' 'any' 2
@movetype 0x1bd1 'corpse' 'LootBag1'
pause 800
endwhile
msg '[claim'
waitingfortarget 5000
@target 'corpse'
waitingfortarget 5000
canceltarget
while @findtype 0x1079 'any' 'LootBag1' 'any' 2
useobject 'scissors'
waitfortarget 5000
@target 'found'
pause 800
endwhile
else
msg '[claim'
waitfortarget 5000
@target 'corpse'
waitfortarget 5000
canceltarget
endif
// putting leather in keys
while @findtype 0x1081 'any' 'LootBag1' 'any' 2
useobject 'TailorKeys'
waitforgump 1106836505 5000
replygump 0x41f8fc19 60029
waitforgump 1106836505 5000
waitfortarget 15000
@target 'found'
waitforgump 1106836505 5000
replygump 0x41f8fc19 0
waitfortarget 5000
canceltarget
endwhile
while @findtype 0x26b4 'any' 'LootBag1' 'any' 2
useobject 'TailorKeys'
waitforgump 1106836505 5000
replygump 0x41f8fc19 60029
waitforgump 1106836505 5000
waitfortarget 15000
@target 'found'
waitforgump 1106836505 5000
replygump 0x41f8fc19 0
waitfortarget 5000
canceltarget
endwhile
endif

[Geriatric]

i think i may have managed to get it working on my own

instead of trying to add the lines of code to "movetype" of each the skinned items like "feathers, raw birds etc
i added a line at the beginning of the loot sequence to just autoloot

i had to remove leather hides and dragon scales from my auto loot so the macro can move and identify the item it needs to cut

so if anyone does happen to want the updated version this is it
==============================================================
if not @findobject 'LootBag1'
headmsg 'Select a bag to store your hides and leather'
promptalias 'LootBag1'
endif
if not @findobject 'TailorKeys'
headmsg 'Select your tailor keys'
promptalias 'TailorKeys'
endif
if not @findalias 'dagger1'
headmsg 'Which dagger1 will you use?'
promptalias 'dagger1'
endif
if not @findalias 'scissors'
headmsg 'Which scissors do you wish to use?'
promptalias 'scissors'
endif
if not listexists 'cutloot'
createlist 'cutloot'
pushlist 'cutloot' '0x1079' //leather
pushlist 'cutloot' '0xdf8' //wool
pushlist 'cutloot' '0x1bd1' //feather
endif
// cutting up and claiming corpses
if @findtype 0x2006 'any' 'ground' 'any' 2
setalias 'corpse' 'found'
useobject 'dagger1'
waitfortarget 5000
@target 'corpse'
pause 800
useobject 'corpse'
pause 1200
// Looting hides
autoloot
pause 1600
if @findtype 0x1079 'any' 'corpse' 'any' 2
while @findtype 0x1079 'any' 'corpse' 'any' 2
@movetype 0x1079 'corpse' 'LootBag1'
pause 800
endwhile
while @findtype 0x26b4 'any' 'corpse' 'any' 2
@movetype 0x26b4 'corpse' 'LootBag1'
pause 800
endwhile
while @findtype 0x9b9 'any' 'corpse' 'any' 2
@movetype 0x9b9 'corpse' 'LootBag1'
pause 800
endwhile
while @findtype 0x9f1 'any' 'corpse' 'any' 2
@movetype 0x9f1 'corpse' 'LootBag1'
pause 800
endwhile
while @findtype 0x1bd1 'any' 'corpse' 'any' 2
@movetype 0x1bd1 'corpse' 'LootBag1'
pause 800
endwhile
msg '[claim'
waitingfortarget 5000
@target 'corpse'
waitingfortarget 5000
canceltarget
while @findtype 0x1079 'any' 'LootBag1' 'any' 2
useobject 'scissors'
waitfortarget 5000
@target 'found'
pause 800
endwhile
else
msg '[claim'
waitfortarget 5000
@target 'corpse'
waitfortarget 5000
canceltarget
endif
// putting leather in keys
while @findtype 0x1081 'any' 'LootBag1' 'any' 2
useobject 'TailorKeys'
waitforgump 1106836505 5000
replygump 0x41f8fc19 60029
waitforgump 1106836505 5000
waitfortarget 15000
@target 'found'
waitforgump 1106836505 5000
replygump 0x41f8fc19 0
waitfortarget 5000
canceltarget
endwhile
while @findtype 0x26b4 'any' 'LootBag1' 'any' 2
useobject 'TailorKeys'
waitforgump 1106836505 5000
replygump 0x41f8fc19 60029
waitforgump 1106836505 5000
waitfortarget 15000
@target 'found'
waitforgump 1106836505 5000
replygump 0x41f8fc19 0
waitfortarget 5000
canceltarget
endwhile
endif

[sarmatian]

Beware of quest scales like seafarer quest. They are mangling simple scripts.
It is like my script for moving blank scrolls to keys fails if I have ED in backpack.

[Geriatric]

oh yeah that should be mentioned
quest items with the same graphic like those special scales can get destroyed