mirror of
https://github.com/Lacustat/Freewood-OctoWoW-Core.git
synced 2026-10-31 22:57:01 +00:00
0.1.180: Tooltip-Zusatzinfos in Core und Codex, unabhaengig vom Quest-Modul
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_016onJCSHLwhs9udhC9ZLzk9
This commit is contained in:
Lacustat
co-authored by
Claude Sonnet 5.5
Claude Sonnet 5.5
parent
311261cab0
commit
fcd9ab23d1
@@ -0,0 +1,250 @@
|
||||
-- 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
Block a user