--[[
##############################################################################
_____/\\\\\\\\\\\____/\\\________/\\\__/\\\________/\\\__/\\\\\\\\\\\_ #
___/\\\/////////\\\_\/\\\_______\/\\\_\/\\\_______\/\\\_\/////\\\///__ #
__\//\\\______\///__\//\\\______/\\\__\/\\\_______\/\\\_____\/\\\_____ #
___\////\\\__________\//\\\____/\\\___\/\\\_______\/\\\_____\/\\\_____ #
______\////\\\________\//\\\__/\\\____\/\\\_______\/\\\_____\/\\\_____ #
_________\////\\\______\//\\\/\\\_____\/\\\_______\/\\\_____\/\\\_____ #
__/\\\______\//\\\______\//\\\\\______\//\\\______/\\\______\/\\\_____ #
_\///\\\\\\\\\\\/________\//\\\________\///\\\\\\\\\/____/\\\\\\\\\\\_#
___\///////////___________\///___________\/////////_____\///////////_#
##############################################################################
S U P E R - V I L L A I N - U I By: Munglunch #
############################################################################## ]]--
--[[ GLOBALS ]]--
local _G = _G;
local unpack = _G.unpack;
local select = _G.select;
local pairs = _G.pairs;
local type = _G.type;
local rawset = _G.rawset;
local rawget = _G.rawget;
local tinsert = _G.tinsert;
local tremove = _G.tremove;
local tostring = _G.tostring;
local error = _G.error;
local getmetatable = _G.getmetatable;
local setmetatable = _G.setmetatable;
local string = _G.string;
local math = _G.math;
local table = _G.table;
--[[ STRING METHODS ]]--
local upper = string.upper;
local format, find, match, gsub = string.format, string.find, string.match, string.gsub;
--[[ MATH METHODS ]]--
local floor = math.floor
--[[ TABLE METHODS ]]--
local twipe, tsort, tconcat = table.wipe, table.sort, table.concat;
--[[
##############################################################################
/$$$$$$ /$$ /$$$$$$ /$$$$$$$ /$$$$$$ /$$
/$$__ $$| $$ /$$__ $$| $$__ $$ /$$__ $$| $$
| $$ \__/| $$ | $$ \ $$| $$ \ $$| $$ \ $$| $$
| $$ /$$$$| $$ | $$ | $$| $$$$$$$ | $$$$$$$$| $$
| $$|_ $$| $$ | $$ | $$| $$__ $$| $$__ $$| $$
| $$ \ $$| $$ | $$ | $$| $$ \ $$| $$ | $$| $$
| $$$$$$/| $$$$$$$$| $$$$$$/| $$$$$$$/| $$ | $$| $$$$$$$$
\______/ |________/ \______/ |_______/ |__/ |__/|________/
##############################################################################
]]--
--[[ LOCALS ]]--
local SVUINameSpace, SVUICore = ...;
local SVUIVersion = GetAddOnMetadata(..., "Version");
local clientVersion, internalVersion, releaseDate, uiVersion = GetBuildInfo();
local callbacks = {};
local numCallbacks = 0;
local messagePattern = "|cffFF2F00%s:|r"
local debugPattern = "|cffFF2F00%s|r [|cff992FFF%s|r]|cffFF2F00:|r"
--[[ CONSTANTS ]]--
BINDING_HEADER_SVUI = "Supervillain UI";
SLASH_RELOADUI1 = "/rl"
SLASH_RELOADUI2 = "/reloadui"
SlashCmdList.RELOADUI = ReloadUI
--[[ MUNGLUNCH's FASTER ASSERT FUNCTION ]]--
function enforce(condition, ...)
if not condition then
if next({...}) then
local fn = function (...) return(string.format(...)) end
local s,r = pcall(fn, ...)
if s then
error("Error!: " .. r, 2)
end
end
error("Error!", 2)
end
end
local assert = enforce;
--[[ META METHODS ]]--
local rootstring = function(self) return self.___addonName end
--[[ LOCALIZATION HELPERS ]]--
local failsafe = function() assert(false) end
local metaread = {
__index = function(self, key)
rawset(self, key, key)
return key
end
}
local activeLocale
local defaultwrite = setmetatable({}, {
__newindex = function(self, key, value)
if not rawget(activeLocale, key) then
rawset(activeLocale, key, value == true and key or value)
end
end,
__index = failsafe
})
local metawrite = setmetatable({}, {
__newindex = function(self, key, value)
rawset(activeLocale, key, value == true and key or value)
end,
__index = failsafe
})
--[[ CLASS COLOR LOCALS ]]--
local function formatValueString(text)
if "string" == type(text) then
text = gsub(text,"\n","\\n")
if match(gsub(text,"[^'\"]",""),'^"+$') then
return "'"..text.."'";
else
return '"'..gsub(text,'"','\\"')..'"';
end
else
return tostring(text);
end
end
local function formatKeyString(text)
if "string"==type(text) and match(text,"^[_%a][_%a%d]*$") then
return text;
else
return "["..formatValueString(text).."]";
end
end
local function RegisterCallback(self, m, h)
assert(type(m) == "string" or type(m) == "function", "Bad argument #1 to :RegisterCallback (string or function expected)")
if type(m) == "string" then
assert(type(h) == "table", "Bad argument #2 to :RegisterCallback (table expected)")
assert(type(h[m]) == "function", "Bad argument #1 to :RegisterCallback (m \"" .. m .. "\" not found)")
m = h[m]
end
callbacks[m] = h or true
numCallbacks = numCallbacks + 1
end
local function UnregisterCallback(self, m, h)
assert(type(m) == "string" or type(m) == "function", "Bad argument #1 to :UnregisterCallback (string or function expected)")
if type(m) == "string" then
assert(type(h) == "table", "Bad argument #2 to :UnregisterCallback (table expected)")
assert(type(h[m]) == "function", "Bad argument #1 to :UnregisterCallback (m \"" .. m .. "\" not found)")
m = h[m]
end
callbacks[m] = nil
numCallbacks = numCallbacks + 1
end
local function DispatchCallbacks()
if (numCallbacks < 1) then return end
for m, h in pairs(callbacks) do
local ok, err = pcall(m, h ~= true and h or nil)
if not ok then
print("ERROR:", err)
end
end
end
--[[ BUILD CLASS COLOR GLOBAL ]]--
SVUI_CLASS_COLORS = {};
do
local classes = {};
local supercolors = {
["HUNTER"] = { r = 0.454, g = 0.698, b = 0 },
["WARLOCK"] = { r = 0.286, g = 0, b = 0.788 },
["PRIEST"] = { r = 0.976, g = 1, b = 0.839 },
["PALADIN"] = { r = 0.956, g = 0.207, b = 0.733 },
["MAGE"] = { r = 0, g = 0.796, b = 1 },
["ROGUE"] = { r = 1, g = 0.894, b = 0.117 },
["DRUID"] = { r = 1, g = 0.513, b = 0 },
["SHAMAN"] = { r = 0, g = 0.38, b = 1 },
["WARRIOR"] = { r = 0.698, g = 0.36, b = 0.152 },
["DEATHKNIGHT"] = { r = 0.847, g = 0.117, b = 0.074 },
["MONK"] = { r = 0.015, g = 0.886, b = 0.38 },
};
for class in pairs(RAID_CLASS_COLORS) do
tinsert(classes, class)
end
tsort(classes)
setmetatable(SVUI_CLASS_COLORS,{
__index = function(t, k)
if k == "RegisterCallback" then return RegisterCallback end
if k == "UnregisterCallback" then return UnregisterCallback end
if k == "DispatchCallbacks" then return DispatchCallbacks end
end
});
for i, class in ipairs(classes) do
local color = supercolors[class]
local r, g, b = color.r, color.g, color.b
local hex = ("ff%02x%02x%02x"):format(r * 255, g * 255, b * 255)
if not SVUI_CLASS_COLORS[class] or not SVUI_CLASS_COLORS[class].r or not SVUI_CLASS_COLORS[class].g or not SVUI_CLASS_COLORS[class].b then
SVUI_CLASS_COLORS[class] = {
r = r,
g = g,
b = b,
colorStr = hex,
}
end
end
classes = nil
end
--[[ APPENDED LUA METHODS ]]--
function math.parsefloat(value,decimal)
if decimal and decimal > 0 then
local calc1 = 10 ^ decimal;
local calc2 = (value * calc1) + 0.5;
return floor(calc2) / calc1
end
return floor(value + 0.5)
end
function table.dump(targetTable)
local dumpTable = {};
local dumpCheck = {};
for key,value in ipairs(targetTable) do
tinsert(dumpTable, formatValueString(value));
dumpCheck[key] = true;
end
for key,value in pairs(targetTable) do
if not dumpCheck[key] then
tinsert(dumpTable, "\n "..formatKeyString(key).." = "..formatValueString(value));
end
end
local output = tconcat(dumpTable, ", ");
return "{ "..output.." }";
end
function table.copy(targetTable,deepCopy,mergeTable)
mergeTable = mergeTable or {};
if targetTable==nil then return nil end
if mergeTable[targetTable] then return mergeTable[targetTable] end
local replacementTable = {}
for key,value in pairs(targetTable)do
if deepCopy and type(value) == "table" then
replacementTable[key] = table.copy(value, deepCopy, mergeTable)
else
replacementTable[key] = value
end
end
setmetatable(replacementTable, table.copy(getmetatable(targetTable), deepCopy, mergeTable))
mergeTable[targetTable] = replacementTable;
return replacementTable
end
function string.trim(this)
return this:find('^%s*$') and '' or this:match('^%s*(.*%S)')
end
function string.color(this, color)
return ("|cff%s%s|r"):format(color, this)
end
function string.link(this, prefix, text, color)
text = tostring(text)
local colorstring = tostring(this):color(color or "ffffff")
return ("|H%s:%s|h%s|h"):format(prefix, text, colorstring)
end
function string.explode(str, delim)
local res = { }
local pattern = string.format("([^%s]+)%s()", delim, delim)
while (true) do
line, pos = str:match(pattern, pos)
if line == nil then break end
table.insert(res, line)
end
return res
end
--[[ CORE ENGINE CONSTRUCT ]]--
local Core_StaticPopup_Show = function(self, arg)
if arg == "ADDON_ACTION_FORBIDDEN" then
StaticPopup_Hide(arg)
end
end
local Core_ResetAllUI = function(self, confirmed)
if InCombatLockdown()then
SendAddonMessage(ERR_NOT_IN_COMBAT)
return
end
if(not confirmed) then
self:StaticPopup_Show('RESET_UI_CHECK')
return
end
self:ResetInstallation()
end
local Core_ResetUI = function(self, confirmed)
if InCombatLockdown()then
SendAddonMessage(ERR_NOT_IN_COMBAT)
return
end
if(not confirmed) then
self:StaticPopup_Show('RESETMOVERS_CHECK')
return
end
self:ResetMovables()
end
local Core_ToggleConfig = function(self)
if InCombatLockdown() then
SendAddonMessage(ERR_NOT_IN_COMBAT)
self.UIParent:RegisterEvent('PLAYER_REGEN_ENABLED')
return
end
if not IsAddOnLoaded("SVUI_ConfigOMatic") then
local _,_,_,_,_,state = GetAddOnInfo("SVUI_ConfigOMatic")
if state ~= "MISSING" and state ~= "DISABLED" then
LoadAddOn("SVUI_ConfigOMatic")
local config_version = GetAddOnMetadata("SVUI_ConfigOMatic", "Version")
if(tonumber(config_version) < 4) then
self:StaticPopup_Show("CLIENT_UPDATE_REQUEST")
end
else
self:AddonMessage("|cffff0000Error -- Addon 'SVUI_ConfigOMatic' not found or is disabled.|r")
return
end
end
local aceConfig = LibStub("AceConfigDialog-3.0")
local switch = not aceConfig.OpenFrames["SVUI"] and "Open" or "Close"
aceConfig[switch](aceConfig, "SVUI")
GameTooltip:Hide()
end
--/script SVUI[1]:TaintHandler("SVUI", "Script", "Function")
local Core_TaintHandler = function(self, taint, sourceName, sourceFunc)
if GetCVarBool('scriptErrors') ~= 1 then return end
local errorString = ("Error Captured: %s->%s->{%s}"):format(taint, sourceName or "Unknown", sourceFunc or "Unknown")
self:AddonMessage(errorString)
self:StaticPopup_Show("TAINT_RL")
end
local function _sendmessage(msg, prefix)
if(type(msg) == "table") then
msg = tostring(msg)
end
if(not msg) then return end
if(prefix) then
local outbound = ("%s %s"):format(prefix, msg);
print(outbound)
else
print(msg)
end
end
local Core_Debugger = function(self, msg)
if(not self.DebuggingMode) then return end
local outbound = (debugPattern):format("SVUI", "DEBUG")
_sendmessage(msg, outbound)
end
local Core_AddonMessage = function(self, msg)
local outbound = (messagePattern):format("SVUI")
_sendmessage(msg, outbound)
end
local Core_SetLocaleStrings = function(self, locale, isDefault)
local gameLocale = GetLocale()
if gameLocale == "enGB" then gameLocale = "enUS" end
activeLocale = self.Localization
if isDefault then
return defaultwrite
elseif(locale == GAME_LOCALE or locale == gameLocale) then
return metawrite
end
end
local Core_Prototype = function(self, name)
local version = GetAddOnMetadata(name, "Version")
local schema = GetAddOnMetadata(name, "X-SVUI-Schema")
self.Configs[schema] = {["enable"] = false}
local obj = {
___addonName = name,
___version = version,
___schema = schema
}
local mt = {}
local old = getmetatable(obj)
if old then
for k, v in pairs(old) do mt[k] = v end
end
mt.__tostring = rootstring
setmetatable(obj, mt)
return obj
end
local SVUI = {
___addonName = SVUINameSpace,
___version = GetAddOnMetadata(SVUINameSpace, "Version"),
___interface = tonumber(uiVersion),
db = {},
Global = {
Accountant = {},
profiles = {},
profileKeys = {},
},
Configs = {},
Media = {},
DisplayAudit = {},
DynamicOptions = {},
Dispellable = {},
Snap = {},
SetLocaleStrings = Core_SetLocaleStrings,
Prototype = Core_Prototype,
AddonMessage = Core_AddonMessage,
Debugger = Core_Debugger,
StaticPopup_Show,
ResetAllUI = Core_ResetAllUI,
ResetUI = Core_ResetUI,
ToggleConfig = Core_ToggleConfig,
TaintHandler = Core_TaintHandler
}
SVUI.Localization = setmetatable({}, metaread)
SVUI.Options = { type = "group", name = "|cff339fffConfig-O-Matic|r", args = {}}
--[[ MISC ]]--
SVUI.fubar = function() return end
SVUI.class = select(2,UnitClass("player"));
SVUI.ClassRole = "";
SVUI.UnitRole = "NONE";
SVUI.ConfigurationMode = false;
SVUI.DebuggingMode = false
--[[ UTILITY FRAMES ]]--
SVUI.UIParent = CreateFrame("Frame", "SVUIParent", UIParent);
SVUI.UIParent:SetFrameLevel(UIParent:GetFrameLevel());
SVUI.UIParent:SetPoint("CENTER", UIParent, "CENTER");
SVUI.UIParent:SetSize(UIParent:GetSize());
SVUI.Snap[1] = SVUI.UIParent;
SVUI.Cloaked = CreateFrame("Frame", nil, UIParent);
SVUI.Cloaked:Hide();
--[[ ENSURE META METHODS ]]--
local mt = {}
local old = getmetatable(SVUI)
if old then
for k, v in pairs(old) do mt[k] = v end
end
mt.__tostring = rootstring
setmetatable(SVUI, mt)
--[[ COMMON FUNCTIONS ]]--
SVUICore[1] = SVUI
SVUICore[2] = SVUI.Localization
--[[ SET MASTER GLOBAL ]]--
_G[SVUINameSpace] = SVUICore;