AllTheLittleThings/modules/deprecated.lua

-- These are here for historical purposes only -- do not include in .toc
local core = LibStub("AceAddon-3.0"):GetAddon("AllTheLittleThings")
local mod = core:NewModule("Deprecated", "AceEvent-3.0")
local db = core.db.profile[mod:GetName()]

local defaults = {
	macroSwap = false,
}
local options = {
	macroSwap = {
		name = "Flame Caps for Lich King",
		desc = "Swaps the macro to use Flame Caps for HLK",
		type = 'toggle',
	},
}

function mod:OnInitialize()
	core:RegisterOptions(options, defaults)
	core:RegisterSlashCommand("method", "slsh1", "slash2")
end

-- Lich King Flame Cap Macro ---------------------------------------------------
local macro = "MI+FC";
function core:ZoneChange()
	if (db.macroSwap and UnitName("player")=="Chira" and GetMacroIndexByName(macro)>0) then
		if (GetSubZoneText() == "The Frozen Throne" and self:GetMode()>3) then
			EditMacro(GetMacroIndexByName(macro), nil, nil, GetMacroBody(macro):gsub("Flame Caq", "Flame Cap"));
		else
			EditMacro(GetMacroIndexByName(macro), nil, nil, GetMacroBody(macro):gsub("Flame Cap", "Flame Caq"));
		end
	end
end

function core:GetMode()
	local _, _, diff, _, _, dynHeroic, dynFlag = GetInstanceInfo(); 
	return diff; -- (dynFlag and (2-(diff%2)+2*dynHeroic)) or diff; 
end

-- Attempt to monitor n52 problem ----------------------------------------------
function core:Nostromo()
	local keys = {"W", "A", "S", "D"}
	local xVal = {1, 0, 1, 2}
	local yVal = {0, 1, 1, 1}
	local width, height = 50, 50
	local padding = 10
	local offsetX, offsetY = -1.5, 3
	core.frameSet = {}

	for i in ipairs(keys) do
		local frame = CreateFrame("frame", UIParent)
		frame:SetSize(width, height)
		frame:SetPoint("CENTER", UIParent, "CENTER", (offsetX + xVal[i])*width + padding*xVal[i], (offsetY - yVal[i])*height - padding*yVal[i])
		frame:EnableKeyboard(false)

		local texture = frame:CreateTexture()
		texture:SetAllPoints()
		texture:SetTexture(0, 0, 0)
		texture:SetAlpha(0.4)

		if false then
			frame:SetScript("onkeydown", function(self, key)
				if key == keys[i] then
					texture:SetAlpha(0.8)
				end
			end)
			frame:SetScript("onkeyup", function(self, key)
				if key == keys[i] then
					texture:SetAlpha(0.4)
				end
			end)
		end

		table.insert(core.frameSet, frame)
	end
end

-- creates a text string and hooks every CLEU to try and find a problematic addon
function core:SetupAddonDebug()
	local frame = CreateFrame("frame")
	frame:SetPoint("BOTTOMLEFT", UIParent, "BOTTOMLEFT", self.db.profile.addonDebug.x, self.db.profile.addonDebug.y)
	frame:SetSize(100, 30)
	frame:EnableMouse(true)
	frame:SetMovable(true)
	frame:SetClampedToScreen(true)
	frame:RegisterForDrag("LeftButton")
	frame:SetScript("OnDragStart", function(self)
		self:StartMoving()
	end)
	frame:SetScript("OnDragStop", function(self)
		self:StopMovingOrSizing()
		core.db.profile.addonDebug.x = self:GetLeft()
		core.db.profile.addonDebug.y = self:GetTop()
	end)

	local text = frame:CreateFontString(nil, nil, "GameFontNormal")
	text:SetAllPoints()
	text:SetText("TEST")
	text:SetJustifyH("RIGHT")

	-- non ace
    local events = {GetFramesRegisteredForEvent("COMBAT_LOG_EVENT_UNFILTERED")}
	for _,f in ipairs(events) do
		if f ~= AceEvent30Frame then
			local name = f:GetName() or f.name or tostring(f)
			self:RawHookScript(f, "OnEvent", function(frame, event, ...)
				if event == "COMBAT_LOG_EVENT_UNFILTERED" then
					text:SetText(name)
					self.hooks[f].OnEvent(frame, event, ...)
					text:SetText("")
				end
			end)
		end
	end

	-- ace
	local CLEU = LibStub:GetLibrary("AceEvent-3.0").events.events.COMBAT_LOG_EVENT_UNFILTERED
	if CLEU then
		for addon, event in pairs(CLEU) do
			local old = CLEU[addon]
			CLEU[addon] = function(...)
				text:SetText(addon.name or tostring(addon))
				old(...)
				text:SetText("")
			end
		end
	end
