BUY MACRO:
/run MailFrameTab_OnClick(MailFrame,2)
/run for b=0,4 do for s=0,36 do I=GetContainerItemLink(b,s) if I and I:find("163765")then UseContainerItem(b,s) end end end SendMailNameEditBox:SetText("Habadude")SendMailMailButton:Click()
/run AutoLootMailItem(1)

Send Macro:
/run SelectGossipOption(1)
/run for i=1,GetMerchantNumItems() do local l=GetMerchantItemLink(i) if l then if l:find("163765") then BuyMerchantItem(i, 5)StaticPopup1Button1:Click()end end end