events.lua

local addOnName, ICT = ...

local LDBIcon = LibStub("LibDBIcon-1.0")
local LDBroker = LibStub("LibDataBroker-1.1")
local L = LibStub("AceLocale-3.0"):GetLocale("AltAnon")
local Expansion = ICT.Expansion
local log = ICT.log
local Player = ICT.Player
local Players = ICT.Players
local Options = ICT.Options
local version = GetAddOnMetadata(addOnName, "Version")
local maxPlayers, instanceId
local UI = ICT.UI

local function getOrCreateDb()
    local db = InstanceCurrencyDB or {}
    InstanceCurrencyDB = db
    ICT.putIfAbsent(db, "players", {})
    ICT.putIfAbsent(db, "options", {})
    ICT.putIfAbsent(db.options, "collapsible", {})
    db.reset = db.reset or { [1] = C_DateAndTime.GetSecondsUntilDailyReset() + GetServerTime(), [7] = C_DateAndTime.GetSecondsUntilWeeklyReset() + GetServerTime() }
    return db
end

function ICT.flipFrame()
    if ICT.frame then
        if not ICT.frame:IsVisible() then
            ICT.frame:Show()
            ICT.UpdateDisplay()
        else
            ICT.frame:Hide()
        end
    end
end

function ICT.UpdateDisplay()
    -- Update the active players timestamp of "last updated".
    Players:get().timestamp = time()
    -- Defer updating the display if it's not currently viewed or minimized.
    if ICT.frame and ICT.frame:IsVisible() and not ICT.frame.minimized then
        UI:PrintPlayers()
    end
end

local function initMinimap()
    local miniButton = LDBroker:NewDataObject(addOnName, {
        type = "launcher",
        text = L["AddOnName"],
        -- Gold Coin
        icon = "237281",
        OnClick = function(self, button)
            ICT.flipFrame()
        end,
        OnTooltipShow = function(tooltip)
            if not tooltip or not tooltip.AddLine then return end
            tooltip:AddLine(L["AddOnName"])
        end,
    })
    ICT.db.minimap = ICT.db.minimap or {}
    LDBIcon:Register(addOnName, miniButton, ICT.db.minimap)
    Options:FlipMinimapIcon()
end

local function initEvent(self, event, eventAddOn)
    -- After the LFG addon is loaded, attach our frame.
    if eventAddOn == "InstanceCurrencyTracker" then
        ICT.db = getOrCreateDb()

        local semVer = ICT.semver(ICT.db.version or "0.0.0")
        if semVer <= ICT.semver("v1.1.3") then
            ICT:print("Old version detected, reseting options to default...")
            ICT.Options:setDefaultOptions(true)
        end
        if semVer <= ICT.semver("v1.0.21") then
            ICT:print("Old version detected, wiping players. Please relog into each character.")
            ICT:WipeAllPlayers()
        end
        ICT.db.version = version

        initMinimap()
        ICT:print(L["Welcome"], version)
        ICT:print(L["Discord"])
        if GroupFinderFrame then
            GroupFinderFrame:HookScript("OnShow", function() if ICT.db.options.frame.anchorLFG then UI:PrintPlayers() ICT.frame:Show() end end)
            GroupFinderFrame:HookScript("OnHide", function() if ICT.db.options.frame.anchorLFG then ICT.frame:Hide() end end)
        end
        ICT.Comms:Init()
    end
end
local initFrame = CreateFrame("Frame")
initFrame:RegisterEvent("ADDON_LOADED")
initFrame:SetScript("OnEvent", initEvent)

local function loadClassRunes(class)
    -- Loads this character's class runes into our database. 
    local categories = C_Engraving.GetRuneCategories(false, false)
    ICT.db.runes = ICT.db.runes or {}
    for _, category in ipairs(categories) do
        -- C_Engraving.ClearCategoryFilter(category)
        local allRunes = C_Engraving.GetRunesForCategory(category, false)
        for _, rune in ipairs(allRunes) do
            local classRunes = ICT.db.runes[class] or {}
            ICT.db.runes[class] = classRunes
            classRunes[rune.skillLineAbilityID] = {
                name = rune.name,
                category = category,
                icon = rune.iconTexture
            }
        end
    end
end

local f = CreateFrame("Frame")
f:RegisterEvent("PLAYER_ENTERING_WORLD")
f:SetScript("OnEvent", function()
    -- If necessary, create the current player. Handled by the function.
    -- Do this here to ensure the player is created before expansion information is initiated and options are created.
    local player = Players:create()
    ICT.Expansion.init()
    ICT.Options:setDefaultOptions()
    Players:loadAll()
    -- Set this used to initialize throttling.
    ICT.selectedPlayer = player.fullName
    Players:get():onLoad()
    ICT.UI:CreateFrame()
    ICT:UpdateDisplay()

    _ = Expansion.isVanilla() and loadClassRunes(player.class)
end)

