Freewood/Freewood-OctoWoW-Core
1
0
Fork 0
mirror of https://github.com/Lacustat/Freewood-OctoWoW-Core.git synced 2026-10-31 22:17:03 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
7da284ddfadd869f59be1fe2d4c941aebe1d9d78
Freewood-OctoWoW-Core/Core/TooltipInfo.lua
T

251 lines
11 KiB
Lua
Raw Blame History

-- Freewood-Core: Zusatzinfos in Tooltips (Reiter "Einstellungen" -> "Tooltips")
-- tipVendor Haendlerpreis des Items (unabhaengig vom Auktionshaus-Scan)
-- tipQuest Quest-Fortschritt am Gegner oder Objekt unter der Maus
-- tipCompare Shift-Vergleich mit dem angelegten Item (TooltipCompare.lua)
-- Weitere Module haengen Zeilen an Gegner-Tooltips mit FW.Tooltips.AddUnitLine(function(tt, name, npcID) ... end).
-- Jeder Teil ist einzeln abschaltbar. Die Werte stehen in den Core-Einstellungen (FW.settings.tooltips).
local FW = _G.Freewood
local T = FW and FW.Tooltips
if not FW or not T then
return
end
local Tip = {}
T.Info = Tip
local function On(key) return T.Get(key) == true end
------------------------------------------------------------------------
-- Hilfen
------------------------------------------------------------------------
function Tip.Money(c)
c = math.floor((c or 0) + 0.5)
if _G.GetCoinTextureString then
local ok, text = pcall(_G.GetCoinTextureString, c)
if ok and type(text) == "string" then return text end
end
local g, s, k = math.floor(c / 10000), math.floor(c / 100) % 100, c % 100
if g > 0 then return string.format("%dg %ds %dc", g, s, k) end
if s > 0 then return string.format("%ds %dc", s, k) end
return string.format("%dc", k)
end
local function ItemIDFromLink(link)
if type(link) ~= "string" then return nil end
return tonumber(link:match("item:(%d+)"))
end
-- Stapelgroesse des Items unter der Maus (Taschenfeld), sonst 1. Nur wenn das Feld dasselbe Item enthaelt.
local function HoverCount(link)
local ok, count = pcall(function()
local f = _G.GetMouseFocus and _G.GetMouseFocus()
if not f then return 1 end
local parent = f.GetParent and f:GetParent()
if parent and parent.GetID and f.GetID and _G.GetContainerItemInfo and _G.GetContainerItemLink then
local bag, slot = parent:GetID(), f:GetID()
local l = _G.GetContainerItemLink(bag, slot)
if l and ItemIDFromLink(l) == ItemIDFromLink(link) then
local _, n = _G.GetContainerItemInfo(bag, slot)
if tonumber(n) and n > 1 then return n end
end
end
return 1
end)
return ok and count or 1
end
------------------------------------------------------------------------
-- Haendlerpreis
------------------------------------------------------------------------
local function AddVendor(tt, link)
if not On("tipVendor") or not tt or not tt.AddLine then return end
local id = ItemIDFromLink(link)
if not id then return end
if tt.fwVendID == id then return end
-- beim Haendler zeigt das Spiel den Preis selbst
if _G.MerchantFrame and _G.MerchantFrame.IsShown and _G.MerchantFrame:IsShown() then return end
local info = FW.Util and FW.Util.GetItem and FW.Util.GetItem(id)
local price = info and tonumber(info.sellPrice) or 0
if price <= 0 then return end
tt.fwVendID = id
Tip.fired.vendor = Tip.fired.vendor + 1
local L = FW.L
local n = tt == _G.GameTooltip and HoverCount(link) or 1
if n > 1 then
tt:AddLine(string.format(L.TIP_VENDOR_STACK, Tip.Money(price), n, Tip.Money(price * n)), 1, 0.82, 0)
else
tt:AddLine(string.format(L.TIP_VENDOR, Tip.Money(price)), 1, 0.82, 0)
end
end
------------------------------------------------------------------------
-- Quest-Fortschritt am Gegner oder Objekt
------------------------------------------------------------------------
local logCache, logAt = nil, -10
-- { { qid, title, objs = { { text, finished, kind } } } } fuer alle angenommenen Quests (1 s gemerkt)
local function LogObjectives()
local now = _G.GetTime and _G.GetTime() or 0
if logCache and now - logAt < 1 then return logCache end
local out = {}
local QL = _G.C_QuestLog
local P = T.questProvider -- optional (Quest-Modul): AcceptedSet() und TargetsOf(qid)
if P and P.AcceptedSet and QL and QL.GetQuestObjectives then
for qid in pairs(P.AcceptedSet()) do
local ok, objs = pcall(QL.GetQuestObjectives, qid)
if ok and type(objs) == "table" and #objs > 0 then
local title
if QL.GetTitleForQuestID then
local ok2, t = pcall(QL.GetTitleForQuestID, qid)
if ok2 and type(t) == "string" then title = t end
end
local list = {}
for _, o in ipairs(objs) do
if type(o.text) == "string" and o.text ~= "" then
list[#list + 1] = { text = o.text, finished = o.finished and true or false, kind = o.type }
end
end
if #list > 0 then out[#out + 1] = { qid = qid, title = title or ("#" .. qid), objs = list } end
end
end
elseif _G.GetNumQuestLogEntries and _G.GetQuestLogTitle and _G.GetNumQuestLeaderBoards and _G.GetQuestLogLeaderBoard then
-- ohne Quest-Modul: normales Questlog (Ziele ueber die Questlog-Eintraege, ohne Quest-Nummer)
local n = _G.GetNumQuestLogEntries() or 0
for i = 1, n do
local title, _, _, isHeader = _G.GetQuestLogTitle(i)
if title and not isHeader then
local list = {}
for j = 1, (_G.GetNumQuestLeaderBoards(i) or 0) do
local text, kind, done = _G.GetQuestLogLeaderBoard(j, i)
if type(text) == "string" and text ~= "" then
list[#list + 1] = { text = text, finished = done and true or false, kind = kind }
end
end
if #list > 0 then out[#out + 1] = { title = title, objs = list } end
end
end
end
table.sort(out, function(a, b) return a.title < b.title end)
logCache, logAt = out, now
return out
end
-- Quests, die zu diesem Gegner oder Objekt gehoeren, mit den passenden Zielen
local function QuestLinesFor(name, npcID)
local out = {}
local lname = name and name:lower() or nil
local TM = T.questProvider
for _, q in ipairs(LogObjectives()) do
local hits = {}
local isTarget = npcID and q.qid and TM and TM.TargetsOf and TM.TargetsOf(q.qid)[npcID] or false
for _, o in ipairs(q.objs) do
local byName = lname and o.text:lower():find(lname, 1, true) ~= nil
local byDrop = isTarget and o.kind == "item"
if (byName or byDrop) then hits[#hits + 1] = o end
end
if #hits > 0 then out[#out + 1] = { title = q.title, objs = hits } end
end
return out
end
local function AddQuest(tt, name, npcID)
if not On("tipQuest") or not tt or not tt.AddLine or not name then return end
if tt.fwQuestName == name then return end
local list = QuestLinesFor(name, npcID)
if #list == 0 then return end
tt.fwQuestName = name
Tip.fired.quest = Tip.fired.quest + 1
for _, e in ipairs(list) do
tt:AddLine(e.title, 1, 0.82, 0)
for _, o in ipairs(e.objs) do
if o.finished then tt:AddLine(" " .. o.text, 0.4, 0.9, 0.4) else tt:AddLine(" " .. o.text, 1, 1, 1) end
end
end
end
------------------------------------------------------------------------
-- Anbindung an die Tooltips
------------------------------------------------------------------------
T.unitLines = T.unitLines or {}
function T.AddUnitLine(fn) T.unitLines[#T.unitLines + 1] = fn end
T.Money = Tip.Money
local hooked = {}
Tip.fired = { item = 0, unit = 0, object = 0, vendor = 0, quest = 0 }
local function HookTooltip(tt)
if not tt or hooked[tt] or not tt.HookScript then return end
hooked[tt] = true
tt:HookScript("OnTooltipSetItem", function(self)
local ok, _, link = pcall(self.GetItem, self)
Tip.fired.item = Tip.fired.item + 1
if ok and link then
pcall(AddVendor, self, link)
if T.CompareHook then pcall(T.CompareHook, self, link) end
self:Show()
end
end)
tt:HookScript("OnTooltipSetUnit", function(self)
local name, unit = self:GetUnit()
Tip.fired.unit = Tip.fired.unit + 1
if not name then return end
local npcID
if unit then
local g = _G.UnitGUID and _G.UnitGUID(unit)
npcID = g and FW.Util and FW.Util.GetNpcID and FW.Util.GetNpcID(g) or nil
if _G.UnitIsPlayer and _G.UnitIsPlayer(unit) then return end
end
pcall(AddQuest, self, name, npcID)
for _, fn in ipairs(T.unitLines) do pcall(fn, self, name, npcID) end
self:Show()
end)
tt:HookScript("OnTooltipCleared", function(self)
self.fwVendID, self.fwQuestName, self.fwCmpLink, self.fwShift, self.fwDropID = nil, nil, nil, nil, nil
end)
end
-- Objekte (Truhen, Kraeuter): der Tooltip hat nur den Namen in der ersten Zeile
local function HookObjects(tt)
if not tt or not tt.HookScript then return end
tt:HookScript("OnShow", function(self)
if self:GetUnit() or (self.GetItem and self:GetItem()) or self.fwQuestName then return end
local left = _G.GameTooltipTextLeft1
local name = left and left:GetText()
if type(name) == "string" and name ~= "" and (_G.UnitExists and not _G.UnitExists("mouseover")) then
Tip.fired.object = Tip.fired.object + 1
pcall(AddQuest, self, name, nil)
if self.fwQuestName then self:Show() end
end
end)
end
local function Install()
HookTooltip(_G.GameTooltip)
HookTooltip(_G.ItemRefTooltip)
HookTooltip(_G.ShoppingTooltip1)
HookTooltip(_G.ShoppingTooltip2)
HookObjects(_G.GameTooltip)
end
Install()
FW:On("QUEST_TIP_CHANGED", function() logCache = nil end, Tip)
FW:On("CODEX_CHANGED", function(_, kind) if kind == "quest" then logCache = nil end end, Tip)
FW:RegisterEvent("QUEST_LOG_UPDATE", function() logCache = nil end, Tip)
-- /fwtip: Pruefung der Tooltip-Anbindung (wie oft die Hooks gefeuert haben)
_G.SLASH_FREEWOODTIP1 = "/fwtip"
_G.SlashCmdList = _G.SlashCmdList or {}
_G.SlashCmdList["FREEWOODTIP"] = function()
local f = Tip.fired
FW:Print(string.format("Tooltips: Item-Hook %dx, Gegner-Hook %dx, Objekt-Hook %dx; Haendlerzeile %dx, Quest-Zeilen %dx. HookScript: %s, TooltipDataProcessor: %s",
f.item, f.unit, f.object, f.vendor, f.quest, tostring(_G.GameTooltip and _G.GameTooltip.HookScript ~= nil), tostring(_G.TooltipDataProcessor ~= nil)))
end
-- Optionen (die Codex-abhaengigen meldet das Codex-Modul selbst an)
T.RegisterOption("tipVendor", "TIP_OPT_VENDOR", { order = 10 })
T.RegisterOption("tipQuest", "TIP_OPT_QUEST", { order = 20 })
T.RegisterOption("tipCompare", "TIP_OPT_COMPARE", { order = 30, available = function() return T.CompareHook ~= nil end })
Reference in New Issue View Git Blame Copy Permalink