This is ok modify for others, make sure you have old UI opened up. Modify for other trades.
Sub Main
:main
/call CleanForge
/echo Current Blacksmithing =${Me.Skill[Blacksmithing]}
/delay 2
/nomodkey /itemnotify ${InvSlot[enviro1]} leftmouseup
/delay 2
/ctrlkey /itemnotify ${FindItem[=Metal Tempering Chemicals].InvSlot} leftmouseup
/if (!${FindItem[=Metal Tempering Chemicals].InvSlot}) /call Done
/delay 2
/nomodkey /itemnotify ${InvSlot[enviro2]} leftmouseup
/delay 2
/ctrlkey /itemnotify ${FindItem[=Chainmail Gloves Template Pattern].InvSlot} leftmouseup
/if (!${FindItem[=Chainmail Gloves Template Pattern].InvSlot}) /call Done
/delay 2
/nomodkey /itemnotify ${InvSlot[enviro3]} leftmouseup
/delay 2
/ctrlkey /itemnotify ${FindItem[=Brimstone Coal].InvSlot} leftmouseup
/if (!${FindItem[=Brimstone Coal].InvSlot}) /call Done
/delay 2
/nomodkey /itemnotify ${InvSlot[enviro4]} leftmouseup
/delay 2
/ctrlkey /itemnotify ${FindItem[=Vanadium Ore].InvSlot} leftmouseup
/if (!${FindItem[=Vanadium Ore].InvSlot}) /call Done
/delay 2
/nomodkey /itemnotify ${InvSlot[enviro5]} leftmouseup
/delay 2
/ctrlkey /itemnotify ${FindItem[=Smithy Hammer].InvSlot} leftmouseup
/delay 2
/nomodkey /itemnotify ${InvSlot[enviro6]} leftmouseup
/delay 2
/combine Enviro
/delay 2s
/autoinv
/delay 4
/autoinv
/autoinv
/goto :main
Sub CleanForge
/nomodkey /shiftkey /itemnotify enviro1 leftmouseup
/delay 2
/autoinv
/nomodkey /shiftkey /itemnotify enviro2 leftmouseup
/delay 2
/autoinv
/nomodkey /shiftkey /itemnotify enviro3 leftmouseup
/delay 2
/autoinv
/nomodkey /shiftkey /itemnotify enviro4 leftmouseup
/delay 2
/autoinv
/nomodkey /shiftkey /itemnotify enviro5 leftmouseup
/delay 2
/autoinv
/nomodkey /shiftkey /itemnotify enviro6 leftmouseup
/delay 2
/autoinv
/delay 2
/return
Sub Done
/echo Ran out of something....ending macro.
/popup Ran out of something....ending macro.
/end
Sub Main
:main
/call CleanForge
/echo Current Blacksmithing =${Me.Skill[Blacksmithing]}
/delay 2
/nomodkey /itemnotify ${InvSlot[enviro1]} leftmouseup
/delay 2
/ctrlkey /itemnotify ${FindItem[=Metal Tempering Chemicals].InvSlot} leftmouseup
/if (!${FindItem[=Metal Tempering Chemicals].InvSlot}) /call Done
/delay 2
/nomodkey /itemnotify ${InvSlot[enviro2]} leftmouseup
/delay 2
/ctrlkey /itemnotify ${FindItem[=Chainmail Gloves Template Pattern].InvSlot} leftmouseup
/if (!${FindItem[=Chainmail Gloves Template Pattern].InvSlot}) /call Done
/delay 2
/nomodkey /itemnotify ${InvSlot[enviro3]} leftmouseup
/delay 2
/ctrlkey /itemnotify ${FindItem[=Brimstone Coal].InvSlot} leftmouseup
/if (!${FindItem[=Brimstone Coal].InvSlot}) /call Done
/delay 2
/nomodkey /itemnotify ${InvSlot[enviro4]} leftmouseup
/delay 2
/ctrlkey /itemnotify ${FindItem[=Vanadium Ore].InvSlot} leftmouseup
/if (!${FindItem[=Vanadium Ore].InvSlot}) /call Done
/delay 2
/nomodkey /itemnotify ${InvSlot[enviro5]} leftmouseup
/delay 2
/ctrlkey /itemnotify ${FindItem[=Smithy Hammer].InvSlot} leftmouseup
/delay 2
/nomodkey /itemnotify ${InvSlot[enviro6]} leftmouseup
/delay 2
/combine Enviro
/delay 2s
/autoinv
/delay 4
/autoinv
/autoinv
/goto :main
Sub CleanForge
/nomodkey /shiftkey /itemnotify enviro1 leftmouseup
/delay 2
/autoinv
/nomodkey /shiftkey /itemnotify enviro2 leftmouseup
/delay 2
/autoinv
/nomodkey /shiftkey /itemnotify enviro3 leftmouseup
/delay 2
/autoinv
/nomodkey /shiftkey /itemnotify enviro4 leftmouseup
/delay 2
/autoinv
/nomodkey /shiftkey /itemnotify enviro5 leftmouseup
/delay 2
/autoinv
/nomodkey /shiftkey /itemnotify enviro6 leftmouseup
/delay 2
/autoinv
/delay 2
/return
Sub Done
/echo Ran out of something....ending macro.
/popup Ran out of something....ending macro.
/end