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 = 3.20;

        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 = DecodeTable(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;

                                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;

                        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

                        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 (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

end

-- save to settings file

function SaveSettings()

    Turbine.PluginData.Save( Turbine.DataScope.Character, "KragenBarsSettings", EncodeTable(settings) );

end

function EncodeTable(data)

        if ((vars.locale == "fr" or vars.locale == "de") and data ~= nil) then

                local newdata = {};

                local newkey = nil;

                for k,v in pairs(data) do

                        if (type(k) == "number") then

                                newkey = ("<num>%f</num>"):format(k);

                        else

                                newkey = k;

                        end

                        if (type(data[k]) == "number") then

                                newdata[newkey] = ("<num>%f</num>"):format(data[k]);

                        elseif(type(data[k]) == "table") then

                                newdata[newkey] = EncodeTable(data[k]);

                        else

                                newdata[newkey] = data[k];

                        end

                end

                return newdata;

        else

                return data;

        end

end

function DecodeTable(data)

        if ((vars.locale == "fr" or vars.locale == "de") and data ~= nil) then

                local newdata = {};

                local newkey = nil;

                for k,v in pairs(data) do

                        if (type(k) == "string") then

                                local match = k:match("<num>(%d+.%d+)</num>");

                                if (match ~= nil) then

                                        newkey = tonumber(match);

                                else

                                        newkey = k;

                                end

                        else

                                newkey = k;

                        end

                        if (type(data[k]) == "string") then

                                local match = data[k]:match("<num>(%d+.%d+)</num>");

                                if (match ~= nil) then

                                        newdata[newkey] = tonumber(match);

                                else

                                        newdata[newkey] = data[k];

                                end

                        elseif(type(data[k]) == "table") then

                                newdata[newkey] = DecodeTable(data[k]);

                        else

                                newdata[newkey] = data[k];

                        end

                end

                return newdata;

        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 = { };

        -- 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();