WoWInterface/Interface/AddOns/Narcissus/Initialization.lua

local NARCI_VERSION_INFO = "1.6.6";

local VERSION_DATE = 1721740000;
local CURRENT_VERSION = 10606;
local PREVIOUS_VERSION = CURRENT_VERSION;
local TIME_SINCE_LAST_UPDATE = 0;

do
    TIME_SINCE_LAST_UPDATE = ((time and time()) or (VERSION_DATE)) - VERSION_DATE;
    if TIME_SINCE_LAST_UPDATE < 0 then
        TIME_SINCE_LAST_UPDATE = 0;
    end
end


local _, addon = ...
local SettingFunctions = {};
addon.SettingFunctions = SettingFunctions;

--[[
Saved Variables:
1. NarcissusDB (primary)
2. NarciCreatureOptions (creature database)
3. NarcissusDB_PC (per character)
--]]

Narci = {};
NarciAPI = {};
NarciViewUtil = {};

local DefaultValues = {
    -- Character UI --
    DetailedIlvlInfo = true,
    IsSortedByCategory = true,                  --Title Sorting
    FontHeightItemName = 10,
    GlobalScale = 0.8,
    EnableDoubleTap = false,
    CameraOrbit = true,
    CameraSafeMode = true,
    TooltipTheme = "Bright",
    TruncateText = false,
    ItemNameWidth = 180,
    WeatherEffect = true,
    VignetteStrength = 0.5,
    LetterboxEffect = false,
    LetterboxRatio = 2,
    AFKScreen = false,
    AKFScreenDelay = false,                     --Ope Narcissus when you go afk with a delay. Move to cancel.
    UseEscapeButton = true,                     --Use Escape button to exit
    BaseLineOffset = 0,                         --Ultra-wide, adjust UI layout
    CameraTransition = true,                    --(2nd you use the Character Pane) Camera moves smoothly bewtween presets
    UseBustShot = true,                         --Zoom in to the upper torso
    ItemTooltipStyle = 1,
    ShowItemID = false,                         --Show itemID on equipment tooltip
    MissingEnchantAlert = false,                --Show alert if the item isn't enchanted

    -- Photo Mode --
    HideTextsWithUI = false,                     --Hide all texts when UI is hidden
    UseEntranceVisual = true,
    ModelPanelScale = 1,
    ShrinkArea = 0,                             --Reduce the width of the area where you can control the model
    AutoPlayAnimation = false,                  --Play recommended animation when clicking a spell visual entry
    OutfitSortMethod = "name",                  --Filter for sorting outfits: (name alphabet/recently visited)
    LoopAnimation = false,                      --Photo Mode Loop Animation
    SpeedyScreenshotAlert = true,               --Make "Screen Captured" message disappear faster

    -- Dressing Room --
    DressingRoom = true,                        --Enable dressing room module
    DressingRoomUseTargetModel = true,          --Replace the the dressing room room with your targeted player
    DressingRoomIncludeItemID = false,          --Show Item ID in the clipboard
    DressingRoomShowIconSelect = false,         --Display a list of icons when saving a new outfit

    -- Minimap Button --
    ShowMinimapButton = true,
    FadeButton = false,
    ShowModulePanelOnMouseOver = true,          --Mouseover to show Module panel while mouseover minimap button
    IndependentMinimapButton = false,           --Set Minimap Button Parent to Minimap or UIParent; Handle by other addons like MBB
    AnchorToMinimap = true,                     --Anchor the mini button to Minimap

    -- Misc QoL ---
    GemManager = true,                          --Enable gem manager for Blizzard item socketing frame
    OnlyShowOwnedUpgradeItem = true,            --Filter for gems/enchant scrolls
    ConduitTooltip = false,                     --Show conduit effects of higher ranks
    SoloQueueLFRDetails = true,                 --Show LFR boss names and lockouts on GossipFrame 
    PaperDollWidget = true,                     --Show Domination/Class Set indicator on the Blizzard character pane
        PaperDollWidget_ClassSet = true,
        PaperDollWidget_Remix = true,

    -- Talent Tree --
    TalentTreeForInspection = true,
    TalentTreeForPaperDoll = false,             --True on Beta for testing
    TalentTreeForEquipmentManager = true,
    TalentTreeAnchor = 1,                       --Relative Position 1.Right 2.Bottom
    TalentTreeUseClassBackground = false,
    TalentTreeBiggerUI = false,

    -- NPC --
    SearchRelatives = false,                    --Search for NPCs with the same last name
    TranslateName = false,                      --Show NPC localized name
    NameTranslationPosition = 1,                --Show translated name on 1.tooltip 2.nameplate
    NamePlateNameOffset = 0,                    --Y Offset
    NamePlateLanguage = "enUS",                 --The localized name on NamePlate  (only one)
    TooltipLanguages = {},                      --Enabled localized names on tooltip

    -- Internal Hotkey --
    SearchRelativesHotkey = "TAB",              --The key you press to begin/cycle relative search

    -- Bag Search Suggestion --
    SearchSuggestEnable = false,
    SearchSuggestDirection = 1;                 --Below Item Search Box
    AutoFilterMail = false,
    AutoFilterAuction = false,
    AutoFilterGem = false,

    -- Quest --
    AutoDisplayQuestItem = false,
    QuestCardTheme = 1,

    -- Dragonriding --
    DragonridingTourWorldMapPin = true,         --Show Dragonriding Race location on continent map

    -- Perks Program (Trading Post) --
    TradingPostModifyDefaultPose = false,

    --# Initializationd in other files
    --["MinimapIconStyle = 1,                     --Change the icon of minimap button (Main.lua)

    --# Deprecated
    --["UseExitConfirmation = true,               --Show exit confirmation dialog upon leaving group photo mode
    --["ShowFullBody = true,                      --Show entire body in Xmog Mode
    --["AlwaysShowModel = false,                  --Related to mog mode layout
    --["DefaultLayout = 2,                        --Related to mog mode layout
    --["FadeMusic = false,
    --["AFKAutoStand = false,                     --Do /stand emote now and then when you go AFK. Cause player to stand/sit repeatedly
    --["EyeColor = 1,                             --8.3 Corruption Indicator Orange
    --["CorruptionBar = true,
    --["CorruptionTooltip = false,
    --["CorruptionTooltipModel = true,
    --["BorderTheme = "Dark",                     --No longer update the bright border theme
    --["EnableGrainEffect = false,
    --["AutoColorTheme = true,
    --["ColorChoice = 0,

    --# User Tag
    --"UserIsCurious" (user interacted with our item shop)
};


local AchievementOptions = {
    UseAsDefault = false,
    Scale = 1,
    Theme = 1,
    IncompleteFirst = true,
    ShowRedMark = false,                        --Mark achievement that was not earned by me with a red cross
    ReplaceToast = true,                        --Replace the original achievement toast
};


local TutorialMarkers = {
    "SpellVisualBrowser", "Movement", "ExitConfirmation",    --"IndependentMinimapButton" , "EquipmentSetManager"
    "NPCBrowserEntance", "NPCBrowser",
    "WeaponBrowser",
};

local DB;

local function LoadDatabase()
    NarcissusDB = NarcissusDB or {};                            --Account-wide Variables
    DB = NarcissusDB;

    NarciCreatureOptions = NarciCreatureOptions or {};          --Creature Database
    NarciAchievementOptions = NarciAchievementOptions or {};    --Achievement Settings

    NarcissusDB_PC = NarcissusDB_PC or {};                      --Character-specific Variables
    NarcissusDB_PC.EquipmentSetDB = NarcissusDB_PC.EquipmentSetDB or {};

    DB.MinimapButton = DB.MinimapButton or {};
    DB.MinimapButton.Position = DB.MinimapButton.Position or math.rad(150);     --From 3 O'clock, counter-clockwise


    --Migrate deprecated variables
    if DB.HideTextsWithUI == nil then
        if DB.PhotoModeButton and DB.PhotoModeButton.HideTexts ~= nil then
            DB.HideTextsWithUI = DB.PhotoModeButton.HideTexts;
        end
    end


    ---- Preference ----
    local type = type;

    for k, v in pairs(DefaultValues) do
        if DB[k] == nil or type(DB[k]) ~= type(v) then
            DB[k] = v;
        end
    end


    ---- Achievement Data ----
    for k, v in pairs(AchievementOptions) do
        if NarciAchievementOptions[k] == nil then
            NarciAchievementOptions[k] = v;
        end
    end


    ---- Per Character ----
    if NarcissusDB_PC.UseAlias == nil then
        NarcissusDB_PC.UseAlias = false;
    end

    if NarcissusDB_PC.PlayerAlias == nil then
        NarcissusDB_PC.PlayerAlias = "";
    end


    ---- Tutorial Markers ----
    DB.Tutorials = DB.Tutorials or {};
    local Tutorials = DB.Tutorials;
    for _, v in pairs(TutorialMarkers) do
        if Tutorials[v] == nil then
            Tutorials[v] = true;   --True ~ will show tutorial
        end
    end


    ---- Addon Update Info ----
    if (not DB.Version) or (type(DB.Version) ~= "number") then    --Used for showing patch notes when opening Narcissus after an update
        DB.Version = 10000;
    end

    if CURRENT_VERSION > DB.Version then
        PREVIOUS_VERSION = DB.Version;
        --wake SplashFrame
    end

    if not DB.installTime or type(DB.installTime) ~= "number" then
        DB.installTime = (time and time()) or VERSION_DATE;
    end

    DefaultValues = nil;
    AchievementOptions = nil;
    TutorialMarkers = nil;

    if DB.SearchRelatives or DB.TranslateName then
        C_Timer.After(0, function()
            C_AddOns.LoadAddOn("Narcissus_Database_NPC");
        end)
    end

    if DB.SearchSuggestEnable then
        C_Timer.After(0, function()
            C_AddOns.LoadAddOn("Narcissus_BagFilter");
        end)
    end

    ---- Photo Mode Saves (Experimental) ----
    NarciPhotoModeDB = NarciPhotoModeDB or {};
end

local function LoadSettings()
    if not NarcissusDB then
        LoadDatabase();
    end

    for _, func in pairs(SettingFunctions) do
        func(nil, DB);
    end

    C_Timer.After(0.08, function()
        collectgarbage("collect");
    end)
end



local CallbackRegistry = {};
CallbackRegistry.events = {};
addon.CallbackRegistry = CallbackRegistry;

do
    local tinsert = table.insert;
    local type = type;
    local ipairs = ipairs;

    function CallbackRegistry:Register(event, func, owner)
        if not self.events[event] then
            self.events[event] = {};
        end

        local callbackType;

        --callbackType:
        --1. Function func(owner)
        --2. Method owner:func()

        if type(func) == "string" then
            callbackType = 2;
        else
            callbackType = 1;
        end

        tinsert(self.events[event], {callbackType, func, owner});
    end

    function CallbackRegistry:Trigger(event, ...)
        if self.events[event] then
            for _, cb in ipairs(self.events[event]) do
                if cb[1] == 1 then
                    if cb[3] then
                        cb[2](cb[3], ...);
                    else
                        cb[2](...);
                    end
                else
                    cb[3][cb[2]](cb[3], ...);
                end
            end
        end
    end
end


local function AddCallback_FirstEnteringWorld(callback)
    CallbackRegistry:Register("PLAYER_ENTERING_WORLD", callback);
end
addon.AddInitializationCallback = AddCallback_FirstEnteringWorld;

local function AddCallback_LoadingComplete(callback)
    CallbackRegistry:Register("LOADING_SCREEN_DISABLED", callback);
end
addon.AddLoadingCompleteCallback = AddCallback_LoadingComplete;


local Initialization = CreateFrame("Frame");
Initialization:RegisterEvent("ADDON_LOADED");
Initialization:RegisterEvent("PLAYER_ENTERING_WORLD");
Initialization:RegisterEvent("LOADING_SCREEN_DISABLED");

Initialization:SetScript("OnEvent",function(self,event,...)
    if event == "ADDON_LOADED" then
        local name = ...
        if name == "Narcissus" then
            self:UnregisterEvent(event);
            LoadDatabase();
        end
        return

    elseif event == "PLAYER_ENTERING_WORLD" then
        self:UnregisterEvent(event);
        LoadSettings();
        CallbackRegistry:Trigger(event);

    elseif event == "LOADING_SCREEN_DISABLED" then
        self:UnregisterEvent(event);

        C_Timer.After(1, function()
            CallbackRegistry:Trigger(event);
            self:SetScript("OnEvent", nil);
        end)
    end
end);


local function GetAddOnVersionInfo(versionOnly)
    if versionOnly then
        return NARCI_VERSION_INFO
    end

    local dateString;
    local timeString = date("%d %m %y", VERSION_DATE);
    local day, month, year = string.split(" ", timeString);

    if day and month and year then
        day = tonumber(day);
        month = tonumber(month);
        year = tonumber(year);
        dateString = (FormatShortDate and FormatShortDate(day, month, year)) or (string.join("/", day, month, year));
    end

    -- time since last update
    local timeDiff;
    local days = math.floor(TIME_SINCE_LAST_UPDATE / 86400 + 0.5);
    if days > 2 then
        if days < 60 then
            timeDiff = string.format(Narci.L["Format Days Ago"], days);
        else
            local months = math.floor(days / 30.5 + 0.5);
            timeDiff = string.format(Narci.L["Format Months Ago"], months);
        end
    else
        timeDiff = string.lower(KBASE_RECENTLY_UPDATED or "recently updated");
    end

    return NARCI_VERSION_INFO, dateString, timeDiff
end

NarciAPI.GetAddOnVersionInfo = GetAddOnVersionInfo;


do
    local version, _, _, tocVersion = GetBuildInfo();
    local expansionID = string.match(version, "(%d+)%.");
	local isDF = (tonumber(expansionID) or 1) >= 10;

    if not tocVersion then
        tocVersion = 100000;
    end

    tocVersion = tonumber(tocVersion);

    local function IsDragonflight()
        return isDF
    end
    addon.IsDragonflight = IsDragonflight;

    local tooltipInfoVersion;

    if isDF then
        if tocVersion >= 100100 then
            tooltipInfoVersion = 2;
        else
            tooltipInfoVersion = 1;
        end
    else
        tooltipInfoVersion = 0;
    end

    local function GetTooltipInfoVersion()
        return tooltipInfoVersion
    end
    addon.GetTooltipInfoVersion = GetTooltipInfoVersion;


    local function IsTOCVersionEqualOrNewerThan(v)
        return tocVersion >= v
    end

    addon.IsTOCVersionEqualOrNewerThan = IsTOCVersionEqualOrNewerThan;
end


do
    -- Module activated in specific zones:
    ---- Primodial Stones: Auto Socket
    ---- Soridormi Friendship Bar

    local GetBestMapForUnit = C_Map.GetBestMapForUnit;
    local controller;
    local modules;
    local lastMapID, total;

    local ZoneTriggeredModuleMixin = {};

    ZoneTriggeredModuleMixin.validMaps = {};
    ZoneTriggeredModuleMixin.enabled = false;

    local function DoNothing()
    end

    ZoneTriggeredModuleMixin.onEnabledCallback = DoNothing;
    ZoneTriggeredModuleMixin.onDisabledCallback = DoNothing;

    function ZoneTriggeredModuleMixin:IsZoneValid(uiMapID)
        return self.validMaps[uiMapID]
    end

    function ZoneTriggeredModuleMixin:SetValidZones(...)
        self.validMaps = {};
        for i = 1, select("#", ...) do
            local uiMapID = select(i, ...);
            self.validMaps[uiMapID] = true;
        end
    end

    function ZoneTriggeredModuleMixin:EnableModule()
        if not self.enabled then
            self.enabled = true;
            self.onEnabledCallback();
        end
    end

    function ZoneTriggeredModuleMixin:DisableModule()
        if self.enabled then
            self.enabled = false;
            self.onDisabledCallback();
        end
    end

    function ZoneTriggeredModuleMixin:SetOnEnabledCallback(callback)
        self.onEnabledCallback = callback;
    end

    function ZoneTriggeredModuleMixin:SetOnDisabledCallback(callback)
        self.onDisabledCallback = callback;
    end

    local function AddZoneModules(module)
        if not controller then
            controller = CreateFrame("Frame");
            modules = {};
            total = 0;

            controller:SetScript("OnEvent", function(f, event, ...)
                local mapID = GetBestMapForUnit("player");

                if mapID and mapID ~= lastMapID then
                    lastMapID = mapID;
                else
                    return
                end

                for i = 1, total do
                    if modules[i]:IsZoneValid(mapID) then
                        modules[i]:EnableModule();
                    else
                        modules[i]:DisableModule();
                    end
                end
            end);

            controller:RegisterEvent("ZONE_CHANGED_NEW_AREA");
            controller:RegisterEvent("PLAYER_ENTERING_WORLD");
        end

        table.insert(modules, module);
        total = total + 1;
    end

    local function CreateZoneTriggeredModule()
        local module = {};

        for k, v in pairs(ZoneTriggeredModuleMixin) do
            module[k] = v;
        end

        AddZoneModules(module);

        return module
    end

    addon.CreateZoneTriggeredModule = CreateZoneTriggeredModule;
end


do  --DB Settings
    local function IsModuleEnabled(dbKey)
        if dbKey then
            return DB[dbKey] == true
        else
            return false
        end
    end
    addon.IsModuleEnabled = IsModuleEnabled;
end