KLAddon.lua

addonName, KLAddon = ... 		-- Global
local KLAddon = KLAddon			-- Local
local db
local EventHandlerFrame = CreateFrame("Frame")

-- Debugging
KLAddon.debugging = false

EventHandlerFrame:RegisterEvent("PLAYER_ENTERING_WORLD")
EventHandlerFrame:RegisterEvent("ADDON_LOADED")
EventHandlerFrame:RegisterEvent("ZONE_CHANGED_NEW_AREA")
EventHandlerFrame:RegisterEvent("PLAYER_SPECIALIZATION_CHANGED")

function SetTooltipMoney(frame,money,type,prefixText,suffixText)
	frame:AddLine((prefixText or "") .. "  " .. GetCoinTextureString(money) .. " " .. (suffixText or ""),0,1,1)
end

function KLAddon:print(msg)
	return print("\124cff1FADFF"..addonName..":\124cffffffff", msg)
end

function KLAddon:debug(msg)
	if not KLAddon.debugging then return end
	return print("\124cffE0743E"..addonName.." Debug:\124cffffffff", msg)
end
	
function KLAddon:IsInInstance()		-- Exclude neighborhoods and houses

	local i, t = IsInInstance()
	
	if t and t ~= "none" and t ~= "neighborhood" and t ~= "interior" and t ~= "scenario" then 
		KLAddon:debug("apply raid graphics")
		return i, t
	end
	
	return false
end




function KLAddon:InitSpecBar()

	if not PlayerSpellsFrame then C_AddOns.LoadAddOn("Blizzard_PlayerSpells") end
	
	local f = CreateFrame("FRAME", "SpecBarFrame", UIParent)
	local prevButton
	
	f:SetSize(44*GetNumSpecializations(), 40)
	f:SetParent(PlayerSpellsFrame.TalentsFrame)
	f:SetFrameStrata("HIGH")
	f:ClearAllPoints()
	f:SetPoint("CENTER", PlayerSpellsFrame.TalentsFrame.BottomBar, "CENTER", -215, 0)
	
	for i=1,GetNumSpecializations() do
	
		local b = CreateFrame("BUTTON", "SpecBarFrameButton"..i, f, "ActionButtonTemplate")
		b:SetSize(40, 40)
		if i>1 then
			b:SetPoint("LEFT", prevButton, "RIGHT", 4, 0)
		else
			b:SetPoint("LEFT", 0, 0)
		end
		local id,name,_,specIcon,_,_ = C_SpecializationInfo.GetSpecializationInfo(i)
		prevButton = b
		b.texture = b:CreateTexture(nil, "ARTWORK")
		b.texture:SetTexture(specIcon)
		b.texture:SetPoint("TOPLEFT", 2, -2)
		b.texture:SetPoint("BOTTOMRIGHT", 2, -2)
		b:RegisterForClicks("AnyDown")
		b:SetHighlightLocked(i == GetSpecialization())
		b:SetScript("OnEnter", function(self)
			GameTooltip:SetOwner(self, "ANCHOR_TOP")
			GameTooltip:SetText(name)
			GameTooltip:AddLine("Left click to change spec")
			GameTooltip:AddLine("Right click to change loot spec")
			GameTooltip:Show()
		end)
		b:SetScript("OnLeave", function(self)
			GameTooltip:Hide()
		end)
		b:SetScript("OnClick", function(self, button, down)
			if button == "LeftButton" and not UnitCastingInfo("player") and GetSpecialization()~=i then
				C_SpecializationInfo.SetSpecialization(i)
				KLAddon:print("Changing spec to " .. name)
			elseif button == "RightButton" then
				local _,currSpec = GetSpecializationInfo(GetSpecialization())
				if GetLootSpecialization() == id then
					SetLootSpecialization(0)
					
					print("\124cffffff00Loot Specialization set to: Current Specialization ( "..currSpec.." )")
				else
					SetLootSpecialization(id)
				end
			end
		end)
	end
end

--[[ function KLAddon:UpdateCVars()

	for c,v in pairs(db.GraphicsCVars) do
		db.GraphicsCVars[c]=C_CVar.GetCVar(c)
		db.RaidGraphicsCVars[c]=C_CVar.GetCVar("raid"..c)
	end	
	
	self:print("Graphics Settings Updated")
	
end	

function KLAddon:ToggleGraphicsSettings(onlyRT)				-- No longer necessary

	onlyRT = onlyRT or false
	
	if onlyRT then 
		SetCVar("shadowRt", 0)
		return
	end
		

	if(db.RaidGraphics) then
		
		for c,v in pairs(db.GraphicsCVars) do
			SetCVar(c, v)
		end
		UIErrorsFrame:AddMessage("Regular graphics settings enabled", 1, 1, 0)
		
	else
	
		for c,v in pairs(db.RaidGraphicsCVars) do
			SetCVar(c, v)
		end
		UIErrorsFrame:AddMessage("Raid graphics settings enabled", 1, 1, 0)
		
	end	
	
	db.RaidGraphics = not db.RaidGraphics
	KLAddon:debug("TGS: "..tostring(db.RaidGraphics))

	
end ]]

