Applying for present buy lists, or set the hook for next incoming buy lists.
This hook works NOT once, but will work until removed.
For hook removing need to set AutoBuy with “Quantity” param = 0.
procedure AutoBuy(ItemType : Word; ItemColor : Word; Quantity : Word)
AutoBuy(ItemType, ItemColor, Quantity)
AutoBuy(NS,$FFFF,400); //will buy NS reagent of any color, all amount in buy list