UOSteam script for Blacksmith Slayer Weapons

[Hefty]

I am trying to make a blacksmithing macro for UOSteam, but I want it to create a list of weapons and smelt those that are not slayer. I already have a Fletching slayer script that I modified from online, but I don't know how to modify it any further to do what I need. Heres what I have for fletching:
msg guards
if not @findalias 'slayerbag'
promptalias 'slayerbag'
endif
if not @findobject 'Sell Bag'
promptalias 'Sell Bag'
endif
if listexists 'slayertype'
@clearlist 'slayertype'
else
createlist 'slayertype'
endif
pushlist 'slayertype' 0x13b2
if not @findtype '0x1022' 'any' 'backpack' 'any' '2'
headmsg 'Need more tools!'
for 1 to 3
usetype 0x1ebc 'backpack'
waitforgump 0x38920abd 5000
replygump 0x38920abd 8
waitforgump 0x38920abd 5000
replygump 0x38920abd 142
pause 1000
endfor
endif
@usetype '0x1022' 'any' 'backpack' '2'
waitforgump 0x38920abd 5000
replygump 0x38920abd 21
pause 2000
if @injournal 'crafted a slayer' 'system'
// Change ↓
@findtype 0x13b2 0x0 'backpack'
moveitem 'found' 'slayerbag'
ignoreobject 'found'
clearjournal
headmsg 'Slayer crafted!' 33
pause 15000
else
@findtype '0x13b2' 'any' 'backpack' '1' '2'
moveitem 'found' 'Sell Bag'
pause 200
@ignoreobject 'found'
endif
while weight >= maxweight or counter 'cntr-17' < 7
headmsg 'Time to Bank'
sysmsg 'Time to Bank'
useobject 0x408e8409
waitforgump 0x554b87f3 15000
replygump 0x554b87f3 11
pause 3000
msg 'Bank'
@organizer 'Slayer Weps'
while organizing
pause 'complete'
endwhile
@organizer 'Slayer Mats'
while organizing
pause 'complete'
endwhile
useobject 0x408e8409
waitforgump 0x554b87f3 15000
replygump 0x554b87f3 17
pause 2000
if sysmsg 'The spell fizzles.'
replay 'line 58'
endif
endwhile

Utilizes the "make last" button to continue to make bows. If I had no luck I'll just one at a time it.