function KLAddon:ToggleLayout()

	local CurrentLayout = C_EditMode.GetLayouts().activeLayout 		-- Toggle between first and second custom layout (DynamicCam or Regular)
	local specRole = GetSpecializationRole(GetSpecialization())
	if CurrentLayout == 3 then
		C_EditMode.SetActiveLayout(4)	
		if specRole == "HEALER" then
			EnhanceQoL.Aura.UF.Profiles.SetActiveName("DynamicCam-Heal")
		else
			EnhanceQoL.Aura.UF.Profiles.SetActiveName("DynamicCam")
		end
		RaidNotice_AddMessage(RaidWarningFrame, "Active layout: " .. C_EditMode.GetLayouts().layouts[2].layoutName, ChatTypeInfo["SYSTEM"])
	else
		C_EditMode.SetActiveLayout(3)
		if specRole == "HEALER" then
			EnhanceQoL.Aura.UF.Profiles.SetActiveName("Healing")
		else
			EnhanceQoL.Aura.UF.Profiles.SetActiveName("0.74 Scale")
		end
		RaidNotice_AddMessage(RaidWarningFrame, "Active layout: " .. C_EditMode.GetLayouts().layouts[1].layoutName, ChatTypeInfo["SYSTEM"])
	end
end

function KLAddon:DoTweaks()

	if not MacroFrame then C_AddOns.LoadAddOn("Blizzard_MacroUI") end
		
		MacroFrame:SetHeight(626)
		MacroFrame.MacroSelector:SetHeight(346)
		
		MacroFrameSelectedMacroBackground:ClearAllPoints() 
		MacroFrameSelectedMacroBackground:SetPoint("TOPLEFT", 5, -418) 
		
		MacroFrameTextBackground:ClearAllPoints() 
		MacroFrameTextBackground:SetPoint("TOPLEFT", "MacroFrame", 6, -489)
		
		MacroHorizontalBarLeft:ClearAllPoints()
		MacroHorizontalBarLeft:SetPoint("TOPLEFT", 2, -410)
		
	
	-- Small tweaks
	
	AddonList:SetHeight(800)
	AddonList.ScrollBox:SetHeight(700)	
	
	ObjectiveTrackerFrame.Header.Background:SetAlpha(0.50)
	ObjectiveTrackerFrame.Header.Text:SetJustifyH("CENTER")
	ObjectiveTrackerFrame.Header.Text:SetText("            Tracker      ")
	ObjectiveTrackerFrame.Header.Text:SetFontHeight(20)
	--ObjectiveTrackerFrame.Header.Text:SetFont("Interface\\AddOns\\SharedMedia_MyMedia\\font\\PTSansNarrow-Bold.ttf", 18)
	
	FriendsFrame:SetHeight(800)
	
	
	--tinsert(PAPERDOLL_STATCATEGORIES[1].stats, { stat = "MOVESPEED" })		-- Add movement speed to character frame
	
	
	hooksecurefunc("ExtraActionBar_Update", function() 
		ExtraActionButton1.style:Hide()
	end)

	ExtraActionButton1:SetScale(0.8)
	ZoneAbilityFrame:SetScale(0.8)
	ZoneAbilityFrame.Style:Hide()
	
	do
		local function ChatFilter(self, event, msg, ...)
			if msg:find("You have rewards waiting for you in the Endeavor Coffer.") then return true end
			return false
		end
		
		ChatFrame_AddMessageEventFilter("CHAT_MSG_SYSTEM", ChatFilter)
	end
	
	
	-- CVars -- 
	
	SetCVar("minimapTrackingShowAll", 1)		-- Show all Townsfolk Minimap filters
	SetCVar("AutoPushSpellToActionBar", 0)
	
	SetCVar("breakUpLargeNumbers", 0)			-- https://www.youtube.com/watch?v=ta7lyqqPRXY Classic-like worldtext (damage numbers)
	SetCVar("floatingCombatTextCombatDamageDirectionalScale", 0)
	SetCVar("WorldTextCritScreenY", -0.05)
	SetCVar("WorldTextScreenY", 0.015)
	SetCVar("WorldTextScale", 1.7)
	SetCVar("WorldTextRandomZMax", 2)
	SetCVar("WorldTextRandomZMin", 2)
	
end

