ok here's what i did, very simple -
Red stones to orange:
Sub Main
:Loop
/ctrl /itemnotify ${FindItem[=Red Magical Stone].InvSlot} leftmouseup
/ctrl /itemnotify in pack8 1 leftmouseup
/delay 1
/ctrl /itemnotify ${FindItem[=Red Magical Stone].InvSlot} leftmouseup
/ctrl /itemnotify in pack8 2 leftmouseup
/delay 1
/combine pack8
/delay 7
/autoinv
/delay 2
/goto :Loop
Just to save people some time, I thought I would quote Lexington's post. It's not as "elegant" as the other macro, but it doesn't require any specific build, or client...
Copy and paste the text above into a notepad document and save it as red.mac, then in game open the magic box in slot 8 and the bag with the stones in it and type /mac red. It will make orange stones till you are out of red, then it will error out... type /end.
To make a macro for Orange to Yellow, just copy and paste the text above into notepad and edit the word Red to be Orange, and name the file Orange.mac. Yellow to Green, edit the text to be Yellow and name it Yellow.mac, etc...
It works perfectly, with the exception of needing to /end when you are out of stones.
P.S. Thanks Lexington