Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -------------------
- -- aMail by Alza --
- -------------------
- local button = CreateFrame('Button', 'aMailButton', InboxFrame, 'UIPanelButtonTemplate')
- button:SetPoint('BOTTOM', InboxFrame, 'BOTTOM', -10, 84)
- button:SetWidth(148)
- button:SetHeight(28)
- local text = button:CreateFontString(nil, 'OVERLAY')
- text:SetFont('Fonts\\FRIZQT__.TTF', 12, 'OUTLINE') -- changed font size to 13 by Lanerra
- text:SetShadowOffset(1, -1) -- added this today by Lanerra
- text:SetPoint'CENTER' -- changed from "CENTER" to "LEFT" by Aftermathh
- local processing = false
- local function OnEvent()
- if(not MailFrame:IsShown()) then return end
- local num = GetInboxNumItems()
- local cash = 0
- local items = 0
- for i = 1, num do
- local _, _, _, _, money, COD, _, item = GetInboxHeaderInfo(i)
- if(item and COD<1) then items = items + item end
- cash = cash + money
- end
- text:SetText(format('%d gold, %d items', floor(cash * 0.0001), items))
- if(processing) then
- if(num==0) then
- MiniMapMailFrame:Hide()
- processing = false
- return
- end
- for i = num, 1, -1 do
- local _, _, _, _, money, COD, _, item = GetInboxHeaderInfo(i)
- if(item and COD<1) then
- TakeInboxItem(i)
- return
- end
- if(money>0) then
- TakeInboxMoney(i)
- return
- end
- end
- end
- end
- local function OnClick()
- if(not processing) then
- processing = true
- OnEvent()
- end
- end
- local function OnHide()
- processing = false
- end
- button:RegisterEvent'MAIL_INBOX_UPDATE'
- button:SetScript('OnEvent', OnEvent)
- button:SetScript('OnClick', OnClick)
- button:SetScript('OnHide', OnHide)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement