local Money = _G.CreateFrame("Frame", "StatBlock_Money")
Money.obj = _G.LibStub("LibDataBroker-1.1"):NewDataObject("Money")

local L_GOLD = "g"
local L_SILVER = "s"
local L_COPPER = "c"

local COLOR_WHITE = "ffffff"
local COLOR_COPPER = "eda55f"
local COLOR_SILVER = "c7c7cf"
local COLOR_GOLD = "ffd700"

local L = GetLocale()
if L == "frFR" then
	L_GOLD = "o"
	L_SILVER = "a"
	L_COPPER = "c"
end

Money:SetScript("OnEvent", function()
	local current = _G.GetMoney()
	local gold = floor(current / 10000)
	local silver = floor((current - (gold * 10000)) / 100)
	local copper = mod(current, 100)
	
	local negl = ""
	local color = COLOR_WHITE

	Money.obj.text = format("|cff%s%s%d|r|cff%s%s|r |cff%s%d|r|cff%s%s|r |cff%s%d|r|cff%s%s|r", color, negl, gold, COLOR_GOLD, L_GOLD, color, silver, COLOR_SILVER, L_SILVER, color, copper, COLOR_COPPER, L_COPPER)
end)

Money:RegisterEvent("PLAYER_MONEY")
Money:RegisterEvent("PLAYER_TRADE_MONEY")
Money:RegisterEvent("TRADE_MONEY_CHANGED")
Money:RegisterEvent("SEND_MAIL_MONEY_CHANGED")
Money:RegisterEvent("SEND_MAIL_COD_CHANGED")
Money:RegisterEvent("PLAYER_LOGIN")