LoTROInterface SVN KragenBars

import "Turbine.UI";
import "Turbine.UI.Lotro";
import "KragenPlugs.Utils";
import "KragenPlugs.KragenBars";

-- load settings file
function LoadSettings()
        -- Set main version number
        vars = { };
        vars.vers = 5.08;
        vars.player = Turbine.Gameplay.LocalPlayer.GetInstance();
        vars.playerlevel = vars.player:GetLevel();
        vars.effects = vars.player:GetEffects();
        vars.classid = vars.player:GetClass();
        vars.classattr = vars.player:GetClassAttributes();
                vars.locale = Turbine.Engine.GetLocale();
                
                limbo = Turbine.UI.Window();
                limbo:SetPosition(-35, -35);
                limbo:SetVisible(false);
                
                settings = DecodeObject(Turbine.PluginData.Load( Turbine.DataScope.Character, "KragenBarsSettings" ));
        
        -- declare settings as a table and set default opacity
        if ( type( settings ) ~= "table" ) then
                settings = { };
                settings.opacity = 1;
                settings.lockslots = false;
                settings.snaptogrid = true;
                                settings.gridspacing = 35;
                                settings.userbars = 0;
                                settings.vers = vars.vers;
                                if(settings.language == nil) then
                                        if (vars.locale == "fr") then
                                                settings.language = 2;
                                        elseif (vars.locale == "de") then
                                                settings.language = 3;
                                        else
                                                settings.language = 1;
                                        end
                                end
        end
        
        -- if version is not declared then wipe settings file and set version number
                -- if version <3.00 (prior versions had string version number) then add required settings
        if (settings.vers == nil or type(settings.vers) == "string" or settings.vers < 3.00) then
                        settings = nil;
            settings = { };
            settings.vers = vars.vers;
            settings.opacity = 1;
            settings.lockslots = false;
            settings.snaptogrid = true;
                        settings.advanceonclick = false;
                        settings.gridspacing = 35;
                        settings.userbars = 0;
                        settings.kbbutton = { x = 10, y = 10 };
                        if(settings.language == nil) then
                                if (vars.locale == "fr") then
                                        settings.language = 2;
                                elseif (vars.locale == "de") then
                                        settings.language = 3;
                                else
                                        settings.language = 1;
                                end
                        end
            SaveSettings();
                elseif (settings.vers < 3.20) then
                        settings.gridspacing = 35;
                        settings.userbars = 0;
                        settings.kbbutton = { x = 10, y = 10 };
                        if(settings.language == nil) then
                                if (vars.locale == "fr") then
                                        settings.language = 2;
                                elseif (vars.locale == "de") then
                                        settings.language = 3;
                                else
                                        settings.language = 1;
                                end
                        end
                elseif (settings.vers < 4.00) then
                        settings.gridspacing = 35;
                        settings.userbars = 0;
                        settings.kbbutton = { x = 10, y = 10 };


                end
                
                if (settings.kbbutton == nil) then
                        settings.kbbutton = { x = 10, y = 10 };
                end

        if (vars.classid == 40) then
            vars.playerclass = "Burglar";
            KragenBars = BurglarBars();
        elseif (vars.classid == 24) then
            vars.playerclass = "Captain";
            KragenBars = CaptainBars();
        elseif (vars.classid == 172) then
            vars.playerclass = "Champion";
            KragenBars = ChampionBars();
        elseif (vars.classid == 23) then
            vars.playerclass = "Guardian";
            KragenBars = GuardianBars();
        elseif (vars.classid == 162) then
            vars.playerclass = "Hunter";
            KragenBars = HunterBars();
        elseif (vars.classid == 185) then
            vars.playerclass = "Loremaster";
            KragenBars = LoreBars();
        elseif (vars.classid == 31) then
            vars.playerclass = "Minstrel";
            KragenBars = MiniBars();
        elseif (vars.classid == 193) then
            vars.playerclass = "Runekeeper";
            KragenBars = RuneBars();
        elseif (vars.classid == 194) then
            vars.playerclass = "Warden";
                        Turbine.Shell.WriteLine("KragenBars: Warden is not currently implemented in KragenBars.  Look for this feature in a future version.");
            -- KragenBars = WardenBars();
        end        

                Turbine.Shell.WriteLine("KragenBars: Loaded version " ..vars.vers);

        
end

-- save to settings file
function SaveSettings()
    Turbine.PluginData.Save( Turbine.DataScope.Character, "KragenBarsSettings", EncodeObject(settings) );
end

