ver. 1.0.0

First running version working.
2026-09-05 22:09:35 +01:00
parent aa9411c99c
commit 4156c430fa
7 changed files with 3310 additions and 0 deletions
@@ -0,0 +1,916 @@
+------------------------------------------------------------
+-- pfUI-DQB
+-- modules/gossipquest.lua
+--
+-- DQB customization for pfUI Gossip & Quest dialogs.
+--
+-- pfUI remains responsible for:
+--   - Main frame
+--   - Frame backdrop
+--   - Close button
+--   - Movement
+--   - Buttons
+--   - General pfUI appearance
+--
+-- DQB changes:
+--   - Text colors
+--   - Gossip option colors
+--   - Quest text colors
+--   - Quest/Gossip parchment background
+------------------------------------------------------------
+
+local DQB = pfUI and pfUI.dqb
+
+if not DQB then
+    return
+end
+
+
+DQB:RegisterModule("gossipquest", function()
+
+    --------------------------------------------------------
+    -- Configuration
+    --------------------------------------------------------
+
+    if not DQB:IsModuleEnabled("gossipquest") then
+        return
+    end
+
+
+    --------------------------------------------------------
+    -- Helpers
+    --------------------------------------------------------
+
+    local function SetWhite(text)
+
+        if not text then
+            return
+        end
+
+        text:SetTextColor(
+            1,
+            1,
+            1,
+            1
+        )
+
+        text:SetShadowColor(
+            0,
+            0,
+            0,
+            1
+        )
+
+        text:SetShadowOffset(
+            1,
+            -1
+        )
+
+    end
+
+
+    local function SetGold(text)
+
+        if not text then
+            return
+        end
+
+        text:SetTextColor(
+            1,
+            0.82,
+            0,
+            1
+        )
+
+        text:SetShadowColor(
+            0,
+            0,
+            0,
+            1
+        )
+
+        text:SetShadowOffset(
+            1,
+            -1
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Gossip / Quest option buttons
+    --------------------------------------------------------
+
+    local function SetButtonWhite(button)
+
+        if not button then
+            return
+        end
+
+
+        local text = button:GetFontString()
+
+        if text then
+            SetWhite(text)
+        end
+
+
+        if button.normalText then
+            SetWhite(button.normalText)
+        end
+
+
+        if button.highlightText then
+            SetWhite(button.highlightText)
+        end
+
+
+        if button.disabledText then
+            SetWhite(button.disabledText)
+        end
+
+
+        local regions = {
+            button:GetRegions()
+        }
+
+
+        for _, region in pairs(regions) do
+
+            if region
+            and region:GetObjectType() == "FontString" then
+
+                SetWhite(region)
+
+            end
+
+        end
+
+    end
+
+
+    local function SetGossipButtonsWhite()
+
+        for i = 1, 32 do
+
+            SetButtonWhite(
+                _G["GossipTitleButton" .. i]
+            )
+
+            SetButtonWhite(
+                _G["QuestTitleButton" .. i]
+            )
+
+        end
+
+    end
+
+
+    --------------------------------------------------------
+    -- Dynamic quest section titles
+    --------------------------------------------------------
+
+    local function SetQuestObjectivesTitleGold(frame)
+
+        if not frame then
+            return
+        end
+
+
+        local regions = {
+            frame:GetRegions()
+        }
+
+
+        for _, region in pairs(regions) do
+
+            if region
+            and region:GetObjectType() == "FontString" then
+
+                local text = region:GetText()
+
+                if text then
+
+                    local lower =
+                        string.lower(text)
+
+
+                    if string.find(
+                        lower,
+                        "quest objectives"
+                    )
+                    or lower == "objectives:"
+                    or lower == "objectives" then
+
+                        SetGold(region)
+
+                    end
+
+                end
+
+            end
+
+        end
+
+
+        local children = {
+            frame:GetChildren()
+        }
+
+
+        for _, child in pairs(children) do
+            SetQuestObjectivesTitleGold(child)
+        end
+
+    end
+
+
+    local function SetQuestRewardsTitleGold(frame)
+
+        if not frame then
+            return
+        end
+
+
+        local regions = {
+            frame:GetRegions()
+        }
+
+
+        for _, region in pairs(regions) do
+
+            if region
+            and region:GetObjectType() == "FontString" then
+
+                local text = region:GetText()
+
+                if text then
+
+                    local lower =
+                        string.lower(text)
+
+
+                    if lower == "rewards"
+                    or lower == "rewards:" then
+
+                        SetGold(region)
+
+                    end
+
+                end
+
+            end
+
+        end
+
+
+        local children = {
+            frame:GetChildren()
+        }
+
+
+        for _, child in pairs(children) do
+            SetQuestRewardsTitleGold(child)
+        end
+
+    end
+
+
+    --------------------------------------------------------
+    -- Quest text
+    --------------------------------------------------------
+
+    local function SetQuestTextWhite()
+
+        SetGold(QuestTitleText)
+        SetGold(QuestProgressTitleText)
+        SetGold(QuestRewardTitleText)
+        SetGold(QuestProgressRequiredItemsText)
+
+        SetWhite(QuestDescriptionText)
+        SetWhite(QuestProgressText)
+        SetWhite(QuestProgressRequiredMoneyText)
+        SetWhite(QuestRewardText)
+        SetWhite(QuestRewardRewardTitleText)
+        SetWhite(QuestRewardItemChooseText)
+        SetWhite(QuestRewardItemReceiveText)
+        SetWhite(QuestRewardSpellLearnText)
+        SetWhite(QuestDetailItemReceiveText)
+        SetWhite(QuestDetailSpellLearnText)
+
+        SetWhite(GreetingText)
+        SetWhite(GossipGreetingText)
+        SetWhite(CurrentQuestsText)
+        SetWhite(AvailableQuestsText)
+
+        SetWhite(QuestObjectiveText)
+        SetWhite(QuestObjectivesText)
+        SetWhite(QuestObjectiveTitleText)
+        SetWhite(QuestObjectivesTitleText)
+
+        SetWhite(QuestFrameNpcNameText)
+        SetWhite(GossipFrameNpcNameText)
+
+        SetGossipButtonsWhite()
+
+        SetQuestObjectivesTitleGold(QuestFrame)
+        SetQuestObjectivesTitleGold(GossipFrame)
+
+        SetQuestRewardsTitleGold(QuestFrame)
+        SetQuestRewardsTitleGold(GossipFrame)
+
+    end
+
+
+    --------------------------------------------------------
+    -- Parchment replacement
+    --
+    -- This is intentionally based on the working pfUI
+    -- Gossip & Quest skin.
+    --
+    -- We do NOT modify the main frame.
+    --------------------------------------------------------
+
+    local function ApplyParchment(frameName, panelName)
+
+        local frame =
+            _G[frameName .. "Frame"]
+
+
+        if not frame then
+            return
+        end
+
+
+        local frameNameFull =
+            frame:GetName()
+
+
+        local panel =
+            _G[
+                frameNameFull
+                .. panelName
+                .. "Panel"
+            ]
+
+
+        if not panel then
+            return
+        end
+
+
+        local fname =
+            frameNameFull
+            .. panelName
+            .. "Panel"
+
+
+        local scroll =
+            _G[
+                frameName
+                .. panelName
+                .. "ScrollFrame"
+            ]
+
+
+        if not scroll then
+            return
+        end
+
+
+        ----------------------------------------------------
+        -- Use the exact pfUI API.
+        ----------------------------------------------------
+
+        if pfUI.api
+        and pfUI.api.StripTextures then
+
+            pfUI.api.StripTextures(
+                panel
+            )
+
+        end
+
+
+        ----------------------------------------------------
+        -- Black background
+        ----------------------------------------------------
+
+        local bg =
+            scroll.dqbParchmentBackground
+
+
+        if not bg then
+
+            bg =
+                scroll:CreateTexture(
+                    nil,
+                    "LOW"
+                )
+
+
+            bg:SetAllPoints()
+
+            scroll.dqbParchmentBackground =
+                bg
+
+        end
+
+
+        bg:SetTexture(
+            0,
+            0,
+            0,
+            0.10
+        )
+
+
+        ----------------------------------------------------
+        -- Blizzard parchment material textures
+        ----------------------------------------------------
+
+        local topLeft =
+            _G[fname .. "MaterialTopLeft"]
+
+        local topRight =
+            _G[fname .. "MaterialTopRight"]
+
+        local botLeft =
+            _G[fname .. "MaterialBotLeft"]
+
+        local botRight =
+            _G[fname .. "MaterialBotRight"]
+
+
+        ----------------------------------------------------
+        -- Top left
+        ----------------------------------------------------
+
+        if topLeft then
+
+            topLeft.SetTexture =
+                function()
+
+                    bg:SetTexture(
+                        0,
+                        0,
+                        0,
+                        0.10
+                    )
+
+                end
+
+
+            topLeft.Hide =
+                function()
+
+                    bg:SetTexture(
+                        0,
+                        0,
+                        0,
+                        0.10
+                    )
+
+                end
+
+
+            topLeft.Show =
+                function()
+                    return
+                end
+
+
+            topLeft:Hide()
+
+        end
+
+
+        ----------------------------------------------------
+        -- Top right
+        ----------------------------------------------------
+
+        if topRight then
+
+            topRight.Show =
+                function()
+                    return
+                end
+
+
+            topRight:Hide()
+
+        end
+
+
+        ----------------------------------------------------
+        -- Bottom left
+        ----------------------------------------------------
+
+        if botLeft then
+
+            botLeft.Show =
+                function()
+                    return
+                end
+
+
+            botLeft:Hide()
+
+        end
+
+
+        ----------------------------------------------------
+        -- Bottom right
+        ----------------------------------------------------
+
+        if botRight then
+
+            botRight.Show =
+                function()
+                    return
+                end
+
+
+            botRight:Hide()
+
+        end
+
+    end
+
+
+    --------------------------------------------------------
+    -- Apply all parchment panels
+    --------------------------------------------------------
+
+    local function ApplyAllParchment()
+
+        ApplyParchment(
+            "Quest",
+            "Greeting"
+        )
+
+        ApplyParchment(
+            "Quest",
+            "Detail"
+        )
+
+        ApplyParchment(
+            "Quest",
+            "Progress"
+        )
+
+        ApplyParchment(
+            "Quest",
+            "Reward"
+        )
+
+        ApplyParchment(
+            "Gossip",
+            "Greeting"
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Quest reward highlight
+    --------------------------------------------------------
+
+    local QuestRewardItemHighlight
+
+
+    if QuestRewardScrollChildFrame then
+
+        QuestRewardItemHighlight =
+            CreateFrame(
+                "Frame",
+                nil,
+                QuestRewardScrollChildFrame
+            )
+
+
+        local highlight =
+            QuestRewardItemHighlight:CreateTexture(
+                nil,
+                "OVERLAY"
+            )
+
+
+        highlight:SetTexture(
+            1,
+            1,
+            1,
+            0.20
+        )
+
+
+        highlight:SetAllPoints()
+
+
+        QuestRewardItemHighlight.bg =
+            highlight
+
+
+        QuestRewardItemHighlight:Hide()
+
+    end
+
+
+    --------------------------------------------------------
+    -- Quest reward updates
+    --------------------------------------------------------
+
+    if QuestFrameItems_Update then
+
+        hooksecurefunc(
+            "QuestFrameItems_Update",
+            function()
+
+                if QuestRewardItemHighlight then
+                    QuestRewardItemHighlight:Hide()
+                end
+
+                SetQuestTextWhite()
+                ApplyAllParchment()
+
+            end
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Quest reward item click
+    --------------------------------------------------------
+
+    if QuestRewardItem_OnClick then
+
+        hooksecurefunc(
+            "QuestRewardItem_OnClick",
+            function()
+
+                if this
+                and this.type == "choice"
+                and this.backdrop
+                and QuestRewardItemHighlight then
+
+                    QuestRewardItemHighlight:SetAllPoints(
+                        this.backdrop
+                    )
+
+                    QuestRewardItemHighlight:Show()
+
+                end
+
+            end
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Blizzard text color hooks
+    --------------------------------------------------------
+
+    if QuestFrame_SetTextColor then
+
+        hooksecurefunc(
+            "QuestFrame_SetTextColor",
+            function(text)
+
+                SetWhite(text)
+
+            end
+        )
+
+    end
+
+
+    if QuestFrame_SetTitleTextColor then
+
+        hooksecurefunc(
+            "QuestFrame_SetTitleTextColor",
+            function(text)
+
+                SetGold(text)
+
+            end
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Quest information
+    --------------------------------------------------------
+
+    if QuestInfo_Display then
+
+        hooksecurefunc(
+            "QuestInfo_Display",
+            function()
+
+                SetQuestTextWhite()
+                ApplyAllParchment()
+
+            end
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Gossip updates
+    --------------------------------------------------------
+
+    if GossipFrameUpdate then
+
+        hooksecurefunc(
+            "GossipFrameUpdate",
+            function()
+
+                SetQuestTextWhite()
+                SetGossipButtonsWhite()
+                ApplyAllParchment()
+
+            end
+        )
+
+    end
+
+
+    if GossipFrameAvailableQuestsUpdate then
+
+        hooksecurefunc(
+            "GossipFrameAvailableQuestsUpdate",
+            function()
+
+                SetGossipButtonsWhite()
+
+            end
+        )
+
+    end
+
+
+    if GossipFrameActiveQuestsUpdate then
+
+        hooksecurefunc(
+            "GossipFrameActiveQuestsUpdate",
+            function()
+
+                SetGossipButtonsWhite()
+
+            end
+        )
+
+    end
+
+
+    if GossipFrameOptionsUpdate then
+
+        hooksecurefunc(
+            "GossipFrameOptionsUpdate",
+            function()
+
+                SetGossipButtonsWhite()
+
+            end
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Quest panels
+    --------------------------------------------------------
+
+    if QuestFrameGreetingPanel_OnShow then
+
+        hooksecurefunc(
+            "QuestFrameGreetingPanel_OnShow",
+            function()
+
+                SetQuestTextWhite()
+                SetGossipButtonsWhite()
+                ApplyAllParchment()
+
+            end
+        )
+
+    end
+
+
+    if QuestFrameDetailPanel_OnShow then
+
+        hooksecurefunc(
+            "QuestFrameDetailPanel_OnShow",
+            function()
+
+                SetQuestTextWhite()
+                ApplyAllParchment()
+
+            end
+        )
+
+    end
+
+
+    if QuestFrameProgressPanel_OnShow then
+
+        hooksecurefunc(
+            "QuestFrameProgressPanel_OnShow",
+            function()
+
+                SetQuestTextWhite()
+                ApplyAllParchment()
+
+            end
+        )
+
+    end
+
+
+    if QuestFrameRewardPanel_OnShow then
+
+        hooksecurefunc(
+            "QuestFrameRewardPanel_OnShow",
+            function()
+
+                SetQuestTextWhite()
+
+                SetQuestRewardsTitleGold(
+                    QuestRewardScrollChildFrame
+                )
+
+                SetQuestRewardsTitleGold(
+                    QuestFrameRewardPanel
+                )
+
+                ApplyAllParchment()
+
+            end
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Frame OnShow hooks
+    --
+    -- These are important because pfUI can recreate/show
+    -- its material textures after the dialog is opened.
+    --------------------------------------------------------
+
+    if QuestFrame then
+
+        QuestFrame:HookScript(
+            "OnShow",
+            function()
+
+                ApplyAllParchment()
+                SetQuestTextWhite()
+
+            end
+        )
+
+    end
+
+
+    if GossipFrame then
+
+        GossipFrame:HookScript(
+            "OnShow",
+            function()
+
+                ApplyAllParchment()
+                SetQuestTextWhite()
+                SetGossipButtonsWhite()
+
+            end
+        )
+
+    end
+
+
+    --------------------------------------------------------
+    -- Initial application
+    --------------------------------------------------------
+
+    SetQuestTextWhite()
+    SetGossipButtonsWhite()
+
+
+    --------------------------------------------------------
+    -- Debug
+    --------------------------------------------------------
+
+    if DQB.Debug then
+
+        DQB:Debug(
+            "gossipquest module applied"
+        )
+
+    end
+
+end)