Heyho jitsuk,
First thanks for you makro! I have a Problem...

It doesnt works for example Mote of Air which is most sold 3 times. And this Items arent rare
I do not know any Item wich is sold for 1 time and is rare... Can you please give us some examples which worked?
I tried to buy the Hearthstone with
/script local function buy (n,q) for i=1,100 do if n==GetMerchantItemInfo(i) then BuyMerchantItem(i,q) end end end buy ("Ruhestein",4);
...in the Chat it leaves that i bought Hearthstonex4 but I just had 1 in my bag!
...
DannyJoe