end

-- Bug with text in animations -------------------------------------------------
function core:BugInit()
	local f = CreateFrame("frame")
	f:SetSize(50, 50)
	f:SetPoint("CENTER")
	f:SetScript("OnMouseUp", function()
		f.finish:Play()
		f:SetScript("OnMouseUp", nil)
	end)

	f.s = f:CreateFontString(nil, nil, "SystemFont_Outline_Small")
	f.s:SetText("Test")
	f.s:SetPoint("CENTER")

	f.t = f:CreateTexture()
	f.t:SetTexture(0, 0, 0)
	f.t:SetAlpha(0.5)
	f.t:SetAllPoints()

	f.finish = f:CreateAnimationGroup()

	-- f.finishAlpha = f.finish:CreateAnimation("Alpha")
	-- f.finishAlpha:SetChange(-1)
	-- f.finishAlpha:SetDuration(.85)

	f.finishScale = f.finish:CreateAnimation("Scale")
	f.finishScale:SetScale(2, 2)
	f.finishScale:SetDuration(.85)

	f.finish:SetScript("OnPlay", function()
		-- f.s:Hide()
	end)
	f.finish:SetScript("OnFinished", function()
		-- f.s:Show()
		local t = GetTime()
		f:SetScript("OnUpdate", function()
			if GetTime()-t > 0.5 then
				f.finish:Play()
				f:SetScript("OnUpdate", nil)
			end
		end)
	end)
end

-- Experimental hash function --------------------------------------------------
local function my_hash(key, ...)
	local i, j, str;
	for i=1,select('#', ...) do
		j=0;
		str=select(i, ...);
		key = key:gsub(".", function(k)
			j = (j % strlen(str))+1;
			return strchar((strbyte(k,1)*strbyte(str,j)) % 256);
		end);
	end
	i=0;
	for j=1,strlen(key) do
		i = (i + strbyte(key,j)) % 100;
	end
	return i;
end

-- Saampson Shards and Deathblood Venom deposit --------------------------------
function core:CHAT_MSG_LOOT(_, message, source)
	-- if (message:find("Saampson") and message:find("Shadowfrost Shard")) then
		-- SendChatMessage(format("Saampson Shard Count: %d", math.random(15, 50)), "raid");
	-- end
	
	-- source = message:match("(.+) receives loot")
	-- if not g_allLoots[source] then
		-- g_allLoots[source] = 0
	-- end
	-- g_allLoots[source] = g_allLoots[source] + 1
	if message:find("You create") and message:find("Deathblood Venom") and GuildBankFrame and GuildBankFrame:IsVisible() and GetItemCount("Deathblood Venom") >= 4 then
		for bag=0,NUM_BAG_SLOTS do
			for slot=1,GetContainerNumSlots(bag) do
				if GetContainerItemID(bag, slot) == 58142 then
					SetCurrentGuildBankTab(5)
					UseContainerItem(bag, slot)
				end
			end
		end
	end
end

-- Consolidate Thresh
function core:UnitAura(...)
	name, rank, icon, count, dispelType, duration, expires, caster, isStealable, shouldConsolidate, spellID = self.hooks["UnitAura"](...)
	if expires and (self.db.profile.consolidateThresh > 0) then
		if ((expires-GetTime())/60 > self.db.profile.consolidateThresh) or (name:find("Aura") or name:find("Totem")) or (shouldConsolidate == 1) then
			shouldConsolidate = 1
		else
			shouldConsolidate = nil
		end
	end
	
	return name, rank, icon, count, dispelType, duration, expires, caster, isStealable, shouldConsolidate, spellID
end


