You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
335 lines
9.6 KiB
335 lines
9.6 KiB
--- Kaliel's Tracker
|
|
--- Copyright (c) 2012-2024, Marouan Sabbagh <mar.sabbagh@gmail.com>
|
|
--- All Rights Reserved.
|
|
---
|
|
--- This file is part of addon Kaliel's Tracker.
|
|
|
|
local addonName, KT = ...
|
|
local M = KT:NewModule(addonName.."_ActiveButton")
|
|
KT.ActiveButton = M
|
|
|
|
local _DBG = function(...) if _DBG then _DBG("KT", ...) end end
|
|
|
|
-- WoW API
|
|
local _G = _G
|
|
local InCombatLockdown = InCombatLockdown
|
|
|
|
local db, dbChar
|
|
local KTF = KT.frame
|
|
|
|
local eventFrame
|
|
local activeFrame, abutton
|
|
local blizzardButtonIconID = 0
|
|
|
|
local isBartender, isElvui, isTukui = false, false, false
|
|
|
|
--------------
|
|
-- Internal --
|
|
--------------
|
|
|
|
local function UpdateHotkey()
|
|
local key = GetBindingKey("EXTRAACTIONBUTTON1")
|
|
local button = KTF.ActiveButton
|
|
local hotkey = button.HotKey
|
|
local hotkeyExtra = ExtraActionButton1.HotKey
|
|
local text = db.qiActiveButtonBindingShow and GetBindingText(key, 1) or ""
|
|
ClearOverrideBindings(button)
|
|
if key then
|
|
hotkeyExtra:SetText(RANGE_INDICATOR)
|
|
hotkeyExtra:Hide()
|
|
SetOverrideBindingClick(button, false, key, button:GetName())
|
|
end
|
|
if text == "" then
|
|
hotkey:SetText(RANGE_INDICATOR)
|
|
hotkey:Hide()
|
|
else
|
|
hotkey:SetText(text)
|
|
hotkey:Show()
|
|
end
|
|
end
|
|
|
|
local function RemoveHotkey(button)
|
|
local key = GetBindingKey("EXTRAACTIONBUTTON1")
|
|
local hotkeyExtra = ExtraActionButton1.HotKey
|
|
if key then
|
|
hotkeyExtra:SetText(GetBindingText(key, 1))
|
|
hotkeyExtra:Show()
|
|
ClearOverrideBindings(button)
|
|
end
|
|
end
|
|
|
|
local function ActiveFrame_SetPosition()
|
|
local point, relativeTo, relativePoint, xOfs, yOfs = "BOTTOM", UIParent, "BOTTOM", 0, 285
|
|
if db.qiActiveButtonPosition then
|
|
point, relativeTo, relativePoint, xOfs, yOfs = unpack(db.qiActiveButtonPosition)
|
|
else
|
|
if isBartender then
|
|
yOfs = yOfs - 40
|
|
elseif isElvui then
|
|
yOfs = yOfs -14
|
|
elseif isTukui then
|
|
yOfs = yOfs + 26
|
|
end
|
|
end
|
|
KT:protStop("ClearAllPoints", activeFrame)
|
|
KT:protStop("SetPoint", activeFrame, point, relativeTo, relativePoint, xOfs, yOfs)
|
|
end
|
|
|
|
local function ActiveFrame_Hide()
|
|
if activeFrame:IsShown() then
|
|
activeFrame:Hide()
|
|
RemoveHotkey(abutton)
|
|
end
|
|
end
|
|
|
|
local function UpdateBlizzardButtonIconID()
|
|
local iconID = 0
|
|
if HasExtraActionBar() then
|
|
local button = ExtraActionBarFrame.button
|
|
local actionType, id = GetActionInfo(button.action)
|
|
if actionType == "spell" then
|
|
iconID = C_Spell.GetSpellTexture(id)
|
|
end
|
|
end
|
|
blizzardButtonIconID = iconID
|
|
end
|
|
|
|
local function SetFrames()
|
|
-- Event frame
|
|
if not eventFrame then
|
|
eventFrame = CreateFrame("Frame")
|
|
eventFrame:SetScript("OnEvent", function(self, event, arg1)
|
|
_DBG("Event - "..event, true)
|
|
if event == "QUEST_WATCH_LIST_CHANGED" or
|
|
event == "ZONE_CHANGED" or
|
|
event == "QUEST_POI_UPDATE" then
|
|
M:Update()
|
|
elseif event == "UPDATE_EXTRA_ACTIONBAR" then
|
|
UpdateBlizzardButtonIconID()
|
|
M:Update()
|
|
elseif event == "UPDATE_BINDINGS" then
|
|
if activeFrame:IsShown() then
|
|
UpdateHotkey()
|
|
end
|
|
elseif event == "PET_BATTLE_OPENING_START" then
|
|
KT:prot("Hide", activeFrame)
|
|
elseif event == "PET_BATTLE_CLOSE" then
|
|
M:Update()
|
|
end
|
|
end)
|
|
end
|
|
eventFrame:RegisterEvent("QUEST_WATCH_LIST_CHANGED")
|
|
eventFrame:RegisterEvent("UPDATE_EXTRA_ACTIONBAR")
|
|
eventFrame:RegisterEvent("ZONE_CHANGED")
|
|
eventFrame:RegisterEvent("QUEST_POI_UPDATE")
|
|
eventFrame:RegisterEvent("UPDATE_BINDINGS")
|
|
eventFrame:RegisterEvent("PET_BATTLE_OPENING_START")
|
|
eventFrame:RegisterEvent("PET_BATTLE_CLOSE")
|
|
|
|
-- Main frame
|
|
if not KTF.ActiveFrame then
|
|
local name = addonName.."ActiveFrame"
|
|
activeFrame = CreateFrame("Frame", name, UIParent)
|
|
activeFrame:SetSize(256, 120)
|
|
|
|
local overlay = CreateFrame("Frame", name.."Overlay", UIParent)
|
|
overlay:SetAllPoints(activeFrame)
|
|
overlay:SetFrameLevel(activeFrame:GetFrameLevel() + 10)
|
|
overlay.texture = overlay:CreateTexture(nil, "BACKGROUND")
|
|
overlay.texture:SetAllPoints()
|
|
overlay.texture:SetColorTexture(0, 1, 0, 0.3)
|
|
overlay:SetMovable(true)
|
|
overlay:EnableMouse(true)
|
|
overlay:RegisterForDrag("LeftButton")
|
|
overlay:Hide()
|
|
activeFrame.overlay = overlay
|
|
|
|
overlay:SetScript("OnDragStart", function(self)
|
|
self:StartMoving()
|
|
end)
|
|
overlay:SetScript("OnDragStop", function(self)
|
|
self:StopMovingOrSizing()
|
|
db.qiActiveButtonPosition = { self:GetPoint() }
|
|
ActiveFrame_SetPosition()
|
|
activeFrame:ClearAllPoints()
|
|
activeFrame:SetPoint("CENTER", self, "CENTER")
|
|
end)
|
|
overlay:SetScript("OnMouseUp", function(self, button)
|
|
if button == "RightButton" then
|
|
db.qiActiveButtonPosition = nil
|
|
ActiveFrame_SetPosition()
|
|
self:ClearAllPoints()
|
|
self:SetAllPoints(activeFrame)
|
|
end
|
|
end)
|
|
overlay:SetScript("OnEnter", function(self)
|
|
self:ClearAllPoints()
|
|
activeFrame:ClearAllPoints()
|
|
activeFrame:SetPoint("CENTER", self, "CENTER")
|
|
end)
|
|
|
|
activeFrame:Hide()
|
|
KTF.ActiveFrame = activeFrame
|
|
else
|
|
activeFrame = KTF.ActiveFrame
|
|
end
|
|
ActiveFrame_SetPosition()
|
|
|
|
-- Button frame
|
|
if not KTF.ActiveButton then
|
|
local name = addonName.."ActiveButton"
|
|
local button = CreateFrame("Button", name, activeFrame, "SecureActionButtonTemplate")
|
|
button:SetSize(52, 52)
|
|
button:SetPoint("CENTER", 0, -4)
|
|
|
|
button.icon = button:CreateTexture(name.."Icon", "BACKGROUND")
|
|
button.icon:SetPoint("TOPLEFT", 0, -1)
|
|
button.icon:SetPoint("BOTTOMRIGHT", 0, -1)
|
|
|
|
button.Style = button:CreateTexture(name.."Style", "OVERLAY")
|
|
button.Style:SetSize(256, 128)
|
|
button.Style:SetPoint("CENTER", -2, 0)
|
|
button.Style:SetTexture("Interface\\ExtraButton\\ChampionLight")
|
|
|
|
button.Count = button:CreateFontString(name.."Count", "OVERLAY", "NumberFontNormal")
|
|
button.Count:SetJustifyH("RIGHT")
|
|
button.Count:SetPoint("BOTTOMRIGHT", button.icon, -4, 4)
|
|
|
|
button.Cooldown = CreateFrame("Cooldown", name.."Cooldown", button, "CooldownFrameTemplate")
|
|
button.Cooldown:ClearAllPoints()
|
|
button.Cooldown:SetPoint("TOPLEFT", 4, -4)
|
|
button.Cooldown:SetPoint("BOTTOMRIGHT", -3, 2)
|
|
|
|
button.HotKey = button:CreateFontString(name.."HotKey", "ARTWORK", "NumberFontNormalSmallGray")
|
|
button.HotKey:SetSize(30, 10)
|
|
button.HotKey:SetJustifyH("RIGHT")
|
|
button.HotKey:SetText(RANGE_INDICATOR)
|
|
button.HotKey:SetPoint("TOPRIGHT", button.icon, -2, -7)
|
|
|
|
button.text = button:CreateFontString(name.."Text", "ARTWORK", "NumberFontNormalSmall")
|
|
button.text:SetSize(20, 10)
|
|
button.text:SetJustifyH("LEFT")
|
|
button.text:SetPoint("TOPLEFT", button.icon, 4, -7)
|
|
|
|
button:SetScript("OnEvent", KT.ItemButton.OnEvent)
|
|
button:SetScript("OnUpdate", KT.ItemButton.OnUpdate)
|
|
button:SetScript("OnShow", KT.ItemButton.OnShow)
|
|
button:SetScript("OnHide", KT.ItemButton.OnHide)
|
|
button:SetScript("OnEnter", KT.ItemButton.OnEnter)
|
|
button:SetScript("OnLeave", KT.ItemButton.OnLeave)
|
|
button:RegisterForClicks("AnyUp")
|
|
button:SetAttribute("type", "item")
|
|
|
|
button:SetPushedTexture("Interface\\Buttons\\UI-Quickslot-Depress")
|
|
do local tex = button:GetPushedTexture()
|
|
tex:SetPoint("TOPLEFT", 0, -1)
|
|
tex:SetPoint("BOTTOMRIGHT", 0, -1)
|
|
end
|
|
button:SetHighlightTexture("Interface\\Buttons\\ButtonHilight-Square", "ADD")
|
|
do local tex = button:GetHighlightTexture()
|
|
tex:SetPoint("TOPLEFT", 0, -1)
|
|
tex:SetPoint("BOTTOMRIGHT", 0, -1)
|
|
end
|
|
|
|
KT:Masque_AddButton(button, 2)
|
|
KTF.ActiveButton = button
|
|
end
|
|
abutton = KTF.ActiveButton
|
|
end
|
|
|
|
--------------
|
|
-- External --
|
|
--------------
|
|
|
|
function M:OnInitialize()
|
|
_DBG("|cffffff00Init|r - "..self:GetName(), true)
|
|
|
|
self.timer = 0
|
|
self.timerID = nil
|
|
self.initialized = false
|
|
|
|
db = KT.db.profile
|
|
dbChar = KT.db.char
|
|
|
|
-- Cleanup (temporarily)
|
|
dbChar.activeButtonPosition = nil
|
|
end
|
|
|
|
function M:OnEnable()
|
|
_DBG("|cff00ff00Enable|r - "..self:GetName(), true)
|
|
isBartender = C_AddOns.IsAddOnLoaded("Bartender4")
|
|
isElvui = C_AddOns.IsAddOnLoaded("ElvUI")
|
|
isTukui = C_AddOns.IsAddOnLoaded("Tukui")
|
|
|
|
SetFrames()
|
|
self.initialized = true
|
|
|
|
self:Update()
|
|
end
|
|
|
|
function M:Update(id)
|
|
if not db.qiActiveButton or not self.initialized then return end
|
|
|
|
local closestQuestID
|
|
local minDistSqr = 30625
|
|
|
|
if id then
|
|
closestQuestID = id
|
|
else
|
|
if InCombatLockdown() then return end
|
|
|
|
if not dbChar.collapsed then
|
|
for questID, _ in pairs(KT.fixedButtons) do
|
|
if questID == C_SuperTrack.GetSuperTrackedQuestID() then
|
|
closestQuestID = questID
|
|
break
|
|
end
|
|
if QuestHasPOIInfo(questID) then
|
|
local distSqr, _ = C_QuestLog.GetDistanceSqToQuest(questID)
|
|
if distSqr and distSqr <= minDistSqr then
|
|
minDistSqr = distSqr
|
|
closestQuestID = questID
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
if closestQuestID then
|
|
local button = KT:GetFixedButton(closestQuestID)
|
|
if button.item ~= blizzardButtonIconID then
|
|
local autoShowTooltip = false
|
|
if GameTooltip:IsShown() and GameTooltip:GetOwner() == abutton then
|
|
KT.ItemButton.OnLeave(abutton)
|
|
autoShowTooltip = true
|
|
end
|
|
|
|
abutton.block = button.block
|
|
abutton.questID = closestQuestID
|
|
abutton.questLogIndex = button.questLogIndex
|
|
abutton.charges = button.charges
|
|
abutton.rangeTimer = button.rangeTimer
|
|
abutton.item = button.item
|
|
abutton.link = button.link
|
|
SetItemButtonTexture(abutton, button.item)
|
|
SetItemButtonCount(abutton, button.charges)
|
|
KT.ItemButton.UpdateCooldown(abutton)
|
|
abutton.text:SetText(button.num)
|
|
abutton:SetAttribute("item", button.link)
|
|
|
|
if not activeFrame:IsShown() then
|
|
UpdateHotkey()
|
|
activeFrame:SetShown(not KT.locked)
|
|
end
|
|
|
|
if autoShowTooltip then
|
|
KT.ItemButton.OnEnter(abutton)
|
|
end
|
|
else
|
|
ActiveFrame_Hide()
|
|
end
|
|
else
|
|
ActiveFrame_Hide()
|
|
end
|
|
self.timer = 0
|
|
end
|