Код:
/script
            local function buy (n,q) 
                   for i=1,100 do 
                      if n==GetMerchantItemInfo(i) then 
                               BuyMerchantItem(i,q) 
                      end 
                   end 
            end

            buy ("Эмблема героизма",26)

"Эмблема героизма"- тут пишется точное название итема который необходимо купить. Далее после запятой пишется кол-во, в данном случае 26.