-- Slash Commands
function core:SlashProcess(msg)
	if msg == "ilevel" or msg == "il" then
		self:RaidDump("Tallying iLevel Sums...")
		r = {}
		for i=1,GetNumRaidMembers() do 
			s=0
			InspectUnit("raid"..i) 
			for j=1,16 do 
				l=GetInventoryItemLink("raid"..i,j) 
				if l~=nil and j~=4 then 
					_,_,_,v=GetItemInfo(l) s=s+v 
				end 
			end
			r[i] = {UnitName("raid"..i), s}
		end
		table.sort(r, function(a, b) return a[2] > b[2] end)
		for i,v in pairs(r) do
			if v[2] > 0 then
				self:RaidDump(v[1]..": "..v[2])
			else
				self:RaidDump(v[1]..": (out of range)")
			end
		end
		self:RaidDump("---")
	elseif msg == "markxp" then
		-- write all current
		local db = self.db.profile.guildXPMarks
		local num = #db+1
		
		db[num] = { 
			time = time(),
			marks = { },
		}
		local markSet = db[num].marks
		
		-- build all xp list
		for i=1,GetNumGuildMembers() do
			local name, rank, _, _, _, _, note = GetGuildRosterInfo(i)
			local xp, total = GetGuildRosterContribution(i)
			
			if rank:find("Alt") then
				name = note
			end
			
			if not markSet[name] then
				markSet[name] = 0
			end
			markSet[name] = markSet[name] + total
		end		
		
		self:Print(format("Created new mark set #%d; suggested UI reload", num))
	elseif msg:find("diff ") then
		local setNum = tonumber(msg:match("diff (%d+)"))
		local set = setNum and self.db.profile.guildXPMarks[setNum]
		
		if not set then
			self:Print(format("Could not find split %d", setNum))
			return
		end
		
		local markSet = { }
		for i=1,GetNumGuildMembers() do
			local name, rank, _, _, _, _, note = GetGuildRosterInfo(i)
			local xp, total = GetGuildRosterContribution(i)
			
			if rank:find("Alt") then
				name = note
			end
			
			if not markSet[name] then
				markSet[name] = 0
			end
			markSet[name] = markSet[name] + total
		end
		
		local diff = { }
		local total = 0
		for player, xp in pairs(set.marks) do
			if markSet[player] > xp then
				local d = markSet[player] - xp
				diff[player] = d
				total = total + d
			end
		end
		
		local function printInfo(msg)
			-- self:Print(msg)
			SendChatMessage(msg, "guild")
		end
		
		printInfo(format("Guild XP Difference Since %s:", date("%c", set.time)))
		while next(diff) ~= nil do
			local max, maxVal = "-", -1
			for k,v in pairs(diff) do
				if v > maxVal then
					max, maxVal = k, v
				end
			end
			printInfo(format("%s - %.1fk (%.1f%%)", max, maxVal/1000, maxVal/total*100))
			diff[max] = nil
		end
	elseif msg == "hott" then 
		self:RaidDump("Checking for Herald Gear...")
		for i=1,GetNumRaidMembers() do 
			s=0
			InspectUnit("raid"..i) 
			for j=1,18 do 
				l=GetInventoryItemLink("raid"..i,j) 
				if l~=nil then 
					_,_,_,v=GetItemInfo(l)
					if v>232 then
						self:RaidDump(UnitName("raid"..i) .. ": " .. l .. "!!")
					elseif v>226 and (j~=16 and j~=18) then
						self:RaidDump(UnitName("raid"..i) .. ": " .. l .. "!!")
					end
				end 
			end
		end
		self:RaidDump("Check complete.")
	elseif msg == "ttdi" then
		local toCheck = {}
		local uncheckedPlayers = {}
		self:RaidDump("Checking for Dedicated Insanity Gear...")
		for i=1,GetNumRaidMembers() do 
			local name = UnitName("raid"..i)
			InspectUnit("raid"..i) 
			uncheckedPlayers[name] = 0
			for j=1,18 do 
				l=GetInventoryItemLink("raid"..i,j) 
				if l~=nil then 
					uncheckedPlayers[name] = uncheckedPlayers[name]+1
					_, _, id = strfind(l, "item:(%d+)")
					if id then
						toCheck[id] = l
					end
				end
			end
		end
		for i,v in ipairs(DedicatedInsanity) do
			if toCheck[tostring(v)] then
				SendChatMessage(string.format("%s is not allowed", toCheck[tostring(v)]), "raid")
			end
		end
		for i,v in pairs(uncheckedPlayers) do
			if v < 5 then
				SendChatMessage(string.format("%s was not checked.", i), "raid")
			end
		end
		self:RaidDump("Check complete.")
		
	else
		self:Print("Valid commands:")
		self:Print("/atlt disbandraid - Disbands a raid")
		self:Print("/atlt inviteguild - Invites everyone in your guild to a raid")
		self:Print("/atlt promoteall - Promotes everyone in the raid")
		self:Print("/atlt printloot - Prints the loot in raid warning")
		self:Print("/atlt clearmarks - Clears all raid marks")
		self:Print("/atlt rolltally - Begins recording rolls for 10 seconds")
		self:Print("/atlt arathibasin - Prints info on the current AB game")
		self:Print("/atlt printloot - Prints the loot in /rw with accompanying letter")
		self:Print("/atlt ilevel - Prints the sum of everyone's ilevel gear in raid chat")
		self:Print("/atlt combatlog - Fixes a broken combat log")
		self:Print("/atlt hott - Raid wide Herald of the Titans check")
		self:Print("/atlt ttdi - Raid wide Tribute to Dedicated Insanity check")
	end
end


