coa-elvui/ElvUI/Modules/DataTexts/Gold.lua

local E, L, V, P, G = unpack(select(2, ...)) --Import: Engine, Locales, PrivateDB, ProfileDB, GlobalDB
local DT = E:GetModule("DataTexts")

--Lua functions
local pairs = pairs
local format = string.format
local tinsert, wipe = tinsert, wipe
--WoW API / Variables
local GetBackpackCurrencyInfo = GetBackpackCurrencyInfo
local GetMoney = GetMoney
local IsLoggedIn = IsLoggedIn
local IsShiftKeyDown = IsShiftKeyDown
local CURRENCY = CURRENCY
local MAX_WATCHED_TOKENS = MAX_WATCHED_TOKENS

local currencyString = "|T%s:14:14:0:0:64:64:4:60:4:60|t %s"
local resetCountersFormatter = string.join("", "|cffaaaaaa", L["Reset Counters: Hold Shift + Left Click"], "|r")
local resetDataFormatter = string.join("", "|cffaaaaaa", L["Reset Data: Hold Shift + Right Click"], "|r")

local dataTable = {}
local dataUpdated
local myDataID
local totalGold = 0
local altGold = 0
local profit = 0
local spent = 0

local function BuildDataTable()
	wipe(dataTable)

	for charName in pairs(ElvDB.gold[E.myrealm]) do
		if ElvDB.gold[E.myrealm][charName] then
			local color = E.media.herocolor

			tinsert(dataTable,
				{
					name = charName,
					amount = ElvDB.gold[E.myrealm][charName],
					amountText = E:FormatMoney(ElvDB.gold[E.myrealm][charName], E.db.datatexts.goldFormat or "BLIZZARD", not E.db.datatexts.goldCoins),
					r = color.r, g = color.g, b = color.b,
				}
			)

			if charName == E.myname then
				myDataID = #dataTable
			else
				altGold = altGold + ElvDB.gold[E.myrealm][charName]
			end
		end
	end
end

local function OnEvent(self, event)
	if not IsLoggedIn() then return end

	local curMoney = GetMoney()

	if not dataUpdated and (event == "PLAYER_ENTERING_WORLD" or event == "ELVUI_FORCE_RUN") then
		ElvDB.gold = ElvDB.gold or {}
		ElvDB.gold[E.myrealm] = ElvDB.gold[E.myrealm] or {}
		ElvDB.gold[E.myrealm][E.myname] = ElvDB.gold[E.myrealm][E.myname] or curMoney

		ElvDB.class = ElvDB.class or {}
		ElvDB.class[E.myrealm] = ElvDB.class[E.myrealm] or {}
		ElvDB.class[E.myrealm][E.myname] = E.myclass

		BuildDataTable()
		dataUpdated = true

		self:UnregisterEvent("PLAYER_ENTERING_WORLD")
	end

	local oldMoney = ElvDB.gold[E.myrealm][E.myname]

	if oldMoney > curMoney then
		spent = spent - (curMoney - oldMoney)
	else
		profit = profit + (curMoney - oldMoney)
	end

	ElvDB.gold[E.myrealm][E.myname] = curMoney
	totalGold = altGold + curMoney

	local formattedMoney = E:FormatMoney(curMoney, E.db.datatexts.goldFormat or "BLIZZARD", not E.db.datatexts.goldCoins)

	dataTable[myDataID].amount = curMoney
	dataTable[myDataID].amountText = formattedMoney

	self.text:SetText(formattedMoney)
end

local function OnEnter(self)
	DT:SetupTooltip(self)

	local style = E.db.datatexts.goldFormat or "BLIZZARD"
	local textOnly = not E.db.datatexts.goldCoins

	DT.tooltip:AddLine(L["Session:"])
	DT.tooltip:AddDoubleLine(L["Earned:"], E:FormatMoney(profit, style, textOnly), 1, 1, 1, 1, 1, 1)
	DT.tooltip:AddDoubleLine(L["Spent:"], E:FormatMoney(spent, style, textOnly), 1, 1, 1, 1, 1, 1)

	if profit < spent then
		DT.tooltip:AddDoubleLine(L["Deficit:"], E:FormatMoney(profit - spent, style, textOnly), 1, 0, 0, 1, 1, 1)
	elseif (profit - spent) > 0 then
		DT.tooltip:AddDoubleLine(L["Profit:"], E:FormatMoney(profit - spent, style, textOnly), 0, 1, 0, 1, 1, 1)
	end

	DT.tooltip:AddLine(" ")
	DT.tooltip:AddLine(L["Character: "])

	for _, g in ipairs(dataTable) do
		DT.tooltip:AddDoubleLine(g.name == E.myname and g.name.." |TInterface\\FriendsFrame\\StatusIcon-Online:14|t" or g.name, g.amountText, g.r, g.g, g.b, 1, 1, 1)
	end

	DT.tooltip:AddLine(" ")
	DT.tooltip:AddLine(L["Server: "])
	DT.tooltip:AddDoubleLine(L["Total: "], E:FormatMoney(totalGold, style, textOnly), 1, 1, 1, 1, 1, 1)

	local name, count, currencyType, icon

	for i = 1, MAX_WATCHED_TOKENS do
		name, count, currencyType, icon = GetBackpackCurrencyInfo(i)

		if name and i == 1 then
			DT.tooltip:AddLine(" ")
			DT.tooltip:AddLine(CURRENCY..":")
		end

		if name and count then
			if currencyType == 1 then
				icon = "Interface\\PVPFrame\\PVP-ArenaPoints-Icon"
			elseif currencyType == 2 then
				icon = "Interface\\PVPFrame\\PVP-Currency-"..E.myfaction
			end

			DT.tooltip:AddDoubleLine(format(currencyString, icon, name), count, 1, 1, 1)
		end
	end

	DT.tooltip:AddLine(" ")
	DT.tooltip:AddLine(resetCountersFormatter)
	DT.tooltip:AddLine(resetDataFormatter)

	DT.tooltip:Show()
end

local function OnClick(self, btn)
	if btn == "RightButton" and IsShiftKeyDown() then
		ElvDB.gold = nil
		dataUpdated = nil
		OnEvent(self, "PLAYER_ENTERING_WORLD")
		OnEnter(self)
	elseif btn == "LeftButton" then
		if IsShiftKeyDown() then
			profit = 0
			spent = 0
			OnEnter(self)
		else
			OpenAllBags()
		end
	end
end

DT:RegisterDatatext("Gold", {"PLAYER_ENTERING_WORLD", "PLAYER_MONEY", "SEND_MAIL_MONEY_CHANGED", "SEND_MAIL_COD_CHANGED", "PLAYER_TRADE_MONEY", "TRADE_MONEY_CHANGED"}, OnEvent, nil, OnClick, OnEnter, nil, L["Gold"])