titandamagemeters.lua

时间太紧了

--[[
	Titan Plugin For DamageMeters 4.1.3
	Author: SeraphTC, with additions by Dandelion

	Code Changes By Dandelion (15/05/2006)

	TitanDamageMeters.Lua Changes:
	Changed the way Titan is detected to avoid falsely detecting it when Bhaldie Infobar is loaded.

	Code Change By SeraphTC (28/01/2006)
	
	TitanDamageMeters.Lua Changes:
	Moved the call for TitanPanelButton_OnLoad(); inside the 'if damagemeters loaded' statement to prevent errors when titan panel was not loaded.
	Changed the titan menu category from a non-existant TMSP variable (oops!  missed that last time!) to 'Information' where it belongs.
	Improved the feedback from IsDMLoaded() and prevent it being called twice (no need to call it from the right-side button when it will have already
	been called from the left-side button).
	Removed TITAN_DAMAGEMETERS_TPLOADED as we dont use it!
	Renamed TITAN_DAMAGEMETERS_LOADED to TITAN_AND_DAMAGEMETERS_LOADED as it contains the status of both titan and damagemeters
	Moved the 'Glue' functions to the end of the file above the 'Utility' functions to help keep things tidy :) 
	(makes sense to have the dedicated plugin code all together and called functions together at the end).

	Code Tidied By SeraphTC (23/01/2006)

	TitanDamageMeters.Lua Changes:
	Added TITAN_DAMAGEMETERS_TPLOADED variable to check for loaded status of Titan Panel
	Changed value of TITAN_DAMAGEMETERSRIGHT_MENU_TEXT from "Damage Meters" to "Damage Meters (Right)"
	Removed the TITAN_DAMAGEMETERS_VERSION variable and use DamageMeters_VERSIONSTRING instead (no point in duplicating values)
	Removed LeftTag and RightTag variables as completely unused.
	Removed Add/Ignore a Prefix on the menu/tooltip text depending on the availability of catagories, 
	as we dont check for this here!
	Renamed GetStatus() function to IsDMLoaded() to prevent possible conflicts with TMSP
	Removed IsAddonLoaded line from IsDMLoaded() as we dont use it!
	Removed Titan existance checking from onload statement and incorporated it with IsDMLoaded().  This way we have one function
	that handles both checks, will print error messages to the chat pane and will return 1 of 4 values for 
	future internal debugging.
	(GetAddonInfo provides a more reliable result with its "enabled" value)
	Removed the old refs to TitanPanelDamageMetersButton_xxxx function calls - may as well use the internal DamageMeters functions
	and save duplication!
	Added tests to see if damage meters and titan are loaded to most functions before any code is called - this should prevent WoW from returning
	nil value errors if either mod is not loaded.
	Added a TitanDMPrintD() - a stripped out version of DMPrintD from damagemeters, so that we can easily print to the chatchannel if damagemeters 
	is not running. (This will only be called from IsDMLoaded() but is a very quick way to prevent errors).
	(Dand) Added checks before calling TitanPanel base functions in two places that check that Titan is loaded.
	TitanDamageMeters.xml Changes:
	Removed reference to TitanDamageMetersFunctions.lua as we dont use it.

	File Structure Changes:
	Removed TitanDamageMetersFunctions.lua as not used.


	
]]--

-- Set Labels and ID
TITAN_DAMAGEMETERS_ID =  "DamageMeters";
TITAN_DAMAGEMETERSRIGHT_ID = "DamageMetersRight";
TITAN_DAMAGEMETERS_MENU_TEXT = "Damage Meters";
TITAN_DAMAGEMETERSRIGHT_MENU_TEXT = "Damage Meters (Right)";
TITAN_DAMAGEMETERS_BUTTON_LABEL =  "Damage Meters";
TITAN_DAMAGEMETERS_TOOLTIP = "Show Damage Meters";
TITAN_DAMAGEMETERS_ICONPATH = "Interface\\Addons\\DamageMeters\\Artwork\\TitanDamageMeters"
TITAN_AND_DAMAGEMETERS_LOADED = nil;

-- OnLoad Statement

function TitanPanelDamageMetersButton_OnLoad()
	
	TITAN_AND_DAMAGEMETERS_LOADED = IsDMLoaded();
	if (TITAN_AND_DAMAGEMETERS_LOADED == 2) then		-- Only continue if DamageMeters AND Titan Panel are loaded
		this.registry = { 
			id = TITAN_DAMAGEMETERS_ID,
			category = "Information",
			version = DamageMeters_VERSIONSTRING,
			menuText = TITAN_DAMAGEMETERS_MENU_TEXT, 
			buttonTextFunction = "TitanPanelDamageMetersButton_GetButtonText", 
			tooltipTitle = TITAN_DAMAGEMETERS_TOOLTIP,
			tooltipTextFunction = "TitanPanelDamageMetersButton_GetTooltipText", 
			icon = TITAN_DAMAGEMETERS_ICONPATH,
			iconWidth = 16,
			frequency = 1, -- PC: Added.
			savedVariables = {
				ShowIcon = 1,
				ShowLabelText = 1,
				shownRanks = {},
				shownLeaders = {},
				shownValues = {}
			}
		};
		
		TitanPanelButton_OnLoad();  -- Dand: added.  TitanPanelButton_OnLoad not defined if Titan not loaded.
					    -- SeraphTC - moved this here instead of in its own 'If' statement - no point in doing 2x checks for the same thing in one function ;)
	end
end