local updateFrame = CreateFrame("Frame")
-- After the instance info is updated then trigger updates to our representation.
-- This forces encounters to be updated, there seems to be some delay after encounter_end...
updateFrame:RegisterEvent("UPDATE_INSTANCE_INFO")
-- After an enounter update information for the instance.
updateFrame:RegisterEvent("ENCOUNTER_END")
-- After currency changes we need to update the wallet.
updateFrame:RegisterEvent("CURRENCY_DISPLAY_UPDATE")
-- Level 80 characters will appear.
updateFrame:RegisterEvent("PLAYER_LEVEL_UP")
-- Added for updating prerequisites and marking dailies done.
-- Quest Finished seems to be just like Quest Complete and fires before Accept.
updateFrame:RegisterEvent("QUEST_FINISHED")
updateFrame:RegisterEvent("QUEST_LOG_UPDATE")
updateFrame:SetScript("OnEvent", ICT:throttleFunction("Instance/Currency", 0, Player.update, ICT.UpdateDisplay))

local moneyFrame = CreateFrame("Frame")
moneyFrame:RegisterEvent("PLAYER_MONEY")
moneyFrame:SetScript("OnEvent", ICT:throttleFunction("Money", 2, Player.updateMoney, ICT.UpdateDisplay))

local professionFrame = CreateFrame("Frame")
-- Individual skill ups.
professionFrame:RegisterEvent("CHAT_MSG_SKILL")
-- Learning a new skill or raising a skill from Journeyman to Master. 
professionFrame:RegisterEvent("SKILL_LINES_CHANGED")
professionFrame:SetScript("OnEvent", ICT:throttleFunction("Professions", 3, Player.updateProfessions, ICT.UpdateDisplay))

local weaponSkillFrame = CreateFrame("Frame")
-- Individual skill ups.
weaponSkillFrame:RegisterEvent("CHAT_MSG_SKILL")
-- Learning a new skill.
weaponSkillFrame:RegisterEvent("SKILL_LINES_CHANGED")
weaponSkillFrame:SetScript("OnEvent", ICT:throttleFunction("Professions", 3, Player.updateWeaponSkills, ICT.UpdateDisplay))

local tradeSkillFrame = CreateFrame("Frame")
tradeSkillFrame:RegisterEvent("TRADE_SKILL_SHOW")
tradeSkillFrame:RegisterEvent("CRAFT_SHOW")
tradeSkillFrame:SetScript("OnEvent", ICT:throttleFunction("Skills", 0.5, Player.updateTradeSkills, ICT.UpdateDisplay))

-- Delay update for new level, or using points until player is finished.
local talentFrame = CreateFrame("Frame")
talentFrame:RegisterEvent("CHARACTER_POINTS_CHANGED")
-- talentFrame:RegisterEvent("PLAYER_TALENT_UPDATE")
talentFrame:SetScript("OnEvent", ICT:throttleFunction("Talent", 3, Player.updateTalents, ICT.UpdateDisplay))

-- Update immediately after spec change.
talentFrame = CreateFrame("Frame")
talentFrame:RegisterEvent("ACTIVE_TALENT_GROUP_CHANGED")
talentFrame:SetScript("OnEvent", ICT:throttleFunction("Talent", 0, Player.updateTalents, ICT.UpdateDisplay))

local petFrame = CreateFrame("Frame")
-- Bunch of different things to try to get a pet loaded.
petFrame:RegisterEvent("UNIT_PET")
petFrame:RegisterEvent("UNIT_PET_TRAINING_POINTS")
petFrame:RegisterEvent("ACTIVE_TALENT_GROUP_CHANGED")
petFrame:RegisterEvent("PET_TALENT_UPDATE")
petFrame:RegisterEvent("PET_BAR_UPDATE")
petFrame:RegisterEvent("LOCALPLAYER_PET_RENAMED")
petFrame:SetScript("OnEvent", ICT:throttleFunction("Talent", 3, Player.updatePets, ICT.UpdateDisplay))

local glyphFrame = CreateFrame("Frame")
glyphFrame:RegisterEvent("ACTIVATE_GLYPH")
glyphFrame:SetScript("OnEvent", ICT:throttleFunction("Glyph", 1, Player.updateGlyphs, ICT.UpdateDisplay))

local gearFrame = CreateFrame("Frame")
gearFrame:RegisterEvent("PLAYER_EQUIPMENT_CHANGED")
gearFrame:RegisterEvent("SOCKET_INFO_SUCCESS")
gearFrame:RegisterEvent("UPDATE_INVENTORY_DURABILITY")
gearFrame:SetScript("OnEvent", ICT:throttleFunction("Gear", 3, Player.updateGear, ICT.UpdateDisplay))

local bagFrame = CreateFrame("Frame")
bagFrame:RegisterEvent("BAG_UPDATE")
bagFrame:SetScript("OnEvent", ICT:throttleFunction("Bag", 1, Player.updateBags, ICT.UpdateDisplay))

-- Requires viewing the bank to update.
-- Executes immediately after closing instead of delaying.
local bankBagFrame = CreateFrame("Frame")
bankBagFrame:RegisterEvent("BANKFRAME_CLOSED")
bankBagFrame:RegisterEvent("BANKFRAME_OPENED")
-- Don't throttle but use the is db init check.
bankBagFrame:SetScript("OnEvent", ICT:throttleFunction("BankBag", 0, Player.updateBankBags, ICT.UpdateDisplay))

