--- /dev/null
+-- ActionBars.lua
+local _;
+local pairs = pairs;
+local GetActionTexture = GetActionTexture;
+local GetActionLossOfControlCooldown = GetActionLossOfControlCooldown;
+local GetActionCooldown, GetActionCharges = GetActionCooldown, GetActionCharges;
+local IsConsumableAction, IsStackableAction = IsConsumableAction, IsStackableAction;
+local IsItemAction, GetActionCount = IsItemAction, GetActionCount;
+local CooldownFrame_Set, CooldownFrame_Clear = CooldownFrame_Set, CooldownFrame_Clear;
+local GameTooltip = nil;
+local COOLDOWN_TYPE_LOSS_OF_CONTROL = COOLDOWN_TYPE_LOSS_OF_CONTROL;
+local COOLDOWN_TYPE_NORMAL = COOLDOWN_TYPE_NORMAL;
+local CDTexture = "Interface\\Cooldown\\edge";
+local locCDTexture = "Interface\\Cooldown\\edge-LoC";
+
+local BUTTONLOCK = false; -- change to lock button dragging
+
+local settings = {
+ ["OmaBT1"] = {
+ start = 1,
+ length = 12,
+ x = 1000,
+ y = 1000,
+ },
+ ["OmaBT2"] = {
+ start = 13,
+ length = 12,
+ x = 1000,
+ y = 960,
+ },
+ ["OmaBT3"] = {
+ start = 25,
+ length = 12,
+ x = 1000,
+ y = 920,
+ },
+ ["OmaBT4"] = {
+ start = 37,
+ length = 12,
+ x = 1000,
+ y = 880,
+ },
+ ["OmaBT5"] = {
+ start = 49,
+ length = 12,
+ x = 1000,
+ y = 840,
+ },
+ ["OmaBT6"] = {
+ start = 61,
+ length = 12,
+ x = 1000,
+ y = 800,
+ },
+ -- bogus data past this
+ --["OmaBT7"] = {
+ -- start = 73,
+ -- length = 12,
+ -- x = 1000,
+ -- y = 760,
+ --},
+ --["OmaBT8"] = {
+ -- start = 85,
+ -- length = 12,
+ -- x = 1000,
+ -- y = 760,
+ --},
+ --["OmaBT9"] = {
+ -- start = 97,
+ -- length = 12,
+ -- x = 1000,
+ -- y = 760,
+ --},
+ --["OmaBT10"] = {
+ -- start = 109,
+ -- length = 12,
+ -- x = 1000,
+ -- y = 760,
+ --},
+};
+
+local buttons = {};
+
+local ActionBars = CreateFrame("Frame", "OmaActionBars", UIParent);
+local inheritedFrames = "SecureActionButtonTemplate,SecureHandlerDragTemplate";
+
+local numChargeCDs = 0;
+local function createChargeCD(parent)
+ numChargeCDs = numChargeCDs + 1;
+ local frame = CreateFrame("Cooldown", "OmaChargeCD"..numChargeCDs, parent, "CooldownFrameTemplate");
+ frame:SetHideCountdownNumbers(false);
+ frame:SetDrawSwipe(false);
+ frame:SetAllPoints(parent);
+ frame:SetFrameStrata("TOOLTIP");
+ return frame;
+end
+
+local function clearChargeCD(parent)
+ if parent.chargecd then CooldownFrame_Clear(parent.chargecd) end
+end
+
+local function startChargeCD(parent, start, duration, modrate)
+ if start == 0 then
+ return clearChargeCD(parent);
+ end
+ parent.chargecd = parent.chargecd or createChargeCD(parent);
+ CooldownFrame_Set(parent.chargecd, start, duration, true, true, modrate);
+end
+
+local redoCooldown;
+
+local function updateCooldown(button, slot)
+ -- CD update from FrameXML/ActionButton.lua
+ -- TODO charges
+ local locstart, locduration = GetActionLossOfControlCooldown(slot);
+ local start, duration, enable, modrate = GetActionCooldown(slot);
+ local charges, maxcharges, chargestart, chargeduration, chargemodrate = GetActionCharges(slot);
+ if (locstart + locduration) > (start + duration) then
+ if button.cd.currentCooldownType ~= COOLDOWN_TYPE_LOSS_OF_CONTROL then
+ button.cd:SetEdgeTexture(locCDTexture);
+ button.cd:SetSwipeColor(0.17, 0, 0);
+ button.cd:SetHideCountdownNumbers(true);
+ button.cd.currentCooldownType = COOLDOWN_TYPE_LOSS_OF_CONTROL;
+ end
+
+ CooldownFrame_Set(button.cd, locstart, locduration, true, true, modrate);
+ clearChargeCD(button);
+ else
+ if button.cd.currentCooldownType ~= COOLDOWN_TYPE_NORMAL then
+ button.cd:SetEdgeTexture(CDTexture);
+ button.cd:SetSwipeColor(0, 0, 0);
+ button.cd:SetHideCountdownNumbers(false);
+ button.cd.currentCooldownType = COOLDOWN_TYPE_NORMAL;
+ end
+
+ if locstart > 0 then
+ button.cd:SetScript("OnCooldownDone", redoCooldown);
+ end
+ if charges and maxcharges and maxcharges > 1 and charges < maxcharges then
+ startChargeCD(button, chargestart, chargeduration, chargemodrate);
+ else
+ clearChargeCD(button);
+ end
+ CooldownFrame_Set(button.cd, start, duration, enable, false, modrate);
+ end
+end
+
+local function redoCooldown(cd)
+ local button = cd:GetParent();
+ cd:SetScript("OnCooldownDone", nil);
+ updateCooldown(button, button.slot);
+end
+
+local function updateCount(button, slot)
+ if IsConsumableAction(slot) or IsStackableAction(slot) or
+ (not IsItemAction(slot) and GetActionCount(slot) > 0) then
+ local count = GetActionCount(slot);
+ if count > 99 then
+ button.count:SetText("*");
+ else
+ button.count:SetText(count);
+ end
+ else
+ local charges, maxcharges = GetActionCharges(slot);
+ if maxcharges > 1 then
+ button.count:SetText(charges);
+ else
+ button.count:SetText("");
+ end
+ end
+end
+
+local function updateButton(button, slot)
+ local texture = GetActionTexture(slot);
+ if texture then
+ button.hasaction = true;
+ button.base:Show();
+ button.icon:SetTexture(texture);
+ updateCount(button, slot);
+ updateCooldown(button, slot);
+ else
+ button.hasaction = nil;
+ if not button.grid then button.base:Hide() end
+ button.icon:SetTexture(nil);
+ end
+end
+
+local function createActionBar(parent, name, config)
+ local prev;
+ for slot = config.start, config.start+config.length-1 do
+ local secure = CreateFrame("Button", name..slot, parent, inheritedFrames);
+ secure.slot = slot;
+ if slot == config.start then
+ secure:SetPoint("TOPLEFT", parent, "BOTTOMLEFT", config.x, config.y);
+ else
+ secure:SetPoint("TOPLEFT", prev, "TOPRIGHT");
+ end
+ secure:RegisterForClicks("AnyUp");
+ if not BUTTONLOCK then
+ secure:RegisterForDrag("LeftButton", "RightButton");
+ end
+ secure:SetWidth(32);
+ secure:SetHeight(32);
+ secure.base = secure:CreateTexture(nil, "BACKGROUND");
+ secure.base:SetAllPoints();
+ secure.base:SetColorTexture(0, 0, 0, 0.5);
+ secure.iconbase = secure:CreateTexture(nil, "BORDER");
+ secure.iconbase:SetPoint("TOPLEFT", secure.base, "TOPLEFT", 1, -1);
+ secure.iconbase:SetPoint("BOTTOMRIGHT", secure.base, "BOTTOMRIGHT", -1, 1);
+ secure.iconbase:SetColorTexture(0, 0, 0, 0.5);
+ secure.iconbase:Hide();
+ secure.icon = secure:CreateTexture(nil, "ARTWORK");
+ secure.icon:SetPoint("TOPLEFT", secure.iconbase, "TOPLEFT");
+ secure.icon:SetPoint("BOTTOMRIGHT", secure.iconbase, "BOTTOMRIGHT");
+ secure.icon:SetTexCoord(0.07, 0.93, 0.07, 0.93);
+ secure.hotkey = secure:CreateFontString(nil, "OVERLAY", "NumberFontNormalGray");
+ secure.hotkey:SetPoint("TOPRIGHT", secure, "TOPRIGHT", 2, -1);
+ secure.count = secure:CreateFontString(nil, "OVERLAY", "NumberFontNormal");
+ secure.count:SetPoint("BOTTOMRIGHT", secure, "BOTTOMRIGHT", 2, -1);
+ secure.cd = CreateFrame("Cooldown", name..slot.."CD", secure, "CooldownFrameTemplate");
+ secure.cd:SetAllPoints();
+ secure:SetAttribute("type", "action");
+ secure:SetAttribute("action", slot);
+ function secure:ActionChanged()
+ return updateButton(self, slot);
+ end
+ secure:ActionChanged(); -- initial update
+ -- FrameXML/SecureHandlers.lua has arguments and return value
+ -- args: self, button, kind, value, ... (kind, value, ... from GetCursorInfo())
+ -- returns: kind, target, detail
+ -- or: "clear", kind, target, detail
+ -- used for Pickup* functions
+ -- some of these snippets based on LibActionButton-1.0
+ secure:SetAttribute("_ondragstart", [=[
+ return "action", self:GetAttribute("action");
+ ]=]);
+ secure:SetAttribute("_onreceivedrag", [=[
+ if not kind or not value then return nil end
+ return "action", self:GetAttribute("action");
+ ]=]);
+ -- pre-wrapper can pass a message to post-wrapper
+ secure:WrapScript(secure, "OnDragStart", [=[
+ local kind, value = GetActionInfo(self:GetAttribute("action"));
+ return "message", format("%s|%s", tostring(kind), tostring(value));
+ ]=], [=[
+ local kind, value = GetActionInfo(self:GetAttribute("action"));
+ if message ~= format("%s|%s", tostring(kind), tostring(value)) then
+ self:CallMethod("ActionChanged");
+ end
+ ]=]);
+ secure:WrapScript(secure, "OnReceiveDrag", [=[
+ local kind, value = GetActionInfo(self:GetAttribute("action"));
+ return "message", format("%s|%s", tostring(kind), tostring(value));
+ ]=], [=[
+ local kind, value = GetActionInfo(self:GetAttribute("action"));
+ if message ~= format("%s|%s", tostring(kind), tostring(value)) then
+ self:CallMethod("ActionChanged");
+ end
+ ]=]);
+ secure:WrapScript(secure, "OnClick", [=[
+ local kind, value = GetActionInfo(self:GetAttribute("action"));
+ return nil, format("%s|%s", tostring(kind), tostring(value));
+ ]=], [=[
+ local kind, value = GetActionInfo(self:GetAttribute("action"));
+ if message ~= format("%s|%s", tostring(kind), tostring(value)) then
+ self:CallMethod("ActionChanged");
+ end
+ ]=]);
+ buttons[slot] = secure;
+ prev = secure;
+ end
+end
+
+local function initialize()
+ ActionBars:SetFrameStrata("LOW");
+ ActionBars:SetPoint("BOTTOMLEFT");
+ ActionBars:SetWidth(1);
+ ActionBars:SetHeight(1);
+ for name, config in pairs(settings) do
+ createActionBar(ActionBars, name, config);
+ end
+end
+
+local events = {
+ ["ACTIONBAR_UPDATE_COOLDOWN"] = function()
+ for _, button in pairs(buttons) do
+ updateCooldown(button, button.slot);
+ end
+ end,
+ ["SPELL_UPDATE_CHARGES"] = function()
+ for _, button in pairs(buttons) do
+ updateCount(button, button.slot);
+ end
+ end,
+ ["ACTIONBAR_SLOT_CHANGED"] = function(slot)
+ if buttons[slot] then buttons[slot]:ActionChanged() end
+ end,
+ ["ACTIONBAR_SHOWGRID"] = function()
+ for _, button in pairs(buttons) do
+ button.grid = true;
+ button.iconbase:Show();
+ if not button.hasaction then button.base:Show() end
+ end
+ end,
+ ["ACTIONBAR_HIDEGRID"] = function()
+ for _, button in pairs(buttons) do
+ button.grid = nil;
+ button.iconbase:Hide();
+ if not button.hasaction then button.base:Hide() end
+ end
+ end,
+ ["UPDATE_ALL_BUTTONS"] = function()
+ for _, button in pairs(buttons) do
+ updateButton(button, button.slot);
+ end
+ end,
+ ["UPDATE_BINDINGS"] = function()
+ end,
+ ["PLAYER_LOGIN"] = function()
+ GameTooltip = _G["GameTooltip"];
+ initialize();
+ end,
+};
+events["LOSS_OF_CONTROL_ADDED"] = events["ACTIONBAR_UPDATE_COOLDOWN"];
+events["LOSS_OF_CONTROL_UPDATE"] = events["ACTIONBAR_UPDATE_COOLDOWN"]; -- TODO might change once tooltips are in
+events["SPELL_UPDATE_ICON"] = events["UPDATE_ALL_BUTTONS"];
+events["PET_STABLE_UPDATE"] = events["UPDATE_ALL_BUTTONS"];
+events["PET_STABLE_SHOW"] = events["UPDATE_ALL_BUTTONS"];
+-- TODO overlay glow ? don't exactly know what it does
+-- autorepeat, tooltips
+
+ActionBars:RegisterEvent("PLAYER_LOGIN");
+ActionBars:RegisterEvent("ACTIONBAR_UPDATE_COOLDOWN");
+ActionBars:RegisterEvent("SPELL_UPDATE_CHARGES");
+ActionBars:RegisterEvent("ACTIONBAR_SLOT_CHANGED");
+ActionBars:RegisterEvent("ACTIONBAR_SHOWGRID");
+ActionBars:RegisterEvent("ACTIONBAR_HIDEGRID");
+ActionBars:SetScript("OnEvent", function(self, event, arg1)
+ events[event](arg1);
+end);