Settings.lua

--[[--------------------------------------------------
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