-- ========================================================================== -- Heal Box Vanilla: Smart Damage (Modul, ab v1.4.3) -- -- Rangwahl fuer Angriffszauber auf jeder Aktionsleiste. Bongos, Blizzard- -- Leisten und Tastenkuerzel rufen UseAction(slot) auf; ein Vor-Hook erkennt -- den Zauber im Slot per Tooltip-Scan und wirkt, wenn ein kleinerer Rang -- den Gegner sicher toetet, diesen Rang per CastSpellByName. Sonst laeuft -- der Aufruf unveraendert weiter. Nie ueber dem Rang auf der Leiste. -- -- Leben des Gegners, vier Quellen mit Vorrang: -- 1) Server sendet echte Werte (UnitHealthMax ~= 100) -- 2) MobHealth3 MobHealth3:GetUnitHealth(unit) -- 3) MobInfo-2 MobHealth_GetTargetCurHP()/MaxHP() -- 4) eigene Schaetzung Lebenspunkte je Prozent aus beobachtetem Schaden -- (eigener, Gruppe, Begleiter, andere freundliche Spieler, auch deren -- DoTs) und dem Prozentabfall des Ziels, erst ab FBDMG_MIN_DROP Prozent -- Abfall, Maximum ueber alle Messungen (Fehler nur nach oben, also in -- die sichere Richtung), gemerkt je Name:Stufe. Im Raid wird weder -- gemessen noch geschaetzt: Der Combatlog zeigt den Schaden der anderen -- Raidgruppen nicht vollstaendig, jede Messung fiele dort zu niedrig aus. -- -- Schaden je Rang: Mindestschaden aus dem Tooltip ("86 to 98 Holy damage"), -- angehoben um den Bonus, den der kleinste eigene Treffer ohne Crit und -- Teilwiderstand beweist (FBDmg_MinDamage). Entscheidung: -- Mindestschaden >= Ziel-Leben (bei Prozent: Obergrenze) x (1 + Aufschlag). -- ========================================================================== if (FBHealBox_DamageLoaded) then return; end FBHealBox_DamageLoaded = true; FBDMG_MIN_DROP = 3; -- Prozent Abfall, ab dem eine Messung zaehlt FBDMG_LASTCAST_SEC = 4; -- Sek., wie lange ein eigener Cast fuers Lernen gilt FBDMG_MOBHP_MAX = 400; -- gemerkte Mobtypen, darueber fallen die aeltesten weg FBDMG_SECTION_H = 180; -- px, Hoehe des Abschnitts im Reiter "Extras" FBDamageDefaults = { Enabled = 0, -- Smart Damage an/aus (bewusst aus) Margin = 20, -- Sicherheitsaufschlag in Prozent }; -- Angriffszauber je Klasse (englische Zaubernamen wie im ganzen Addon). -- Kanalisierte, reine DoTs und Flaechenzauber bleiben draussen. FBDamageSpells = { Priest = { "Smite", "Holy Fire", "Mind Blast" }, Druid = { "Wrath", "Starfire", "Moonfire" }, Shaman = { "Lightning Bolt", "Chain Lightning", "Earth Shock", "Flame Shock", "Frost Shock" }, Paladin = { "Holy Shock", "Hammer of Wrath", "Exorcism", "Holy Wrath" }, Mage = { "Fireball", "Frostbolt", "Fire Blast", "Scorch", "Pyroblast" }, Warlock = { "Shadow Bolt", "Searing Pain", "Immolate", "Soul Fire", "Conflagrate" }, Hunter = { "Arcane Shot", "Aimed Shot" }, }; -- ========================================================================== -- [ Texte ] -- ========================================================================== FBLocale["enUS"].DMG_HEADER = "Smart Damage"; FBLocale["enUS"].DMG_ENABLED = "Smart Damage"; FBLocale["enUS"].DMG_ENABLED_TIP = "What it does: when you press an attack spell on any action bar (Bongos, Blizzard bars, key bindings) and a lower rank of that spell would still kill the target, that rank is cast instead. Saves mana on nearly dead targets. Rules: never above the rank on the bar, minimum damage of the rank must cover the target's remaining health plus the safety margin. Needs the target's real health: from the server, from MobHealth3 or MobInfo-2, or from the addon's own estimate learned while fighting a mob type. Downsides: estimates can be wrong, partial resists lower the damage, and on unknown mobs nothing happens until enough has been learned. Off by default."; FBLocale["enUS"].DMG_MARGIN = "Safety margin: |cFFFFFFFF%s %%"; FBLocale["enUS"].DMG_SRC = "Target health source: |cFFFFFFFF%s"; FBLocale["enUS"].DMG_SRC_REAL = "server sends real values"; FBLocale["enUS"].DMG_SRC_MH3 = "MobHealth3"; FBLocale["enUS"].DMG_SRC_MI2 = "MobInfo-2"; FBLocale["enUS"].DMG_SRC_EST = "own estimate (%d mob types learned)"; FBLocale["enUS"].DMG_SRC_NONE = "no target"; FBLocale["enUS"].DMG_SRC_UNKNOWN = "percent only, nothing learned yet"; FBLocale["enUS"].DMG_SPELLS = "Spells: |cFFFFFFFF%s"; FBLocale["enUS"].DMG_INFO = "The target line above updates with your current target. Learning happens automatically: every fight against a mob type improves the estimate for that type."; FBLocale["enUS"].DMG_STATUS = "Smart Damage: %s, margin %d %%, %s"; FBLocale["enUS"].DBG_DMG = "Smart Damage: %s -> %s (target %d HP via %s, min damage %d)"; FBLocale["enUS"].DBG_DMG_KEEP = "Smart Damage: %s kept (target %d HP via %s)"; FBLocale["enUS"].DMG_LOADED = "Smart Damage module loaded: section in tab |cFFFFFFFFExtras|r, /fbp damage"; FBLocale["enUS"].DMG_ON = "Smart Damage |cFF00FF00on|r."; FBLocale["enUS"].DMG_OFF = "Smart Damage |cFFFF0000off|r."; FBLocale["deDE"].DMG_HEADER = "Smart Damage"; FBLocale["deDE"].DMG_ENABLED = "Smart Damage"; FBLocale["deDE"].DMG_ENABLED_TIP = "Was es tut: Drueckst du einen Angriffszauber auf einer beliebigen Aktionsleiste (Bongos, Blizzard-Leisten, Tastenkuerzel) und ein niedrigerer Rang wuerde das Ziel noch toeten, wird stattdessen dieser Rang gewirkt. Spart Mana bei fast toten Zielen. Regeln: nie ueber dem Rang auf der Leiste, der Mindestschaden des Rangs muss das Restleben des Ziels plus Sicherheitsaufschlag decken. Braucht das echte Leben des Ziels: vom Server, von MobHealth3 oder MobInfo-2, oder aus der eigenen Schaetzung, die das Addon im Kampf gegen einen Mobtyp lernt. Nachteile: Schaetzungen koennen danebenliegen, Teilwiderstaende senken den Schaden, und bei unbekannten Mobs passiert nichts, bis genug gelernt ist. Standardmaessig aus."; FBLocale["deDE"].DMG_MARGIN = "Sicherheitsaufschlag: |cFFFFFFFF%s %%"; FBLocale["deDE"].DMG_SRC = "Lebensquelle des Ziels: |cFFFFFFFF%s"; FBLocale["deDE"].DMG_SRC_REAL = "Server sendet echte Werte"; FBLocale["deDE"].DMG_SRC_MH3 = "MobHealth3"; FBLocale["deDE"].DMG_SRC_MI2 = "MobInfo-2"; FBLocale["deDE"].DMG_SRC_EST = "eigene Schaetzung (%d Mobtypen gelernt)"; FBLocale["deDE"].DMG_SRC_NONE = "kein Ziel"; FBLocale["deDE"].DMG_SRC_UNKNOWN = "nur Prozent, noch nichts gelernt"; FBLocale["deDE"].DMG_SPELLS = "Zauber: |cFFFFFFFF%s"; FBLocale["deDE"].DMG_INFO = "Die Zielzeile oben folgt deinem aktuellen Ziel. Gelernt wird von selbst: Jeder Kampf gegen einen Mobtyp verbessert die Schaetzung fuer diesen Typ."; FBLocale["deDE"].DMG_STATUS = "Smart Damage: %s, Aufschlag %d %%, %s"; FBLocale["deDE"].DBG_DMG = "Smart Damage: %s -> %s (Ziel %d LP ueber %s, Mindestschaden %d)"; FBLocale["deDE"].DBG_DMG_KEEP = "Smart Damage: %s bleibt (Ziel %d LP ueber %s)"; FBLocale["deDE"].DMG_LOADED = "Smart-Damage-Modul geladen: Abschnitt im Reiter |cFFFFFFFFExtras|r, /fbp damage"; FBLocale["deDE"].DMG_ON = "Smart Damage |cFF00FF00an|r."; FBLocale["deDE"].DMG_OFF = "Smart Damage |cFFFF0000aus|r."; -- Weitere Sprachen (Spanisch, Franzoesisch, Italienisch) FBLocale["esES"].DMG_HEADER = "Smart Damage"; FBLocale["esES"].DMG_ENABLED = "Smart Damage"; FBLocale["esES"].DMG_ENABLED_TIP = "Qué hace: cuando pulsas un hechizo de ataque en cualquier barra de acción (Bongos, barras de Blizzard, atajos de teclado) y un rango inferior de ese hechizo aún mataría al objetivo, se lanza ese rango en su lugar. Ahorra maná con objetivos casi muertos. Reglas: nunca por encima del rango de la barra, el daño mínimo del rango debe cubrir la vida restante del objetivo más el margen de seguridad. Necesita la vida real del objetivo: del servidor, de MobHealth3 o MobInfo-2, o de la estimación propia del addon aprendida al combatir un tipo de enemigo. Desventajas: las estimaciones pueden fallar, las resistencias parciales reducen el daño y con enemigos desconocidos no ocurre nada hasta haber aprendido lo suficiente. Desactivado por defecto."; FBLocale["esES"].DMG_MARGIN = "Margen de seguridad: |cFFFFFFFF%s %%"; FBLocale["esES"].DMG_SRC = "Fuente de vida del objetivo: |cFFFFFFFF%s"; FBLocale["esES"].DMG_SRC_REAL = "el servidor envía valores reales"; FBLocale["esES"].DMG_SRC_MH3 = "MobHealth3"; FBLocale["esES"].DMG_SRC_MI2 = "MobInfo-2"; FBLocale["esES"].DMG_SRC_EST = "estimación propia (%d tipos de enemigo aprendidos)"; FBLocale["esES"].DMG_SRC_NONE = "sin objetivo"; FBLocale["esES"].DMG_SRC_UNKNOWN = "solo porcentaje, aún nada aprendido"; FBLocale["esES"].DMG_SPELLS = "Hechizos: |cFFFFFFFF%s"; FBLocale["esES"].DMG_INFO = "La línea del objetivo se actualiza con tu objetivo actual. El aprendizaje es automático: cada combate contra un tipo de enemigo mejora la estimación de ese tipo."; FBLocale["esES"].DMG_STATUS = "Smart Damage: %s, margen %d %%, %s"; FBLocale["esES"].DBG_DMG = "Smart Damage: %s -> %s (objetivo %d PV vía %s, daño mínimo %d)"; FBLocale["esES"].DBG_DMG_KEEP = "Smart Damage: %s mantenido (objetivo %d PV vía %s)"; FBLocale["esES"].DMG_LOADED = "Módulo Smart Damage cargado: sección en la pestaña |cFFFFFFFFExtras|r, /fbp damage"; FBLocale["esES"].DMG_ON = "Smart Damage |cFF00FF00activado|r."; FBLocale["esES"].DMG_OFF = "Smart Damage |cFFFF0000desactivado|r."; FBLocale["frFR"].DMG_HEADER = "Smart Damage"; FBLocale["frFR"].DMG_ENABLED = "Smart Damage"; FBLocale["frFR"].DMG_ENABLED_TIP = "Ce que ça fait : quand vous appuyez sur un sort d'attaque sur n'importe quelle barre d'action (Bongos, barres Blizzard, raccourcis) et qu'un rang inférieur de ce sort tuerait encore la cible, c'est ce rang qui est lancé. Économise du mana sur les cibles presque mortes. Règles : jamais au-dessus du rang de la barre, les dégâts minimaux du rang doivent couvrir la vie restante de la cible plus la marge de sécurité. Nécessite la vie réelle de la cible : du serveur, de MobHealth3 ou MobInfo-2, ou de l'estimation propre de l'addon apprise en combattant un type de monstre. Inconvénients : les estimations peuvent se tromper, les résistances partielles réduisent les dégâts, et sur les monstres inconnus rien ne se passe tant que l'apprentissage est insuffisant. Désactivé par défaut."; FBLocale["frFR"].DMG_MARGIN = "Marge de sécurité : |cFFFFFFFF%s %%"; FBLocale["frFR"].DMG_SRC = "Source de vie de la cible : |cFFFFFFFF%s"; FBLocale["frFR"].DMG_SRC_REAL = "le serveur envoie des valeurs réelles"; FBLocale["frFR"].DMG_SRC_MH3 = "MobHealth3"; FBLocale["frFR"].DMG_SRC_MI2 = "MobInfo-2"; FBLocale["frFR"].DMG_SRC_EST = "estimation propre (%d types de monstres appris)"; FBLocale["frFR"].DMG_SRC_NONE = "aucune cible"; FBLocale["frFR"].DMG_SRC_UNKNOWN = "pourcentage seulement, rien appris pour le moment"; FBLocale["frFR"].DMG_SPELLS = "Sorts : |cFFFFFFFF%s"; FBLocale["frFR"].DMG_INFO = "La ligne de cible ci-dessus se met à jour avec votre cible actuelle. L'apprentissage est automatique : chaque combat contre un type de monstre améliore l'estimation pour ce type."; FBLocale["frFR"].DMG_STATUS = "Smart Damage : %s, marge %d %%, %s"; FBLocale["frFR"].DBG_DMG = "Smart Damage : %s -> %s (cible %d PV via %s, dégâts min %d)"; FBLocale["frFR"].DBG_DMG_KEEP = "Smart Damage : %s conservé (cible %d PV via %s)"; FBLocale["frFR"].DMG_LOADED = "Module Smart Damage chargé : section dans l'onglet |cFFFFFFFFExtras|r, /fbp damage"; FBLocale["frFR"].DMG_ON = "Smart Damage |cFF00FF00activé|r."; FBLocale["frFR"].DMG_OFF = "Smart Damage |cFFFF0000désactivé|r."; FBLocale["itIT"].DMG_HEADER = "Smart Damage"; FBLocale["itIT"].DMG_ENABLED = "Smart Damage"; FBLocale["itIT"].DMG_ENABLED_TIP = "Cosa fa: quando premi un incantesimo d'attacco su una qualsiasi barra delle azioni (Bongos, barre Blizzard, scorciatoie) e un rango inferiore di quell'incantesimo ucciderebbe comunque il bersaglio, viene lanciato quel rango. Risparmia mana sui bersagli quasi morti. Regole: mai sopra il rango sulla barra, il danno minimo del rango deve coprire la salute rimanente del bersaglio più il margine di sicurezza. Richiede la salute reale del bersaglio: dal server, da MobHealth3 o MobInfo-2, o dalla stima dell'addon appresa combattendo un tipo di mostro. Svantaggi: le stime possono sbagliare, le resistenze parziali riducono il danno e sui mostri sconosciuti non succede nulla finché non si è appreso abbastanza. Disattivato per impostazione predefinita."; FBLocale["itIT"].DMG_MARGIN = "Margine di sicurezza: |cFFFFFFFF%s %%"; FBLocale["itIT"].DMG_SRC = "Fonte della salute del bersaglio: |cFFFFFFFF%s"; FBLocale["itIT"].DMG_SRC_REAL = "il server invia valori reali"; FBLocale["itIT"].DMG_SRC_MH3 = "MobHealth3"; FBLocale["itIT"].DMG_SRC_MI2 = "MobInfo-2"; FBLocale["itIT"].DMG_SRC_EST = "stima propria (%d tipi di mostro appresi)"; FBLocale["itIT"].DMG_SRC_NONE = "nessun bersaglio"; FBLocale["itIT"].DMG_SRC_UNKNOWN = "solo percentuale, ancora nulla appreso"; FBLocale["itIT"].DMG_SPELLS = "Incantesimi: |cFFFFFFFF%s"; FBLocale["itIT"].DMG_INFO = "La riga del bersaglio qui sopra si aggiorna con il tuo bersaglio attuale. L'apprendimento è automatico: ogni combattimento contro un tipo di mostro migliora la stima per quel tipo."; FBLocale["itIT"].DMG_STATUS = "Smart Damage: %s, margine %d %%, %s"; FBLocale["itIT"].DBG_DMG = "Smart Damage: %s -> %s (bersaglio %d PS via %s, danno minimo %d)"; FBLocale["itIT"].DBG_DMG_KEEP = "Smart Damage: %s mantenuto (bersaglio %d PS via %s)"; FBLocale["itIT"].DMG_LOADED = "Modulo Smart Damage caricato: sezione nella scheda |cFFFFFFFFExtra|r, /fbp damage"; FBLocale["itIT"].DMG_ON = "Smart Damage |cFF00FF00attivo|r."; FBLocale["itIT"].DMG_OFF = "Smart Damage |cFFFF0000disattivato|r."; -- ========================================================================== -- [ Zustand ] -- ========================================================================== FBDmgSpellRanks = {}; -- [Name] = { { rank, id, min, max }, ... } aufsteigend FBDmgSlotCache = {}; -- [slot] = { name, rank } oder false (kein Zauber) FBDmgAnchorPct = nil; -- Prozent des Ziels beim letzten Messpunkt FBDmgAccum = 0; -- Schaden auf das Ziel seit dem Messpunkt FBDmgTargetName = nil; FBDmgLastCast = nil; -- { spell, rank, t } fuer das Lernen aus dem Combatlog FBDmgActive = false; -- Ereignisse registriert (Smart Damage an) FBDmgSpellsDirty = true; -- Zauberbuch noch nicht (neu) gelesen FBDmgMobCount = 0; -- Eintraege in HealBox.MobHP function FBDmg_Cfg() if (not HealBox.Damage) then FBDmg_ApplyDefaults(); end return HealBox.Damage; end function FBDmg_ApplyDefaults() if (not HealBox.Damage) then HealBox.Damage = {}; end for k, v in pairs(FBDamageDefaults) do if (HealBox.Damage[k] == nil) then HealBox.Damage[k] = v; end end if (not HealBox.MobHP) then HealBox.MobHP = {}; end -- [Name:Stufe] = { ppp, n, seen } if (not HealBox.DmgMemory) then HealBox.DmgMemory = {}; end -- [Zauber|Rang] = kleinster normaler Treffer FBDmg_PruneMobHP(); return true; end -- Gemerkte Mobtypen begrenzen. HealBox.MobHP wuchs bis 1.4.6 beim Leveln um -- jeden Mobtyp und jede Stufe, ohne je zu schrumpfen. Ueber der Grenze -- fallen die am laengsten nicht gesehenen Eintraege weg, und zwar bis auf -- drei Viertel der Grenze, damit nicht jeder neue Mob eine Sortierung -- ausloest. Eintraege aus aelteren Versionen ohne Zeitstempel gelten als -- die aeltesten. function FBDmg_SeenOf(e) if (type(e) == "table") and e.seen then return e.seen; end return 0; end function FBDmg_PruneMobHP() local t = HealBox.MobHP; if (not t) then FBDmgMobCount = 0; return; end local keys = {}; for k in pairs(t) do table.insert(keys, k); end local n = table.getn(keys); FBDmgMobCount = n; if (n <= FBDMG_MOBHP_MAX) then return; end table.sort(keys, function(a, b) return FBDmg_SeenOf(t[a]) < FBDmg_SeenOf(t[b]); end); local drop = n - math.floor(FBDMG_MOBHP_MAX * 0.75); for i = 1, drop do t[keys[i]] = nil; end FBDmgMobCount = n - drop; end -- ========================================================================== -- [ Zauberbuch: Raenge und Schaden ] -- ========================================================================== function FBDmg_ScanSpells() FBDmgSpellRanks = {}; local wanted = {}; for _, n in ipairs(FBDamageSpells[FBClass] or {}) do wanted[n] = true; end local i = 1; while true do local name, rank = GetSpellName(i, BOOKTYPE_SPELL); if (not name) then break; end if (wanted[name]) then local txt = FBPredict_TooltipText(i) or ""; local lo, hi = FBPredict_FindAmountRange(txt); if (not lo) then lo = FBPredict_FindAmountSingle(txt); hi = lo; end local isDamage = (string.find(txt, "[Dd]amage") or string.find(txt, "[Ss]chaden")) ~= nil; if (lo and isDamage) then if (not FBDmgSpellRanks[name]) then FBDmgSpellRanks[name] = {}; end table.insert(FBDmgSpellRanks[name], { rank = rank or "", id = i, min = lo, max = hi }); end end i = i + 1; end FBDmgSlotCache = {}; FBDmgSpellsDirty = false; end -- Mindestschaden eines Rangs. Gelernt wird der kleinste eigene Treffer ohne -- Crit und Teilwiderstand. Jeder Treffer liegt hoechstens beim Hoechstwert -- des Tooltips plus Bonus, der Bonus ist also mindestens Treffer minus -- Hoechstwert, und so viel liegt sicher auch auf dem Minimum. Der kleinste -- Treffer, weil Verstaerker wie Curse of Shadow oder Power Infusion nur -- manche Treffer heben; ein einzelner verstaerkter Treffer darf den Wert -- nicht dauerhaft hochziehen. Bis 1.4.6 galt der kleinste Treffer selbst als -- Mindestschaden; nach einem einzigen hohen Wurf lag er ueber dem echten -- Minimum, und der gewaehlte Rang toetete nicht. function FBDmg_MinDamage(spell, entry) local learned = HealBox.DmgMemory and HealBox.DmgMemory[spell.."|"..entry.rank]; if (not learned) then return entry.min; end return math.max(entry.min, learned - (entry.max - entry.min)); end -- ========================================================================== -- [ Leben des Ziels ] -- ========================================================================== function FBDmg_MobKey(unit) local name = UnitName(unit); if (not name) then return nil; end local lvl = UnitLevel and UnitLevel(unit) or 0; return name..":"..tostring(lvl or 0); end -- Sendet der Server echte Werte fuer diese Einheit? function FBDmg_HasRealValues(unit) local max = UnitHealthMax(unit); return (max and max ~= 100 and max > 0); end -- Liefert cur, max, source oder nil. cur ist bei Schaetzung die Obergrenze. function FBDmg_TargetHP(unit) unit = unit or "target"; if (not UnitExists(unit)) then return nil; end if (FBDmg_HasRealValues(unit)) then return UnitHealth(unit), UnitHealthMax(unit), "real"; end -- MobHealth3 if (MobHealth3 and MobHealth3.GetUnitHealth) then local ok, cur, max, found = pcall(MobHealth3.GetUnitHealth, MobHealth3, unit); if (ok and found and cur and max and max > 100) then return cur, max, "mh3"; end end -- MobInfo-2 (nur fuer das aktuelle Ziel) if (unit == "target" and MobHealth_GetTargetCurHP and MobHealth_GetTargetMaxHP) then local ok, cur = pcall(MobHealth_GetTargetCurHP); local ok2, max = pcall(MobHealth_GetTargetMaxHP); if (ok and ok2 and cur and max and max > 100) then return cur, max, "mi2"; end end -- eigene Schaetzung: Prozent-Obergrenze x Lebenspunkte je Prozent. Nicht -- im Raid: Dort wird nicht gemessen (FBDmg_OnTargetHealth), und was -- fruehere Versionen dort gemessen haben, fiel zu niedrig aus. if (GetNumRaidMembers() > 0) then return nil; end local key = FBDmg_MobKey(unit); local est = key and HealBox.MobHP and HealBox.MobHP[key]; if (est and est.ppp and est.ppp > 0) then est.seen = time(); local pct = UnitHealth(unit) or 0; return math.ceil((pct + 1) * est.ppp), math.ceil(100 * est.ppp), "est"; end return nil; end -- [ Lernen: Lebenspunkte je Prozent ] --------------------------------------- function FBDmg_ResetTarget() FBDmgTargetName = nil; FBDmgAnchorPct = nil; FBDmgAccum = 0; -- Im Raid wird nicht vermessen (siehe Kopf der Datei) if (GetNumRaidMembers() > 0) then FBDmg_UpdateSourceText(); return; end if (UnitExists("target") and UnitCanAttack and UnitCanAttack("player", "target") and not FBDmg_HasRealValues("target")) then FBDmgTargetName = UnitName("target"); FBDmgAnchorPct = UnitHealth("target"); end FBDmg_UpdateSourceText(); end -- Schaden auf das Ziel vermerken (aus dem Combatlog) function FBDmg_NoteDamage(victim, amount) if (not FBDmgTargetName) or (victim ~= FBDmgTargetName) then return; end FBDmgAccum = FBDmgAccum + (amount or 0); end -- UNIT_HEALTH des Ziels: Prozent gefallen -> Messung function FBDmg_OnTargetHealth() if (not FBDmgTargetName) or (not FBDmgAnchorPct) then return; end if (FBDmg_HasRealValues("target")) then return; end -- Mitten im Kampf einem Raid beigetreten: Messung verwerfen. Bis 1.4.6 -- wurde auch im Raid gemessen; bei Mobtypen, die man nur dort trifft, -- war dann keine Messung sauber und die Schaetzung viel zu niedrig. if (GetNumRaidMembers() > 0) then FBDmgTargetName = nil; FBDmgAnchorPct = nil; FBDmgAccum = 0; return; end local pct = UnitHealth("target") or 0; local drop = FBDmgAnchorPct - pct; if (drop >= FBDMG_MIN_DROP and FBDmgAccum > 0) then local ppp = FBDmgAccum / drop; local key = FBDmg_MobKey("target"); if (key) then if (not HealBox.MobHP) then HealBox.MobHP = {}; end local e = HealBox.MobHP[key]; if (not e) then HealBox.MobHP[key] = { ppp = ppp, n = 1, seen = time() }; FBDmgMobCount = FBDmgMobCount + 1; if (FBDmgMobCount > FBDMG_MOBHP_MAX) then FBDmg_PruneMobHP(); end else -- Maximum: Fehler nur nach oben (fremder, nicht gezaehlter Schaden -- wuerde die Schaetzung sonst nach unten ziehen) if (ppp > e.ppp) then e.ppp = ppp; end e.n = (e.n or 0) + 1; e.seen = time(); end end FBDmgAnchorPct = pct; FBDmgAccum = 0; FBDmg_UpdateSourceText(); elseif (pct > FBDmgAnchorPct) then -- Ziel wurde geheilt: neu ansetzen FBDmgAnchorPct = pct; FBDmgAccum = 0; end end -- [ Combatlog ] -------------------------------------------------------------- -- Schadenszeilen: Opfer und Betrag herausziehen (englischer Client, wie das -- ganze Addon). "(N resisted)" markiert Teilwiderstand. function FBDmg_ParseLine(msg) if (not msg) then return nil; end local _, _, spell, victim, amount; -- "Your Smite hits Kobold for 95." / "crits" _, _, spell, victim, amount = string.find(msg, "^Your (.-) hits (.-) for (%d+)"); if (not spell) then _, _, spell, victim, amount = string.find(msg, "^Your (.-) crits (.-) for (%d+)"); end if (spell) then return victim, tonumber(amount), spell, "self"; end -- "You hit Kobold for 20." / "You crit" _, _, victim, amount = string.find(msg, "^You hit (.-) for (%d+)"); if (not victim) then _, _, victim, amount = string.find(msg, "^You crit (.-) for (%d+)"); end if (victim) then return victim, tonumber(amount), nil, "self"; end -- "Kobold suffers 50 Shadow damage from your Shadow Word: Pain." _, _, victim, amount = string.find(msg, "^(.-) suffers (%d+) .- damage from your"); if (victim) then return victim, tonumber(amount), nil, "self"; end -- "Kobold suffers 50 Shadow damage from Bob's Shadow Word: Pain." _, _, victim, amount = string.find(msg, "^(.-) suffers (%d+) .- damage from .-'s "); if (victim) then return victim, tonumber(amount), nil, "other"; end -- "Bob's Fireball hits Kobold for 200." / crits (Gruppe, Begleiter) _, _, victim, amount = string.find(msg, "^.-'s .- hits (.-) for (%d+)"); if (not victim) then _, _, victim, amount = string.find(msg, "^.-'s .- crits (.-) for (%d+)"); end if (victim) then return victim, tonumber(amount), nil, "other"; end -- "Bob hits Kobold for 50." / crits (Nahkampf Gruppe, Begleiter) _, _, victim, amount = string.find(msg, "^.- hits (.-) for (%d+)"); if (not victim) then _, _, victim, amount = string.find(msg, "^.- crits (.-) for (%d+)"); end if (victim) then return victim, tonumber(amount), nil, "other"; end return nil; end function FBDmg_OnCombatLog(msg) -- Nur arbeiten, wenn Smart Damage an ist und es etwas zu lernen gibt -- (Prozentziel wird vermessen oder ein eigener Cast wartet auf Treffer). if (FBDmg_Cfg().Enabled ~= 1) then return; end if (not FBDmgTargetName) and (not FBDmgLastCast) then return; end local victim, amount, spell, who = FBDmg_ParseLine(msg); if (not victim) then return; end FBDmg_NoteDamage(victim, amount); -- Kleinsten Treffer lernen (siehe FBDmg_MinDamage): eigener Zauber, kein -- Crit, kein Teilwiderstand if (who == "self" and spell and FBDmgLastCast and FBDmgLastCast.spell == spell and (GetTime() - FBDmgLastCast.t) <= FBDMG_LASTCAST_SEC and not string.find(msg, "crits") and not string.find(msg, "resisted")) then local key = spell.."|"..(FBDmgLastCast.rank or ""); if (not HealBox.DmgMemory) then HealBox.DmgMemory = {}; end local old = HealBox.DmgMemory[key]; if (not old) or (amount < old) then HealBox.DmgMemory[key] = amount; end end end -- ========================================================================== -- [ Rangwahl beim Klick ] -- ========================================================================== -- Zauber in einem Aktionsslot: name, rank oder nil (Makro, Gegenstand) function FBDmg_SlotSpell(slot) local c = FBDmgSlotCache[slot]; if (c ~= nil) then if (c == false) then return nil; end return c.name, c.rank; end if (not FBPredictTip) or (not FBPredictTip.SetAction) then return nil; end FBPredictTip:SetOwner(UIParent, "ANCHOR_NONE"); FBPredictTip:ClearLines(); FBPredictTip:SetAction(slot); local l = getglobal("FBHealBoxScanTipTextLeft1"); local r = getglobal("FBHealBoxScanTipTextRight1"); local name = l and l:GetText(); local rank = r and r:GetText(); if (name and FBDmgSpellRanks[name]) then FBDmgSlotCache[slot] = { name = name, rank = rank or "" }; return name, rank or ""; end FBDmgSlotCache[slot] = false; return nil; end -- Liefert den zu wirkenden Cast-String, wenn abgerangt wird, sonst nil function FBDmg_Choose(spell, rank) local cfg = FBDmg_Cfg(); local ranks = FBDmgSpellRanks[spell]; if (not ranks) or (table.getn(ranks) < 2) then return nil; end if (not UnitExists("target")) or (UnitCanAttack and not UnitCanAttack("player", "target")) then return nil; end if (UnitIsDead and UnitIsDead("target")) then return nil; end local cur, max, source = FBDmg_TargetHP("target"); if (not cur) or (cur <= 0) then return nil; end local need = cur * (1 + (cfg.Margin or 20) / 100); local assignedIdx = nil; for i, e in ipairs(ranks) do if (e.rank == rank) then assignedIdx = i; end end if (not assignedIdx) then assignedIdx = table.getn(ranks); end for i = 1, assignedIdx do local e = ranks[i]; if (FBDmg_MinDamage(spell, e) >= need) then if (i == assignedIdx) then if (FBPredictDebug) then DEFAULT_CHAT_FRAME:AddMessage("|cFF00FFFF[FBP]|r "..format(FBT("DBG_DMG_KEEP"), spell.."("..rank..")", cur, source)); end return nil; end local chosen = spell; if (e.rank ~= "") then chosen = spell.."("..e.rank..")"; end if (FBPredictDebug) then DEFAULT_CHAT_FRAME:AddMessage("|cFF00FFFF[FBP]|r "..format(FBT("DBG_DMG"), spell.."("..rank..")", chosen, cur, source, FBDmg_MinDamage(spell, e))); end return chosen, e.rank; end end return nil; end -- Vor-Hook auf UseAction. true, wenn das Modul selbst gecastet hat. function FBDmg_TryDownrank(slot, checkCursor, onSelf) -- Klassensperre des Kerns (Krieger/Schurke/Jaeger ohne /fbp forceload): -- die Aktionsleiste bleibt unberuehrt if (FBAddonSuppressed) then return false; end if (FBDmg_Cfg().Enabled ~= 1) or onSelf then return false; end if ((CursorHasSpell and CursorHasSpell()) or (CursorHasItem and CursorHasItem())) then return false; end local name, rank = FBDmg_SlotSpell(slot); if (not name) then return false; end local chosen, chosenRank = FBDmg_Choose(name, rank); FBDmgLastCast = { spell = name, rank = (chosenRank or rank), t = GetTime() }; if (not chosen) then return false; end CastSpellByName(chosen); return true; end function FBDmg_HookUseAction() if (FBHealBox_UseActionHooked) or (not UseAction) then return; end FBHealBox_UseActionHooked = true; local origUseAction = UseAction; UseAction = function(slot, checkCursor, onSelf) -- Geschuetzt wie die Hooks des Kerns: Ein Fehler in der Rangwahl wird -- gemeldet und darf den Tastendruck nicht verschlucken, der Aufruf -- laeuft dann unveraendert weiter local ok, done = pcall(FBDmg_TryDownrank, slot, checkCursor, onSelf); if (not ok) then FBHealBox_ReportError("Smart Damage", done); done = false; end if (done) then return; end origUseAction(slot, checkCursor, onSelf); end end -- ========================================================================== -- [ Events ] -- ========================================================================== FBDmgFrame = CreateFrame("Frame", "FBHealBoxDamageFrame", UIParent); -- Immer: Zauberbuch geaendert. Das kostet nichts, ausgeschaltet wird nur -- vorgemerkt. FBDmgFrame:RegisterEvent("PLAYER_ENTERING_WORLD"); FBDmgFrame:RegisterEvent("SPELLS_CHANGED"); -- Nur solange Smart Damage an ist (FBDmg_UpdateActive). Bis 1.4.6 liefen -- Combatlog, UNIT_HEALTH und Zielwechsel auch im Standardzustand aus -- durch dieses Modul. FBDmgActiveEvents = { "ACTIONBAR_SLOT_CHANGED", "PLAYER_TARGET_CHANGED", "UNIT_HEALTH", "CHAT_MSG_SPELL_SELF_DAMAGE", "CHAT_MSG_COMBAT_SELF_HITS", "CHAT_MSG_SPELL_PERIODIC_CREATURE_DAMAGE", "CHAT_MSG_SPELL_PERIODIC_HOSTILEPLAYER_DAMAGE", "CHAT_MSG_SPELL_PARTY_DAMAGE", "CHAT_MSG_COMBAT_PARTY_HITS", "CHAT_MSG_SPELL_PET_DAMAGE", "CHAT_MSG_COMBAT_PET_HITS", -- Spieler ausserhalb der Gruppe, die denselben Gegner angreifen "CHAT_MSG_SPELL_FRIENDLYPLAYER_DAMAGE", "CHAT_MSG_COMBAT_FRIENDLYPLAYER_HITS", }; function FBDmg_UpdateActive() local on = (FBDmg_Cfg().Enabled == 1) and (not FBAddonSuppressed); if (on == FBDmgActive) then return; end FBDmgActive = on; for _, ev in ipairs(FBDmgActiveEvents) do if (on) then FBDmgFrame:RegisterEvent(ev); else FBDmgFrame:UnregisterEvent(ev); end end if (on) then -- Was waehrend der Pause auf den Leisten passiert ist, weiss das -- Modul nicht: Slots neu lesen, Zauberbuch bei Bedarf auch. FBDmgSlotCache = {}; if (FBDmgSpellsDirty) then FBDmg_ScheduleScan(); end FBDmg_ResetTarget(); else FBDmgTargetName = nil; FBDmgAnchorPct = nil; FBDmgAccum = 0; FBDmgLastCast = nil; end end -- Zauberbuch im naechsten Frame lesen, einmal je Salve. Beim Login kommen -- PLAYER_ENTERING_WORLD und mehrere SPELLS_CHANGED kurz hintereinander, -- bis 1.4.6 las jedes davon alle Schadenszauber samt Tooltips sofort. Der -- OnUpdate haengt nur, solange etwas ansteht. function FBDmg_ScheduleScan() FBDmgSpellsDirty = true; -- Gelesen wird, wenn das Modul an ist oder jemand die Liste gerade sieht if (FBDmgActive) or (FBPanel and FBPanel:IsVisible()) then FBDmgFrame:SetScript("OnUpdate", FBDmg_OnUpdate); end end function FBDmg_OnUpdate() FBDmgFrame:SetScript("OnUpdate", nil); if (FBAddonSuppressed) or (not FBDmgSpellsDirty) then return; end if (FBDmgActive) then FBDmg_ScanSpells(); FBDmg_UpdateSpellText(); FBDmg_ResetTarget(); else -- Ausgeschaltet, Optionen offen: liest bei Bedarf selbst FBDmg_UpdateSpellText(); end end FBDmgFrame:SetScript("OnEvent", function() if (FBAddonSuppressed) then return; end if (event == "PLAYER_ENTERING_WORLD" or event == "SPELLS_CHANGED") then FBDmg_ScheduleScan(); elseif (event == "ACTIONBAR_SLOT_CHANGED") then if (arg1) then FBDmgSlotCache[arg1] = nil; else FBDmgSlotCache = {}; end elseif (event == "PLAYER_TARGET_CHANGED") then FBDmg_ResetTarget(); elseif (event == "UNIT_HEALTH") then if (arg1 == "target") then FBDmg_OnTargetHealth(); FBDmg_UpdateSourceText(); end else FBDmg_OnCombatLog(arg1); end end); -- ========================================================================== -- [ Optionen: Abschnitt im Reiter "Extras" ] -- ========================================================================== function FBDmg_SourceText() if (not UnitExists("target")) then return FBT("DMG_SRC_NONE"); end local cur, max, source = FBDmg_TargetHP("target"); if (source == "real") then return FBT("DMG_SRC_REAL"); end if (source == "mh3") then return FBT("DMG_SRC_MH3"); end if (source == "mi2") then return FBT("DMG_SRC_MI2"); end if (source == "est") then local n = 0; for _ in pairs(HealBox.MobHP or {}) do n = n + 1; end return format(FBT("DMG_SRC_EST"), n); end return FBT("DMG_SRC_UNKNOWN"); end function FBDmg_UpdateSourceText() -- nur, wenn das Optionsfenster offen ist (sonst je UNIT_HEALTH des Ziels umsonst) if (FBDmgSourceText and FBPanel and FBPanel:IsVisible()) then FBDmgSourceText:SetText(format(FBT("DMG_SRC"), FBDmg_SourceText())); end end function FBDmg_UpdateSpellText() if (not FBDmgSpellText) then return; end -- Ausgeschaltet liest das Modul das Zauberbuch erst, wenn jemand die -- Optionen ansieht if (FBDmgSpellsDirty and FBPanel and FBPanel:IsVisible()) then FBDmg_ScanSpells(); end local list = {}; for _, n in ipairs(FBDamageSpells[FBClass] or {}) do if (FBDmgSpellRanks[n]) then table.insert(list, n.." ("..table.getn(FBDmgSpellRanks[n])..")"); end end local shown = "-"; if (table.getn(list) > 0) then shown = table.concat(list, ", "); end FBDmgSpellText:SetText(format(FBT("DMG_SPELLS"), shown)); end -- Eigener Abschnitt im Reiter "Extras", den der Kern verwaltet. Bis 1.4.6 -- suchte das Modul den Reiter des Mana-Tickers und setzte sich 232 px -- darunter; ohne Tickerdatei gab es fuer Smart Damage gar keine Optionen. function FBDmg_BuildOptions() local tab, y = FBHealBox_ExtrasSection(FBDMG_SECTION_H); if (not tab) then return; end FBDmgHeader = tab:CreateFontString(nil, "OVERLAY", "GameFontNormal"); FBDmgHeader:SetPoint("TOPLEFT", tab, "TOPLEFT", 35, y); FBDmgHeader:SetText(FBT("DMG_HEADER")); FBDmgEnabledCheck = FBHealBox_CreateCheck("FBHealBoxDmgEnabledCheck", tab, 34, y - 20, "DMG_ENABLED", "DMG_ENABLED_TIP", function() FBDmg_Cfg().Enabled = FBDmgEnabledCheck:GetChecked() and 1 or 0; FBDmg_UpdateActive(); end); FBDmgEnabledCheck:SetChecked(nil); FBDmgMarginSlider = FBHealBox_CreateSlider("FBDmgMarginSlider", tab, 268, y - 40, "DMG_MARGIN", FBDmg_Cfg, "Margin", 0, 50, 5, false, nil, nil, 170); FBDmgSourceText = tab:CreateFontString(nil, "OVERLAY", "GameFontNormalSmall"); FBDmgSourceText:SetPoint("TOPLEFT", tab, "TOPLEFT", 40, y - 80); FBDmgSourceText:SetWidth(390); FBDmgSourceText:SetJustifyH("LEFT"); FBDmgSpellText = tab:CreateFontString(nil, "OVERLAY", "GameFontNormalSmall"); FBDmgSpellText:SetPoint("TOPLEFT", tab, "TOPLEFT", 40, y - 96); FBDmgSpellText:SetWidth(390); FBDmgSpellText:SetJustifyH("LEFT"); FBDmgInfoText = tab:CreateFontString(nil, "OVERLAY", "GameFontDisableSmall"); FBDmgInfoText:SetPoint("TOPLEFT", tab, "TOPLEFT", 35, y - 120); FBDmgInfoText:SetWidth(395); FBDmgInfoText:SetJustifyH("LEFT"); FBDmgInfoText:SetText(FBT("DMG_INFO")); FBDmg_UpdateSourceText(); FBDmg_UpdateSpellText(); FBDmg_SyncOptions(); -- beim Oeffnen des Fensters die Zielzeile auffrischen (Vor-Hook auf OnShow) local prevShow = FBPanel:GetScript("OnShow"); FBPanel:SetScript("OnShow", function() if (prevShow) then prevShow(); end FBDmg_UpdateSourceText(); FBDmg_UpdateSpellText(); end); end function FBDmg_SyncOptions() local cfg = FBDmg_Cfg(); if (FBDmgEnabledCheck) then FBDmgEnabledCheck:SetChecked(cfg.Enabled == 1); end if (FBDmgMarginSlider) then FBDmgMarginSlider:SetValue(cfg.Margin or 20); end FBDmg_UpdateActive(); return true; end function FBDmg_ApplyLocale() if (FBDmgHeader) then FBDmgHeader:SetText(FBT("DMG_HEADER")); end if (FBDmgEnabledCheck) then FBDmgEnabledCheck.Text:SetText(FBT("DMG_ENABLED")); FBDmgEnabledCheck.tooltipText = FBT("DMG_ENABLED_TIP"); end if (FBDmgInfoText) then FBDmgInfoText:SetText(FBT("DMG_INFO")); end FBHealBox_SliderText(FBDmgMarginSlider); FBDmg_UpdateSourceText(); FBDmg_UpdateSpellText(); return true; end -- ========================================================================== -- [ Anbindung an den Kern ] -- ========================================================================== FBHealBox_RegisterHook("Loaded", function() DEFAULT_CHAT_FRAME:AddMessage("|cFFFFFF00"..FBADDON_NAME..":|r "..FBT("DMG_LOADED")); FBDmg_UpdateActive(); return true; end); FBHealBox_RegisterHook("Suppress", function() FBDmg_UpdateActive(); return true; end); FBHealBox_RegisterHook("Defaults", function() return FBDmg_ApplyDefaults(); end); FBHealBox_RegisterHook("SyncOptions", function() return FBDmg_SyncOptions(); end); FBHealBox_RegisterHook("ApplyLocale", function() return FBDmg_ApplyLocale(); end); FBHealBox_RegisterHook("Status", function() local cfg = FBDmg_Cfg(); local state = FBT("FBP_STATE_OFF"); if (cfg.Enabled == 1) then state = FBT("FBP_STATE_ON"); end DEFAULT_CHAT_FRAME:AddMessage("|cFF00FFFF[FBP]|r "..format(FBT("DMG_STATUS"), state, cfg.Margin or 20, FBDmg_SourceText())); return true; end); FBHealBox_RegisterHook("Slash", function(msg) if (msg == "damage" or msg == "dmg") then local cfg = FBDmg_Cfg(); if (cfg.Enabled == 1) then cfg.Enabled = 0; else cfg.Enabled = 1; end FBDmg_SyncOptions(); -- schaltet auch die Ereignisse um local key = "DMG_OFF"; if (cfg.Enabled == 1) then key = "DMG_ON"; end DEFAULT_CHAT_FRAME:AddMessage("|cFFFFFF00"..FBADDON_NAME..":|r "..FBT(key)); return true; end return false; end); FBDmg_ApplyDefaults(); FBDmg_BuildOptions(); FBDmg_HookUseAction();