LoTROInterface SVN SortPack

function Stack()

Timer=Turbine.UI.Control()

        function Timer:Start()
                FirstStart= Turbine.Engine.GetGameTime()
                
                Slot=1
                Start= Turbine.Engine.GetGameTime()
                Timer:SetWantsUpdates(true)
        end
        
        function Timer:Update()
                local Time = Turbine.Engine.GetGameTime()
                local elapsed = Time - Start
                
                if elapsed>0.2 then
                        if Slot>size then
                                Timer:SetWantsUpdates(false)
                                Timer=nil
                                Turbine.Shell.WriteLine("<rgb=#888888>Stack finished after "..Time-FirstStart.." seconds.")
                                return
                        end
                        
                        --Get the name of the current item
                        aitem=backpack:GetItem(Slot)
                        
                        --If there is no item to search for then see what is in the current slot.
                        if SearchItem==nil then
                                if aitem~=nil then
                                        local itemInfo=aitem:GetItemInfo()
                                        Current=        itemInfo:GetName()
                                        StackSize=      itemInfo:GetMaxStackSize()
                                        Quantity=       aitem:GetQuantity()
                                        if StackSize>Quantity then
                                                SearchItem=Current
                                        else
                                                Slot=Slot+1
                                                return
                                        end
                                else
                                        Slot=Slot+1
                                        return
                                end
                        end
                        
                        if SearchItem~=nil then
                                        --If the stack is full - get outta here!
                                        local itemInfo=aitem:GetItemInfo()
                                        if aitem:GetQuantity()==StackSize then
                                                SearchItem=nil
                                                Slot=Slot+1
                                                Start= Turbine.Engine.GetGameTime()
                                                return
                                        end
                                
                                        --Search for the item in the rest of the pack.
                                        for i=Slot+1,size do
                                                item=backpack:GetItem(i)
                                                if item~=nil then local itemInfo=item:GetItemInfo() Name=itemInfo:GetName() 
                                                        if Name==SearchItem then
                                                                local itemInfo=item:GetItemInfo()
                                                                if item:GetQuantity()~=StackSize then                                                                   
                                                                        backpack:PerformItemDrop(item,Slot, false)
                                                                        Start= Turbine.Engine.GetGameTime()
                                                                        return
                                                                end
                                                        end
                                                end
                                        end
                                        SearchItem=nil
                                        Slot=Slot+1
                                        Start= Turbine.Engine.GetGameTime()
                                        return
                                end
                        end             
                end
        Timer:Start()
end