Restock Regs from Bag

Click on a bag, then hit play.  It'll restock a set amount into your backpack.  Set the amount at the bottom of the script.
function restockRegs(amount, bagId)
FindItem("Black Pearls", bagId)
ContextMenu(FINDITEM[1].ID, "Split Stack")
sleep(500)
SetInput("StackSplit", "TextFieldStackAmount", amount)
sleep(500)
ClickButton("StackSplit",2)
sleep(500)
Dropc(BACKPACKID)
sleep(500)
FindItem("Blood Moss", bagId)
ContextMenu(FINDITEM[1].ID, "Split Stack")
sleep(500)
SetInput("StackSplit", "TextFieldStackAmount", amount)
sleep(500)
ClickButton("StackSplit",2)
sleep(500)
Dropc(BACKPACKID)
sleep(500)
FindItem("Garlic", bagId)
ContextMenu(FINDITEM[1].ID, "Split Stack")
sleep(500)
SetInput("StackSplit", "TextFieldStackAmount", amount)
sleep(500)
ClickButton("StackSplit",2)
sleep(500)
Dropc(BACKPACKID)
sleep(500)
FindItem("Mandrake Root", bagId)
ContextMenu(FINDITEM[1].ID, "Split Stack")
sleep(500)
SetInput("StackSplit", "TextFieldStackAmount", amount)
sleep(500)
ClickButton("StackSplit",2)
sleep(500)
Dropc(BACKPACKID)
sleep(500)
FindItem("Nightshade", bagId)
ContextMenu(FINDITEM[1].ID, "Split Stack")
sleep(500)
SetInput("StackSplit", "TextFieldStackAmount", amount)
sleep(500)
ClickButton("StackSplit",2)
sleep(500)
Dropc(BACKPACKID)
sleep(500)
FindItem("Spider's Silk", bagId)
ContextMenu(FINDITEM[1].ID, "Split Stack")
sleep(500)
SetInput("StackSplit", "TextFieldStackAmount", amount)
sleep(500)
ClickButton("StackSplit",2)
sleep(500)
Dropc(BACKPACKID)
sleep(500)
FindItem("Sulfurous Ash", bagId)
ContextMenu(FINDITEM[1].ID, "Split Stack")
sleep(500)
SetInput("StackSplit", "TextFieldStackAmount", amount)
sleep(500)
ClickButton("StackSplit",2)
sleep(500)
Dropc(BACKPACKID)
sleep(500)
FindItem("Ginseng", bagId)
ContextMenu(FINDITEM[1].ID, "Split Stack")
sleep(500)
SetInput("StackSplit", "TextFieldStackAmount", amount)
sleep(500)
ClickButton("StackSplit",2)
sleep(500)
Dropc(BACKPACKID)
sleep(500)
end

bagId = CLICKOBJ.OBJECTID
restockRegs(99, bagId)