JPack.lua

local DEV_MOD = false
local debug
local debugf = tekDebug and tekDebug:GetFrame("JPack")--tekDebug
if debugf then
    debug = function(...) debugf:AddMessage(string.join(", ", tostringall(...))) end
else
    debug = function() end
end

--@debug@
DEV_MOD = true
--@end-debug@


--[[===================================
			Local
=====================================]]
JPack = CreateFrame"Frame"

JPack.DEV_MOD = DEV_MOD

JPack.bankOpened = false
JPack.guildbankOpened = false
JPack.deposit = false
JPack.draw = false
JPack.packupguildbank = false
JPack.bagGroups = {}
JPack.packingGroupIndex = 1
JPack.packingBags={}
JPack.updatePeriod = .1

local version = GetAddOnMetadata("JPack", "Version") or "alpha"
JPack.version = version
local L = setmetatable(JPackLocale, {__index=function(t,i) return i end})

JPack:SetScript("OnEvent", function(self, event, ...) self[event](self,event,...) end)


local bagSize=0
local packingBags={}
local JPACK_MAXMOVE_ONCE=3
local current,to,lockedSlots,currentGBTab

-- 整理状态
local JPACK_STEP=0
local JPACK_STARTED=1
local JPACK_DEPOSITING=2
local JPACK_DRAWING=3	--
local JPACK_STACKING=4	--
local JPACK_STACK_OVER=5
local JPACK_SORTING=6	--
local JPACK_PACKING=7
local JPACK_START_PACK=8
local JPACK_GUILDBANK_STACKING=9
local JPACK_GUILDBANK_SORTING=10
local JPACK_GUILDBANK_COMPLETE=11
local JPACK_SPEC_BAG_OVER=12
local JPACK_STOPPED=0


--[[===================================
			lib
=====================================]]

local function print(msg,r,g,b)
    if (not r) or (not g) or (not b) then r, g, b = .41, .8, .94 end
    msg = 'JPack: '..msg
    DEFAULT_CHAT_FRAME:AddMessage(msg, r, g, b)
end

local function CheckCursor()
    ClearCursor()
    if GetCursorInfo() then
        return true
    end
end

local function IndexOfTable(t,v)
    for i=1,#t do
        if(v==t[i])then
            return i
        end
    end
    return 0
end

--[[
获得一个 JPack 格式的物品对象
isGB = true, 工会银行
]]
local function getJPackItem(bag,slot,isGB)
    local link = isGB and GetGuildBankItemLink(bag,slot) or GetContainerItemLink(bag,slot)
    if not link then return end
    local item={}
    item.slotId=slot
    item.name, item.link, item.rarity,
    item.level, item.minLevel, item.type, item.subType, item.stackCount,
    item.equipLoc, item.texture = GetItemInfo(link)
    item.itemid = tonumber(link:match("item:(%d+):"))
    return item
end

--是否能放入某背包
local function CanGoInBag(frombag,fromslot, tobag)
    local item = GetContainerItemLink(frombag,fromslot)
    if not item then return false end
    -- Get the item's family
    local itemFamily = GetItemFamily(item)

    -- If the item is a container, then the itemFamily should be 0
    --[[
       local equipSlot = select(9, GetItemInfo(item))
       if equipSlot == "INVTYPE_BAG" then
          itemFamily = 0
       end
    ]]--
    -- Get the bag's family
    local bagFamily = select(2, GetContainerNumFreeSlots(tobag))

    return bagFamily == 0 or bit.band(itemFamily, bagFamily) > 0
end

--背包是否准备好了（无锁定物品）
local function isBagReady(bag)
    for i=1,GetContainerNumSlots(bag) do
        local _, _, locked = GetContainerItemInfo(bag,i)
        if(locked)then return false end
    end
    return true
end

-- 公会银行是否准备好 (无锁定物品)
local function isGBReady(tab)
    for i = 1, 98 do -- 每页98个格子
        local _,_,locked = GetGuildBankItemInfo(tab or currentGBTab, i)
        if locked then return end
    end
    return true
end

--是否所有背包准备好了
local function isAllBagReady()
    for i=1,#JPack.bagGroups do
        for j=1,#JPack.bagGroups[i] do
            if(not isBagReady(JPack.bagGroups[i][j])) then return false end
        end
    end
    return true
end

