EasyChannel.lua

--[[
    EasyChannel.lua
        频道和密语对象的快速切换
        提取自网易有爱163Chat
    插件更新地址 http://nga.178.com/read.php?tid=9633520
--]]
function ChatEdit_CustomTabPressed(...)
    return ChatEdit_CustomTabPressed_Inner(...)
end

local cycles = {
        -- "说"
        {
            chatType = "SAY",
            use = function(self, editbox)
                return 1
            end
        },
        --大喊
        {
            chatType = "YELL",
            use = function(self, editbox)
                return 1
            end
        },
        --小队
        {
            chatType = "PARTY",
            use = function(self, editbox)
                return IsInGroup()
            end
        },
        --团队
        {
            chatType = "RAID",
            use = function(self, editbox)
                return IsInRaid()
            end
        },
        --实时聊天
        {
            chatType = "INSTANCE_CHAT",
            use = function(self, editbox)
                return select(2, IsInInstance()) == "pvp"
            end
        },
        --公会
        {
            chatType = "GUILD",
            use = function(self, editbox)
                return IsInGuild()
            end
        },
        --频道
        {
            chatType = "CHANNEL",
            use = function(self, editbox, currChatType)
                local currNum
                if currChatType ~= "CHANNEL" then
                    currNum = IsShiftKeyDown() and 21 or 0
                else
                    currNum = editbox:GetAttribute("channelTarget")
                end
                local h, r, step = currNum + 1, 20, 1
                if IsShiftKeyDown() then
                    h, r, step = currNum - 1, 1, -1
                end
                for i = h, r, step do
                    local channelNum, channelName = GetChannelName(i)
                    if channelNum > 0 and channelName:find("大脚世界频道") then
                        --print(channelName); --DEBUG
                        editbox:SetAttribute("channelTarget", i)
                        return true
                    end
                end
            end
        },
        {
            chatType = "SAY",
            use = function(self, editbox)
                return 1
            end
        }
}

local chatTypeBeforeSwitch, tellTargetBeforeSwitch --记录在频道和密语之间切换时的状态
function ChatEdit_CustomTabPressed_Inner(self)
    if strsub(tostring(self:GetText()), 1, 1) == "/" then
        return
    end
    local currChatType = self:GetAttribute("chatType")
    if (IsControlKeyDown()) then
        if (currChatType == "WHISPER" or currChatType == "BN_WHISPER") then
            --记录之前的密语对象，以便后续切回
            self:SetAttribute("chatType", chatTypeBeforeSwitch or "SAY")
            ChatEdit_UpdateHeader(self)
            chatTypeBeforeSwitch = "WHISPER"
            tellTargetBeforeSwitch = self:GetAttribute("tellTarget")
            return --这里和下面不同，这里可以不返回true
        else
            local newTarget, newTargetType = ChatEdit_GetNextTellTarget()
            if tellTargetBeforeSwitch or (newTarget and newTarget ~= "") then
                self:SetAttribute("chatType", tellTargetBeforeSwitch and chatTypeBeforeSwitch or newTargetType)
                self:SetAttribute("tellTarget", tellTargetBeforeSwitch or newTarget)
                ChatEdit_UpdateHeader(self)
                chatTypeBeforeSwitch = currChatType
                tellTargetBeforeSwitch = nil
                return true --这里必须返回true，否则会被暴雪默认的再切换一次密语对象
            end
        end
    end
    
    --对于说然后SHIFT的情况，因为没有return，所以第一层循环会一直遍历到最后的SAY
    for i, curr in ipairs(cycles) do
        if curr.chatType == currChatType then
            local h, r, step = i + 1, #cycles, 1
            if IsShiftKeyDown() then
                h, r, step = i - 1, 1, -1
            end
            if currChatType == "CHANNEL" then
                h = i
            end --频道仍然要测试一下
            for j = h, r, step do
                if cycles[j]:use(self, currChatType) then
                    self:SetAttribute("chatType", cycles[j].chatType)
                    ChatEdit_UpdateHeader(self)
                    return
                end
            end
        end
    end
end