local guildFrame = CreateFrame("Frame")
guildFrame:RegisterEvent("PLAYER_GUILD_UPDATE")
-- Don't throttle but use the is db init check.
guildFrame:SetScript("OnEvent", ICT:throttleFunction("Guild", 0, Player.updateGuild, ICT.UpdateDisplay))

local xpFrame = CreateFrame("Frame")
xpFrame:RegisterEvent("PLAYER_XP_UPDATE")
xpFrame:SetScript("OnEvent", ICT:throttleFunction("XP", 2, Player.updateXP, ICT.UpdateDisplay))

local restFrame = CreateFrame("Frame")
restFrame:RegisterEvent("PLAYER_UPDATE_RESTING")
restFrame:RegisterEvent("ZONE_CHANGED_NEW_AREA")
-- Don't throttle but use the is db init check.
restFrame:SetScript("OnEvent", ICT:throttleFunction("Rest", 0, Player.updateResting, ICT.UpdateDisplay))

-- If durability changed or equipment was swapped update the equipped durability.
local durabilityFrame = CreateFrame("Frame")
durabilityFrame:RegisterEvent("UPDATE_INVENTORY_DURABILITY")
durabilityFrame:RegisterEvent("PLAYER_EQUIPMENT_CHANGED")
durabilityFrame:SetScript("OnEvent", ICT:throttleFunction("Durability", .5, Player.updateDurability, ICT.UpdateDisplay))

local cooldownFrame = CreateFrame("Frame")
cooldownFrame:RegisterEvent("BAG_UPDATE_COOLDOWN")
cooldownFrame:SetScript("OnEvent", ICT:throttleFunction("Cooldowns", 0, Player.updateCooldowns, ICT.UpdateDisplay))

-- We can't update the color of instances until we know we've been queued or dequeued.
-- So this simply updates the page performing no function.
local queueFrame = CreateFrame("Frame")
queueFrame:RegisterEvent("LFG_LIST_ACTIVE_ENTRY_UPDATE")
queueFrame:SetScript("OnEvent", ICT:throttleFunction("Cooldowns", 0, function() end, ICT.UpdateDisplay))

local reputationFrame = CreateFrame("Frame")
reputationFrame:RegisterEvent("UPDATE_FACTION")
reputationFrame:SetScript("OnEvent", ICT:throttleFunction("Reputation", 5, Player.updateReputation, ICT.UpdateDisplay))

if Expansion.isVanilla() then
    local runesFrame = CreateFrame("Frame")
    runesFrame:RegisterEvent("RUNE_UPDATED")
    runesFrame:SetScript("OnEvent", ICT:throttleFunction("Runes", 1, Player.updateRunes, ICT.UpdateDisplay))

    local buffFrame = CreateFrame("Frame")
    buffFrame:RegisterEvent("UNIT_AURA")
    buffFrame:SetScript("OnEvent", function(self, event, unit, info)
        -- The info parameter isn't available in era. So we have to full scan aura's every time.
        if unit == "player" then
            ICT:throttleFunction("WorldBuffs", 5, Player.updateWorldBuffs, ICT.UpdateDisplay)()
        end
    end)

    local consumeFrame = CreateFrame("Frame")
    consumeFrame:RegisterEvent("BAG_UPDATE")
    consumeFrame:SetScript("OnEvent", ICT:throttleFunction("Consumes", 5, Player.updateConsumes, ICT.UpdateDisplay))
end

-- message and add option
local function messageResults(player, instance)
    -- Only broadcast if we are locked and collected something...
    if instance and instance.locked then
        log.debug("broadcast: announcing")
        -- Double check amounts before messaging.
        -- It seems WOW may process oddly.
        player:update()
        ICT:UpdateDisplay()
        for currency, _ in ICT:spairs(instance:currencies()) do

            -- Onyxia 40 is reused and has 0 emblems so skip currency.
            local max = instance:maxCurrency(currency)
            if currency:isVisible() and max ~= 0 then
                local available = instance:availableCurrency(currency)
                local collected = max - available
                local total = player:totalCurrency(currency)
                ICT:print("%s, collected %s of %s [%s]", currency:getName(), collected, max, total)
            end
        end
    elseif instance then
        log.debug("broadcast: no lock")
    else
        log.debug("broadcast: no instance")
    end
end
local broadcastEvent = function()
    if maxPlayers and instanceId then
        local player = Players:get()
        local instance = player:getInstance(instanceId, maxPlayers)
        messageResults(player, instance)
    end
    _, _, _, _, maxPlayers, _, _, instanceId = GetInstanceInfo()
end
local broadcastFrame = CreateFrame("Frame")
broadcastFrame:RegisterEvent("ZONE_CHANGED_NEW_AREA")
broadcastFrame:SetScript("OnEvent", broadcastEvent)
-- On reload set the instance.
C_Timer.After(0.5, broadcastEvent)