local Module = SUI:NewModule("Misc.Tabbinder");

function Module:OnEnable()
    local db = SUI.db.profile.misc.tabbinder
    if (db) then
        local CreateFrame = CreateFrame
        local GetBindingKey = GetBindingKey
        local GetCurrentBindingSet = GetCurrentBindingSet
        local IsInInstance = IsInInstance
        local GetZonePVPInfo = GetZonePVPInfo
        local GetBindingAction = GetBindingAction

        local TabBinder = CreateFrame("Frame")
        TabBinder:RegisterEvent("PLAYER_ENTERING_WORLD")
        TabBinder:RegisterEvent("ZONE_CHANGED_NEW_AREA")
        TabBinder:RegisterEvent("PLAYER_REGEN_ENABLED")
        TabBinder:RegisterEvent("DUEL_REQUESTED")
        TabBinder:RegisterEvent("DUEL_FINISHED")

        local RTB_Fail, RTB_DefaultKey, RTB_LastTargetKey, RTB_TargetKey, RTB_CurrentBind, RTB_Success = false, true

        TabBinder:SetScript(
            "OnEvent",
            function(self, event, ...)
                if event == "ZONE_CHANGED_NEW_AREA" or event == "PLAYER_ENTERING_WORLD" or
                    (event == "PLAYER_REGEN_ENABLED" and RTB_Fail) or
                    event == "DUEL_REQUESTED" or
                    event == "DUEL_FINISHED"
                then
                    local RTB_BindSet = GetCurrentBindingSet()
                    local RTB_PVPType = C_PvP.GetZonePVPInfo()
                    local _, RTB_ZoneType = IsInInstance()

                    RTB_TargetKey = GetBindingKey("TARGETNEARESTENEMYPLAYER")
                    if RTB_TargetKey == nil then
                        RTB_TargetKey = GetBindingKey("TARGETNEARESTENEMY")
                    end
                    if RTB_TargetKey == nil and RTB_DefaultKey == true then
                        RTB_TargetKey = "TAB"
                    end

                    RTB_LastTargetKey = GetBindingKey("TARGETPREVIOUSENEMYPLAYER")
                    if RTB_LastTargetKey == nil then
                        RTB_LastTargetKey = GetBindingKey("TARGETPREVIOUSENEMY")
                    end
                    if RTB_LastTargetKey == nil and RTB_DefaultKey == true then
                        RTB_LastTargetKey = "SHIFT-TAB"
                    end

                    if RTB_TargetKey ~= nil then
                        RTB_CurrentBind = GetBindingAction(RTB_TargetKey)
                    end

                    if RTB_ZoneType == "arena" or RTB_PVPType == "combat" or RTB_ZoneType == "pvp" or
                        event == "DUEL_REQUESTED" then
                        if RTB_CurrentBind ~= "TARGETNEARESTENEMYPLAYER" then
                            if RTB_TargetKey == nil then
                                RTB_Success = 1
                            else
                                RTB_Success = SetBinding(RTB_TargetKey, "TARGETNEARESTENEMYPLAYER")
                            end
                            if RTB_LastTargetKey ~= nil then
                                SetBinding(RTB_LastTargetKey, "TARGETPREVIOUSENEMYPLAYER")
                            end
                            if RTB_Success == 1 then
                                SaveBindings(RTB_BindSet)
                                RTB_Fail = false
                            else
                                RTB_Fail = true
                            end
                        end
                    else
                        if RTB_CurrentBind ~= "TARGETNEARESTENEMY" then
                            if RTB_TargetKey == nil then
                                RTB_Success = 1
                            else
                                RTB_Success = SetBinding(RTB_TargetKey, "TARGETNEARESTENEMY")
                            end
                            if RTB_LastTargetKey ~= nil then
                                SetBinding(RTB_LastTargetKey, "TARGETPREVIOUSENEMY")
                            end
                            if RTB_Success == 1 then
                                SaveBindings(RTB_BindSet)
                                RTB_Fail = false
                            else
                                RTB_Fail = true
                            end
                        end
                    end
                end
            end
        )

    end
end
