LoTROInterface SVN SortPack

--[[This first part is only required because of the turbine bug]]

--[[import "Turbine.UI"
import "Deusdictum.UI.Dragbar"]]
import "JackdawPlugins.SortPack.OptionPanel"

--[[    Plugins["SortPackLoad"].Unload = function( sender, args )
                SortButtonData.X,SortButtonData.Y=SortButton:GetPosition()
                JackdawPlugins.Patch.Save( Turbine.DataScope.Character, "SortPackButton", SortButtonData )
        end
        
        if not pcall(function() import "JackdawPlugins.Patch.Patch" end) then 
                --Turbine.Shell.WriteLine("Patch not present - default Load and Save used")
                JackdawPlugins.Patch={}
                function JackdawPlugins.Patch.Load(a,b,c) return Turbine.PluginData.Load(a,b,c) end
                function JackdawPlugins.Patch.Save(a,b,c,d) Turbine.PluginData.Save(a,b,c,d) end
        end
        
        SortButtonData=JackdawPlugins.Patch.Load( Turbine.DataScope.Character, "SortPackButton")]]
        
        --[[Here on in is just the normal button code. This could pass pretty much unchanged when the bug is fixed, however, having the button use slash commands is probably a bit over kill, and I would like to put some of the functionality back there instead of having it in the bag]]

        --Data for the Button.
        if SortButtonData==nil then                     SortButtonData={}                                               end
        if SortButtonData.Scale==nil then               SortButtonData.Scale=0.5                                end
        if SortButtonData.X==nil then                   SortButtonData.X=100                                    end
        if SortButtonData.Y==nil then                   SortButtonData.Y=100                                    end
        if SortButtonData.LeftClick==nil then   SortButtonData.LeftClick="sort"                 end

        --Create the button.
        --Structure is; Window/Quickslot/Icon/Cover

        SortButton=Turbine.UI.Window()
                SortButton:SetVisible(true)
                SortButton.DragBar = Deusdictum.UI.DragBar( SortButton,"Sort")
                SortButton.DragBar:SetZOrder(9999)
                SortButton:SetPosition(SortButtonData.X,SortButtonData.Y)
                
                SortButton:SetMouseVisible(true)

        SortButton.shortcut = Turbine.UI.Lotro.Shortcut();
                        SortButton.shortcut:SetType(Turbine.UI.Lotro.ShortcutType.Alias);
                        SortButton.shortcut:SetData("/"..SortButtonData.LeftClick)      

        SortButton.quickslot=Turbine.UI.Lotro.Quickslot();
                        SortButton.quickslot:SetParent(SortButton);
                        SortButton.quickslot:SetShortcut(SortButton.shortcut);
                        SortButton.quickslot:SetVisible(true);
                        SortButton.quickslot:SetUseOnRightClick(false)

        SortButton.Icon=Turbine.UI.Control()
                SortButton.Icon:SetParent(SortButton)
                SortButton.Icon:SetVisible(true)
                SortButton.Icon:SetSize(32,32)
                SortButton.Icon:SetBackground(0x41007ecf)
                SortButton.Icon:SetStretchMode(1)
                SortButton.Icon:SetMouseVisible(false)
                
        SortButton.Cover=Turbine.UI.Control()
                SortButton.Cover:SetParent(SortButton)
                SortButton.Cover:SetVisible(false)
                SortButton.Cover:SetBackColor(Turbine.UI.Color(0.5,1,1,1))
                
        SortButton.SizeChanged=function()
                SortButton.quickslot:SetSize(32*SortButtonData.Scale,32*SortButtonData.Scale)
                SortButton.Icon:SetSize(32*SortButtonData.Scale,32*SortButtonData.Scale)
                SortButton.Cover:SetSize(32*SortButtonData.Scale,32*SortButtonData.Scale)
        end
                
                SortButton:SetSize(32*SortButtonData.Scale,32*SortButtonData.Scale)
                SortButton.DragBar:Refresh()

        --When UI is unlocked then make the cover visible.
                SortButton.DragEnable=function()
                        SortButton.Cover:SetVisible(true)
                end
                
                SortButton.DragDisable=function()
                        SortButton.Cover:SetVisible(false)
                end
                
                --Cover events - resize the Button.
                SortButton.Cover.MouseDown=function(sender,args)
                        moving=true
                end
                
                SortButton.Cover.MouseUp=function(sender,args)
                        moving=false
                end
                
                SortButton.Cover.MouseMove=function(sender,args)
                                if moving then
                                local x,y=SortButton.Cover:GetMousePosition()

                                SortButtonData.Scale=math.max(x,y)/32
                                if SortButtonData.Scale<0.25 then SortButtonData.Scale=0.25 end

                                SortButton:SetSize(32*SortButtonData.Scale,32*SortButtonData.Scale)
                                SortButton.DragBar:Refresh()
                        end
                end
                
        SortButton.quickslot.MouseDown=function(sender,args)
                if ( args.Button == Turbine.UI.MouseButton.Left ) then
                        --[[Turbine.PluginManager.UnloadScriptState("SortPack")
                        Turbine.PluginManager.LoadPlugin("SortPack")]]
                else
                        local contextMenu = Turbine.UI.ContextMenu()
                        contextMenu.items = contextMenu:GetItems()
                
                        local option1 = Turbine.UI.MenuItem("Action on left click..")
                        
                        local options={
                                        [1] = 
                                        {
                                                ["Text"] = "Sort the pack",
                                                ["Command"] = "sort"
                                        },
                                        [2] = 
                                        {
                                                ["Text"] = "Re-stack the pack - WARNING EXPERIMENTAL!",
                                                ["Command"] = "stack"
                                        },
                                        [3] = 
                                        {
                                                ["Text"] = "Open the SortBag",
                                                ["Command"] = "openbag"
                                        },
                                        [4] = 
                                        {
                                                ["Text"] = "Open the Sort Options",
                                                ["Command"] = "sortoption"
                                        },
                                        [5] = 
                                        {
                                                ["Text"] = "Create/Edit custom Categories",
                                                ["Command"] = "SortCat"
                                        },
                                        [6] = 
                                        {
                                                ["Text"] = "Open the Sort Debug window",
                                                ["Command"] = "SortDebug"
                                        },
                                        [7] =
                                        {
                                                ["Text"] = "Show/Hide Counter",
                                                ["Command"] = "SortCounter"
                                        }
                                        }       
                        
                        
                        contextMenu.SubMenuItems = option1:GetItems()
                        
                        local suboption={}
                        for i=1,#options do
                                suboption[i] = Turbine.UI.MenuItem(options[i].Text,true,SortButtonData.LeftClick==options[i].Command)
                                suboption[i].Click = function () 
                                        SortButtonData.LeftClick=options[i].Command 
                                        SortButton.shortcut:SetData("/"..SortButtonData.LeftClick) 
                                        SortButton.quickslot:SetShortcut(SortButton.shortcut);
                                end
                                contextMenu.SubMenuItems:Add(suboption[i])
                        end
                        
                        contextMenu.items:Add(option1)
                        contextMenu:ShowMenu()
                end
        end
        
                
        --[[Turbine.PluginManager.UnloadScriptState("SortPack")
        Turbine.PluginManager.LoadPlugin("SortPack")]]
        
        --This fixes a very odd bug that has crept in - I have no idea what is causing it, but it is most annoying.
        --The icon just doesn't seem to scale properly...

        SortButton.Icon:SetSize(32*SortButtonData.Scale,32*SortButtonData.Scale)
        
        SortButton:SetVisible(not(SortButtonData.Hide))