add tullaRange addon

AddOns/tullaRange/LICENSE

@@ -0,0 +1,19 @@
+Copyright (c) 2010 Jason Greer
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.

AddOns/tullaRange/README.md

@@ -0,0 +1,3 @@
+# tullaRange
+
+An addon for World of Warcraft that makes buttons appear red when out of range

AddOns/tullaRange/changelog.md

@@ -0,0 +1,15 @@
+# tullaRange release notes
+
+## 8.2.2
+
+* Added classic build
+
+## 8.2.1
+
+* Automated releases
+
+## 8.2.0
+
+* Updated TOC for 8.2.0
+* Verified the addon works with classic
+* Cleaned up code a tiny bit

AddOns/tullaRange/tullaRange.lua

@@ -0,0 +1,324 @@
+--[[
+	tullaRange
+		Adds out of range coloring to action buttons
+		Derived from RedRange with negligable improvements to CPU usage
+--]]
+
+--locals and speed
+local AddonName, Addon = ...
+
+local DB_KEY = 'TULLARANGE_COLORS'
+local UPDATE_DELAY = 0.15
+local ATTACK_BUTTON_FLASH_TIME = _G.ATTACK_BUTTON_FLASH_TIME
+
+local IsActionInRange = _G.IsActionInRange
+local IsUsableAction = _G.IsUsableAction
+local HasAction = _G.HasAction
+
+--[[
+	Helper Functions
+--]]
+
+local function removeDefaults(tbl, defaults)
+	for k, v in pairs(defaults) do
+		if type(tbl[k]) == 'table' and type(v) == 'table' then
+			removeDefaults(tbl[k], v)
+			if next(tbl[k]) == nil then
+				tbl[k] = nil
+			end
+		elseif tbl[k] == v then
+			tbl[k] = nil
+		end
+	end
+
+	return tbl
+end
+
+local function copyDefaults(tbl, defaults)
+	for k, v in pairs(defaults) do
+		if type(v) == 'table' then
+			tbl[k] = copyDefaults(tbl[k] or {}, v)
+		elseif tbl[k] == nil then
+			tbl[k] = v
+		end
+	end
+
+	return tbl
+end
+
+
+--[[
+	The main thing
+--]]
+
+function Addon:Load()
+	self.buttonColors = {}
+	self.buttonsToUpdate = {}
+
+	-- create a frame for watching for the options menu to show up
+	-- when it does, load the options menu
+	do
+		local optionsWatcher = CreateFrame('Frame', nil, InterfaceOptionsFrame)
+
+		optionsWatcher:SetScript('OnShow', function(watcher)
+			watcher:SetScript('OnShow', nil)
+			LoadAddOn(AddonName .. '_Config')
+		end)
+	end
+
+
+	-- create a frame for handling events and throttling timer updates
+	do
+		local eventHandler = CreateFrame('Frame', nil); eventHandler:Hide()
+
+		eventHandler.remain = UPDATE_DELAY
+
+		eventHandler:SetScript('OnEvent', function(handler, ...)
+			self:OnEvent(...)
+		end)
+
+		eventHandler:SetScript('OnUpdate', function(handler, elapsed)
+			local remain = handler.remain - elapsed
+
+			if remain > 0 then
+				handler.remain = remain
+			else
+				handler.remain = UPDATE_DELAY
+
+				if not self:UpdateButtons(UPDATE_DELAY - remain) then
+					handler:Hide()
+				end
+			end
+		end)
+
+		eventHandler:RegisterEvent('PLAYER_LOGIN')
+		eventHandler:RegisterEvent('PLAYER_LOGOUT')
+
+		self.updater = eventHandler
+	end
+
+	--make thyself global
+	_G[AddonName] = self
+end
+
+
+--[[
+	Frame Events
+--]]
+
+function Addon:OnEvent(event, ...)
+	local action = self[event]
+
+	if action then
+		action(self, event, ...)
+	end
+end
+
+function Addon:PLAYER_LOGIN()
+	self:SetupDatabase()
+	self:HookActionEvents()
+end
+
+function Addon:PLAYER_LOGOUT()
+	self:CleanupDatabase()
+end
+
+
+--[[
+	Button Hooking
+--]]
+
+do
+	local function button_UpdateStatus(button)
+		Addon:UpdateButtonStatus(button)
+	end
+
+	local function button_UpdateUsable(button)
+		Addon:UpdateButtonUsable(button, true)
+	end
+
+	local function button_Register(button)
+		Addon:Register(button)
+	end
+
+	function Addon:HookActionEvents()
+		hooksecurefunc('ActionButton_OnUpdate', button_Register)
+		hooksecurefunc('ActionButton_UpdateUsable', button_UpdateUsable)
+		hooksecurefunc('ActionButton_Update', button_UpdateStatus)
+	end
+
+	function Addon:Register(button)
+		button:HookScript('OnShow', button_UpdateStatus)
+		button:HookScript('OnHide', button_UpdateStatus)
+		button:SetScript('OnUpdate', nil)
+
+		self:UpdateButtonStatus(button)
+	end
+end
+
+
+--[[
+	Actions
+--]]
+
+function Addon:RequestUpdate()
+	if next(self.buttonsToUpdate) then
+		self.updater:Show()
+	end
+end
+
+function Addon:UpdateButtons(elapsed)
+	if next(self.buttonsToUpdate) then
+		for button in pairs(self.buttonsToUpdate) do
+			self:UpdateButton(button, elapsed)
+		end
+
+		return true
+	end
+
+	return false
+end
+
+function Addon:UpdateButton(button, elapsed)
+	self:UpdateButtonUsable(button)
+	self:UpdateButtonFlash(button, elapsed)
+end
+
+function Addon:UpdateButtonUsable(button, force)
+	if force then
+		self.buttonColors[button] = nil
+	end
+
+	local action = button.action
+	local isUsable, notEnoughMana = IsUsableAction(action)
+
+	--usable (ignoring target information)
+	if isUsable then
+		local inRange = IsActionInRange(action)
+
+		--but out of range
+		if inRange == false then
+			self:SetButtonColor(button, 'oor')
+		else
+			self:SetButtonColor(button, 'normal')
+		end
+	--out of mana
+	elseif notEnoughMana then
+		self:SetButtonColor(button, 'oom')
+	--unusable
+	else
+		self:SetButtonColor(button, 'unusable')
+	end
+end
+
+function Addon:UpdateButtonFlash(button, elapsed)
+	if button.flashing ~= 1 then return end
+
+	local flashtime = button.flashtime - elapsed
+
+	if flashtime <= 0 then
+		local overtime = -flashtime
+
+		if overtime >= ATTACK_BUTTON_FLASH_TIME then
+			overtime = 0
+		end
+
+		flashtime = ATTACK_BUTTON_FLASH_TIME - overtime
+
+		local flashTexture = button.Flash
+		if flashTexture:IsShown() then
+			flashTexture:Hide()
+		else
+			flashTexture:Show()
+		end
+	end
+
+	button.flashtime = flashtime
+end
+
+function Addon:UpdateButtonStatus(button)
+	local action = button.action
+
+	if action and button:IsVisible() and HasAction(action) then
+		self.buttonsToUpdate[button] = true
+	else
+		self.buttonsToUpdate[button] = nil
+	end
+
+	self:RequestUpdate()
+end
+
+function Addon:SetButtonColor(button, colorIndex)
+	if self.buttonColors[button] == colorIndex then return end
+
+	self.buttonColors[button] = colorIndex
+
+	local r, g, b = self:GetColor(colorIndex)
+	button.icon:SetVertexColor(r, g, b)
+end
+
+
+--[[
+	Configuration
+--]]
+
+function Addon:SetupDatabase()
+	local sets = _G[DB_KEY]
+
+	if not sets then
+		sets = {}
+		_G[DB_KEY] = sets
+	end
+
+	self.sets = copyDefaults(sets, self:GetDatabaseDefaults())
+end
+
+function Addon:CleanupDatabase()
+	local sets = self.sets
+
+	if sets then
+		removeDefaults(sets, self:GetDatabaseDefaults())
+	end
+end
+
+function Addon:GetDatabaseDefaults()
+	return {
+		normal = {1, 1, 1},
+		oor = {1, 0.3, 0.1},
+		oom = {0.1, 0.3, 1},
+		unusable = {0.4, 0.4, 0.4}
+	}
+end
+
+function Addon:ResetDatabase()
+	_G[DB_KEY] = nil
+
+	self:SetupDatabase()
+	self:ForceColorUpdate()
+end
+
+function Addon:SetColor(index, r, g, b)
+	local color = self.sets[index]
+
+	color[1] = r
+	color[2] = g
+	color[3] = b
+
+	self:ForceColorUpdate()
+end
+
+function Addon:GetColor(index)
+	local color = self.sets[index]
+
+	return color[1], color[2], color[3]
+end
+
+function Addon:ForceColorUpdate()
+	for button in pairs(self.buttonsToUpdate) do
+		self:UpdateButtonUsable(button, true)
+	end
+end
+
+
+--[[ Load The Thing ]]--
+Addon:Load()

AddOns/tullaRange/tullaRange.toc

@@ -0,0 +1,7 @@
+## Interface: 11302
+## Title: tullaRange
+## Author: Tuller
+## Notes: Out of range coloring based on RedRange
+## Version: 8.2.2
+## SavedVariables: TULLARANGE_COLORS
+tullaRange.lua