Advertisement
Guest User

Untitled

a guest
Jul 28th, 2017
101
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 1.58 KB | None | 0 0
  1. -------------------
  2. -- aMail by Alza --
  3. -------------------
  4.  
  5. local button = CreateFrame('Button', 'aMailButton', InboxFrame, 'UIPanelButtonTemplate')
  6. button:SetPoint('BOTTOM', InboxFrame, 'BOTTOM', -10, 84)
  7. button:SetWidth(148)
  8. button:SetHeight(28)
  9.  
  10. local text = button:CreateFontString(nil, 'OVERLAY')
  11. text:SetFont('Fonts\\FRIZQT__.TTF', 12, 'OUTLINE') -- changed font size to 13 by Lanerra
  12. text:SetShadowOffset(1, -1) -- added this today by Lanerra
  13. text:SetPoint'CENTER' -- changed from "CENTER" to "LEFT" by Aftermathh
  14.  
  15. local processing = false
  16.  
  17. local function OnEvent()
  18.     if(not MailFrame:IsShown()) then return end
  19.  
  20.     local num = GetInboxNumItems()
  21.  
  22.     local cash = 0
  23.     local items = 0
  24.     for i = 1, num do
  25.         local _, _, _, _, money, COD, _, item = GetInboxHeaderInfo(i)
  26.         if(item and COD<1) then items = items + item end
  27.         cash = cash + money
  28.     end
  29.     text:SetText(format('%d gold, %d items', floor(cash * 0.0001), items))
  30.  
  31.     if(processing) then
  32.         if(num==0) then
  33.             MiniMapMailFrame:Hide()
  34.             processing = false
  35.             return
  36.         end
  37.  
  38.         for i = num, 1, -1 do
  39.             local _, _, _, _, money, COD, _, item = GetInboxHeaderInfo(i)
  40.             if(item and COD<1) then
  41.                 TakeInboxItem(i)
  42.                 return
  43.             end
  44.             if(money>0) then
  45.                 TakeInboxMoney(i)
  46.                 return
  47.             end
  48.         end
  49.     end
  50. end
  51.  
  52. local function OnClick()
  53.     if(not processing) then
  54.         processing = true
  55.         OnEvent()
  56.     end
  57. end
  58.  
  59. local function OnHide()
  60.     processing = false
  61. end
  62.  
  63. button:RegisterEvent'MAIL_INBOX_UPDATE'
  64. button:SetScript('OnEvent', OnEvent)
  65. button:SetScript('OnClick', OnClick)
  66. button:SetScript('OnHide', OnHide)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement