[Ðynasty]

Looking at both below, which would be the best candidate for adding to or taking from?

If it's a lot more than copy paste (which it probably is seeing that I'm clueless) then I'm out of luck I guess :'(

If I could combine the two and make a new addon, I'm sure many more people would love to have and give 100% credit to the originals, I think everyone would be happy.


Mouse Look Lock

--[[------------------------------------------------------------
    Mouse Look v7.0
    
    By Trimble Epic
    
    This mod allows a button to be mapped to allow
    WoW to simulate the Mouselook mode found in DAoC.
    
    The code below is a work-around for the
    way WoW handles it's mouse controlled camera functions
    
    Revision History
    7.0 Jul 29 '16  Updated TOC for use with 7.0 Legion
    6.0 Nov 13 '14  Updated TOC for use with 6.0 Wod
    5.1 Aug 11 '14  Updated TOC for use with 5.4 Cata
            Also added many new user interface windows to automatically pop up cursor.
 
    5.0 Aug 29 '12  Updated TOC for use with 5.0.4 Mists of Pandaria
 
    4.0 Oct 12 '10  Updated the addon to fix some code issues.  Blizzard removed "this", as well as
            a few other "features" like values passed as "arg1" in XML code.  I also updated
            the TOC for use with 4.0.1
    3.2 Aug 16 '09
            Updated TOC for use with 3.2
    3.1 Apr 15 '09
            Updated TOC for use with 3.1
    2.2 Oct 14 '08
            Updated TOC for use with 3.0.2
    2.1 Aug 4 '08
            Updated TOC for use with 2.4
            Fixed bug associated with sRaidFrames (wouldn't return to mouselook mode)
            Fixed bug so that mouselook setting is started when entering the world
    1.6 Nov 3
            Updated TOC for use with patch 1.12
    1.5 Mar 29
            Updated TOC for use with patch 1.10
            Changed essential functions used to engage and disengage mouselook to comply with new 1.10 rules
    1.4 Jun 20
            Updated TOC for use with version 1500 of game client
    1.3 Feb 22
            Updated TOC for use with version 4216 of game client
    1.2 Feb 15
            Updated TOC for use with version 4211 of game client
            Reworked Lua file to contain all code internally to reduce stray code in bindings.xml
            Reworked bindings.xml to be cleaner and leaner
            Added some code in an attempt to fix 'walklock' issue.
    1.1 I wasn't keeping track of changes prior to 1.2, but it should be sufficient to say that
            1.1 was pretty much a stable release.
 
    Todo notes:
    Implement MouseOverFrame function and increase update speed
    
--------------------------------------------------------------]]
 
local Version = '7.0'
local Debugging = false
local MouseLook_TempLockout = false
local MouseLook_LastUpdate = 0
local MouseLook_UpdateFrequency = 0.2  ---> Adjust this number UP to improve frame rate.
 
BINDING_HEADER_MouseLook            = 'MouseLook'
BINDING_NAME_MouseLook_mode_toggle  = "MouseLook toggle" -- are these needed?
BINDING_NAME_MouseLook_momentary    = "MouseLook momentary"
 
 
--List of frames that should automatically undo mouselook while they are up
local MouseLook_FramesToCheck = {
    "AuctionFrame",       "BankFrame",          "BattlefieldFrame",   "CharacterFrame",
    "ChatMenu",           "EmoteMenu",          "LanguageMenu",       "VoiceMacroMenu",
    "ClassTrainerFrame",  "CoinPickupFrame",    "CraftFrame",         "FriendsFrame",
    "GameMenuFrame",      "GossipFrame",        "GuildRegistrarFrame","HelpFrame",
    "InspectFrame",       "KeyBindingFrame",    "LoXXXotFrame",       "MacroFrame",
    "MailFrame",          "MerchantFrame",      "OptionsFrame",       "PaperDollFrame",
    "PetPaperDollFrame",  "PetRenamePopup",     "PetStable",          "QuestFrame",
    "QuestLogFrame",      "RaidFrame",          "ReputationFrame",    "ScriptErrors",
    "SkillFrame",         "SoundOptionsFrame",  "SpellBookFrame",     "StackSplitFrame",
    "StatsFrame",         "SuggestFrame",       "TabardFrame",        "TalentFrame",
    "TalentTrainerFrame", "TaxiFrame",          "TradeFrame",         "TradeSkillFrame",
    "TutorialFrame",      "UIOptionsFrame",     "UnitPopup",          "WorldMapFrame",
    "CosmosMasterFrame",  "CosmosDropDown",     "ChooseItemsFrame",   "ImprovedErrorFrame",
    "TicTacToeFrame",     "OthelloFrame",       "MinesweeperFrame",   "GamesListFrame",
    "ConnectFrame",       "ChessFrame",         "QuestShareFrame",    "TotemStomperFrame",
    "StaticPopXXXup1",       "StaticPopup2",       "StaticPopup3",       "StaticPopup4",
    "DropDownList1",      "DropDownList2",      "DropDownList3",      "WantAds",
    "CosmosDropDownBis",  "InventoryManagerFrame", "InspectPaperDollFrame",
    "ContainerFrame1",    "ContainerFrame2", "ContainerFrame3", "ContainerFrame4",
    "ContainerFrame5",    "ContainerFrame6",    "ContainerFrame7",    "ContainerFrame8",
    "ContainerFrame9",    "ContainerFrame10",   "ContainerFrame11",   "ContainerFrame12",
    "ContainerFrame13",   "ContainerFrame14",   "ContainerFrame15",   "ContainerFrame16",
    "ContainerFrame17",   "AutoPotion_Template_Dialog","NxSocial",    "ARKINV_Frame1",
    "AchievementFrame",   "LookingForGuildFrame", "PVPUIFrame",       "GuildFrame",
    "WorldMapFrame",      "VideoOptionsFrame",  "InterfaceOptionsFrame",
        "ACP_AddonList",      "PlayerTalentFrame",  "PVEFrame",           "EncounterJournal",
    "PetJournalParent",   "AccountantFrame", 
    --   "NxMap1",  (carbonite's world map breaks mouselook)
    -- "StoreFrame", (causes taint??!??  wtf, blizzard?)
    }
 
--List of frames that mouse might be over (Yes, these could badly use some cleanup)
local MouseLook_FramesToCheckForMouse = {
    "BonusActionBarFrame",
    "BuffFrame",
    "CastingBarFrame",
    "ChatFrameMenuButton", "ChatFrameEditBox",
    "ChatFrame1Tab", "ChatFrame2Tab", "ChatFrame3Tab", "ChatFrame4Tab", "ChatFrame5Tab", "ChatFrame6Tab", "ChatFrame7Tab",
    "ChatFrame1BottomButton", "ChatFrame2BottomButton", "ChatFrame3BottomButton", "ChatFrame4BottomButton", "ChatFrame5BottomButton", "ChatFrame6BottomButton", "ChatFrame7BottomButton",
    "ChatFrame1DownButton", "ChatFrame2DownButton", "ChatFrame3DownButton", "ChatFrame4DownButton", "ChatFrame5DownButton", "ChatFrame6DownButton", "ChatFrame7DownButton",
    "ChatFrame1UpButton", "ChatFrame2UpButton", "ChatFrame3UpButton", "ChatFrame4UpButton", "ChatFrame5UpButton", "ChatFrame6UpButton", "ChatFrame7UpButton",
    "CoinPickupFrame",
    "ColorPickerFrame",
    "DialogBoxFrame",
    "DurabilityFrame",
    "GameTimeFrame",
    "ItemTextFrame",
    "MainMenuBar",
    "MinimapCluster",
    "PartyFrame",
    "PetActionBarFrame", "PetFrame", "PetitionFrame",
    "PlayerFrame",
    "QuestTimerFrame",
    "TargetFrame",
    "UnitFrame",
    "AutoFollowStatus",
    "SecondBar",
    "ClockFrame",
    "CosmosTooltip",
    "CombatStatsDataFrame",
    "CombatStatsFrame",
    "DPSPLUS_PlayerFrame",
    "ItemBuffBar",
    "ItemBuffButton1", "ItemBuffButton2", "ItemBuffButton3", "ItemBuffButton4", "ItemBuffButton5", "ItemBuffButton6",
    "KillCountFrame", "KillCountFrame2",
    "InventoryManagerTooltip",
    "MonitorStatus",
    "SideBar", "SideBar2",
    "TargetDistanceFrame",
    "TargetStatsTooltip",
    "HealomaticMainFrame",
    }
 
local function ML_debug(...)
    
    if not DEFAULT_CHAT_FRAME or not Debugging then return end
    
    local msg = ''
    
    for k,v in ipairs(arg) do
        
        msg = msg .. tostring(v) .. ' : '
        
    end
    
    DEFAULT_CHAT_FRAME:AddMessage(msg)
    
end
 
local function Print(text)
    
    if not DEFAULT_CHAT_FRAME then return end
    
    DEFAULT_CHAT_FRAME:AddMessage(text)
    
end
 
local function UnmouseableFrameOnScreen()
    
    for index in pairs(MouseLook_FramesToCheck) do
        
        local curFrame = getglobal(MouseLook_FramesToCheck[index])
        if (curFrame and curFrame:IsVisible()) then
            --ML_debug("Frame on screen : " .. MouseLook_FramesToCheck[index])
            return true
        end
        
    end
    
end
 
local function MouseIsOverFrame()
    
    for index in pairs(MouseLook_FramesToCheckForMouse) do
        
        local curFrameName = MouseLook_FramesToCheckForMouse[index]
        local curFrame = getglobal(curFrameName)
        
        if  curFrame
        and curFrame:IsVisible() then
            
            local xPos, yPos = GetCursorPosition()
            
            local top    = curFrame:GetTop()    * UIParent:GetScale() + 10
            local right  = curFrame:GetRight()  * UIParent:GetScale() + 10
            local left   = curFrame:GetLeft()   * UIParent:GetScale() - 10
            local bottom = curFrame:GetBottom() * UIParent:GetScale() - 10
            
            if string.find(curFrameName, "ChatFrame") then
                top = top + 10
                left = left - 10
            end
            
            if  xPos and yPos
            and left and right
            and top  and bottom then
                
                if  (xPos >= left)
                and (xPos <= right)
                and (yPos >= bottom)
                and (yPos <= top) then
                    
                    --ML_debug("Mouse is over frame : " .. curFrameName)
                    return true
                    
                end
                
            end
            
        end
        
    end
    
end
 
 
function MouseLook_OnUpdate(self,elapsed,...)
    
    
    MouseLook_LastUpdate = MouseLook_LastUpdate + elapsed
    
    if (MouseLook_LastUpdate >= MouseLook_UpdateFrequency) then
        
        MouseLook_LastUpdate = 0
        
        if MouseLookOn
        and not MouseLook_MomentaryPointer then
            
            if CursorHasItem()
            or UnmouseableFrameOnScreen()
            or MouseIsOverFrame() then
                
                if not MouseLook_TempLockout then
                    
                    --IsMouselooking() -- also for mouselook tools ;)
                    MouselookStop()
                    --Print("MouselookStop()")
                    --SetBinding("BUTTON1","CAMERAORSELECTORMOVE")
                    --SetBinding("BUTTON2","TURNORACTION")
                    MouseLook_TempLockout = true
                    
                    
                end
                
            else
                
                if MouseLook_TempLockout then
                    
                    MouselookStart()
                    --Print("MouselookStart()")
                    --SetBinding("BUTTON1","MOVEBACKWARD")
                    --SetBinding("BUTTON2","MOVEFORWARD")
                    MouseLook_TempLockout = false
                    
                end
                
            end
            
        end
        
    end
    
end
 
function MouseLook_Toggle()
    
    if not MouseLookOn then
        
        MouselookStart()
        --SetBinding("BUTTON1","MOVEBACKWARD")
        --SetBinding("BUTTON2","MOVEFORWARD")
        MouseLookOn = true
        
    else
        
        MouselookStop()
        --SetBinding("BUTTON1","CAMERAORSELECTORMOVE")
        --SetBinding("BUTTON2","TURNORACTION")
        MouseLookOn = false
        
        
    end
    
end
 
local oldMouseDown
local oldMouseUp
local mouse_button_down
 
local function status(bool)
    
    if bool then return "true" else return "false" end
    
end
 
function MouseLook_Momentary(keystate)
    
    if MouseLookOn then
        
        if ( keystate == "down" ) then
            
            MouselookStop()
            --Print("MouselookStop()")
            --SetBinding("BUTTON1","CAMERAORSELECTORMOVE")
            --SetBinding("BUTTON2","TURNORACTION")
            MouseLook_MomentaryPointer = true
            --Print("Down")
            
        else
            
            --if mouse_button_down then
                
            --  waiting_to_reset = true
            --  Print("1")
            --else
                
                if not MouseLook_TempLockout then
                    
                    MouselookStart()
                    --Print("MouselookStart()")
                    --SetBinding("BUTTON1","MOVEBACKWARD")
                    --SetBinding("BUTTON2","MOVEFORWARD")
                    --Print("2")
                else
                    --Print("3")
                    
                end
                
                MouseLook_MomentaryPointer = false
                
            --end
            --Print("up")
            
        end
        
    end
    
end
 
 
function MouseLook_OnLoad(self,...)
    
    MouseLookFrame:RegisterEvent("PLAYER_ENTERING_WORLD")
    MouseLookFrame:RegisterEvent("PLAYER_REGEN_DISABLED")
    MouseLookFrame:RegisterEvent("PLAYER_REGEN_ENABLED")
    
    oldMouseDown=WorldFrame:GetScript("OnMouseDown")
    oldMouseUp = WorldFrame:GetScript("OnMouseUp")
    WorldFrame:SetScript("OnMouseDown",MouseDown)
    WorldFrame:SetScript("OnMouseUp",MouseUp)
    
    SetMouselookOverrideBinding("BUTTON1", "MOVEBACKWARD") 
    SetMouselookOverrideBinding("BUTTON2", "MOVEFORWARD") 
    --Print("on load")
end;
 
 
function MouseDown(...)
-- need to determine WHICH mousebutton is down.  it's in arg2.   how do I read it?  i forgot.  actually, it doesn't really matter anymore.
    
    if mouse_button_down then
        
        --both_buttons_down = true
        --Print("MouseDown() mouse_button_down true")
        
    else
        
        mouse_button_down = true
        --Print("MouseDown() mouse_button_down false")
        
    end
    
    if oldMouseDown then oldMouseDown(args) end
    
end
 
function MouseUp(...)
    
    if both_buttons_down then
        
        both_buttons_down = false
        --Print("MouseUp() both_buttons_down true")
        
    else
        
        mouse_button_down = false
        --Print("MouseUp() both_buttons_down false")
        if waiting_to_reset then
            
            MouseLook_TempLockout = true
            
            MouseLook_MomentaryPointer = false
            
            waiting_to_reset = false
            
        end
        
    end
    
    if oldMouseUp then oldMouseUp(args) end
    
end
 
function MouseLook_OnEvent(self,event,...)
    
    --Print("on event:" ..event)
    
    if event == "PLAYER_ENTERING_WORLD" then
        
        --Print("PLAYER_ENTERING_WORLD event")
        
        if MouseLookOn then
            
            --Print("Trying to automatically start Mouselook")
            MouselookStart()
            --Print("MouselookStart()")
            --SetBinding("BUTTON1","MOVEBACKWARD")
            --SetBinding("BUTTON2","MOVEFORWARD")
            
        end
        
    end
    
    if event == "PLAYER_REGEN_DISABLED" then
        
        if MouseLookOn then
            
            --SetBinding("BUTTON1","CAMERAORSELECTORMOVE")
            --SetBinding("BUTTON2","TURNORACTION")
            
        end
        
    end
    
    if event == "PLAYER_REGEN_ENABLED" then
        
        if MouseLookOn then
            
            --SetBinding("BUTTON1","MOVEBACKWARD")
            --SetBinding("BUTTON2","MOVEFORWARD")
            
        end
        
    end
    
end

MouseLookHandler

_G["BINDING_HEADER_MOUSELOOKHANDLER"] = "MouselookHandler"
_G["BINDING_NAME_INVERTMOUSELOOK"]    = "Invert Mouselook"
_G["BINDING_NAME_TOGGLEMOUSELOOK"]    = "Toggle Mouselook"
_G["BINDING_NAME_LOCKMOUSELOOK"]      = "Enable Mouselook"
_G["BINDING_NAME_UNLOCKMOUSELOOK"]    = "Disable Mouselook"
 
MouselookHandler = LibStub("AceAddon-3.0"):NewAddon("MouselookHandler", "AceConsole-3.0")
MouselookHandler._G = _G
 
-- Set the environment of the current function to the global table MouselookHandler.
-- See: [url]http://www.lua.org/pil/14.3.html[/url]
setfenv(1, MouselookHandler)
 
local MouselookHandler = _G.MouselookHandler
local LibStub = _G.LibStub
 
local AceConfig = LibStub("AceConfig-3.0")
local AceConfigDialog = LibStub("AceConfigDialog-3.0")
local AceConfigRegistry = LibStub("AceConfigRegistry-3.0")
local AceDBOptions = LibStub("AceDBOptions-3.0")
 
local IsMouselooking = _G.IsMouselooking
local MouselookStart, MouselookStop = _G.MouselookStart, _G.MouselookStop
 
local modName = "MouselookHandler"
 
local customFunction, stateHandler, customEventFrame
function MouselookHandler:predFun()
  return false
end
 
turnOrActionActive, cameraOrSelectOrMoveActive = false, false
clauseText = nil
 
enabled, inverted = false, false
 
local function defer()
  if not db.profile.useDeferWorkaround then return end
  for i = 1, 5 do
    if _G.IsMouseButtonDown(i) then return true end
  end
end
 
-- Starts and stops mouselook if the API function IsMouselooking() doesn't match up with this mods
-- saved state.
local function rematch()
  if defer() then return end
 
  if turnOrActionActive or cameraOrSelectOrMoveActive then return end
 
  if db.profile.useSpellTargetingOverride and _G.SpellIsTargeting() then
    MouselookStop(); return
  end
 
  if not IsMouselooking() then
    if shouldMouselook and not _G.GetCurrentKeyBoardFocus() then
      MouselookStart()
    end
  elseif IsMouselooking() then
    if not shouldMouselook or _G.GetCurrentKeyBoardFocus() then
      MouselookStop()
    end
  end
end
 
function update(event, ...)
  local shouldMouselookOld = shouldMouselook
  shouldMouselook = MouselookHandler:predFun(enabled, inverted, clauseText, event, ...)
  if shouldMouselook ~= shouldMouselookOld then
    rematch()
  end
end
 
function invert()
  inverted = true
  update()
end
 
function revert()
  inverted = false
  update()
end
 
function toggle()
  enabled = not enabled
  update()
end
 
function lock()
  enabled = true
  update()
end
 
function unlock()
  enabled = false
  update()
end
 
local handlerFrame = _G.CreateFrame("Frame", modName .. "handlerFrame")
 
-- [url]http://www.wowinterface.com/forums/showthread.php?p=267998[/url]
handlerFrame:SetScript("OnEvent", function(self, event, ...)
  return self[event] and self[event](self, ...)
end)
 
function handlerFrame:onUpdate(...)
  rematch()
  --_G.assert(_G.GetBindingAction("BUTTON1", true))
  --_G.print(_G.GetMouseFocus():GetName())
  --_G.print(_G.IsMouseButtonDown(1), _G.IsMouseButtonDown(2))
end
 
handlerFrame:SetScript("OnUpdate", handlerFrame.onUpdate)
 
_G.hooksecurefunc("TurnOrActionStart", function()
  turnOrActionActive = true
end)
 
_G.hooksecurefunc("TurnOrActionStop", function()
  turnOrActionActive = false
end)
 
_G.hooksecurefunc("CameraOrSelectOrMoveStart", function()
  cameraOrSelectOrMoveActive = true
end)
 
_G.hooksecurefunc("CameraOrSelectOrMoveStop", function()
  cameraOrSelectOrMoveActive = false
end)
 
function handlerFrame:PLAYER_ENTERING_WORLD()
  rematch()
end
 
function handlerFrame:PLAYER_LOGIN()
  -- Nothing here yet.
end
 
function handlerFrame:ADDON_LOADED()
  --_G.print("MouselookHandler loaded!")
 
  -- [url]http://wowprogramming.com/utils/xmlbrowser/live/FrameXML/CinematicFrame.lua[/url]
  -- [url]http://wowprogramming.com/utils/xmlbrowser/live/FrameXML/CinematicFrame.xml[/url]
  -- [url]http://wowprogramming.com/docs/widgets/MovieFrame[/url]
  -- [url]http://wowprogramming.com/utils/xmlbrowser/live/FrameXML/MovieFrame.lua[/url]
  -- [url]http://wowprogramming.com/utils/xmlbrowser/live/FrameXML/MovieFrame.xml[/url]
 
  --[[
  _G.assert(_G.CinematicFrame)
  _G.assert(_G.CinematicFrameCloseDialog)
  --_G.assert(_G.CinematicFrame.closeDialog)
  _G.assert(_G.MovieFrame)
  _G.assert(_G.MovieFrame.CloseDialog)
  ]]
 
  _G.CinematicFrameCloseDialog:HookScript("OnShow", function(self)
    handlerFrame:SetScript("OnUpdate", nil)
    if _G.IsMouselooking() then
      _G.MouselookStop()
    end
  end)
 
  _G.MovieFrame.CloseDialog:HookScript("OnShow", function(self)
    handlerFrame:SetScript("OnUpdate", nil)
    if _G.IsMouselooking() then
      _G.MouselookStop()
    end
  end)
 
  _G.CinematicFrameCloseDialog:HookScript("OnHide", function(self)
    handlerFrame:SetScript("OnUpdate", handlerFrame.onUpdate)
    rematch()
  end)
 
  _G.MovieFrame.CloseDialog:HookScript("OnHide", function(self)
    handlerFrame:SetScript("OnUpdate", handlerFrame.onUpdate)
    rematch()
  end)
 
  self:UnregisterEvent("ADDON_LOADED")
  self.ADDON_LOADED = nil
end
 
handlerFrame:RegisterEvent("PLAYER_ENTERING_WORLD")
handlerFrame:RegisterEvent("PLAYER_LOGIN")
handlerFrame:RegisterEvent("ADDON_LOADED")
 
--------------------------------------------------------------------------------
-- < in-game configuration UI code > -------------------------------------------
--------------------------------------------------------------------------------
 
local function applyOverrideBindings(info, val)
  if db.profile.useOverrideBindings then
    for key, command in _G.pairs(db.profile.mouseOverrideBindings) do
      _G.SetMouselookOverrideBinding(key, command == "" and nil or command)
    end
  else
    for key, _ in _G.pairs(db.profile.mouseOverrideBindings) do
      _G.SetMouselookOverrideBinding(key, nil)
    end
  end
end
 
local function setUseOverrideBindings(info, val)
  db.profile.useOverrideBindings = val
  applyOverrideBindings()
end
 
local function getUseOverrideBindings(info)
  return db.profile.useOverrideBindings
end
 
-- "Hint: Use info[#info] to get the leaf node name, info[#info-1] for the parent, and so on!"
-- [url]http://www.wowace.com/addons/ace3/pages/ace-config-3-0-options-tables/#w-callback-arguments[/url]
 
local suggestedCommands = {}
for _, v in _G.ipairs({"UNLOCKMOUSELOOK", "MOVEFORWARD", "MOVEBACKWARD", "TOGGLEAUTORUN",
  "STRAFELEFT", "STRAFERIGHT"}) do
  suggestedCommands[v] = _G.GetBindingText(v, "BINDING_NAME_")
end
 
-- The key in the "Override bindings" section of the options frame that's currently being
-- configured.
local selectedKey
 
local function validateCustomFunction(info, input)
  local chunk, errorMessage = _G.loadstring(input)
  if not chunk then
    MouselookHandler:Print(errorMessage)
    return errorMessage
  else
    chunk()
    if _G.type(predFun) ~= "function" then
      MouselookHandler:Print("Your Lua code should define a function \'MouselookHandler:predFun\'!")
      return "Your Lua code should define a function \'MouselookHandler:predFun\'!"
    else
      return true
    end
  end
end
 
local function setCustomFunction(info, input)
  db.profile.customFunction = input
end
 
local function getCustomFunction(info)
  return db.profile.customFunction
end
 
local function setMacroText(info, input)
  _G.RegisterStateDriver(stateHandler, "mouselookstate", input)
  db.profile.macroText = input
end
 
local function getMacroText(info)
  return db.profile.macroText
end
 
local function setEventList(info, input)
  for event in _G.string.gmatch(db.profile.eventList, "[^%s]+") do
    customEventFrame:UnregisterEvent(event)
  end
  for event in _G.string.gmatch(input, "[^%s]+") do
    customEventFrame:RegisterEvent(event)
  end
  db.profile.eventList = input
end
 
local function getEventList(info)
  return db.profile.eventList
end
 
-- Array containing all the keys from db.profile.mouseOverrideBindings.
local overrideKeys = {}
 
local deferText = [[When clicking and holding any mouse button while ]]
  .. [[mouselooking, but only releasing it after stopping mouselooking, the ]]
  .. [[mouse button's binding won't be run on release.]] .. '\n'
  .. [[    For example, consider having "BUTTON1" bound to "STRAFELEFT". ]]
  .. [[Now, when mouselook is active and the left mouse button is pressed ]]
  .. [[and held, stopping mouselook will result in releasing the mouse ]]
  .. [[button to no longer have it's effect of cancelling strafing. ]]
  .. [[Instead, the player will be locked into strafing left until ]]
  .. [[clicking the left mouse button again.]] .. '\n'
  .. [[    This setting will cause slightly less obnoxious behavior: it will ]]
  .. [[defer stopping mouselook until all mouse buttons have been released.]]
 
local bindText = [[Enable to define a set of keybindings that only apply while mouselooking. ]]
  .. [[For example, you could strafe with the left (BUTTON1) and right (BUTTON2) mouse buttons.]]
 
local spellTargetingOverrideText = [[Disable mouselook while a spell is awaiting a target.]]
 
local options = {
  type = "group",
  name = "MouselookHandler Options",
  handler = MouselookHandler,
  childGroups = "tree",
  args = {
    general = {
      type = "group",
      name = "General",
      order = 100,
      args = {
        deferHeader = {
          type = "header",
          name = "Defer stopping mouselook",
          order = 0,
        },
        deferDescription = {
          type = "description",
          name = deferText,
          fontSize = "medium",
          order = 1,
        },
        deferToggle = {
          type = "toggle",
          name = "Enable defer workaround",
          width = "full",
          set = function(info, val) db.profile.useDeferWorkaround = val end,
          get = function(info) return db.profile.useDeferWorkaround  end,
          order = 2,
        },
        spellTargetingOverrideHeader = {
          type = "header",
          name = "Disable while targeting spell",
          order = 6,
        },
        spellTargetingOverrideDescription = {
          type = "description",
          name = spellTargetingOverrideText,
          fontSize = "medium",
          order = 7,
        },
        spellTargetingOverrideToggle = {
          type = "toggle",
          name = "Enable",
          width = "full",
          set = function(info, val) db.profile.useSpellTargetingOverride = val end,
          get = function(info) return db.profile.useSpellTargetingOverride end,
          order = 8,
        },
      },
    },
    overrideBindings = {
      type = "group",
      name = "Override bindings",
      order = 110,
      args = {
        overrideBindingsHeader = {
          type = "header",
          name = "Mouselook override bindings",
          order = 100,
        },
        overrideBindingsDescription = {
          type = "description",
          name = bindText,
          fontSize = "medium",
          order = 110,
        },
        overrideBindingsToggle = {
          type = "toggle",
          name = "Use override bindings",
          width = "full",
          set = setUseOverrideBindings,
          get = getUseOverrideBindings,
          order = 120,
        },
        bindingTableHeader = {
          type = "header",
          name = "Binding table",
          order = 130,
        },
        bindingTableDescription = {
          type = "description",
          name = "You can either create a new override binding by entering a binding key " ..
                 "(|cFF3366BBhttp://wowprogramming.com/docs/api_types#binding|r) in the " ..
                 "editbox, or select an existing override binding from the dropdown menu to " ..
                 "review or modify it.",
          fontSize = "medium",
          order = 140,
        },
        newBindingInput = {
          type = "input",
          name = "New",
          desc = "Create a new mouselook override binding.",
          set = function(info, val)
                  val = _G.string.upper(val)
                  if not db.profile.mouseOverrideBindings[val] then
                    db.profile.mouseOverrideBindings[val] = ""
                    --overrideKeys[#overrideKeys + 1] = val
                    _G.table.insert(overrideKeys, val)
                    -- [url]http://stackoverflow.com/questions/2038418/associatively-sorting-a-table-by-v[/url]
                    _G.table.sort(overrideKeys, function(a, b)
                      return a < b
                    end)
                  end
                  for i = 0, #overrideKeys do
                    if overrideKeys[i] == val then
                      selectedKey = i
                      return
                    end
                  end
                end,
          get = nil,
          order = 150,
        },
        bindingTableDropdown = {
          type = "select",
          style = "dropdown",
          name = "Key",
          desc = "Select one of your existing mouselook override bindings.",
          width = "normal",
          values = function() return overrideKeys end,
          set = function(info, value)
            selectedKey = value
          end,
          get = function(info)
            return selectedKey
          end,
          order = 160,
        },
        separator1 = {
          type = "header",
          name = "",
          order = 170,
        },
        suggestedCommands = {
          type = "select",
          style = "dropdown",
          name = "Suggestions",
          desc = "You can select one of these suggested actions and have the corresponding " ..
                 "command inserted above.",
          values = function(info) return suggestedCommands end,
          hidden = function() return not selectedKey or not overrideKeys[selectedKey] end,
          set = function(info, val)
              db.profile.mouseOverrideBindings[overrideKeys[selectedKey]] = val
              applyOverrideBindings()
            end,
          get = function(info)
              return db.profile.mouseOverrideBindings[overrideKeys[selectedKey]]
            end,
          order = 180,
        },
        commandInput = {
          name = "Command",
          desc = "The command to perform; can be any name attribute value of a " ..
                 "Bindings.xml-defined binding, or an action command string.",
          type = "input",
          width = "double",
          hidden = function() return not selectedKey or not overrideKeys[selectedKey] end,
          set = function(info, val)
              if val == "" then val = nil end
              db.profile.mouseOverrideBindings[overrideKeys[selectedKey]] = val
              applyOverrideBindings()
            end,
          get = function(info)
              return db.profile.mouseOverrideBindings[overrideKeys[selectedKey]]
            end,
          order = 190,
        },
        commandDescription = {
          -- [url]http://en.wikipedia.org/wiki/Help:Link_color[/url]
          name = "The command assigned to the key selected above. Can be any name attribute " ..
                 "value of a Bindings.xml-defined binding, or an action command string. See " ..
                 "|cFF3366BBhttp://wowpedia.org/API_SetBinding|r for more information.\n" ..
                 "    You can select one of the suggested actions and have the corresponding " ..
                 "command inserted above.",
          type = "description",
          hidden = function() return not selectedKey or not overrideKeys[selectedKey] end,
          fontSize = "medium",
          order = 200,
        },
        spacer1 = {
          type = "description",
          name = "",
          hidden = function() return not selectedKey or not overrideKeys[selectedKey] end,
          order = 210,
        },
        clearBindingButton = {
          type = "execute",
          name = "Delete",
          desc = "Delete the selected override binding.",
          hidden = function() return not selectedKey or not overrideKeys[selectedKey] end,
          width = "half",
          confirm = true,
          confirmText = "This can't be undone. Continue?",
          func = function()
              _G.SetMouselookOverrideBinding(overrideKeys[selectedKey], nil)
              db.profile.mouseOverrideBindings[overrideKeys[selectedKey]] = nil
              -- This wont shift down the remaining integer keys: overrideKeys[selectedKey] = nil
              _G.table.remove(overrideKeys, selectedKey)
              selectedKey = 0
            end,
          order = 220,
        },
        deleteBindingDescription = {
          type = "description",
          name = "    Clear the selected override binding.",
          hidden = function() return not selectedKey or not overrideKeys[selectedKey] end,
          width = "double",
          fontSize = "medium",
          order = 230,
        },
      },
    },
    advanced = {
      type = "group",
      name = "Advanced",
      order = 120,
      args = {
        header1 = {
          type = "header",
          name = "Lua chunk",
          order = 0,
        },
        desc1 = {
          type = "description",
          name = "You can provide a chunk of Lua code that will " ..
                 "be compiled and ran when loading the addon " ..
                 "(and when you change the Lua chunk). " ..
                 "It must define a function " ..
                 "\'MouselookHandler:predFun\' which will control " ..
                 "when mouselook is started and stopped and " ..
                 "gets called with these arguments:\n" ..
                 " - the current default mouselook state (boolean),\n" ..
                 " - the state of the temporary inversion switch; " ..
                 "true while the key assigned is being held down (boolean),\n" ..
                 " - the clause text obtained from your macro string; " ..
                 "i.e., the text after whichever set of conditions applied (string), " ..
                 "if any, and otherwise nil.\n\n" ..
                 "Additionally, if it was called in response to an event the name " ..
                 "of the event (string) and the event's specific arguments will be passed " ..
                 "(See |cFF3366BBhttp://wowprogramming.com/docs/events|r).\n" ..
                 "    Mouselook will be enabled if true is returned and disabled otherwise.",
          fontSize = "medium",
          order = 1,
        },
        eventList = {
          type = "input",
          name = "Event list",
          desc = "Your function will be updated every time one of these events fires. Separate with spaces.",
          width = "full",
          set = setEventList,
          get = getEventList,
          order = 2,
        },
        macroConditional = {
          type = "input",
          name = "Macro conditions",
          desc = "Your function will be reevaluated whenever the macro conditions entered here change.",
          width = "full",
          set = setMacroText,
          get = getMacroText,
          order = 3,
        },
        header2 = {
          type = "header",
          name = "Reset advanced settings",
          order = 4,
        },
        desc2 = {
          type = "description",
          name = "Reenter the default events, macro text and function.",
          fontSize = "medium",
          width = "double",
          order = 5,
        },
        resetButton = {
          type = "execute",
          name = "Reset",
          desc = "Reenter the default events, macro text and function.",
          width = "half",
          confirm = true,
          confirmText = "Your customizations will be removed. Continue?",
          func = function()
                   setEventList(nil, databaseDefaults.profile.eventList)
                   setMacroText(nil, databaseDefaults.profile.macroText)
                   if validateCustomFunction(nil, databaseDefaults.profile.customFunction) == true then
                     setCustomFunction(nil, databaseDefaults.profile.customFunction)
                   end
                 end,
          order = 6,
        },
        advanced1 = {
          type = "group",
          name = "Lua chunk",
          args = {
            header1 = {
              type = "header",
              name = "Lua chunk",
              order = 0,
            },
            customFunction = {
              type = "input",
              name = "",
              multiline = 20,
              width = "full",
              validate = validateCustomFunction,
              set = setCustomFunction,
              get = getCustomFunction,
              order = 1,
            },
            header2 = {
              type = "header",
              name = "Reload UI",
              order = 2,
            },
            desc1 = {
              type = "description",
              name = "Useful to get rid of side effects introduced by previous Lua chunks " ..
                     "(e.g. global variables or hooks from hooksecurefunc()). Otherwise unnecessary.",
              fontSize = "medium",
              width = "double",
              order = 3,
            },
            reloadButton = {
              type = "execute",
              name = "Reload",
              width = "half",
              func = function()
                       _G.ReloadUI()
                     end,
              order = 4,
            },
          },
        },
      },
    },
    binds = {
      type = "group",
      name = "Keybindings",
      order = 130,
      args = {
        toggleHeader = {
          type = "header",
          name = _G["BINDING_NAME_TOGGLEMOUSELOOK"],
          order = 0,
        },
        toggleDescription = {
          type = "description",
          name = "Toggles the normal mouselook state.",
          width = "double",
          fontSize = "medium",
          order = 1,
        },
        toggle = {
          type = "keybinding",
          name = "",
          desc = "Toggles the normal mouselook state.",
          width = "half",
          set = function(info, key)
                  local oldKey = (_G.GetBindingKey("TOGGLEMOUSELOOK"))
                  if oldKey then _G.SetBinding(oldKey) end
                  _G.SetBinding(key, "TOGGLEMOUSELOOK")
                  _G.SaveBindings(_G.GetCurrentBindingSet())
                end,
          get = function(info) return (_G.GetBindingKey("TOGGLEMOUSELOOK")) end,
          order = 2,
        },
        invertHeader = {
          type = "header",
          name = _G["BINDING_NAME_INVERTMOUSELOOK"],
          order = 3,
        },
        invertDescription = {
          type = "description",
          name = "Inverts mouselook while the key is being held.",
          width = "double",
          fontSize = "medium",
          order = 4,
        },
        invert = {
          type = "keybinding",
          name = "",
          desc = "Inverts mouselook while the key is being held.",
          width = "half",
          set = function(info, key)
                  local oldKey = (_G.GetBindingKey("INVERTMOUSELOOK"))
                  if oldKey then _G.SetBinding(oldKey) end
                  _G.SetBinding(key, "INVERTMOUSELOOK")
                  _G.SaveBindings(_G.GetCurrentBindingSet())
                end,
          get = function(info) return (_G.GetBindingKey("INVERTMOUSELOOK")) end,
          order = 5,
        },
        lockHeader = {
          type = "header",
          name = _G["BINDING_NAME_LOCKMOUSELOOK"],
          order = 6,
        },
        lockDescription = {
          type = "description",
          name = "Sets the normal mouselook state to enabled.",
          width = "double",
          fontSize = "medium",
          order = 7,
        },
        lock = {
          type = "keybinding",
          name = "",
          desc = "Sets the normal mouselook state to enabled.",
          width = "half",
          set = function(info, key)
                  local oldKey = (_G.GetBindingKey("LOCKMOUSELOOK"))
                  if oldKey then _G.SetBinding(oldKey) end
                  _G.SetBinding(key, "LOCKMOUSELOOK")
                  _G.SaveBindings(_G.GetCurrentBindingSet())
                end,
          get = function(info) return (_G.GetBindingKey("LOCKMOUSELOOK")) end,
          order = 8,
        },
        unlockHeader = {
          type = "header",
          name = _G["BINDING_NAME_UNLOCKMOUSELOOK"],
          order = 9,
        },
        unlockDescription = {
          type = "description",
          name = "Sets the normal mouselook state to disabled.",
          width = "double",
          fontSize = "medium",
          order = 10,
        },
        unlock = {
          type = "keybinding",
          name = "",
          desc = "Sets the normal mouselook state to disabled.",
          width = "half",
          set = function(info, key)
                  local oldKey = (_G.GetBindingKey("UNLOCKMOUSELOOK"))
                  if oldKey then _G.SetBinding(oldKey) end
                  _G.SetBinding(key, "UNLOCKMOUSELOOK")
                  _G.SaveBindings(_G.GetCurrentBindingSet())
                end,
          get = function(info) return (_G.GetBindingKey("UNLOCKMOUSELOOK")) end,
          order = 11,
        },
      },
    },
  },
}
 
----------------------------------------------------------------------------------------------------
-- </ in-game configuration UI code > --------------------------------------------------------------
----------------------------------------------------------------------------------------------------
 
databaseDefaults = {
  ["global"] = {
    ["version"] = nil,
  },
  ["profile"] = {
    ["newUser"] = true,
    ["useSpellTargetingOverride"] = true,
    ["useDeferWorkaround"] = true,
    ["useOverrideBindings"] = true,
    ["mouseOverrideBindings"] = {
        ["BUTTON1"] = "STRAFELEFT",
        ["BUTTON2"] = "STRAFERIGHT",
    },
    macroText = "",
    eventList = ""
  },
}
 
databaseDefaults.profile.customFunction = [[
function MouselookHandler:predFun(enabled, inverted, clauseText, event, ...)
  return (enabled and not inverted) or
    (not enabled and inverted)
end
]]
 
local function migrateLegacyGlobalPreferences()
  -- None of the values of these keys in db.global are tables, so we don't need a deep copy
  -- ([url]http://lua-users.org/wiki/CopyTable[/url]).
  local legacyGlobalKeys = {
    "useSpellTargetingOverride",
    "useDeferWorkaround",
    "useOverrideBindings",
    "macroText",
    "eventList",
    "customFunction",
  }
 
  local curProfile = db:GetCurrentProfile()
  if curProfile == "Default" then
    -- If they have any global settings which don't match the default, copy them.
    for _, key in _G.pairs(legacyGlobalKeys) do
      if db.global[key] and db.global[key] ~= databaseDefaults.profile[key] then
        db.profile[key] = db.global[key]
      end
      db.global[key] = nil
    end
    db.global.newUser = nil
  end
end
 
-- Called by AceAddon on ADDON_LOADED?
-- See: wowace.com/addons/ace3/pages/getting-started/#w-standard-methods
function MouselookHandler:OnInitialize()
  -- The ".toc" need say "## SavedVariables: MouselookHandlerDB".
  self.db = LibStub("AceDB-3.0"):New("MouselookHandlerDB", databaseDefaults, true)
 
  local currentVersion = _G.GetAddOnMetadata(modName, "Version")
  if not self.db.global.version then
    migrateLegacyGlobalPreferences()
  end
  self.db.global.version = currentVersion
 
  if db.profile.newUser then
    MouselookHandler:Print("This seems to be your first time using this AddOn. To get started " ..
      "you should bring up the configuration UI (/mh) and assign keys to toggle mouselook.")
  end
 
  self.db.RegisterCallback(self, "OnProfileChanged", "RefreshDB")
  self.db.RegisterCallback(self, "OnProfileCopied", "RefreshDB")
  self.db.RegisterCallback(self, "OnProfileReset", "RefreshDB")
  self:RefreshDB()
 
  if validateCustomFunction(nil, db.profile.customFunction) == true then
    setCustomFunction(nil, db.profile.customFunction)
  end
 
  for k, _ in _G.pairs(db.profile.mouseOverrideBindings) do
    if not (_G.type(k) == "string") then
      db.profile.mouseOverrideBindings[k] = nil
    else
      _G.table.insert(overrideKeys, (k))
    end
  end
  _G.table.sort(overrideKeys)
 
  options.args.profiles = AceDBOptions:GetOptionsTable(self.db)
  options.args.profiles.order = 121
  local function changeFontSize(optionsGroup)
    --_G.assert(optionsGroup.type == "group")
    --_G.assert(optionsGroup.args)
    for k, v in _G.pairs(optionsGroup.args) do
      if _G.type(v) == "table" then
        if v.type and v.type == "description" then
          optionsGroup.args[k].fontSize = "medium"
        elseif v.type and v.type == "group" then
          changeFontSize(v)
        end
      end
    end
  end
  changeFontSize(options.args.profiles)
  options.args.profiles.args.addedHeader = {
    type = "header",
    name = "Profiles",
    order = 0,
  },
 
  -- See wowace.com/addons/ace3/pages/getting-started/#w-registering-the-options.
  AceConfig:RegisterOptionsTable(modName, options)
  AceConfigRegistry:RegisterOptionsTable("MouselookHandler_Profiles", options.args.profiles)
  AceConfigDialog:SetDefaultSize(modName, 800, 600)
 
  -- [url]http://www.wowace.com/addons/ace3/pages/api/ace-config-dialog-3-0/[/url]
  local configFrame = AceConfigDialog:AddToBlizOptions("MouselookHandler", "MouselookHandler")
  configFrame.default = function()
    self.db:ResetProfile()
  end
 
  --------------------------------------------------------------------------------------------------
  stateHandler = _G.CreateFrame("Frame", modName .. "stateHandler", UIParent,
    "SecureHandlerStateTemplate")
  function stateHandler:onMouselookState(newstate)
    _G["MouselookHandler"]["clauseText"] = newstate
    _G["MouselookHandler"].update()
  end
  stateHandler:SetAttribute("_onstate-mouselookstate", [[
    self:CallMethod("onMouselookState", newstate)
  ]])
  _G.RegisterStateDriver(stateHandler, "mouselookstate", db.profile.macroText)
  ------------------------------------------------------------------------------
  customEventFrame = _G.CreateFrame("Frame", modName .. "customEventFrame")
  customEventFrame:SetScript("OnEvent", function(self, event, ...)
    _G["MouselookHandler"].update(event, ...)
  end)
  for event in _G.string.gmatch(db.profile.eventList, "[^%s]+") do
    customEventFrame:RegisterEvent(event)
  end
  --------------------------------------------------------------------------------------------------
 
  local function toggleOptionsUI()
    if not _G.InCombatLockdown() then
      -- Sorry pwoodworth, but I prefer a standalone options panel that can be moved and resized.
      -- The options are still available from the Blizzard panel, though.
      AceConfigDialog:Open("MouselookHandler")
      -- Call twice to workaround a Blizzard bug (the options panel isn't opened at the requested
      -- category the first time).
      --_G.InterfaceOptionsFrame_OpenToCategory(configFrame)
      --_G.InterfaceOptionsFrame_OpenToCategory(configFrame)
      db.profile.newUser = false
    end
  end
  self:RegisterChatCommand("mouselookhandler", toggleOptionsUI)
  self:RegisterChatCommand("mh", toggleOptionsUI)
 
  update()
end
 
function MouselookHandler:RefreshDB()
    --MouselookHandler:Print("Refreshing DB Profile")
    applyOverrideBindings()
end
 
-- Called by AceAddon.
function MouselookHandler:OnEnable()
  -- Nothing here yet.
end
 
-- Called by AceAddon.
function MouselookHandler:OnDisable()
  -- Nothing here yet.
end
 
-- vim: tw=100 sts=-1 sw=2 et