Exiles/coa-decursive
3
0
Fork 0
Code Pull Requests Actions Packages Releases 4 Wiki Activity
Files
4c12f339e14d300e51976408e4abfbd14e6c6198
coa-decursive/Decursive/Dcr_Events.lua
T
Jeremy P 8d647691b8 Added OG9 spell IDs and removed old disable check code (#4) 
* Added OG9 spell ids

* minor formatting

* removed old "disable" code for some players original author didn't like

* ascension version change

* missed a call to chjeckplayer
2025-11-09 10:38:34 -07:00

834 lines
32 KiB
Lua
Raw Blame History

--[[
This file is part of Decursive.
Decursive (v 2.5.1-6-gd3885c5) add-on for World of Warcraft UI
Copyright (C) 2006-2007-2008-2009 John Wellesz (archarodim AT teaser.fr) ( http://www.2072productions.com/to/decursive.php )
Starting from 2009-10-31 and until said otherwise by its author, Decursive
is no longer free software, all rights are reserved to its author (John Wellesz).
The only official and allowed distribution means are www.2072productions.com, www.wowace.com and curse.com.
To distribute Decursive through other means a special authorization is required.
Decursive is inspired from the original "Decursive v1.9.4" by Quu.
The original "Decursive 1.9.4" is in public domain ( www.quutar.com )
Decursive is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY.
--]]
-------------------------------------------------------------------------------
local addonName, T = ...;
-- big ugly scary fatal error message display function {{{
if not T._FatalError then
-- the beautiful error popup : {{{ -
StaticPopupDialogs["DECURSIVE_ERROR_FRAME"] = {
text = "|cFFFF0000Decursive Error:|r\n%s",
button1 = "OK",
OnAccept = function()
return false;
end,
timeout = 0,
whileDead = 1,
hideOnEscape = 1,
showAlert = 1,
}; -- }}}
T._FatalError = function (TheError) StaticPopup_Show ("DECURSIVE_ERROR_FRAME", TheError); end
end
-- }}}
if not T._LoadedFiles or not T._LoadedFiles["Dcr_opt.lua"] then
if not DecursiveInstallCorrupted then T._FatalError("Decursive installation is corrupted! (Dcr_opt.lua not loaded)"); end;
DecursiveInstallCorrupted = true;
return;
end
local D = Dcr;
--D:SetDateAndRevision("$Date: 2008-09-16 00:25:13 +0200 (mar., 16 sept. 2008) $", "$Revision: 81755 $");
local L = D.L;
local LC = D.LC;
local DC = DcrC;
local DS = DC.DS;
D.DebuffUpdateRequest = 0;
--@alpha@
D.DetectHistory = {};
--@end-alpha@
local pairs = _G.pairs;
local next = _G.next;
local pairs = _G.pairs;
local ipairs = _G.ipairs;
local unpack = _G.unpack;
local select = _G.select;
local table = _G.table;
local UnitCreatureFamily = _G.UnitCreatureFamily;
local InCombatLockdown = _G.InCombatLockdown;
local PlaySoundFile = _G.PlaySoundFile;
local UnitExists = _G.UnitExists;
local UnitCanAttack = _G.UnitCanAttack;
local UnitName = _G.UnitName;
local UnitGUID = _G.UnitGUID;
local GetTime = _G.GetTime;
function D:GroupChanged (reason) -- {{{
-- this will trigger an update of the unit array
self.Groups_datas_are_invalid = true;
self.Status.GroupUpdateEvent = self:NiceTime();
if self.profile.ShowDebuffsFrame then
-- Update the MUFs display in a short moment
self.MicroUnitF:Delayed_MFsDisplay_Update ();
elseif not self.profile.Hide_LiveList then
D:ScheduleDelayedCall("Dcr_GetUnitArray", self.GetUnitArray, 1.5, self);
end
-- Test if we have to hide Decursive MUF window
if self.profile.AutoHideDebuffsFrame ~= 0 then
self:ScheduleDelayedCall("Dcr_CheckIfHideShow", self.AutoHideShowMUFs, 2, self);
end
self:Debug("Groups changed", reason);
end -- }}}
local OncePetRetry = false;
function D:UNIT_PET (selfevent, Unit) -- {{{
-- when a pet changes somwhere, we update the unit array.
D:Debug("Pet changed for: ", Unit);
if (D.profile.Scan_Pets and Unit ~= "focus" and self.Status.Unit_Array_UnitToGUID[Unit]) then
D:GroupChanged ("UNIT_PET");
end
-- If the player's pet changed then we should check it for interesting spells
if ( Unit == "player" ) then
self:ScheduleDelayedCall("Dcr_CheckPet", self.UpdatePlayerPet, 2, self);
OncePetRetry = false;
D:Debug ("PLAYER pet detected! Poll in 2 seconds...");
end
end -- }}}
local curr_petType = false;
local last_petType = false;
function D:UpdatePlayerPet () -- {{{
curr_petType = UnitCreatureFamily("pet");
D:Debug("|cFF0000FFCurrent Pet type is",curr_petType,"|r");
-- if we had a pet and lost it, retry once later...
if (last_petType and not curr_petType and not OncePetRetry) then
OncePetRetry = true;
D:Debug("|cFF9900FFPet lost, retry in 10 seconds|r");
D:ScheduleDelayedCall("Dcr_ReCheckPetOnce", D.UpdatePlayerPet, 10, self);
return;
end
-- if we've changed of pet
if (last_petType ~= curr_petType) then
if (curr_petType) then D:Debug ("|cFF0066FFPet name changed:",curr_petType,"|r"); else D:Debug ("|cFF0066FFNo more pet!|r"); end; -- debug info only
last_petType = curr_petType;
D:Configure();
else
D:Debug ("|cFFAA66FFNo change in Pet Type",curr_petType,"|r");
end
end -- }}}
local FocusPrevious_ElligStatus = false;
function D:PLAYER_FOCUS_CHANGED () -- {{{
-- we need to rescan if the focus is not in our group and it's nice or if we already have a focus unit registered
local FocusCurrent_ElligStatus = (
not self.Status.Unit_Array_GUIDToUnit[UnitGUID("focus")] -- it's not already in the unit array
) and ( UnitExists("focus") and (not UnitCanAttack("focus", "player") or UnitIsFriend("focus", "player"))) -- and it is (or used to) be nice
if not FocusCurrent_ElligStatus then FocusCurrent_ElligStatus = false; end -- avoid the difference between nil and false...
if FocusCurrent_ElligStatus~=FocusPrevious_ElligStatus or self.Status.Unit_Array_UnitToGUID["focus"] then
self:GroupChanged ("FOCUS changed");
self:Debug("Groups set to invalid due to focus update", FocusPrevious_ElligStatus, FocusCurrent_ElligStatus);
self.MicroUnitF:UpdateMUFUnit("focus", true); -- update the focus unit
if FocusCurrent_ElligStatus~=FocusPrevious_ElligStatus then -- if the focus is no longer valid, we need to update things
self.MicroUnitF:Delayed_MFsDisplay_Update();
end
FocusPrevious_ElligStatus = FocusCurrent_ElligStatus;
end
end -- }}}
function D:OnDebugEnable ()
self.db.global.debugging = true;
end
function D:OnDebugDisable ()
self.db.global.debugging = false;
end
-- This function update Decursive states :
-- - Clear the black list
-- - Execute things we couldn't do when in combat
local LastScanAllTime = 0;
D.Status.MaxConcurentUpdateDebuff = 0;
function D:ScheduledTasks() -- {{{
-- clean up the blacklist
for unit in pairs(self.Status.Blacklisted_Array) do
self.Status.Blacklisted_Array[unit] = self.Status.Blacklisted_Array[unit] - 0.1;
if (self.Status.Blacklisted_Array[unit] < 0) then
self.Status.Blacklisted_Array[unit] = nil; -- remove it from the BL
end
end
if (self.Status.Combat and not InCombatLockdown()) then -- just in case...
D:LeaveCombat();
end
if (not InCombatLockdown() and self.Status.DelayedFunctionCallsCount > 0) then
for Id, FuncAndArgs in pairs (self.Status.DelayedFunctionCalls) do
D:Debug("Running post combat command", Id);
local DidSmth = FuncAndArgs.func(unpack(FuncAndArgs.args));
self.Status.DelayedFunctionCalls[Id] = nil; -- remove it from the list
self.Status.DelayedFunctionCallsCount = self.Status.DelayedFunctionCallsCount - 1;
if (DidSmth) then
break;
end
end
end
if D.DebuffUpdateRequest > D.Status.MaxConcurentUpdateDebuff then
D.Status.MaxConcurentUpdateDebuff = D.DebuffUpdateRequest;
end
-- Rescan all only if the MUF are used else we don't care at all...
if self.profile.ShowDebuffsFrame and GetTime() - LastScanAllTime > 1 then
self:ScanEveryBody();
LastScanAllTime = GetTime();
end
D.DebuffUpdateRequest = 0;
end --}}}
-- the combat functions and events. // {{{
-------------------------------------------------------------------------------
function D:EnterCombat() -- called on PLAYER_REGEN_DISABLED {{{
-- this is not reliable for testing unitframe modifications authorization,
-- this event fires after the player enters in combat, only InCombatLockdown() may be used for critical checks
self.Status.Combat = true;
end --}}}
local LastDebugReportNotification = 0;
function D:LeaveCombat() --{{{
--D:Debug("Leaving combat");
self.Status.Combat = false;
-- test for debug report
if #T._DebugTextTable > 0 and GetTime() - LastDebugReportNotification > 300 then
if LastDebugReportNotification == 0 then
T._FatalError(L["DECURSIVE_DEBUG_REPORT_NOTIFY"]);
end
self:Println(L["DECURSIVE_DEBUG_REPORT_NOTIFY"]);
LastDebugReportNotification = GetTime();
end
end --}}}
-- }}}
-- This let us park command we can't execute while in combat to execute them later {{{
-- the called function must return a non false value when it does something to prevent UI lagging
function D:AddDelayedFunctionCall(CallID,functionLink, ...)
if (not self.Status.DelayedFunctionCalls[CallID]) then
self.Status.DelayedFunctionCalls[CallID] = {["func"] = functionLink, ["args"] = {...}};
self.Status.DelayedFunctionCallsCount = self.Status.DelayedFunctionCallsCount + 1;
elseif select("#",...) > 1 then -- if we had more than the function reference and its object
local args = self.Status.DelayedFunctionCalls[CallID].args;
for i=1,select("#",...), 1 do
args[i]=select(i, ...);
end
end
end -- }}}
function D:UPDATE_MOUSEOVER_UNIT ()
if not self.profile.Hide_LiveList and not self.Status.MouseOveringMUF and not UnitCanAttack("mouseover", "player") then
-- D:Debug("will check MouseOver");
self.LiveList:DelayedGetDebuff("mouseover");
end
end
function D:PLAYER_TARGET_CHANGED()
if UnitExists("target") and not UnitCanAttack("player", "target") then
D.Status.TargetExists = true;
self.LiveList:DelayedGetDebuff("target");
if self:CheckUnitStealth("target") then
self.Stealthed_Units["target"] = true;
end
else
D.Status.TargetExists = false;
self.Stealthed_Units["target"] = false;
end
end
function D:PLAYER_ALIVE()
D:Debug("|cFFFF0000PLAYER_ALIVE|r");
D:ReConfigure();
self:UnregisterEvent("PLAYER_ALIVE");
end
function D:LEARNED_SPELL_IN_TAB()
D:Debug("|cFFFF0000A new spell was learned, scheduling a reconfiguration|r");
self:ScheduleDelayedCall("Dcr_NewSpellLearned", self.Configure, 5, self);
end
function D:SPELLS_CHANGED()
D:Debug("|cFFFF0000Spells were changed, scheduling a reconfiguration check|r");
self:ScheduleDelayedCall("Dcr_SpellsChanged", self.ReConfigure, 15, self);
end
function D:PLAYER_TALENT_UPDATE()
D:Debug("|cFFFF0000Talents were changed, scheduling a reconfiguration check|r");
self:ScheduleDelayedCall("Dcr_TalentUpdate", self.ReConfigure, 4, self);
end
---[=[
local SeenUnitEventsUNITAURA = {};
local SeenUnitEventsCOMBAT = {};
do
local FAR = DC.FAR;
local UnitAura = _G.UnitAura;
local UnitGUID = _G.UnitGUID;
local UnitIsCharmed = _G.UnitIsCharmed;
local time = _G.time;
local GetTime = _G.GetTime;
-- This event manager is only here to catch events when the GUID unit array is not reliable.
-- For everything else the combat log event manager does the job since it's a lot more resource friendly. (UNIT_AURA fires way too often and provides no data)
function D:UNIT_AURA(selfevent, UnitID, ...)
if not self.Status.Unit_Array_UnitToGUID[UnitID] then
-- self:Debug(UnitID, " |cFFFF7711is not in raid|r");
return;
end
local unitguid = UnitGUID(UnitID);
--[===[@debug@
--D:Debug("UNIT_AURA", ..., UnitID, GetTime() + (GetTime() % 1));
--@end-debug@]===]
-- Here we test if the GUID->Unit array is ok if it isn't we need to scan the unit for debuffs
-- We also scan the unit if it's charmed. The combatLog event manager tends to not detect those properly, the charm effect is a bitch to manage.
if unitguid ~= self.Status.Unit_Array_UnitToGUID[UnitID] or UnitID ~= self.Status.Unit_Array_GUIDToUnit[unitguid] or UnitIsCharmed(UnitID) then
local unitToguid = self.Status.Unit_Array_UnitToGUID[UnitID];
-- if we updated the unit array but we are here then rebuild the unit array.
if self.Status.GroupUpdatedOn >= self.Status.GroupUpdateEvent then
D:GroupChanged("UNIT_AURA-|cFFFF0000bad group detection|r");
--[=[
self:AddDebugText("AURA event received and Unit_Array_UnitToGUID ~= UnitGUID() and groups up to date, SG:", self.Status.Unit_Array_UnitToGUID[UnitID],
"FG:", unitguid,
"Unit ID:|cFFFF0000", UnitID,
"|rGUIDToUnit[UnitGUID()]:", unitguid and self.Status.Unit_Array_GUIDToUnit[unitguid] or "Xnoguid",
"GUIDToUnit[UnitToGUID[]]:|cFFFF0000", unitToguid and self.Status.Unit_Array_GUIDToUnit[unitToguid] or "Xnone",
"|rScP:", self.profile.Scan_Pets,
"LGU:", self.Status.GroupUpdatedOn,
"LGuEr", self.Status.GroupUpdateEvent,
"foundUnits:", #self.Status.Unit_Array,
"RealRaidNum:", GetNumRaidMembers()
--"Zone:", GetZoneText()
--"FUnitsList:", unpack(D.Status.Unit_Array)
);
--]=]
end
--[===[@debug@
self:Debug("|cFF552255UNIT_AURA triggers a rescan|r because of", UnitID);
--@end-debug@]===]
if unitguid then
self.Status.Unit_Array_UnitToGUID[UnitID] = unitguid;
self.Status.Unit_Array_GUIDToUnit[unitguid] = UnitID;
end
if self.profile.ShowDebuffsFrame and self.MicroUnitF.UnitToMUF[UnitID] then
if self.MicroUnitF.UnitToMUF[UnitID].UnitStatus == FAR then
--self:Debug(UnitID, " |cFFFF7711is too far|r (UNIT_AURA)");
return
end
-- get out of here if this is just about a fucking buff, combat log event manager handles those... unless there is no debuff because the last was removed
if not UnitAura(UnitID, 1, "HARMFUL") and not self.MicroUnitF.UnitToMUF[UnitID].IsDebuffed then
--self:Debug(UnitID, " |cFFFF7711has no debuff|r (UNIT_AURA)");
return;
end
--self:errln("update schedule for MUF", UnitID);
self.MicroUnitF:UpdateMUFUnit(UnitID, true);
return;
end
if not self.profile.Hide_LiveList then
self.LiveList:DelayedGetDebuff(UnitID);
end
end
end
end
--]=]
do
local bit = _G.bit;
local band = bit.band;
local bor = bit.bor;
local UnitGUID = _G.UnitGUID;
local GetTime = _G.GetTime;
local GetSpellInfo = _G.GetSpellInfo;
local time = _G.time;
local timev = 0;
--@alpha@
local DetectHistoryIndex = 1;
--@end-alpha@
-- AURA bitfields -- now useless {{{
-- a friendly player character controled directly by the player that is not an outsider
local PLAYER = bit.bor (COMBATLOG_OBJECT_CONTROL_PLAYER , COMBATLOG_OBJECT_TYPE_PLAYER , COMBATLOG_OBJECT_REACTION_FRIENDLY ); -- still used
local PLAYER_MASK = bit.bnot (COMBATLOG_OBJECT_AFFILIATION_OUTSIDER);
-- a hostile player character contoled as a pet and that is not an outsider
local REACTION_HOSTILE = COMBATLOG_OBJECT_REACTION_HOSTILE;
-- a pet controled by a friendly player that is not an outsider
local PET = bit.bor (COMBATLOG_OBJECT_CONTROL_PLAYER , COMBATLOG_OBJECT_TYPE_PET , COMBATLOG_OBJECT_REACTION_FRIENDLY );
local PET_MASK = bit.bnot (COMBATLOG_OBJECT_AFFILIATION_OUTSIDER);
-- An outsider friendly focused unit
local FOCUSED_FRIEND = bit.bor (COMBATLOG_OBJECT_REACTION_FRIENDLY , COMBATLOG_OBJECT_FOCUS , COMBATLOG_OBJECT_AFFILIATION_OUTSIDER);
-- }}}
local OUTSIDER = COMBATLOG_OBJECT_AFFILIATION_OUTSIDER;
local HOSTILE_OUTSIDER = bit.bor (COMBATLOG_OBJECT_AFFILIATION_OUTSIDER, COMBATLOG_OBJECT_REACTION_HOSTILE);
local FRIENDLY_TARGET = bit.bor (COMBATLOG_OBJECT_TARGET, COMBATLOG_OBJECT_REACTION_FRIENDLY);
local ME = COMBATLOG_OBJECT_AFFILIATION_MINE;
local AuraEvents = { -- check if there are some other rare events...
["SPELL_AURA_APPLIED"] = 1,
["SPELL_AURA_APPLIED_DOSE"] = 1,
["SPELL_AURA_REMOVED"] = 0,
["SPELL_AURA_APPLIED_DOSE"] = 1,
["SPELL_AURA_REMOVED_DOSE"] = 0,
["UNIT_DIED"] = 0,
--["SPELL_AURA_DISPELLED"] = 0,
};
local SpellEvents = {
["SPELL_MISSED"] = true,
["SPELL_CAST_START"] = true,
["SPELL_CAST_FAILED"] = true,
["SPELL_CAST_SUCCESS"] = true,
["SPELL_DISPEL_FAILED"] = true,
};
local UnitID;
function D:DummyDebuff (UnitID)
--[=[
if self.profile.ShowDebuffsFrame then
self.MicroUnitF:UpdateMUFUnit(UnitID);
elseif not self.profile.Hide_LiveList then
self.LiveList:DelayedGetDebuff(UnitID);
end
--]=]
D:COMBAT_LOG_EVENT_UNFILTERED("COMBAT_LOG_EVENT_UNFILTERED", 0, "SPELL_AURA_APPLIED", nil, nil, COMBATLOG_OBJECT_NONE, UnitGUID(UnitID), (UnitName(UnitID)), PLAYER, 0, "Test item", 0x32, "DEBUFF");
end
local SpecialDebuffs = {
[59868] = "SPELL_DAMAGE",
};
local oldest = 0;
function D:COMBAT_LOG_EVENT_UNFILTERED(selfevent, timestamp, event, sourceGUID, sourceName, sourceFlags, destGUID, destName, destFlags, arg9, arg10, arg11, arg12)
--@alpha@
--[=[
if destGUID or destName or arg10 then
UnitID = self.Status.Unit_Array_GUIDToUnit[destGUID]; -- get the grouped unit associated to the destGUID if there is none then the unit is not in our group or is filtered out
timev = GetTime();
if timev - oldest > 120 then DetectHistoryIndex = 1 end
if DetectHistoryIndex == 1 then
oldest = timev;
end
if not D.DetectHistory[DetectHistoryIndex] then
D.DetectHistory[DetectHistoryIndex] = {timev, UnitID or "NIL", timestamp or "NIL", event or "NIL", sourceGUID or "NIL", sourceName or "NIL", sourceFlags or "NIL", destGUID or "NIL", destName or "NIL", destFlags or "NIL", arg9 or "NIL", arg10 or "NIL", arg11 or "NIL", arg12 or "NIL"};
else
local temp = D.DetectHistory[DetectHistoryIndex];
temp[1] = timev;
temp[2] = UnitID or "NIL";
temp[3] = timestamp or "NIL";
temp[4] = event or "NIL";
temp[5] = sourceGUID or "NIL";
temp[6] = sourceName or "NIL";
temp[7] = sourceFlags or "NIL";
temp[8] = destGUID or "NIL";
temp[9] = destName or "NIL";
temp[10] = destFlags or "NIL";
temp[11] = arg9 or "NIL";
temp[12] = arg10 or "NIL";
temp[13] = arg11 or "NIL";
temp[14] = arg12 or "NIL";
end
DetectHistoryIndex = DetectHistoryIndex + 1;
end
--]=]
--@end-alpha@
-- check for exceptions
if SpecialDebuffs[arg9] and event == SpecialDebuffs[arg9] then
--[=[
--@alpha@
if self.Status.CuringSpells[DC.MAGIC] then
UnitID = self.Status.Unit_Array_GUIDToUnit[destGUID]; -- get the grouped unit associated to the destGUID if there is none then the unit is not in our group or is filtered out
--self:AddDebugText("CbEvent with DM:", timestamp, event, sourceGUID, sourceName, sourceFlags, destGUID, destName, destFlags, arg9, arg10, arg11, arg12, "Z:", GetZoneText(), "Unit:", UnitID);
end
--@end-alpha@
--]=]
event = "SPELL_AURA_APPLIED";
end
if destName and AuraEvents[event] then
if not self.DcrFullyInitialized then
self:Println("|cFFFF0000Could not process event: init uncomplete!|r");
return;
end
UnitID = self.Status.Unit_Array_GUIDToUnit[destGUID]; -- get the grouped unit associated to the destGUID if there is none then the unit is not in our group or is filtered out
--D:Print("? (source=%s) (dest=|cFF00AA00%s|r -- %X): |cffff0000%s|r", sourceName, destName, destFlags, event);
-- we don't use the following test because it's unecessary, if a unit is missing, it'll be scanned on addition anyway...
--if not UnitID and band (destFlags, OUTSIDER) ~= OUTSIDER then -- we don't have a unit but the flags say it's in our group...
--end
if UnitID then -- this test is enough, if the unit is groupped we definetely need to scan it, whatever is its status...
--[=[
if UnitGUID(UnitID) ~= destGUID then -- sometimes UnitGUID("player") may returns nil... but it's not important since the player GUID is registered once and for all at init time
self.Groups_datas_are_invalid = true;
self:GetUnitArray();
UnitID = self.Status.Unit_Array_GUIDToUnit[destGUID];
if not UnitID then
D:Debug("|cFFFF0000No unit for GUID %s|r, in skip list?", destGUID);
return;
end
end
--]=]
if arg12 == "BUFF" and self.profile.Show_Stealthed_Status then
if DC.IsStealthBuff[arg10] then
if AuraEvents[event] == 1 then
self.Stealthed_Units[UnitID] = true;
else
if self.debugging then D:Debug("STEALTH LOST: ", UnitID, arg10); end
self.Stealthed_Units[UnitID] = false;
end
self.MicroUnitF:UpdateMUFUnit(UnitID);
end
else
--[===[@debug@
if self.debugging then D:Debug("Debuff, UnitId: ", UnitID, arg10, event, time() + (GetTime() % 1), timestamp); end
--@end-debug@]===]
if self.profile.ShowDebuffsFrame then
self.MicroUnitF:UpdateMUFUnit(UnitID);
--@alpha@
--D.DetectHistory[DetectHistoryIndex - 1][4] = D.DetectHistory[DetectHistoryIndex - 1][4] .. " DETECTED by cem " .. D.DebuffUpdateRequest;
--@end-alpha@
elseif not self.profile.Hide_LiveList then
if self.debugging then D:Debug("(LiveList) Registering delayed GetDebuff for ", destName); end
self.LiveList:DelayedGetDebuff(UnitID);
end
if event == "UNIT_DIED" then
self.Stealthed_Units[UnitID] = false;
end
end
end
if self.Status.TargetExists and band (destFlags, FRIENDLY_TARGET) == FRIENDLY_TARGET then -- TARGET
if self.debugging then D:Debug("A Target got something (source=", sourceName, "sFlags:", D:NumToHexStr(sourceFlags), "(dest=|cFF00AA00", destName, "dFlags:", D:NumToHexStr(destFlags), "|r, |cffff0000", event, "|r, |cFF00AAAA", arg10, "|r", arg12); end
self.LiveList:DelayedGetDebuff("target");
if arg12 == "BUFF" and self.profile.Show_Stealthed_Status then
if DC.IsStealthBuff[arg10] then
if AuraEvents[event] == 1 then
self.Stealthed_Units["target"] = true;
else
if self.debugging then D:Debug("TARGET STEALTH LOST: ", "target", arg10); end
self.Stealthed_Units["target"] = false;
end
end
end
end
-- SPELL EVENTS {{{
elseif self.Status.ClickedMF and SpellEvents[event] and self.Status.CuringSpellsPrio[arg10] and band(sourceFlags, ME) ~= 0 then -- SPELL_MISSED SPELL_CAST_START SPELL_CAST_FAILED SPELL_CAST_SUCCESS DISPEL_FAILED
if event == "SPELL_CAST_START" then -- useless
self:Print("|cFFFF0000Starting SPELL: ", arg10, "|r");
self:ScheduleDelayedCall("Dcr_UpdatePC"..self.Status.ClickedMF.CurrUnit, self.Status.ClickedMF.Update, 1 + ((select(7, GetSpellInfo(arg9))) / 1000), self.Status.ClickedMF);
end
if event == "SPELL_CAST_SUCCESS" then
if self.debugging then self:Debug(L["SUCCESSCAST"], arg10, (select(2, GetSpellInfo(arg9))), D:MakePlayerName(destName)); end
--self:Debug("|cFFFF0000XXXXX|r |cFF11FF11Updating color of clicked frame|r");
self:ScheduleDelayedCall("Dcr_UpdatePC"..self.Status.ClickedMF.CurrUnit, self.Status.ClickedMF.Update, 1, self.Status.ClickedMF);
self:ScheduleDelayedCall("Dcr_clickedMFreset",
function()
if D.Status.ClickedMF then
D.Status.ClickedMF.SPELL_CAST_SUCCESS = false;
D.Status.ClickedMF = false;
if self.debugging then D:Debug("ClickedMF to false (sched)"); end
end
end, 0.1 );
self.Status.ClickedMF.SPELL_CAST_SUCCESS = true;
end
if event == "SPELL_CAST_FAILED" and not D.Status.ClickedMF.SPELL_CAST_SUCCESS then
destName = self:PetUnitName( self.Status.ClickedMF.CurrUnit, true);
D:Println(L["FAILEDCAST"], arg10, (select(2, GetSpellInfo(arg9))), D:MakePlayerName(destName), arg12);
if (arg12 == SPELL_FAILED_LINE_OF_SIGHT or arg12 == SPELL_FAILED_BAD_TARGETS) then
if not self.profile.DoNot_Blacklist_Prio_List or not self:IsInPriorList(self.Status.Unit_Array_UnitToGUID[self.Status.ClickedMF.CurrUnit]) then
self.Status.Blacklisted_Array[self.Status.ClickedMF.CurrUnit] = self.profile.CureBlacklist;
self:Debug("|cFFFF0000XXXXX|r |cFF11FF11Updating color of blacklist frame|r");
self:ScheduleDelayedCall("Dcr_Update"..self.Status.ClickedMF.CurrUnit, self.Status.ClickedMF.UpdateSkippingSetBuf, self.profile.DebuffsFrameRefreshRate, self.Status.ClickedMF);
end
PlaySoundFile(DC.FailedSound);
--[=[
elseif arg12 == SPELL_FAILED_BAD_IMPLICIT_TARGETS then
self:AddDebugText("ERR_GENERIC_NO_TARGET", "Unit:", self.Status.ClickedMF.CurrUnit, "UE:", UnitExists(self.Status.ClickedMF.CurrUnit), "UiF:", UnitIsFriend("player",self.Status.ClickedMF.CurrUnit), "CBEs:", timestamp, event, sourceGUID, sourceName, sourceFlags, destGUID, destName, destFlags, arg9, arg10, arg11, arg12); --]=]
end
self.Status.ClickedMF = false;
elseif event == "SPELL_MISSED" or event == "SPELL_DISPEL_FAILED" then -- XXX to test
destName = self:PetUnitName( self.Status.ClickedMF.CurrUnit, true);
D:Println(L["FAILEDCAST"], arg10, (select(2, GetSpellInfo(arg9))), D:MakePlayerName(destName), arg12);
PlaySoundFile(DC.FailedSound);
self.Status.ClickedMF = false;
end
---- }}}
--else
-- if self.debugging then D:Debug(sourceName, sourceFlags, destName, destFlags, event, arg10, arg11, arg12, arg13, arg14, arg15, arg16); end
-- }}}
end
end
end
function D:SPELL_UPDATE_COOLDOWN()
D.Status.UpdateCooldown = GetTime();
end
T.LastVCheck = 0;
function D:AskVersion()
if InCombatLockdown() then
-- if we are fighting, postpone the call
D:AddDelayedFunctionCall ("AskVersion", self.AskVersion);
return false;
end
if GetTime() - T.LastVCheck < 60 then
D:Debug("AskVersion(): Too early!");
return false;
end
T.LastVCheck = GetTime();
local Distribution = false;
-- "PARTY", "RAID", "GUILD", "BATTLEGROUND". As of 2.1, "WHISPER"
if UnitExists("target") and (UnitFactionGroup("target")) == (UnitFactionGroup("player")) and (tonumber((UnitGUID("target")):sub(5,5), 16) % 8) == 0 then -- the unit exists and is a player of our faction
LibStub("AceComm-3.0"):SendCommMessage( "DecursiveVersion", "giveversion", "WHISPER", self:UnitName("target"));
D:Debug("Asking version to ", self:UnitName("target"));
end
local inInstance, InstanceType = IsInInstance();
if InstanceType == "pvp" then
Distribution = "BATTLEGROUND";
end
if not Distribution then
if GetNumRaidMembers() ~= 0 then
Distribution = "RAID";
elseif UnitExists("party1") then
Distribution = "PARTY";
elseif GetGuildInfo("player") then
Distribution = "GUILD";
end
end
if Distribution then
LibStub("AceComm-3.0"):SendCommMessage( "DecursiveVersion", "giveversion", Distribution);
end
D:Debug("Asking version on ", Distribution);
return true;
end
local LastVersionQueryAnswerPerFrom = {};
local LastVersionQueryAnswerPerDist = {};
function D:OnCommReceived(message, distribution, from)
local alpha = false;
--@alpha@
alpha = true;
--@end-alpha@
--@alpha@
D:Debug("OnCommReceived:", message, distribution, from);
--@end-alpha@
local time = GetTime();
-- answer version queries but no more than once every 60 seconds to the same player and every 5 seconds to the same chanel
-- This avoids a player who would be crafting its own version query messages and sending them repeatidly from causing any damage
-- This avoids race conditions where several players would send a version query at the same time on the same chanel
if message == "giveversion"
and (not LastVersionQueryAnswerPerDist[distribution] or time - LastVersionQueryAnswerPerDist[distribution] > 5 )
and (not LastVersionQueryAnswerPerFrom[from] or time - LastVersionQueryAnswerPerFrom[from] > 60 )
then
LibStub("AceComm-3.0"):SendCommMessage("DecursiveVersion", ("Version: %s,%u,%d,%d"):format(D.version, D.VersionTimeStamp, alpha and 1 or 0, D:IsEnabled() and 1 or 0 ), distribution, from )
LastVersionQueryAnswerPerFrom[from] = time;
LastVersionQueryAnswerPerDist[distribution] = time;
--@alpha@
if self.debugging then D:Debug("Version info sent to, ", from, "by", distribution, ("Version: %s,%u,%d,%d"):format(D.version, D.VersionTimeStamp, alpha and 1 or 0, D:IsEnabled() and 1 or 0 )); end
--@end-alpha@
elseif message:sub(1, 8) == "Version:" then
local version, date, isAlpha, enabled = message:match ("^Version: ([^,]+),(%d+),(%d),(%d)");
--@alpha@
if self.debugging then D:Debug("Version info received from, ", from, "by", distribution, "version:", version, "date:", date, "islpha:", isAlpha, "enabled:", enabled); end
--@end-alpha@
if version then
if not D.versions then
D.versions = {}
end
D.versions[from] = { version, date, isAlpha, enabled };
--delayed call to LibStub("AceConfigRegistry-3.0"):NotifyChange(D.name); plus "spam" prevention system (after receiving version info from someone)
if not D:DelayedCallExixts ("NewversionDatareceived") then
D:ScheduleDelayedCall("NewversionDatareceived", LibStub("AceConfigRegistry-3.0").NotifyChange, 1, LibStub("AceConfigRegistry-3.0"), D.name);
T.LastVCheck = time;
end
else
D:Debug("Malformed version string received: ", message);
end
else
D:Debug("Unhandled comm received (spam?)");
end
end
function D:ReturnVersions()
if not D.versions then
return "no data available";
end
local formatedversions = {};
for name, versiondetails in pairs(D.versions) do
formatedversions[#formatedversions + 1] = ("%s: %s %s (%s)"):format(D:ColorText(name, "FF00AA00"), versiondetails[1], versiondetails[4]==0 and D:ColorText("disabled", "FFFF0000") or "", date("%Y-%m-%d", versiondetails[2]));
end
return table.concat(formatedversions, "\n");
end
T._LoadedFiles["Dcr_Events.lua"] = "2.5.1-6-gd3885c5";
-- The Great Below
View Git Blame Copy Permalink