LoTROInterface SVN SortPack

--Window creator. Tides up the syntax on create   
MakeWindow = class(Turbine.UI.Window);

                function MakeWindow:Constructor(x,y,width,height,visible,colour,opacity)
                        Turbine.UI.Window.Constructor( self )
                        self :SetPosition( x,y);
                        self :SetSize(width,height );
                        self :SetVisible( visible );
                        self :SetBackColor(colour);
                        self :SetOpacity(opacity); 
                end

function SearchTable(InputTable,SearchString)
--Will search the string for given results in a table. If found returns the row reference. So, for example I could look for "ore" in any items name. Used below.
--BE AWARE! CASE SENSITIVE!
        local found
        local temp=0
        --Check for a null item and return
        if SearchString==0 then return 0 end
        
        for i = 1, # InputTable do
                
                if SearchString==InputTable[i] then  return i end --First check for an exact match
                
                --Now check for partial matches.
                found,foo=string.find(SearchString,InputTable[i],0,true)
                
                if found ~=nil then
                        temp= i
                end
        end
        --if temp==0 then Turbine.Shell.WriteLine("Failed to find..."..SearchString) end
        return temp
end

function checker()
        --will 'print' the information chosen below for the pack. Way of ensuring the order is what you are after.
        local player = Turbine.Gameplay.LocalPlayer.GetInstance();      --Define player to be the player
        local backpack = player:GetBackpack();                                  --Players backpack object
        local size =backpack:GetSize()                                                          --How big it is
        for i = 1, size do
        item = backpack:GetItem(i);
                if item ~= nil then
                        Turbine.Shell.WriteLine(item:GetName().." is "..item:GetQuality())
                end
        end
end

function mergetable(table1,list)
--Appends tables from list on the end of table1
for i=1,#list do
        table2=list[i]
                local LenTable1=#table1
                for a =LenTable1+1,#table1+#table2 do
                        table1[a]=table2[a-LenTable1]
                end
end
end