--[[
return 1xxx 非垃圾 ，0xxx for 垃圾，xxx为（999-JPACK_ORDER中所定的位置）
]]
local function getPerffix(item)
    if not item then return end

    --按名称获取顺序
    local i=IndexOfTable(JPACK_ORDER,item.name)
    if(i<=0)then
        --按子类别获取顺序
        i=IndexOfTable(JPACK_ORDER,"#"..item.type.."##"..item.subType)
    else
        --名称匹配直接返回
        return '1'..string.format("%3d",999-i)
    end
    if(i<=0)then
        --按子类别获取顺序
        i=IndexOfTable(JPACK_ORDER,"##"..item.subType)
    end
    if(i<=0)then
        --按类别获取顺序
        i=IndexOfTable(JPACK_ORDER,"#"..item.type)
    end
    if(i<=0)then
        --默认类别顺序
        i=IndexOfTable(JPACK_ORDER,"#")
    end
    if(i<=0)then
        --默认顺序
        i=999
    end
    local s=string.format("%3d",999-i)
    --灰色物品、可装备的非优秀物品
    if(item.rarity==0)then
        return "00"..s
    elseif(IsEquippableItem(item.name) and item.type~=L.TYPE_BAG and item.subType~=L.TYPE_FISHWEAPON) and item.subType~=L.TYPE_MISC then
        if(item.rarity <= 1 ) then --or (item.level<UnitLevel('player')*0.9)then
            return '02'..s
        end
--[[
    elseif(item.type==L.TYPE_CONSUMABLE)then
        if(item.level<UnitLevel('player')*0.9)then
            return '01'..s
        end
]]
    end
    return "1"..s

end

--[[
bagIds = {1,3,5}
packIndex ---JPack的index
bagID --- wow 的bagId
slotId ---- wow 的slotId
]]

--[[
bag  背包
slot  位置
return 是否需要保存到银行
]]
local function shouldSaveToBank(bag,slot)
    local item=getJPackItem(bag,slot)
    return item~=nil and ((IndexOfTable(JPACK_DEPOSIT,"#"..item.type.."##"..item.subType)>0) or (IndexOfTable(JPACK_DEPOSIT,"#"..item.type)>0) or (IndexOfTable(JPACK_DEPOSIT,"##"..item.subType)>0) or (IndexOfTable(JPACK_DEPOSIT,item.name)>0))
end

--[[
bag  背包
slot  位置
return 是否需要从银行取出
]]
local function shouldLoadFromBank(bag,slot)
    local item=getJPackItem(bag,slot)
    return item~=nil and ((IndexOfTable(JPACK_DRAW,"#"..item.type.."##"..item.subType)>0) or (IndexOfTable(JPACK_DRAW,"#"..item.type)>0) or (IndexOfTable(JPACK_DRAW,"##"..item.subType)>0) or (IndexOfTable(JPACK_DRAW,item.name)>0))
end

--[[
bags  一组背包
bag    当前背包在bags中位置
slot   当前背包slot
return  前一个背包位置的  bag,slot
]]--
local function getPrevSlot(bags,bag,slot)
    if(slot>1)then
        slot=slot-1
    elseif(bag>1)then
        bag=bag-1
        slot=GetContainerNumSlots(bags[bag])
    else
        bag=-1
    end
    return bag,slot
end

--[[
比较用的字符串,与排序直接相关的函数
]]
local function getCompareStr(item)
    if(not item)then
        return nil
    elseif(not item.compareStr)then
        local _,_,textureType,textureIndex=string.find(item.texture,"\\.*\\([^_]+_?[^_]*_?[^_]*)_?(%d*)")
        if(not item.rarity)then item.rarity='1' end
        item.compareStr= getPerffix(item).." "..item.rarity..item.type.." "..item.subType.." "..textureType.." "
                ..string.format("%2d",item.minLevel).." "..string.format("%2d",item.level).." "..(textureIndex or "00")..item.name
    end
    return item.compareStr
end

--[[
比较两个物品
return 1 a 在前
return -1 b 在前
]]
local function compare(a, b)
    local ret=0
    if(a==b)then
        ret= 0
    elseif(a==nil)then
        ret= -1
    elseif(b==nil)then
        ret= 1
    elseif(a.name==b.name)then
        ret= 0
    else
        local sa = getCompareStr(a)
        local sb = getCompareStr(b)
        if(sa>sb)then
            ret= 1
        elseif(sa<sb) then
            ret= -1
        end
    end
    return ret
end

local function swap(items,i,j)
    local y=items[i]
    items[i]=items[j]
    items[j]=y
