The macro below can help you automate that process, currently the macro keeps BRSK, HRSK, Bless deed (leather one) bods, small cloth bods and throws all other bods.
You need 2 empty books and a trash bin. Once completed BRSK bods will be in one book, HRSK + Bless in another, and small cloth (recycle bods) will be left in the source book. If you are sorting full book use empty books for your target. If you are afraid that the macro will throw important bods, you can target another book instead of the trash barrel and give it a manual check after.
Do not check the "loop" checkbox:
Code: Select all
//Initialize section
if not findalias 'initialize'
headmsg 'Target your source book' 33
promptalias 'sourcebook'
headmsg 'Target where to store BRSK BODS' 33
promptalias 'brsk_book'
headmsg 'Target where to store HRSK and Bless BoDs' 33
promptalias 'hrsk_book'
headmsg 'Target your trashbarrel' 33
promptalias 'trashbin'
endif
//===================================
// 20small + Large exc spined BOD FILTER
// BRSK BODS
useobject 'sourcebook'
waitforgump 0x54f555df 1500
replygump 0x54f555df 1
waitforgump 0x968739db 1500
replygump 0x968739db 4
waitforgump 0x968739db 1500
replygump 0x968739db 13
waitforgump 0x968739db 1500
replygump 0x968739db 66
waitforgump 0x968739db 1500
replygump 0x968739db 19
waitforgump 0x968739db 1500
replygump 0x968739db 0
waitforgump 0x54f555df 1500
pause 500
//end filter
while @property 'Contents' 'backpack' < 123
useobject 'sourcebook'
waitforgump 0x54f555df 1500
replygump 0x54f555df 5
waitforgump 0x54f555df 1500
if replygump 0x54f555df 5
waitforgump 0x54f555df 1500
while @findtype 0x2258 1155 'backpack' 'any'
waitforproperties 'found' 2500
if property 'Leather Cap' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Gorget' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Gloves' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Tunic' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Sleeves' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Leggings' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Skirt' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Female Leather Armor' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Shorts' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Bustier' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Studded Bustier' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Studded Armor' 'found'
@moveitem 'found' 'brsk_book'
pause 500
else
@moveitem 'found' 'trashbin'
pause 500
endif
endwhile
else
break
pause 200
endif
endwhile
//================================
//Leather 20x small+ Large
//Keeps bless deed bods
//This will trash 120PS BODs
useobject 'sourcebook'
waitforgump 0x54f555df 1500
replygump 0x54f555df 1
waitforgump 0x968739db 1500
replygump 0x968739db 4
waitforgump 0x968739db 1500
replygump 0x968739db 13
waitforgump 0x968739db 1500
replygump 0x968739db 62
waitforgump 0x968739db 1500
replygump 0x968739db 19
waitforgump 0x968739db 1500
replygump 0x968739db 0
waitforgump 0x54f555df 1500
pause 500
//end filter
while @property 'Contents' 'backpack' < 123
useobject 'sourcebook'
waitforgump 0x54f555df 1500
replygump 0x54f555df 5
waitforgump 0x54f555df 1500
if replygump 0x54f555df 5
waitforgump 0x54f555df 1500
while @findtype 0x2258 1155 'backpack' 'any'
waitforproperties 'found' 2500
if property 'Studded Gorget' 'found'
@moveitem 'found' 'hrsk_book'
pause 500
elseif property 'Studded Gloves' 'found'
@moveitem 'found' 'hrsk_book'
pause 500
elseif property 'Studded Sleeves' 'found'
@moveitem 'found' 'hrsk_book'
pause 500
elseif property 'Studded Leggings' 'found'
@moveitem 'found' 'hrsk_book'
pause 500
elseif property 'Studded Tunic' 'found'
@moveitem 'found' 'hrsk_book'
pause 500
else
@moveitem 'found' 'trashbin'
pause 500
endif
endwhile
else
break
pause 200
endif
endwhile
//================================
//small +large exc leather BODs FILTER
//HRSK + 120PS BODS
useobject 'sourcebook'
waitforgump 0x54f555df 1500
replygump 0x54f555df 1
waitforgump 0x968739db 1500
replygump 0x968739db 4
waitforgump 0x968739db 1500
replygump 0x968739db 13
waitforgump 0x968739db 1500
replygump 0x968739db 62
waitforgump 0x968739db 1500
replygump 0x968739db 7
waitforgump 0x968739db 1500
replygump 0x968739db 0
waitforgump 0x54f555df 1500
pause 500
//end filter
while @property 'Contents' 'backpack' < 123
useobject 'sourcebook'
waitforgump 0x54f555df 1500
replygump 0x54f555df 5
waitforgump 0x54f555df 1500
if replygump 0x54f555df 5
waitforgump 0x54f555df 1500
while @findtype 0x2258 1155 'backpack' 'any'
waitforproperties 'found' 2500
if property 'Leather Cap' 'found'
@moveitem 'found' 'hrsk_book'
pause 500
elseif property 'Leather Gorget' 'found'
@moveitem 'found' 'hrsk_book'
pause 500
elseif property 'Leather Gloves' 'found'
@moveitem 'found' 'hrsk_book'
pause 500
elseif property 'Leather Tunic' 'found'
@moveitem 'found' 'hrsk_book'
pause 500
elseif property 'Leather Sleeves' 'found'
@moveitem 'found' 'hrsk_book'
pause 500
elseif property 'Leather Leggings' 'found'
@moveitem 'found' 'hrsk_book'
pause 500
elseif property 'Leather Skirt' 'found'
@moveitem 'found' 'hrsk_book'
pause 500
elseif property 'Female Leather Armor' 'found'
@moveitem 'found' 'hrsk_book'
pause 500
elseif property 'Leather Shorts' 'found'
@moveitem 'found' 'hrsk_book'
pause 500
elseif property 'Leather Bustier' 'found'
@moveitem 'found' 'hrsk_book'
pause 500
elseif property 'Studded Bustier' 'found'
@moveitem 'found' 'hrsk_book'
pause 500
elseif property 'Studded Armor' 'found'
@moveitem 'found' 'hrsk_book'
pause 500
else
@moveitem 'found' 'trashbin'
pause 500
endif
endwhile
else
break
pause 200
endif
endwhile
//================================
//large cloth BODs FILTER
//TRASH BODS
useobject 'sourcebook'
waitforgump 0x968739db 1500
replygump 0x54f555df 1
waitforgump 0x968739db 1500
replygump 0x968739db 12
waitforgump 0x968739db 1500
replygump 0x968739db 58
waitforgump 0x968739db 1500
replygump 0x968739db 5
waitforgump 0x968739db 1500
replygump 0x968739db 7
waitforgump 0x968739db 1500
replygump 0x968739db 0
waitforgump 0x54f555df 1500
pause 500
//end filter
while @property 'Contents' 'backpack' < 123
useobject 'sourcebook'
waitforgump 0x54f555df 1500
replygump 0x54f555df 5
waitforgump 0x54f555df 1500
if replygump 0x54f555df 5
waitforgump 0x54f555df 1500
while @findtype 0x2258 1155 'backpack' 'any'
@moveitem 'found' 'trashbin'
pause 500
endwhile
else
break
pause 200
endif
endwhile
//================================
//spinned 10 BODs FILTER
//TRASH BODS
useobject 'sourcebook'
waitforgump 0x54f555df 1500
replygump 0x54f555df 1
waitforgump 0x968739db 1500
replygump 0x968739db 4
waitforgump 0x968739db 1500
replygump 0x968739db 5
waitforgump 0x968739db 1500
replygump 0x968739db 66
waitforgump 0x968739db 1500
replygump 0x968739db 11
waitforgump 0x968739db 1500
replygump 0x968739db 0
waitforgump 0x54f555df 1500
pause 500
//end filter
while @property 'Contents' 'backpack' < 123
useobject 'sourcebook'
waitforgump 0x54f555df 1500
replygump 0x54f555df 5
waitforgump 0x54f555df 1500
if replygump 0x54f555df 5
waitforgump 0x54f555df 1500
while @findtype 0x2258 1155 'backpack' 'any'
@moveitem 'found' 'trashbin'
pause 500
endwhile
else
break
pause 200
endif
endwhile
//================================
//spinned 15 BODs FILTER
//TRASH BODS
useobject 'sourcebook'
waitforgump 0x54f555df 1500
replygump 0x54f555df 1
waitforgump 0x968739db 1500
replygump 0x968739db 4
waitforgump 0x968739db 1500
replygump 0x968739db 5
waitforgump 0x968739db 1500
replygump 0x968739db 66
waitforgump 0x968739db 1500
replygump 0x968739db 15
waitforgump 0x968739db 1500
replygump 0x968739db 0
waitforgump 0x54f555df 1500
pause 500
//end filter
while @property 'Contents' 'backpack' < 123
useobject 'sourcebook'
waitforgump 0x54f555df 1500
replygump 0x54f555df 5
waitforgump 0x54f555df 1500
if replygump 0x54f555df 5
waitforgump 0x54f555df 1500
while @findtype 0x2258 1155 'backpack' 'any'
@moveitem 'found' 'trashbin'
pause 500
endwhile
else
break
pause 200
endif
endwhile
//================================
//All 10,15,20 Horned BODS FILTER
//BRSK BODS
useobject 'sourcebook'
waitforgump 0x54f555df 1500
replygump 0x54f555df 1
waitforgump 0x968739db 1500
replygump 0x968739db 4
waitforgump 0x968739db 1500
replygump 0x968739db 13
waitforgump 0x968739db 1500
replygump 0x968739db 70
waitforgump 0x968739db 1500
replygump 0x968739db 7
waitforgump 0x968739db 1500
replygump 0x968739db 0
waitforgump 0x54f555df 1500
pause 500
//end filter
while @property 'Contents' 'backpack' < 123
useobject 'sourcebook'
waitforgump 0x54f555df 1500
replygump 0x54f555df 5
waitforgump 0x54f555df 1500
if replygump 0x54f555df 5
waitforgump 0x54f555df 1500
while @findtype 0x2258 1155 'backpack' 'any'
waitforproperties 'found' 2500
if property 'Leather Cap' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Gorget' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Gloves' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Tunic' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Sleeves' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Leggings' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Skirt' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Female Leather Armor' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Shorts' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Bustier' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Studded Bustier' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Studded Armor' 'found'
@moveitem 'found' 'brsk_book'
pause 500
else
@moveitem 'found' 'trashbin'
pause 500
endif
endwhile
else
break
pause 200
endif
endwhile
//================================
//All 10,15,20 Barbed BODs FILTER
//BRSK BODS
useobject 'sourcebook'
waitforgump 0x54f555df 1500
replygump 0x54f555df 1
waitforgump 0x968739db 1500
replygump 0x968739db 4
waitforgump 0x968739db 1500
replygump 0x968739db 13
waitforgump 0x968739db 1500
replygump 0x968739db 74
waitforgump 0x968739db 1500
replygump 0x968739db 7
waitforgump 0x968739db 1500
replygump 0x968739db 0
waitforgump 0x54f555df 1500
pause 500
//end filter
while @property 'Contents' 'backpack' < 123
useobject 'sourcebook'
waitforgump 0x54f555df 1500
replygump 0x54f555df 5
waitforgump 0x54f555df 1500
if replygump 0x54f555df 5
waitforgump 0x54f555df 1500
while @findtype 0x2258 1155 'backpack' 'any'
waitforproperties 'found' 2500
if property 'Leather Cap' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Gorget' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Gloves' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Tunic' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Sleeves' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Leggings' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Skirt' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Female Leather Armor' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Shorts' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Leather Bustier' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Studded Bustier' 'found'
@moveitem 'found' 'brsk_book'
pause 500
elseif property 'Studded Armor' 'found'
@moveitem 'found' 'brsk_book'
pause 500
else
@moveitem 'found' 'trashbin'
pause 500
endif
endwhile
else
break
pause 200
endif
endwhile
//=================================
//All NORMAL large BODS
//TRASH BODS
useobject 'sourcebook'
waitforgump 0x54f555df 15000
replygump 0x54f555df 1
waitforgump 0x968739db 15000
replygump 0x968739db 12
waitforgump 0x968739db 15000
replygump 0x968739db 9
waitforgump 0x968739db 15000
replygump 0x968739db 54
waitforgump 0x968739db 15000
replygump 0x968739db 7
waitforgump 0x968739db 15000
replygump 0x968739db 0
waitforgump 0x54f555df 15000
pause 500
//end filter
while @property 'Contents' 'backpack' < 123
useobject 'sourcebook'
waitforgump 0x54f555df 1500
replygump 0x54f555df 5
waitforgump 0x54f555df 1500
if replygump 0x54f555df 5
waitforgump 0x54f555df 1500
while @findtype 0x2258 1155 'backpack' 'any'
@moveitem 'found' 'trashbin'
pause 500
endwhile
else
break
pause 200
endif
endwhile
//=================================
@unsetalias 'brsk_book'
@unsetalias 'hrsk_book'
@unsetalias 'sourcebook'