Settings.lua

--[[--------------------------------------------------
----- VanillaGuide -----
------------------
Settings.lua
Authors: mrmr
Version: 1.04.3
------------------------------------------------------
Description: 
    	This object handles the various addon settings
    1.00
		-- Initial Ace2 release
	1.99a
		-- Ally addition starter version
    1.03
		-- No Changes. Just adjusting "version".
    		1.99x for a beta release was a weird choise.
	1.04.1
		-- Settings and/or "Saved Variables" are inclosed in
			VGuide.Settings
	1.04.2
		-- scraped MetaMapBWP settings for MetaMapBWP
			Now support for MetaMapNotes, too
		-- Added a function for a proper MetaMap checking
			MetaMapBWPSupportCheck()
	1.04.3
		-- no changes in here for this revision
------------------------------------------------------
Connection:
--]]--------------------------------------------------

--local VGuide = VGuide
Dv(" VGuide Settings.lua Start")

objSettings = {}
objSettings.__index = objSettings

function objSettings:new()
	local obj = {}
    setmetatable(obj, self)

	local profile_defaults = {}
	local char_defaults = {
		UI = {
			Locked = false,
			StepFrameVisible = true,
			ScrollFrameVisible = true,
			StepScroll = 0.33,
			MinimapToggle = true,
			MinimapPos = 0,
			Opacity = 1,
			Scale = 1,
			Layer = "HIGH",
			MainFrameSize = {
				nWidth = 320,
				nHeight = 320,
			},
			MainFrameAnchor = {
				sFrom = "CENTER",
				sTo = "CENTER",
				nX = 0,
				nY = 0,
			},
			MainFrameColor = {
				nR = .11,
				nG = .11,
				nB = .11,
				nA = .81,
			},
			StepFrameColor = {
				nR = .11,
				nG = .11,
				nB = .41,
				nA = .71,
			},
			ScrollFrameColor = {
				nR = .41,
				nG = .11,
				nB = .11,
				nA = .71,
			},
			StepFrameTextColor = {
				nR = .91,
				nG = .91,
				nB = .91,
				nA = .99,
			},
			ScrollFrameTextColor = {
				nR = .59,
				nG = .59,
				nB = .59,
				nA = .71,
			},
		},
	    CharInfo = {
			CharName = "Unknown",	--CharName,
			RealmName = "Unknown",	--RealmName,
			Class = "Unknown",		--Class,
			Race = "Unknown",		--Race,
			Faction = "Unknown",	--Faction,
		},
		GuideValues = {
			GuideID = 1,
			Step = 1,
		},
		VGuideFu = {
			ShowTitle = true,
			ShowGuideName = false,
			ShowGuideStep = false,
			ShowLabels = true,
		},
		MetaMap = {
			Presence = false,
			NotesPresence = false,
			BWPPresence = false,
			NotesEnable = false,
			BWPEnable = false,
		},
	}

	obj = AceLibrary("AceAddon-2.0"):new("AceDB-2.0")

	obj:RegisterDB("VanillaGuideDB", "VanillaGuideDBPC")
	
	obj:RegisterDefaults("profile", profile_defaults)
	obj:RegisterDefaults("char", char_defaults)
	
	obj.PrintSettings = function(self)
		Dv("---------------------------")
		Dv(" -- CharInfo")
		Dv(" -  - Name: " .. tostring(obj.db.char.CharInfo.CharName))
		Dv(" -  - Faction: " .. tostring(obj.db.char.CharInfo.Faction))
		Dv(" -  - Race: " .. tostring(obj.db.char.CharInfo.Race))
		Dv(" ------------------")
		Dv(" -- MetaMap")
		Dv(" -  - Presence: " .. tostring(obj.db.char.MetaMap.Presence))
		Dv(" -  - NotesPresence: " .. tostring(obj.db.char.MetaMap.NotesPresence))
		Dv(" -  - BWPPresence: " .. tostring(obj.db.char.MetaMap.BWPPresence))
		Dv(" -  - Notes: " .. tostring(obj.db.char.MetaMap.NotesEnable))
		Dv(" -  - BWP: " .. tostring(obj.db.char.MetaMap.BWPEnable))
		Dv(" ------------------")
		Dv(" -- GuideValues")
		Dv(" -  - GuideID: " .. tostring(obj.db.char.GuideValues.GuideID))
		Dv(" -  - Step: " .. tostring(obj.db.char.GuideValues.Step))
		Dv(" ------------------")
		Dv(" -- UI")
		Dv(" -  - Locked: " .. tostring(obj.db.char.UI.Locked))
		Dv(" -  - MainFrameSize  X: " .. tostring(obj.db.char.UI.MainFrameSize.nWidth) .. "  Y: " .. tostring(obj.db.char.UI.MainFrameSize.nHeight))
		Dv("---------------------------")
	end

	obj.CheckSettings = function(self)
		local function MetaMapBWPSupportCheck()
			local MetaMapPresence, MetaMapNotesPresence, MetaMapBWPPresence
			Dv("    MetaMap Support Check:")
			-- control THESE TOO, although they're part of the WoW API
			-- GetZoneText, GetRealZoneText, GetSubZoneText, GetMinimapZoneText. 

			-- MetaMap Support Check
			if IsAddOnLoaded("MetaMap") then
				if MetaMap_GetCurrentMapInfo and MetaMap_NameToZoneID then
					Di("      - MetaMap Support Present")
					MetaMapPresence = true
					-- MetaMapNotes Support Check
					if MetaMapNotes_AddNewNote then
						Di("      - MetaMapNotes Support Present")
						MetaMapNotesPresence = true
					else 
						Di("      - MetaMapNotes Support not Present - no markers on your WorldMap")
						MetaMapNotesPresence = false
					end
					-- MetaMapBWP Support Check
					-- let's try to load the BWP module if it's not already
					if not IsAddOnLoaded("MetaMapBWP") then
						LoadAddOn("MetaMapBWP");
					end
					if IsAddOnLoaded("MetaMapBWP") then
						-- let's load the BWP module in "always on" mode
						if MetaMap_LoadBWP then
							-- MetaMap_LoadBWP(id, mode)
							--   mode 0 BWP_CallMenu();
							--   mode 1 MetaKBMenu_RBSelect(id);
							--   mode 2 MetaMapNotes_RBSelect(id);
							--   mode 3 should be BWPAlwaysOn
							MetaMap_LoadBWP(0, 3)
							if BWP_ClearDest and BWP_DisplayFrame and BWPDistanceText and BWPDestText then
								Di("      - MetaMapBWP Support Present")
								MetaMapBWPPresence = true
							else
								Di("      - MetaMapBWP Support not Present - no pointing arrow for ya")
								MetaMapBWPPresence = false
							end
						end
					else
						Di("      - MetaMapBWP Support not Present - no pointing arrow for ya")
						MetaMapBWPPresence = false
					end
				else
					Di("      - MetaMap Support not Present - no pointing arrow and no markers on your WorldMap")
					MetaMapPresence = false
				end
			else
				Di("      - MetaMap Support not Present - no pointing arrow and no markers on your WorldMap")
				MetaMapPresence = false
			end
			return MetaMapPresence, MetaMapNotesPresence, MetaMapBWPPresence
		end

		if obj.db.char.CharInfo.CharName == "Unknown" then
			Di(" New Settings for \"|cFFbb7777" .. AceLibrary("AceDB-2.0").CHAR_ID .. " - " .. AceLibrary("AceDB-2.0").FACTION .."|r\"")
			obj.db.char.CharInfo.CharName = AceLibrary("AceDB-2.0").NAME
			obj.db.char.CharInfo.RealmName = AceLibrary("AceDB-2.0").REALM
			obj.db.char.CharInfo.Class = AceLibrary("AceDB-2.0").CLASS_ID
			obj.db.char.CharInfo.Race = UnitRace("player")
			obj.db.char.CharInfo.Faction = AceLibrary("AceDB-2.0").FACTION
		elseif obj.db.char.CharInfo.CharName == AceLibrary("AceDB-2.0").NAME then
			if obj.db.char.CharInfo.Faction ~= AceLibrary("AceDB-2.0").FACTION then
				Di(" Settings for \"|cFFbb7777 " .. AceLibrary("AceDB-2.0").CHAR_ID .. " - " .. AceLibrary("AceDB-2.0").FACTION .. "|r\" need to be wiped out!")
				Di("   This character was already used on the opposite faction!")
				obj:ResetDB("char")
			else
				Di(" Settings for \"|cFFbb7777" .. AceLibrary("AceDB-2.0").CHAR_ID .. " - " .. AceLibrary("AceDB-2.0").FACTION .. "|r\" loaded!")
			end
		end

		obj.db.char.MetaMap.Presence, 
		obj.db.char.MetaMap.NotesPresence,	
		obj.db.char.MetaMap.BWPPresence = MetaMapBWPSupportCheck()
	end

	obj.GetSettingsCharInfo = function(self)
		return obj.db.char.CharInfo
	end

	obj.GetSettingsUI = function(self)
		return obj.db.char.UI
	end

	obj.GetSettingsGuideValues = function(self)
		return obj.db.char.GuideValues
	end

	obj.GetSettingsVGuideFu = function(self)
		return obj.db.char.VGuideFu
	end

	obj.GetSettingsMetaMap = function(self)
		return obj.db.char.MetaMap
	end

	obj.GetSettingsEntireCharDB = function(self)
		return obj.db.char
	end

	obj.SetSettingsCharInfo = function(self, tCharInfo)
		obj.db.char.CharInfo = tCharInfo
	end

	obj.SetSettingsUI = function(self, tUI)
		obj.db.char.UI = tUI
	end

	obj.SetSettingsGuideValues = function(self, tGuideValues)
		obj.db.char.GuideValues = tGuideValues
	end

	obj.SetSettingsVGuideFu = function(self, tVGuideFu)
		obj.db.char.VGuideFu = tVGuideFu
	end

	obj.SetSettingsMetaMap = function(self, tMetaMap)
		obj.db.char.MetaMap = tMetaMap
	end

	obj.SetSettingEntireCharDB = function(self, tSettingsTable)
		VGuide.Settings.db.char = tSettingsTable
	end

	return obj
end

Dv(" VGuide Settings.lua End")
--return VGuide