end

local function qsort(items,from,to)

    local i,j=from,to
    local ix=items[i]
    local x=i
    while(i<j) do
        while(j>x) do
            if(compare(items[j], ix)==1)then
                swap(items,j,x)
                x=j
            else
                j=j-1
            end
        end
        while(i<x)do
            if(compare(items[i], ix)==-1)then
                swap(items,i,x)
                x=i
            else
                i=i+1
            end
        end
    end
    if(x-1 > from) then
        qsort(items,from,x-1)
    end
    if(x+1 < to) then
        qsort(items,x+1,to)
    end
end

--[[
排序 items ,并返回一个新的排序过的 items,原 items 不变
]]
local function jsort(items)
    local clone = {}--Item:new[items.length]
    for i=1,bagSize do
        clone[i] = items[i]
    end
    qsort(clone,1,bagSize)
    return clone
end

--local moving=false
local function sortTo(_current, _to)
    current=_current
    to=_to
    lockedSlots={}
    JPACK_STEP=JPACK_PACKING
end

--[[===================================
		  Main Processing
=====================================]]
--移动到特殊背包，如箭袋，灵魂袋，草药袋，矿石袋
--flag =0 , 背包， flag = 1 bank
local function moveToSpecialBag(flag)
    local bagTypes
    if flag == 0 then
        --bagSlotTypes[容器]=[0,1,2,4]  ，bagSlotTypes[箭袋]=[3]
        bagTypes = JPack.bagSlotTypes
    elseif flag == 1 then
        bagTypes = JPack.bankSlotTypes
        if(not JPack.bankOpened)then return end
        --elseif guidbank
    end

    --从容器中取出物品 ,fromBags = 容器
    local fromBags = bagTypes[L.TYPE_BAG]

    for k,v in pairs(bagTypes) do
        --针对每种不同的背包,k is type,v is slots
        if k ~= L.TYPE_BAG then
            local toBags = v
            local frombagIndex,tobagIndex=#fromBags,#toBags
            local frombag,tobag = fromBags[frombagIndex],toBags[tobagIndex]
            local fromslot,toslot=GetContainerNumSlots(frombag),GetContainerNumSlots(tobag)
            --移动
            local c = 0
            while(true) do
                c = c + 1
                if(c>300)then
                    debug("force quit, count to 300")
                    break
                end

                while(tobagIndex>0 and GetContainerItemLink(tobag,toslot))do
                    --直到找到一个空格
                    tobagIndex,toslot=getPrevSlot(toBags,tobagIndex,toslot)
                    tobag = toBags[tobagIndex]
                end

                while(tobagIndex>0 and frombagIndex>0 and (not CanGoInBag(frombag,fromslot,tobag)))do
                    frombagIndex,fromslot=getPrevSlot(fromBags,frombagIndex,fromslot)
                    frombag = fromBags[frombagIndex]
                end

                if(frombagIndex<=0 or tobagIndex <=0 or fromslot<=0 or toslot<=0)then
                    debug("break to move sepical bag")
                    break
                end
                if CheckCursor() then
                    print(L["WARN"],1,0,0)
                end
                PickupContainerItem(frombag,fromslot)
                PickupContainerItem(tobag,toslot)
                --next
                frombagIndex,fromslot=getPrevSlot(fromBags,frombagIndex,fromslot)
                tobagIndex,toslot=getPrevSlot(toBags,tobagIndex,toslot)
            end

        end
    end

end

--保存到银行
local function saveToBank()
    if(not JPack.bankOpened)then return end

    --保存
    for k,v in pairs(JPack.bankSlotTypes) do
        --针对每种不同的背包,k is type,v is slots
        local bkTypes,bagTypes=JPack.bankSlotTypes[k],JPack.bagSlotTypes[k]
        local bkBag,bag=#bkTypes,#bagTypes
        local bkSlot,slot=GetContainerNumSlots(bkTypes[bkBag]),GetContainerNumSlots(bagTypes[bag])
        --保存
        while(true) do
            while(bkBag>0 and GetContainerItemLink(bkTypes[bkBag],bkSlot))do
                --直到找到一个空格
                bkBag,bkSlot=getPrevSlot(bkTypes,bkBag,bkSlot)
            end

            while(bag>0 and (not shouldSaveToBank(bagTypes[bag],slot)))do
                bag,slot=getPrevSlot(bagTypes,bag,slot)
            end

            if(bkBag<=0 or bag <=0 or bkSlot<=0 or slot<=0)then
                debug("break to save")
                break
            end
            if CheckCursor() then
                print(L["WARN"],1,0,0)
            end
            PickupContainerItem(bagTypes[bag],slot)
            PickupContainerItem(bkTypes[bkBag],bkSlot)
            --next
            bkBag,bkSlot=getPrevSlot(bkTypes,bkBag,bkSlot)
            bag,slot=getPrevSlot(bagTypes,bag,slot)
        end
    end
