Exiles/coa-decursive
3
0
Fork 0
Code Pull Requests Actions Packages Releases 4 Wiki Activity
Files
11e6d69786c138012a67915ce6c39f4e19ba9b04
coa-decursive/Decursive/Dcr_Raid.lua
T
Andrew6810 8817327813 Fix decursive for new classes
2022-10-28 04:46:07 -07:00

786 lines
27 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_Events.lua"] then
if not DecursiveInstallCorrupted then T._FatalError("Decursive installation is corrupted! (Dcr_Events.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;
local RaidRosterCache = { };
local SortingTable = { };
D.Status.Unit_Array_GUIDToUnit = { };
D.Status.Unit_Array_UnitToGUID = { };
D.Status.InternalPrioList = { };
D.Status.InternalSkipList = { };
D.Status.Unit_Array = { };
local pairs = _G.pairs;
local ipairs = _G.ipairs;
local type = _G.type;
local select = _G.select;
local UnitIsFriend = _G.UnitIsFriend;
local UnitCanAttack = _G.UnitCanAttack;
local GetNumRaidMembers = _G.GetNumRaidMembers;
local GetNumPartyMembers = _G.GetNumPartyMembers;
local GetRaidRosterInfo = _G.GetRaidRosterInfo;
local random = _G.random;
local UnitIsUnit = _G.UnitIsUnit;
local UnitClass = _G.UnitClass;
local UnitExists = _G.UnitExists;
local UnitGUID = _G.UnitGUID;
local table = _G.table;
local t_insert = _G.table.insert;
local str_upper = _G.string.upper;
local MAX_RAID_MEMBERS = _G.MAX_RAID_MEMBERS;
local setmetatable = _G.setmetatable;
local rawget = _G.rawget;
local GetTime = _G.GetTime;
-------------------------------------------------------------------------------
-- GROUP STATUS UPDATE, these functions update the UNIT table to scan {{{
-------------------------------------------------------------------------------
--[=[
local function AddToSort (unit, GUID, index) -- // {{{
if (D.profile.Random_Order and
(not D.Status.InternalPrioList[GUID]) and not GUID~=MyGUID) then
index = random (1, 3000);
end
SortingTable[unit] = index;
--D:Debug("Adding to sort: ", unit, index);
end --}}}
--]=]
-- Raid/Party Name Check Function (a terrible function, need optimising)
-- this returns the UnitID that the Name points to
-- this does not check "target" or "mouseover"
--[=[
function D:NameToUnit( Name ) --{{{
local numRaidMembers = GetNumRaidMembers();
local FoundUnit = false;
if (not Name) then
return false;
end
if self.Status.Unit_Array_NameToUnit[Name] ~= nil then
return self.Status.Unit_Array_NameToUnit[Name];
end
if (numRaidMembers == 0) then
if (Name == (self:UnitName("player"))) then
FoundUnit = "player";
elseif (Name == (self:UnitName("pet"))) then
FoundUnit = "pet";
elseif GetNumPartyMembers() > 0 then
if (Name == (self:UnitName("party1"))) then
FoundUnit = "party1";
elseif (Name == (self:UnitName("party2"))) then
FoundUnit = "party2";
elseif (Name == (self:UnitName("party3"))) then
FoundUnit = "party3";
elseif (Name == (self:UnitName("party4"))) then
FoundUnit = "party4";
elseif (Name == (self:UnitName("partypet1"))) then
FoundUnit = "partypet1";
elseif (Name == (self:UnitName("partypet2"))) then
FoundUnit = "partypet2";
elseif (Name == (self:UnitName("partypet3"))) then
FoundUnit = "partypet3";
elseif (Name == (self:UnitName("partypet4"))) then
FoundUnit = "partypet4";
end
end
else
-- we are in a raid
local i;
local foundmembers = 0;
local RaidName;
for i=1, MAX_RAID_MEMBERS do
RaidName = (GetRaidRosterInfo(i));
if RaidName then
foundmembers = foundmembers + 1;
if ( Name == RaidName) then
FoundUnit = "raid"..i;
break;
end
if ( self.profile.Scan_Pets and Name == (self:UnitName("raidpet"..i))) then
FoundUnit = "raidpet"..i;
break;
end
if foundmembers == numRaidMembers then
break;
end
end
end
end
self.Status.Unit_Array_NameToUnit[Name] = FoundUnit;
return FoundUnit;
end --}}}
--]=]
-- }}}
DC.ClassNumToLName = {
[11] = LC[DC.CLASS_DRUID],
[12] = LC[DC.CLASS_HUNTER],
[13] = LC[DC.CLASS_MAGE],
[14] = LC[DC.CLASS_PALADIN],
[15] = LC[DC.CLASS_PRIEST],
[16] = LC[DC.CLASS_ROGUE],
[17] = LC[DC.CLASS_SHAMAN],
[18] = LC[DC.CLASS_WARLOCK],
[19] = LC[DC.CLASS_WARRIOR],
[20] = LC[DC.CLASS_DEATHKNIGHT],
[21] = LC[DC.CLASS_HERO],
}
DC.ClassLNameToNum = D:tReverse(DC.ClassNumToLName);
DC.ClassNumToUName = {
[11] = DC.CLASS_DRUID,
[12] = DC.CLASS_HUNTER,
[13] = DC.CLASS_MAGE,
[14] = DC.CLASS_PALADIN,
[15] = DC.CLASS_PRIEST,
[16] = DC.CLASS_ROGUE,
[17] = DC.CLASS_SHAMAN,
[18] = DC.CLASS_WARLOCK,
[19] = DC.CLASS_WARRIOR,
[20] = DC.CLASS_DEATHKNIGHT,
[21] = DC.CLASS_HERO,
}
DC.ClassUNameToNum = D:tReverse(DC.ClassNumToUName);
-- this gets an array of units for us to check
do
local i = 1;
local D = D;
local _ = false; -- a local dummy trash variable
local MAX_RAID_MEMBERS = _G.MAX_RAID_MEMBERS;
local UnitToGUID = {};
local GUIDToUnit = {};
local raidnum = 0;
local UnitToGUID_mt = { __index = function(self, unit)
local GUID = UnitGUID(unit) or false;
self[unit] = GUID;
GUIDToUnit[GUID] = unit;
--[=[
if (D.db.global.debugging) then
if not GUID then
D:errln("UnitToGUID_mt: no GUID for: ", unit); -- this is not an error, it's to see when raid# ids are not contiguous...
end
end
--]=]
return self[unit];
end };
local GUIDToUnit_ScannedAll = false;
local lookforpets = true;
local GUIDToUnit_mt = { __index = function(self, GUID)
-- {{{
if GUIDToUnit_ScannedAll then
self[GUID] = false;
D:Debug("GUIDToUnit_mt: %s is not in our group!", GUID);
return self[GUID];
end
if (not GUID) then
D:errln("GUIDToUnit_mt: no GUID! ");
return false;
end
local unit = false;
if GUID == DC.MyGUID then
unit = "player";
elseif GUID == UnitToGUID["pet"] then
unit = "pet";
elseif (raidnum == 0) then
if GetNumPartyMembers() > 0 then
if GUID == UnitToGUID["party1"] then
unit = "party1";
elseif GUID == UnitToGUID["party2"] then
unit = "party2";
elseif GUID == UnitToGUID["party3"] then
unit = "party3";
elseif GUID == UnitToGUID["party4"] then
unit = "party4";
elseif D.profile.Scan_Pets then
if GUID == UnitToGUID["partypet1"] then
unit = "partypet1";
elseif GUID == UnitToGUID["partypet2"] then
unit = "partypet2";
elseif GUID == UnitToGUID["partypet3"] then
unit = "partypet3";
elseif GUID == UnitToGUID["partypet4"] then
unit = "partypet4";
end
end
end
else
-- we are in a raid
local i;
local foundmembers = 0;
local RaidGUID;
for i=1, MAX_RAID_MEMBERS do
RaidGUID = UnitToGUID[ "raid"..i];
if RaidGUID then
foundmembers = foundmembers + 1;
if GUID == RaidGUID then
unit = "raid"..i;
break;
end
if lookforpets and D.profile.Scan_Pets and GUID == UnitToGUID["raidpet"..i] then
unit = "raidpet"..i;
break;
end
if foundmembers == raidnum then
break;
end
end
end
end
if not unit then
GUIDToUnit_ScannedAll = true;
end
self[GUID] = unit;
return self[GUID];
end };
--}}}
local function IsInSkipList ( GUID, group, classNum ) -- {{{
if (D.Status.InternalSkipList[GUID] or D.Status.InternalSkipList[group] or D.Status.InternalSkipList[classNum]) then
return true;
end
return false;
end -- }}}
local function IsInSkipOrPriorList( GUID, group, classNum ) --{{{
if (IsInSkipList ( GUID, group, classNum )) then
return true;
end
if (D.Status.InternalPrioList[GUID] or D.Status.InternalPrioList[group] or D.Status.InternalPrioList[classNum]) then
return true;
end
return false;
end --}}}
local ClassPrio = { };
local GroupsPrio = { };
local currentGroup = 0; -- the group we are in
local function GetUnitDefaultPriority (RaidId, UnitGroup) -- {{{
if (not UnitGroup) then
return RaidId;
end
if (UnitGroup >= currentGroup) then
return ( 8 - ( UnitGroup - currentGroup ) ) * 100 + (41 - RaidId);
end
if (UnitGroup < currentGroup) then
return (currentGroup - UnitGroup) * 100 + (41 - RaidId);
end
end -- }}}
local function GetUnitPriority(Unit, RaidId, UnitGroup, UNClass, IsPet) -- {{{
-- A little explanation of the principle behind this function {{{
--[=[ ****************************************************************************
levels of priority:
0 --> PriorityList
1 --> Group
2 --> Class
3 --> Default (Decursive "natural" order: our group, groups after, groups before)
4 --> Pets
- 8 groups with 5 persons maximum per group
- 10 classes with 80 persons max for each class (Pets may be counted)
- 80 persons for default (including possible pets)
Priority list: 1,000,000 till 100,000,000
Group indexes: 10,000, 20,000, 30,000, till 80,000
class indexes: 1,000, 2,000, 3,000, till 10,000
default indexes: 100 to 800 (player's index will be 900)
pet indexes: Same as above but * -1
We make additions, exemple:
- Our current group is the group 7
- The resulting default groups priorities are:
7:800 8: 700, 1:600, 2: 500, 3: 400, 4: 300, 5: 200, 6:100
- Archarodim, Mage from Group 5 (23rd unit of the raid)
- Unit Archarodim priority is 223
- Class Mage priority is 4000
- Group 5 priority is 20000
--> Archarodim priority is 200 + 23 + 4000 + 20000 = 24223
**************************************************************************** }}} ]=]
-- Get Decursive's natural default priority of the unit
local UnitPriority = GetUnitDefaultPriority(RaidId, UnitGroup);
-- Get the class priority if available
if ( UNClass and ClassPrio[ DC.ClassUNameToNum [UNClass] ] ) then
UnitPriority = UnitPriority + ( 10 + 1 - ClassPrio[DC.ClassUNameToNum [UNClass]]) * 1000; -- XXX 10 (Deathknight) is no good
end
-- Get the group priority if available
if (UnitGroup and GroupsPrio[UnitGroup]) then
UnitPriority = UnitPriority + (8 + 1 - GroupsPrio[UnitGroup]) * 10000;
end
-- Get the priority list index if available
if not IsPet then
local Unit_GUID = UnitToGUID[Unit];
local PrioListIndex = 100;
-- get the higher of the three...
if (D.Status.InternalPrioList[Unit_GUID] and D.Status.InternalPrioList[Unit_GUID] < PrioListIndex) then
PrioListIndex = D.Status.InternalPrioList[Unit_GUID];
end
if (D.Status.InternalPrioList[UnitGroup] and D.Status.InternalPrioList[UnitGroup] < PrioListIndex) then
PrioListIndex = D.Status.InternalPrioList[UnitGroup];
end
if (D.Status.InternalPrioList[ DC.ClassUNameToNum [UNClass] ] and D.Status.InternalPrioList[ DC.ClassUNameToNum [UNClass] ] < PrioListIndex) then
PrioListIndex = D.Status.InternalPrioList[ DC.ClassUNameToNum [UNClass] ];
end
if ( PrioListIndex < 100) then
UnitPriority = UnitPriority + (100 + 1 - PrioListIndex) * 1000000;
end
end
if IsPet then
UnitPriority = UnitPriority * -1;
end
return UnitPriority;
end -- }}}
local RaidRosterCache = {};
local pet;
function D:GetUnitArray() --{{{
-- if the groups composition did not changed
if not self.Groups_datas_are_invalid or not self.DcrFullyInitialized then
return;
end
self.Groups_datas_are_invalid = false;
self:Debug ("|cFFFF44FF-->|r Updating Units Array");
local pGUID;
raidnum = GetNumRaidMembers();
if DC.MyGUID == "NONE" then
self:Debug("|cFFFF0000DC.MyGUID was nil!!|r");
DC.MyGUID = (UnitGUID("player"));
if not DC.MyGUID then
DC.MyGUID = "NONE";
self:Debug("|cFFFF0000DC.MyGUID is STILL nil!!|r");
end
end
local MyGUID = DC.MyGUID;
-- clear all the arrays
local Status = self.Status;
Status.InternalPrioList = {}; -- these lists contains only units currently present
Status.InternalSkipList = {};
SortingTable = {};
Status.Unit_Array_GUIDToUnit = {};
Status.Unit_Array_UnitToGUID = {};
UnitToGUID = setmetatable(UnitToGUID, UnitToGUID_mt); -- we could simply erase this one to prevent garbage
GUIDToUnit = setmetatable(GUIDToUnit, GUIDToUnit_mt); -- this one cannot be erased (memory leak due to GUID...)
GUIDToUnit_ScannedAll = false;
if Status.TestLayout then
D:GetFakeUnit_array ();
return;
end
local unit;
-- ############### PARSE PRIO AND SKIP LIST ###############
GroupsPrio, ClassPrio = D:MakeGroupsAndClassPrio();
lookforpets = false;
-- First clean and load the prioritylist (remove missing units)
for i, ListEntry in ipairs(self.profile.PriorityList) do
-- first add GUIDs present in our raid group
if (type(ListEntry) == "string") then
unit = GUIDToUnit[ListEntry];
if (unit) then
Status.InternalPrioList[ListEntry] = i;
end
else -- if ListEntry is not a string, then it's a number
-- representing the groups or the classes
Status.InternalPrioList[ListEntry] = i;
end
end
-- Get a cleaned skip list
for i, ListEntry in ipairs(self.profile.SkipList) do
if (type(ListEntry) == "string") then
unit = GUIDToUnit[ListEntry];
if (unit) then
Status.InternalSkipList[ListEntry] = i;
end
else
Status.InternalSkipList[ListEntry] = i;
end
end
lookforpets = true;
-- if we are not in a raid but in a party
if (raidnum == 0) then
currentGroup = 1; -- this is used to compute the default priorities
-- Add the player to the main list if needed
if not IsInSkipOrPriorList(MyGUID, false, DC.ClassUNameToNum[DC.MyClass]) then
-- the player is not in a priority state, add to default prio
SortingTable["player"] = 900;
Status.Unit_Array_GUIDToUnit[MyGUID] = "player";
elseif not IsInSkipList(MyGUID, false, DC.ClassUNameToNum[DC.MyClass]) then
-- The player is contained within a priority rule
SortingTable["player"] = GetUnitPriority ("player", 1, 1, DC.MyClass );
Status.Unit_Array_GUIDToUnit[MyGUID] = "player";
end
local unit = "";
-- add the party members and their pets... if they exist
for i = 1, 4 do
unit = "party"..i;
if (UnitExists(unit)) then
pGUID = UnitToGUID[unit];
if (not pGUID) then -- at logon sometimes pGUID is nil...
pGUID = unit;
end
-- check the GUID to see if we skip
if (not IsInSkipList(pGUID, nil, DC.ClassUNameToNum[(select(2, UnitClass(unit)))])) then
Status.Unit_Array_GUIDToUnit[pGUID] = unit;
SortingTable[unit] = GetUnitPriority (unit, i + 1, 1, (select(2, UnitClass(unit)) ) );
end
if ( self.profile.Scan_Pets ) then
pet = "partypet"..i;
if (UnitExists(pet)) then
pGUID = UnitToGUID[pet];
if (not pGUID) then -- at logon sometimes pGUID is nil...
pGUID = pet;
end
SortingTable[pet] = GetUnitPriority (pet, i + 1, 1, (select(2, UnitClass(pet))), true);
Status.Unit_Array_GUIDToUnit[pGUID] = pet;
end
end
end
end
end
-- add our own pet
if ( self.profile.Scan_Pets ) then
if (UnitExists("pet")) then
SortingTable["pet"] = -900;
Status.Unit_Array_GUIDToUnit[UnitToGUID["pet"]] = "pet";
end
end
if ( raidnum > 0 ) then -- if we are in a raid
currentGroup = 0;
local rName, rGroup, rClass, GUID;
local CaheID = 1; -- make an ordered table
local excluded = 0;
local playerPrio = 900;
-- Cache the raid roster info eliminating useless info and already listed members
for i = 1, MAX_RAID_MEMBERS do
rName, _, rGroup, _, _, rClass = GetRaidRosterInfo(i);
GUID = UnitToGUID["raid"..i];
-- add all except member to skip
if not IsInSkipList(GUID, rGroup, DC.ClassUNameToNum[rClass]) then
if (rName) then -- (at log-in GetRaidRosterInfo() returns garbage)
if (not RaidRosterCache[CaheID]) then
RaidRosterCache[CaheID] = {};
end
RaidRosterCache[CaheID].rName = rName;
RaidRosterCache[CaheID].rGroup = rGroup;
RaidRosterCache[CaheID].rClass = rClass;
RaidRosterCache[CaheID].rIndex = i;
RaidRosterCache[CaheID].rGUID = GUID;
CaheID = CaheID + 1;
end
else
excluded = excluded + 1;
end
-- find our group (a whole iteration is required, raid info are not ordered) -- wrong, the player is always the last now but never trust Blizzard...
if currentGroup==0 and GUID == MyGUID then -- anyway they do the same thing in PlayerFrame.lua...
currentGroup = rGroup;
playerPrio = GetUnitPriority ("player", i, rGroup, rClass, false);
end
if CaheID + excluded > raidnum then -- we found all the units
RaidRosterCache[CaheID] = false;
break;
end
end
-- Add the player to the main list if needed
if (not IsInSkipOrPriorList(MyGUID, currentGroup, DC.ClassUNameToNum[DC.MyClass])) then
SortingTable["player"] = 900;
Status.Unit_Array_GUIDToUnit[MyGUID] = "player";
else -- well let's see if people complains that they cannot exclude themself...
SortingTable["player"] = playerPrio;
Status.Unit_Array_GUIDToUnit[MyGUID] = "player";
end
-- Now we have a cache without the units we want to skip
local TempID;
for _, raidMember in ipairs(RaidRosterCache) do
if not raidMember then break; end;
-- put each raid member with the right priority in our sorting table
if not Status.Unit_Array_GUIDToUnit[raidMember.rGUID] then
TempID = "raid"..raidMember.rIndex;
SortingTable[TempID] = GetUnitPriority (TempID, raidMember.rIndex, raidMember.rGroup, raidMember.rClass, false);
Status.Unit_Array_GUIDToUnit[raidMember.rGUID] = TempID;
end
if ( self.profile.Scan_Pets ) then
local pet = "";
pet = "raidpet"..raidMember.rIndex;
if ( UnitExists(pet) ) then
pGUID = UnitToGUID[pet];
if (not pGUID) then -- at logon sometimes pGUID is nil...
pGUID = pet;
end
-- add it only if not already in (could be the player pet...)
if (not Status.Unit_Array_GUIDToUnit[pGUID]) then
SortingTable[pet] = GetUnitPriority (pet, raidMember.rIndex, raidMember.rGroup, (select(2,UnitClass(pet))), true);
Status.Unit_Array_GUIDToUnit[pGUID] = pet;
end
end
end
end
end -- END if we are in a raid
-- NEW focus management
-- there is a focus and its not hostile in the first place
if UnitExists("focus") and (not UnitCanAttack("focus", "player") or UnitIsFriend("focus", "player")) then
pGUID = UnitToGUID["focus"]
-- the unit is not registered somewhere else yet
if not Status.Unit_Array_GUIDToUnit[pGUID] then
SortingTable["focus"] = -1; -- add it at the end...
Status.Unit_Array_GUIDToUnit[pGUID] = "focus";
end
end
-- we use a hash-key style table for Status.Unit_Array_GUIDToUnit because it allows us
-- to not care if we add a same unit several times (speed optimization)
-- but we cannot use sort unless indexes are integer so:
Status.Unit_Array = {}
local GUID;
for GUID, unit in pairs(Status.Unit_Array_GUIDToUnit) do -- /!\ PAIRS not iPAIRS
t_insert(Status.Unit_Array, unit);
Status.Unit_Array_UnitToGUID[unit] = GUID; -- just a useful table, not used here :)
end
table.sort(Status.Unit_Array, function (a,b)
if (not (SortingTable[a] < 0 and SortingTable[b] < 0)) then -- one of the values is > 0
return SortingTable[b] < SortingTable[a];
else -- both are < 0
return SortingTable[a] < SortingTable[b];
end
end);
Status.UnitNum = #Status.Unit_Array;
UnitToGUID = {};
GUIDToUnit = {};
D.Status.GroupUpdatedOn = D:NiceTime(); -- It's used in UNIT_AURA event handler to trigger a rescan if the array is found inacurate
self:Debug ("|cFFFF44FF-->|r Update complete!", Status.UnitNum);
return;
end
function D:GetFakeUnit_array ()
if not D.Status.TestLayout then
return;
end
self:Debug ("|cFFFF22FF-->|r Creating fake Units Array");
local Status = self.Status;
Status.Unit_Array_GUIDToUnit[DC.MyGUID] = "player";
Status.Unit_Array = {}
for i = 1, D.Status.TestLayoutUNum - 1 do -- the player is always in so we remove one here.
Status.Unit_Array_GUIDToUnit["raid" .. i .. "GUID"] = "raid" .. i;
end
local GUID;
for GUID, unit in pairs(Status.Unit_Array_GUIDToUnit) do -- /!\ PAIRS not iPAIRS
t_insert(Status.Unit_Array, unit);
Status.Unit_Array_UnitToGUID[unit] = GUID; -- just a useful table, not used here :)
end
table.sort(Status.Unit_Array);
Status.UnitNum = #Status.Unit_Array;
D.Status.GroupUpdatedOn = D:NiceTime(); -- It's used in UNIT_AURA event handler to trigger a rescan if the array is found inacurate
end
end
--}}}
-------------------------------------------------------------------------------
T._LoadedFiles["Dcr_Raid.lua"] = "2.5.1-6-gd3885c5";
-- "Your God is dead and no one cares"
-- "If there is a Hell I'll see you there"
View Git Blame Copy Permalink