-- OnLoad Statement For Right Side Icon
-- No ButtonTextFunction is required here, as Right Side menu's use the Icon Template and have no button text

function TitanPanelDamageMetersRightButton_OnLoad()
						
	if (TITAN_AND_DAMAGEMETERS_LOADED == 2) then
		this.registry = { 
			id = TITAN_DAMAGEMETERSRIGHT_ID,
			category = "Information",
			version = DamageMeters_VERSIONSTRING,
			menuText = TITAN_DAMAGEMETERSRIGHT_MENU_TEXT,
			tooltipTitle = TITAN_DAMAGEMETERS_TOOLTIP,
			tooltipTextFunction = "TitanPanelDamageMetersButton_GetTooltipText", 
			icon = TITAN_DAMAGEMETERS_ICONPATH,
			iconWidth = 16,
			savedVariables = {
				ShowIcon = 1,
			}
		};
		
		TitanPanelButton_OnLoad();  -- Dand: added.  TitanPanelButton_OnLoad not defined if Titan not loaded.
					    -- SeraphTC - moved this here instead of in its own 'If' statement - no point in doing 2x checks for the same thing in one function ;)
	end
end


-- Update Button OnEvent

function TitanPanelDamageMetersButton_OnEvent()
	if (TITAN_AND_DAMAGEMETERS_LOADED == 2) then
		TitanPanelButton_UpdateButton(TITAN_DAMAGEMETERS_ID);
	end
end

function TitanPanelDamageMetersButton_OnClick(button)
	if (TITAN_AND_DAMAGEMETERS_LOADED == 2) then
		if (button == "LeftButton") then
			DamageMeters_ToggleShow();
		end
	end
end

-- Get Button Text

function TitanPanelDamageMetersButton_GetButtonText(id)
	if (TITAN_AND_DAMAGEMETERS_LOADED == 2) then
		local button, id = TitanUtils_GetButton(id, true);
		local retstr = "";

		-- supports turning off labels
		if (TitanGetVar(TITAN_DAMAGEMETERS_ID, "ShowLabelText")) then
			retstr = "";

			local quant;

			-- Values.
			local shownValues = TitanGetVar(TITAN_DAMAGEMETERS_ID, "shownValues");
			for quant = 1, DamageMeters_Quantity_MAX do
				if (shownValues[quant]) then
					--local quantColorCode = DamageMeters_quantityColorCodeDefault[quant];
					local quantColorCode = "|cFFFFD040";
					retstr = string.format("%s "..quantColorCode.."%s=|cFFFFFFFF%s"..FONT_COLOR_CODE_CLOSE, retstr, DM_QUANTDEFS[quant].titanAbbrev, TitanPanelDamageMeters_GetValue(quant));
				end
			end

			-- Ranks.
			local playerRanks = DamageMeters_rankTables[DMT_ACTIVE][UnitName("Player")];
			if (nil ~= playerRanks and table.getn(playerRanks) > 0) then
				local shownRanks = TitanGetVar(TITAN_DAMAGEMETERS_ID, "shownRanks");
				for quant = 1, DamageMeters_Quantity_MAX do
					if (shownRanks[quant]) then
						local rank = playerRanks[quant];
						if (nil == rank) then
							rank = "-";
						else
							rank = tostring(rank);
						end
						--Dand: These colors don't all look good: using the regular text color instead.
						--local quantColorCode = DamageMeters_quantityColorCodeDefault[quant];
						local quantColorCode = "|cFFFFD040";
						retstr = string.format("%s "..quantColorCode.."%s#=|cFFFFFFFF%s"..FONT_COLOR_CODE_CLOSE, retstr, DM_QUANTDEFS[quant].titanAbbrev, rank);
					end
				end
			end

			-- Leaders.
			local shownLeaders = TitanGetVar(TITAN_DAMAGEMETERS_ID, "shownLeaders");
			for quant = 1, DamageMeters_Quantity_MAX do
				if (shownLeaders[quant]) then
					--local quantColorCode = DamageMeters_quantityColorCodeDefault[quant];
					local quantColorCode = "|cFFFFD040";
					retstr = string.format("%s "..quantColorCode.."%sL=|cFFFFFFFF%s"..FONT_COLOR_CODE_CLOSE, retstr, DM_QUANTDEFS[quant].titanAbbrev, TitanPanelDamageMeters_GetLeaderName(quant));
				end
			end

			if (retstr == "") then
				retstr = TITAN_DAMAGEMETERS_BUTTON_LABEL;
			end
		end
	
		return retstr
	end
end


-- Get Tooltip Text
-- NB: You can use XML to format the text in the str, eg:
-- \n = New Line
-- \t = Tab space
-- Others may work but I have not tested them yet.

function TitanPanelDamageMetersButton_GetTooltipText()
	return "Toggle Frame\tLeft-Click"
end

-- Setup Right Click Menu

function TitanPanelRightClickMenu_PrepareDamageMetersMenu()
	if (TITAN_AND_DAMAGEMETERS_LOADED == 2) then
		if ( UIDROPDOWNMENU_MENU_LEVEL == 2 ) then
			if (UIDROPDOWNMENU_MENU_VALUE == "Values") then
				local quant;
				for quant = 1, DamageMeters_Quantity_MAX do
					info = {};
					info.text = DamageMeters_GetQuantityString(quant, true);
					info.value = quant;
					info.func = TitanPanelDamageMeters_SetValueOption;
					info.checked = TitanPanelDamageMeters_IsValueShown(quant);
					info.keepShownOnClick = 1;