end

--从银行取出
local function loadFromBank()
    if(not JPack.bankOpened)then return end

    --保存
    for k,v in pairs(JPack.bankSlotTypes) do
        --针对每种不同的背包,k is type,v is slots
        local bkTypes,bagTypes=JPack.bankSlotTypes[k],JPack.bagSlotTypes[k]
        local bkBag,bag=#bkTypes,#bagTypes
        local bkSlot,slot=GetContainerNumSlots(bkTypes[bkBag]),GetContainerNumSlots(bagTypes[bag])
        --保存
        while(true) do
            while(bag>0 and GetContainerItemLink(bagTypes[bag],slot))do
                --直到找到一个空格
                bag,slot=getPrevSlot(bagTypes,bag,slot)
            end
            while(bkBag>0 and (not shouldLoadFromBank(bkTypes[bkBag],bkSlot)))do
                bkBag,bkSlot=getPrevSlot(bkTypes,bkBag,bkSlot)
            end

            if(bkBag<=0 or bag <=0 or bkSlot<=0 or slot<=0)then
                break
            end
            if CheckCursor() then
                print(L["WARN"],1,0,0)
            end
            PickupContainerItem(bkTypes[bkBag],bkSlot)
            PickupContainerItem(bagTypes[bag],slot)
            --next
            bkBag,bkSlot=getPrevSlot(bkTypes,bkBag,bkSlot)
            bag,slot=getPrevSlot(bagTypes,bag,slot)
        end
    end
end