do
	EventHandlerFrame:SetScript("OnEvent", function(self, event, arg1, ...)
						
		if event == "PLAYER_ENTERING_WORLD" then
		
			self:UnregisterEvent(event)	-- Only need this once
			
			KLAddon:DoTweaks()
			KLAddon:InitSpecBar()
			
			KLAddon:debug(event)
			
		elseif event == "ADDON_LOADED" and 	arg1 == addonName then
		
			self:UnregisterEvent(event)	-- Only need this once
			
			KLAddon:debug(event)
			
			db = KLAddonDB or {					-- Keeping this in case I need it again
				["RaidGraphics"] = false,
				["Modules"] = {},
				["GraphicsCVars"] = {
					["graphicsShadowQuality"] 		= "",
					["graphicsLiquidDetail"] 		= "",
					["graphicsParticleDensity"] 	= "",
					["graphicsSSAO"] 				= "",
					["graphicsDepthEffects"] 		= "",
					["graphicsComputeEffects"] 		= "",
					["graphicsOutlineMode"] 		= "",
					["graphicsTextureResolution"] 	= "",
					["graphicsSpellDensity"] 		= "",
					["graphicsProjectedTextures"] 	= "",
					["graphicsViewDistance"] 		= "",
					["graphicsEnvironmentDetail"] 	= "",
					["graphicsGroundClutter"] 		= "",
					["shadowRt"]					= ""
				},
				["RaidGraphicsCVars"] =  {

					["graphicsShadowQuality"] 		= "",
					["graphicsLiquidDetail"] 		= "",
					["graphicsParticleDensity"] 	= "",
					["graphicsSSAO"] 				= "",
					["graphicsDepthEffects"] 		= "",
					["graphicsComputeEffects"] 		= "",
					["graphicsOutlineMode"] 		= "",
					["graphicsTextureResolution"] 	= "",
					["graphicsSpellDensity"] 		= "",
					["graphicsProjectedTextures"] 	= "",
					["graphicsViewDistance"] 		= "",
					["graphicsEnvironmentDetail"] 	= "",
					["graphicsGroundClutter"] 		= "",
					["shadowRt"]					= ""
				}
			}
			
			
			
			--Load Modules?
			
			
			KLAddon:print("Addon Loaded")
			
		
		elseif event == "PLAYER_SPECIALIZATION_CHANGED" then
		
			for i=1,GetNumSpecializations() do
				if i==GetSpecialization() then
					_G["SpecBarFrameButton"..i]:SetHighlightLocked(true)
				else
					_G["SpecBarFrameButton"..i]:SetHighlightLocked(false)
				end
			end
			
		elseif event == "ZONE_CHANGED_NEW_AREA" then
			
			if KLAddon:IsInInstance() and GetCurrentGraphicsSetting() == 0 then
				SetCurrentGraphicsSetting(1)
				UIErrorsFrame:AddMessage("Using Raid/Battleground Graphics Settings", 1, 0, 0)
			elseif not KLAddon:IsInInstance() and GetCurrentGraphicsSetting() == 1 then
				SetCurrentGraphicsSetting(0)
				UIErrorsFrame:AddMessage("Using Normal Graphics Settings", 1, 0, 0)
			end
			
		end
	end)
end


--------- BINDINGS / SLASH CMDS -----------

-- BINDING_NAME_KLTOGGLEGRAPHICSSETTINGS 	= 	"Toggle Graphics Settings (KLAddon)"			-- No longer needed
BINDING_NAME_KLTOGGLEEDITMODELAYOUT		=	"Toggle Edit Mode Layout (KLAddon)"					
BINDING_NAME_KLTOGGLECAMERAFOV			=	"Toggle Camera FOV (KLAddon)"						-- Todo: Add settings?
BINDING_NAME_KLTOGGLEFRIENDLYPLATES		=	"Toggle Friendly and NPC Nameplates"

SLASH_KLADEPR1 	= "/tgs"
SLASH_KLA1 		= "/KLA"
SLASH_KLA2 		= "/KLAddon"
SLASH_KLPULL1	= "/pull"
	

SlashCmdList["KLPULL"] = function(msg)
	local param = strsplit(" ", msg)
	local timer = tonumber(param)
	if not timer then  			-- NaN
		return KLAddon:print("Usage: /pull [number]")
	end			
	
	C_PartyInfo.DoCountdown(timer)
end

SlashCmdList["KLADEPR"] = function()
	KLAddon:print("Deprecated command. Use /kla [update / tgs]")
end

SlashCmdList["KLA"] = function(msg)
	local param = strsplit(" ", msg)
	
	--[[ if 		param == "update" 	then	KLAddon:UpdateCVars()
	elseif 	param == "tgs" 		then	KLAddon:ToggleGraphicsSettings() 
	else
		-- Open settings
	end]]
end