function EncodeObject(obj)
        if ((vars.locale == "de" or vars.locale == "fr") and obj ~= nil) then
                local encoded = {};
                local function _copyObject(obj)
                        local function _encodeObject(obj)
                                if (type(obj) == "number") then return (("<num>%f</num>"):format(obj)); else return obj end;
                        end
                        if (type(obj) ~= "table") then 
                                return _encodeObject(obj);
                        elseif (encoded[obj] ~= nil) then
                                return encoded[obj];
                        end
                        local newtable = { };
                        for k,v in pairs(obj) do
                                local key = _copyObject(k);
                                local value = _copyObject(v);
                                newtable[key] = value;
                                encoded[obj] = newtable[key];
                        end
                        return newtable;
                end
                
                return _copyObject(obj);
        else
                return obj;
        end
end

function DecodeObject(data)
        if ((vars.locale == "de" or vars.locale == "fr") and data ~= nil) then
                local decoded = { };
                local function _copyObject(obj)
                        local function _decodeObject(obj)
                                if (type(obj) == "string") then 
                                        local match = obj:match("<num>(%d+.%d+)</num>");
                                        if (match ~= nil) then
                                                return tonumber(match);
                                        else
                                                return obj
                                        end
                                else
                                        return obj;
                                end
                        end
                        if (obj == nil) then return nil; end
                        if (type(obj) ~= "table") then
                                return _decodeObject(obj);
                        elseif (decoded[obj]) then
                                return decoded[obj];
                        end
                        local newtable = { };
                        decoded[obj] = newtable;
                        for k,v in pairs(obj) do
                                local key = _copyObject(k);
                                local value = _copyObject(v);
                                newtable[key] = value;
                                decoded[obj] = newtable[key];
                        end
                        return newtable;
                end
                
                return _copyObject(data);
        else
                return data;
        end
end

-- on unload call each instances unload function to save settings
function UnloadPlugin()
    KragenBars:SaveSettings();
end


function ValidatePosition(x, y, width, height)
    x = math.min(math.max(x, 0), Turbine.UI.Display:GetWidth() - width);
    y = math.min(math.max(y, 0), Turbine.UI.Display:GetHeight() - height);
    return x, y;
        
end


-- setup user chat commands
KragenBarsCommand = Turbine.ShellCommand();

function KragenBarsCommand:Execute( command, arguments )
        if (arguments == "setup") then
                KragenBars:ShowSetup();
        elseif (arguments == "refresh") then
                KragenBars:Refresh();
        elseif (arguments == "save") then
                KragenBars:SaveSettings();
                elseif (arguments == "reset") then
                        KragenBars:DefaultPosition();
                        KragenBars:DefaultSettings();
                        KragenBars:Refresh();
        elseif (arguments == "defaultpos") then
                        KragenBars:DefaultPosition();
        else
        Turbine.Shell.WriteLine("KragenBars Help:\n - /Kragenbars setup - Opens Kragens setup window\n - /Kragenbars refresh - Refreshes Kragens bar settings (ie. after level up)\n - /Kragenbars reset - Resets settings to default\n - /Kragenbars defaultpos - Sets window positions to default");
        end

end


function AddCallback(object, event, callback)
        if (object[event] == nil) then
                object[event] = callback;
        else
                if (type(object[event]) == "table") then
                        table.insert(object[event], callback);
                else
                        object[event] = {object[event], callback};
                end
        end
end


-- inialize plugin
function init()
    settings = { };
        altfunction = nil;
        
        altCheck = Turbine.UI.Control();
        altCheck:SetWantsUpdates(true);
        altCheck.Update = function(sender, args)
                if (altCheck:IsAltKeyDown() and altCheck:IsControlKeyDown()) then
                        if (type(altfunction) == "function") then
                                altfunction(true);
                        end
                end
        end
        
        altCheck.Add = function(func)
                if (func ~= altfunction) then
                        altCheck.Clear();
                        altfunction = func;
                end
        end
        
        altCheck.Clear = function()
                if (type(altfunction) == "function") then
                        altfunction(false);
                end
                altfunction = nil;
        end

        -- setup plugin unload function to save setting on unload.
        pluginName="KragenBars";
        window = Turbine.UI.Window();
        window:SetWantsUpdates(true);
        window.Update = function(sender,args)
                        if (Plugins[pluginName] ~= nil) then
                                        Plugins[pluginName].Unload = function(self,sender,args)
                                                        UnloadPlugin();
                                        end
                                        window:SetWantsUpdates(false);
                        end
        end

    Turbine.Shell.AddCommand( "Kragenbars", KragenBarsCommand );
    LoadSettings();
end


-- codeblock
init();