--[[
将背包按类型分组
bagGroups
bankGroups
bagTypes
packingTypeIndex
packingBags
]]
local dummy_table = {}
local function groupBags()
    local ignored = JPACK_IGNORE_BAGS or dummy_table
    local bagTypes={}
    bagTypes[L.TYPE_BAG]={}
    if not ignored[0] then
        bagTypes[L.TYPE_BAG][1]=0
    end
    for i=1,4 do
        if not ignored[i] then
            local name=GetBagName(i)
            if(name)then
                local itemName, itemLink, itemRarity, itemLevel, itemMinLevel, itemType, subType, itemStackCount,
                itemEquipLoc, itemTexture = GetItemInfo(name)
                debug("Bag[",i,"]Type：",subType)
                if(bagTypes[subType]==nil)then
                    bagTypes[subType]={}
                end
                local t = bagTypes[subType]
                t[#t+1]=i
            end
        end
    end

    local bankSlotTypes={}
    if(JPack.bankOpened)then
        bankSlotTypes[L.TYPE_BAG]={}
        if not ignored[-1] then
            bankSlotTypes[L.TYPE_BAG][1]=-1
        end
        for i=5,11 do
            if not ignored[i] then
                local name=GetBagName(i)
                if(name)then
                    local itemName, itemLink, itemRarity, itemLevel, itemMinLevel, itemType, subType, itemStackCount,
                    itemEquipLoc, itemTexture = GetItemInfo(name)
                    if(bankSlotTypes[subType]==nil)then
                        bankSlotTypes[subType]={}
                    end
                    local t = bankSlotTypes[subType]
                    t[#t+1]=i
                end
            end
        end
    end
    JPack.bagSlotTypes=bagTypes
    JPack.bankSlotTypes=bankSlotTypes
    local j=1
    for k,v in pairs(bankSlotTypes) do
        JPack.bagGroups[j]=v
        j=j+1
    end
    for k,v in pairs(bagTypes) do
        JPack.bagGroups[j]=v
        j=j+1
    end

end

--[[
获取PackingBags的 JPack格式物品table
]]
local function getPackingItems()
    local c=1
    local items={}
    if JPackDB.asc then
        for i=1,#JPack.packingBags do
            local num = GetContainerNumSlots(JPack.packingBags[i])
            for j = 1,num do
                items[c]=getJPackItem(JPack.packingBags[i],j)
                c = c+1
            end
        end
    else
        for i=#JPack.packingBags,1,-1 do
            local num = GetContainerNumSlots(JPack.packingBags[i])
            for j = num,1,-1 do
                items[c]=getJPackItem(JPack.packingBags[i],j)
                c = c+1
            end
        end
    end
    return items,c-1
end

--[[
开始对packingBags 进行整理
]]
local function startPack()
    local items,count = getPackingItems()
    bagSize=count
    local sorted = jsort(items)
    debug("sorted...")
    --[[for i=1,#sorted do
         debug(getCompareStr(sorted[i]))
     end]]
    sortTo(items,sorted)
end

--[[
将 PackIndex 转换为 BagId,SlotId
]]
local function getSlotId(packIndex)
    local slot=packIndex
    if JPackDB.asc then
        for i=1,#JPack.packingBags do
            local num=GetContainerNumSlots(JPack.packingBags[i])
            if(slot<=num)then
                return JPack.packingBags[i],slot
            end
            slot = slot - num
        end
    else
        for i=#JPack.packingBags,1,-1 do
            local num=GetContainerNumSlots(JPack.packingBags[i])
            if(slot<=num)then
                return JPack.packingBags[i],1+num-slot
            end
            slot = slot - num
        end
    end
    return -1,-1
end

--[[
oldIndex  原JPack物品位置索引
newIndex 新JPack物品位置索引
把物品从oldIndex 移动到 newIndex
]]
local function moveTo(oldIndex,newIndex)
    PickupContainerItem(getSlotId(oldIndex))
    PickupContainerItem(getSlotId(newIndex))
end

--[[
某位置是否被锁定,与blizzard函数不同的是，空格也可能被锁定
]]
local function isLocked(index)
    local il=IndexOfTable(lockedSlots,index)
    local texture, itemCount, locked, quality, readable = GetContainerItemInfo(getSlotId(index))
    if(texture==nil)then
        locked= il >0
    elseif(il>0)then
        table.remove(lockedSlots,il)
    end
    return locked
end

--[[
items 物品数组
key  待查找物品名字
return 最后一个可以移动的此物品位置
]]
local function GetLastItemIndex(items,key)
    local i=bagSize
    while(i>0)do
        if(items[i] ~= nil and not isLocked(i) and items[i].name == key)then
            return i
        end
        i= i-1
    end
    return -1
end

--[[
移动一次, 返回是否继续
]]
local function moveOnce()
    local working=false
    local i=1
    local lockCount=0
    while to[i] do
        local locked=isLocked(i)
        if(locked==nil)then locked=false end
        if(locked)then
            lockCount=lockCount+1
        end
        if(lockCount>JPACK_MAXMOVE_ONCE)then
            return true
        end
        if(current[i] == nil or to[i].name ~= current[i].name)then
            working = true
            if(not locked)then
                local slot =GetLastItemIndex(current, to[i].name)
                if(slot ~= -1)then
                    moveTo(slot,i) -- 移动物品
                    local x=current[slot]
                    current[slot]=current[i]
                    current[i]=x
                    if(current[slot]==nil)then
                        --锁定空格
                        lockedSlots[#lockedSlots+1]=i
                    end
                end
            end

        end
        i=i+1
    end
    return working or lockCount>0
end

--堆叠一次，返回是否结束
local function stackOnce()
    local bags,bag,item,slotInfo
    if(JPack.bankOpened)then
        bags={11,10,9,8,7,6,5,-1,4,3,2,1,0}
    else
        bags={4,3,2,1,0}
    end
    local pendingStack={}
    local complet=true
    for i=1,#bags do
        bag = bags[i]
        for slot = GetContainerNumSlots(bag),1,-1 do
            local texture, itemCount, locked, quality, readable = GetContainerItemInfo(bag, slot)
            item = getJPackItem(bag,slot)
            if(item)then
                if (not locked) then
                    if (item.stackCount ~= 1) and (itemCount < item.stackCount)then
                        slotInfo = pendingStack[item.itemid]
                        if(slotInfo)then
                            PickupContainerItem(bag,slot)
                            PickupContainerItem(slotInfo[1],slotInfo[2])
                            pendingStack[item.itemid]=nil
                            complet = false
                        else
                            pendingStack[item.itemid]={bag,slot}
                        end
                    end
                else
                    complet = false
                end
            end
        end
    end
    return complet
end



--[[
		=== GuildBank ===
		
	http://wowprogramming.com/docs/api/
			GetCurrentGuildBankTab	Returns the currently selected guild bank tab (number) 
			PickupGuildBankItem		
			GetGuildBankItemInfo(tab, slot)		返回 材质/堆叠数量/*是否锁定
			GetGuildBankItemLink
			GetGuildBankTabInfo
			GetGuildBankTabPermissions
			GetNumGuildBankTabs
]]

--堆叠一次公会银行，返回是否结束
local function GBstackOnce()
    local item,slotInfo
    local pendingStack={}
    local complet = true
    for slot = 98,1,-1 do
        local texture, itemCount, locked = GetGuildBankItemInfo(currentGBTab, slot)
        if texture then -- if there is an item in this slot
            item = getJPackItem(currentGBTab,slot,true) -- tab, slot, isGuildBank
            if(item) then
                if(not locked)then
                    if(itemCount < item.stackCount)then
                        slotInfo = pendingStack[item.itemid]
                        if(slotInfo)then
                            JPack:GBMoved(true)
                            PickupGuildBankItem(currentGBTab,slot)
                            PickupGuildBankItem(slotInfo[1],slotInfo[2])
                            pendingStack[item.itemid]=nil
                            complet = false
                        else
                            pendingStack[item.itemid]={currentGBTab,slot}
                        end
                    end
                else
                    complet = false
                end
            end
        end
    end
    return complet
end



-- TODO
















--[[===================================
		Events/slash..etc..
=====================================]]

local function stopPacking()
    if JPack:GetScript"OnUpdate" then
        JPack:SetScript("OnUpdate", nil)
    end

    if JPack.packupguildbank then
        JPack:UnregisterEvent("GUILDBANKBAGSLOTS_CHANGED")
    end
end


JPack.OnLoad = {}
JPack.OnLoad_GB = {}

function JPack:ADDON_LOADED(event, addon)
    if addon ~= 'JPack' then return end
    debug'JPack loaded'
    self:UnregisterEvent("ADDON_LOADED")
    self.ADDON_LOADED = nil

    JPackDB = JPackDB or {}

    local oldver = JPackDB.version
    if oldver ~= version then
        JPackDB.version = version
    end

    -- print(format('%s %s', version, L["HELP"]))


    JPack:RegisterEvent"BANKFRAME_OPENED"
    JPack:RegisterEvent"BANKFRAME_CLOSED"
    JPack:RegisterEvent"GUILDBANKFRAME_CLOSED"
    JPack:RegisterEvent"GUILDBANKFRAME_OPENED"

end
JPack:RegisterEvent"ADDON_LOADED"

function JPack:BANKFRAME_OPENED()
    JPack.bankOpened = true
end

function JPack:BANKFRAME_CLOSED()
    JPack.bankOpened = false
    stopPacking()
end

function JPack:GUILDBANKFRAME_OPENED()
    JPack.guildbankOpened = true
end

function JPack:GUILDBANKFRAME_CLOSED()
    JPack.guildbankOpened = false
    if JPACK_STEP~=JPACK_STOPPED and JPack.packupguildbank then stopPacking() end
end

--[=[
	GuildBank packup
	
	
排序可以参考 银行的整理，但由于pick银行和pick背包都是相同的api只是背包的bagId不同 ，
而公会银行则是完全使用了另外一套api，这里处理起来有些难度。

1.  将背包分组，分组后 类似 {{1,2,3},{4,5},{6,7,8},{9,10}} 是一个bagId数组的数组，
{1,2,3} 这3背包将视为整体在一起整理，然后是 {4,5} , { 6,7,8} 。
公会银行的bagId与背包银行的bagId不知道是否有冲突。
如果有冲突可以使用 100+公会银行bagId 来进行区分

2. bagId,slotId -> jpackIndex  , jpackIndex -> bagId,slotId  ，在jpack排序过程中，
只是对一个数组进行排序，而不区分背包，所以需要将 bagId、slotId 转换为 jpackIndex，
 而在排序结束后，需要移动物品，
 在移动物品时则要把 jpackIndex 转换为 bagId,slotId 以移动物品。 
 此处同样是bagId 的问题。

2. 排序。无需修改

3.  移动物品，pickup(bag1,slot1)；pickup(bag2,slot2) ；
 这两行代码将会把 bag1,slot1 与 bag2 slot2的物品互换，
 bag2，slot2 可以没有物品，bag1，slot1 必须有物品。
 此处要做的修改是，bag1，bag2 如果是背包或银行则使用原有的pickup函数，
 如果bag1、bag2是公会银行，则使用公会银行的pickup函数。

]=]


--[[
	GUILDBANKBAGSLOTS_CHANGED will fire THREE times when you move a item
	before this event fired, NOTHING you can do with the guildbank
	
	GuildBank movement check
]]
local GUILDBANKBAGSLOTS_CHANGED_TIMES = 0
function JPack:GUILDBANKBAGSLOTS_CHANGED()
    GUILDBANKBAGSLOTS_CHANGED_TIMES = GUILDBANKBAGSLOTS_CHANGED_TIMES + 1
end

function JPack:GBCanMove()
    if (GUILDBANKBAGSLOTS_CHANGED_TIMES ~= 0) and (GUILDBANKBAGSLOTS_CHANGED_TIMES%3 == 0) then
        return true
    end
end

function JPack:GBMoved(isTrue)
    if isTrue then
        GUILDBANKBAGSLOTS_CHANGED_TIMES = 0
    end
end


--[[
	bag/bank packup
	onupdate script to move items
]]
local elapsed = 0
function JPack.OnUpdate(self, el)
    elapsed = elapsed + el
    if elapsed < self.updatePeriod then return end
    elapsed = 0
    debug("\nOnUpdate!\n")

    if(InCombatLockdown()) then
        stopPacking()
    end

    if DEV_MOD and JPACK_STEP==JPACK_STARTED and JPack.guildbankOpened and JPack.packupguildbank then
        debug"整理开始, 工会银行整理"

        -- 取得当前打开页
        currentGBTab = GetCurrentGuildBankTab()
        debug('currentGBTab: ',currentGBTab)

        -- 判断玩家是否打开公会银行并有相应权限 *** 需要纠正判断
        if IsGuildLeader(UnitName("player")) then
            JPACK_STEP=JPACK_GUILDBANK_STACKING -- 直接进入工会银行堆叠
        else
            local name, icon, isViewable, canDeposit, numWithdrawals, remainingWithdrawals = GetGuildBankTabInfo(currentGBTab)
            debug('isViewable ', isViewable, 'canDeposit ', canDeposit, 'remainingWithdrawals', remainingWithdrawals)
            if isViewable and canDeposit then -- 拥有移动权限
                JPACK_STEP=JPACK_GUILDBANK_STACKING -- 进入工会银行堆叠
            else
                currentGBTab = nil
                JPACK_STEP=JPACK_GUILDBANK_COMPLETE -- 无足够权限 结束整理
            end
        end
        -- restack
    elseif(JPACK_STEP == JPACK_GUILDBANK_STACKING)then
        if JPack:GBCanMove() then
            if GBstackOnce() then
                JPACK_STEP = JPACK_GUILDBANK_SORTING
            end
        end
        -- 计算排序, 移动物品
    elseif(JPACK_STEP == JPACK_GUILDBANK_SORTING)then
        JPACK_STEP = JPACK_GUILDBANK_COMPLETE
        --_G.print'123123123'
        --if isGBReady() then

        --公会银行整理结束, 结束整理工作
    elseif(JPACK_STEP == JPACK_GUILDBANK_COMPLETE) then
        debug"GUILDBANK PACKUP COMPLETE"
        print(L["COMPLETE"])
        JPack:UnregisterEvent("GUILDBANKBAGSLOTS_CHANGED")

        -- 普通整理
    elseif JPACK_STEP==JPACK_STARTED then
        debug"普通整理"
        if stackOnce() then
            JPACK_STEP=JPACK_STACK_OVER
        end
    elseif(JPACK_STEP==JPACK_STACK_OVER)then
        debug("JPACK_STEP==JPACK_STACK_OVER, 开始移动到特殊背包")
        if(isAllBagReady())then
            debug("堆叠完毕,JPack_STEP=JPACK_STACK_OVER")
            moveToSpecialBag(1)
            moveToSpecialBag(0)
            JPACK_STEP = JPACK_SPEC_BAG_OVER
        end
    elseif(JPACK_STEP==JPACK_SPEC_BAG_OVER)then
        debug("JPACK_STEP==JPACK_SPEC_BAG_OVER, 开始向银行保存")
        if(isAllBagReady())then
            if(JPack.deposit)then
                debug("saveToBank()")
                saveToBank()
            end
            JPACK_STEP=JPACK_DEPOSITING
        end
    elseif(JPACK_STEP==JPACK_DEPOSITING)then
        debug("JPACK_STEP==JPACK_DEPOSITING, 开始从银行提取")
        if(isAllBagReady())then
            debug("保存物品完毕,JPack_STEP=JPACK_DEPOSITING")
            if(JPack.draw)then
                debug("loadFromBank()")
                loadFromBank()
            end
            JPACK_STEP=JPACK_START_PACK
        end
    elseif(JPACK_STEP==JPACK_START_PACK)then
        debug("开始整理,JPACK_STEP=JPACK_START_PACK")
        if(isAllBagReady())then
            JPack.packingGroupIndex=1
            JPack.packingBags=JPack.bagGroups[1]
            --计算排序
            startPack()
            JPACK_STEP=JPACK_PACKING
        end
    elseif(JPACK_STEP==JPACK_PACKING)then
        --排序结束
        --移动物品
        if not moveOnce() then
            JPack.packingGroupIndex=JPack.packingGroupIndex + 1
            debug("index", JPack.packingGroupIndex)
            JPack.packingBags=JPack.bagGroups[JPack.packingGroupIndex]
            debug("JPack.bagGroups . size = ",#JPack.bagGroups)
            for i=1,#JPack.bagGroups do
                for j=1,#JPack.bagGroups[i] do
                    debug("i", i, "j", j..":", JPack.bagGroups[i][j])
                end
            end
            if(JPack.packingBags==nil)then
                debug"PACKUP COMPLETE"
                JPACK_STEP=JPACK_STOPPED
                JPack.bagGroups={}
                print(L["COMPLETE"])
                JPack:SetScript("OnUpdate",nil)
                current=nil
                to=nil
            else
                debug("Packing ", JPack.packingGroupIndex)
                startPack()
            end
        end
    end
end

local function pack()
    debug("\n\n\n\nPACK START")
    if CheckCursor() then
        print(L["WARN"],2,0.28,2)
    else
        JPACK_STEP=JPACK_STARTED
        if JPack.packupguildbank then
            JPack:GBMoved(true)
            JPack:RegisterEvent"GUILDBANKBAGSLOTS_CHANGED"
        else
            groupBags()
        end

        elapsed = 1
        JPack:SetScript("OnUpdate", JPack.OnUpdate)
    end
end

SLASH_JPACK1 = "/jpack"
SLASH_JPACK2 = "/jp"
SlashCmdList.JPACK = function(msg)
    local a,b,c=strfind(msg, "(%S+)")
    if not c then return JPack:Pack() end
    c = strlower(c)
    if(c=="asc")then
        JPack:Pack(nil, 1)
    elseif(c=="desc")then
        JPack:Pack(nil, 2)
    elseif(c=="deposit" or c=="save")then
        JPack:Pack(1)
    elseif(c=="draw" or c=="load")then
        JPack:Pack(2)
    elseif(DEV_MOD and c=="gb" or c=="guildbank") then
        JPack:Pack(3)
    elseif(c == "stop") then
        stopPacking()
    elseif(c=="help")then
        local text = "%s - |cffffffff%s|r"
        print(L["Slash command"]..": /jpack |cffffffffor|r /jp")
        print(format(text, "/jp", L["Pack"]))
        print(format(text, "/jp asc", L["Set sequence to ascend"]))
        print(format(text, "/jp desc", L["Set sequence to descend"]))
        print(format(text, "/jp deposit |cffffffffor|r save", L["Save to the bank"]))
        print(format(text, "/jp draw |cffffffffor|r load", L["Load from the bank"]))
        if DEV_MOD then print(format(text, "/jp gb |cffffffffor|r guildback", L["Packup guildbank"])) end
        print(format(text, "/jp help", L["Print help info"]))
    else
        print(format("%s: |cffff0000%s|r , %s", L["Unknown command"], c, L["HELP"]))
    end
end


--[[===================================
			API
=====================================]]

--[[
	JPack:Pack(access, order)
	access	
			1	save
			2	load
			3	packup guild bank
			nil	just pack the bag (and bank)
	order		
			1	asc
			2	desc
			nil	last-time-order
]]
function JPack:Pack(access, order)
    JPack.deposit = false
    JPack.draw = false
    JPack.packupguildbank = false
    if access == 1 then
        JPack.deposit = true
    elseif access == 2 then
        JPack.draw = true
    elseif access == 3 and DEV_MOD then
        JPack.packupguildbank = true
    end
    if order == 1 then
        JPackDB.asc=true
    elseif order == 2 then
        JPackDB.asc=false
    end

    pack()
end