-- Hallow's end
self.hallowBuff = nil
function core:UNIT_AURA(_, unit)
	-- if we haven't set the initial value yet, set and quit
	if (self.hallowBuff == nil) then
		self.hallowBuff = not not UnitDebuff("player", "Tricked or Treated")
		-- self:Print("Set to", self.hallowBuff);
		return;
	end
	
	local function hasBuff()
		return not not UnitDebuff("player", "Tricked or Treated")
	end
	
	if (unit == "player") then
		if (self.hallowBuff and not hasBuff()) then
			self:Print("Halloween debuff lost!");
			self.hallowBuff = false;
		elseif (not self.hallowBuff and hasBuff()) then
			self.db.profile.halloween = self.db.profile.halloween + 1;
			-- pick transitive
			local transitive = TRANSITIVES[math.random(#TRANSITIVES)];
			self:Print(format("I will %s %d babies this year", transitive, self.db.profile.halloween))
			self.hallowBuff = true;
		end
	end
end

-- Dedicated Insanity info -----------------------------------------------------
-- local DedicatedInsanity = {46017,47069,47079,47082,47093,47072,47073,47090,47071,47094,47081,47092,47070,47080,47104,47138,47114,47121,47142,47108,47106,47107,47140,47126,47139,47116,47148,47193,47233,47150,47234,47195,47184,47204,47151,47186,47235,47183,47194,47187,47225,47203,47054,47182,46958,46976,46985,46996,46994,46979,46963,46962,46997,47052,47057,46999,46961,46960,47083,46990,47152,47056,47000,46988,46974,47055,46992,47051,46972,47141,47042,47043,47041,47115,46959,47053,49500,49494,49465,49493,49490,49496,49497,49499,49495,49501,49498,49466,49467,49474,49475,49476,49478,49479,49480,49468,49469,49470,49471,49472,49473,49477,49481,49482,49483,49484,49491,49489,49492,49464,49488,47078,47085,47086,47098,47076,47074,47087,47099,47077,47096,47084,47097,47095,47075,47088,47001,47156,46995,46980,46969,47113,47521,47206,47526,47519,47239,46964,47130,47524,47525,47517,47506,47515,46968,47147,46986,47003,47154,47240,47061,47067,47132,47002,47207,46967,47111,46965,47209,47109,47191,46991,47153,47068,47004,46989,46975,47190,47112,47145,47066,47155,46993,47129,47205,47236,47062,47189,46973,47143,47208,46971,46977,47063,47192,47238,47545,47547,47549,47552,47553,47237,47060,47110,47133,47144,47059,47131,47188,47224,47157,46966,47146,47064,
-- 42210,42229,42234,42244,42250,42257,42262,42267,42272,42277,42282,42287,42292,42319,42324,42329,42334,42348,42354,42366,42386,42392,42483,42487,42492,42498,42504,42515,42521,44423,44424,48402,48404,48406,48408,48410,48412,48414,48420,48422,48424,48426,48428,48432,48435,48438,48440,48442,48444,48507,48509,48511,48513,48515,48517,48519,48521,48523,49185,49189,49191,
-- 40790,40791,40792,40810,40811,40812,40829,40830,40831,40850,40851,40852,40870,40871,40872,40883,40884,40890,40910,40928,40934,40940,40964,40978,40979,40984,40994,40995,41002,41008,41014,41020,41028,41034,41039,41045,41052,41056,41061,41066,41071,41076,41082,41088,41138,41144,41152,41158,41200,41206,41212,41218,41226,41231,41236,41276,41282,41288,41294,41299,41305,41311,41317,41322,41328,41618,41622,41626,41631,41636,41641,41651,41656,41662,41668,41673,41679,41684,41716,41768,41774,41833,41837,41841,41855,41860,41865,41870,41875,41882,41886,41894,41899,41904,41910,41916,41922,41928,41935,41941,41947,41954,41960,41966,41972,41994,41999,42006,42012,42018,42041,42042,42043,42044,42045,42046,42047,42076,42077,42078,42079,42080,42081,42082,42118,42119,42527,42533,42539,42561,42566,42572,42580,42585,42591,42599,42604,42609,42616,42622,42854,46374,49086,49179,49181,49183,49187,
-- 48646,48645,48644,48643,48642,48616,48615,48614,48613,48612,48584,48583,48582,48581,48580,48547,48546,48545,48544,48543,48490,48489,48488,48487,48486,48455,48453,48451,48447,48433,48385,48384,48383,48382,48381,48355,48354,48353,48352,48351,48325,48324,48323,48322,48321,48294,48293,48292,48291,48290,48264,48263,48262,48261,48260,48232,48231,48230,48229,48228,48207,48206,48205,48204,48203,48172,48171,48170,48169,48168,48142,48141,48140,48139,48138,48086,48085,48084,48083,48082,48037,48035,48033,48031,48029,47792,47791,47790,47789,47788,47762,47761,47760,47759,47758,
-- }