[SUBMOD: Virtual Points System] VPS_Alpha_01 [upd: dec.01/19]

[Jake Armitage]

I am a bit late to the party, but I actually have some time to play and would love to try this mod out. Jake, is this bad boy save game compatible?

yes should be but it's not recommended.

Better to wait for the overhaul which probably would be released before 2019, at least in an alpha version.

@leo
yeah I'll need suggestion, better to wait for the alpha release (which probably won't contain the feature we were talking about) and then balance it together with anyone is willing to.

[asher237]

I can wait! Thank you, sir.

[leonardusius]

yes should be but it's not recommended.

Better to wait for the overhaul which probably would be released before 2019, at least in an alpha version.

@leo
yeah I'll need suggestion, better to wait for the alpha release (which probably won't contain the feature we were talking about) and then balance it together with anyone is willing to.

If you're going to make that effort, maybe it's good to input a separate alpha of that feature too......not matter too much if is not complete, but peoples can make an idea and make suggestions...

[♔Greek Strategos♔]

If you're going to make that effort, maybe it's good to input a separate alpha of that feature too......not matter too much if is not complete, but peoples can make an idea and make suggestions...

That's not a bad idea Jake boy

[leonardusius]

What's new here, Jake ? Is this Fides Populi included in PIGS or the next release of Testudo 1.5 ?

[Jake Armitage]

No absolutely not, there are a lot of things to do yet.
I'll remove Fides Populi form Testudo 1.5. It doesn't make sense as it is now.
I'll release an overhauled beta version sooner or later. Can't say when, I'll return working on this after Testudo 1.5.

That's where we are now (thaks to ivanpera too ) and, believe me, it's 10% of the work, even if it's the basic skeleton so other things should go quicker.
But there are a lot of things still, and some are yet to be checked.
Have fun

-- 000---------------------
--******* Original scripts and concepts by : Prime from Steam
--******* Mod "Your People's Trust"
--******* February 2016
-- 000---------------------
--******* Current scripts and concepts by: Jake Armitage and ivanpera from TWC
--******* Mod "Aequilibrium Fidei" for DeI 1.2.4
--******* December 2018
-- 000---------------------
--******* For embedding it into other mods, authors' (Prime, Jake Armitage, ivanpera) permissions are required
-- 000---------------------
-- 000---------------------
-- ************** FIDES OECONOMIAE **************
-- 000---------------------
-- 000---------------------

module(..., package.seeall);
_G.main_env = getfenv(1);

-- ###------------------------- START *******
-- LIBRARIES REQUIRED  ---------------------------------------------------------------------
-- ###-------------------------

local scripting = require "lua_scripts.EpisodicScripting"
local constants_lib = require "script._lib.lib_AeF_03_econ_constants"

-- ###---------------------------------- END*

-- ###------------------------- START *******
-- LOCAL EQUIVALENCES  ---------------------------------------------------------------------
-- ###-------------------------

-- *** LOGBOOL
local logbool = false;

-- *** TRUST
local AeF_03_econ_trust = 500;
local old_trust = 0;

-- *** TRUST TOOLTIP
local trust_tooltip = WHITE;

-- *** TRUST COMPONENTS
local tt_TaxLevel = 0;
local tt_Treasury = 0;
local tt_Random = 0;
local tt_Threshold = 0;

local random_Gain_Ratio = 0.5;


-- ###---------------------------------- END*

-- ###------------------------- START *******
-- UTILITY FUNCTIONS ---------------------------------------------------------------------
-- ###-------------------------

function Log(callback_name, message)

    if not logbool
    then
        return;
    else
        local t = os.date("%d-%m-%Y %X")
        local log = io.open("Trust.txt","a")
        log :write(t .. " : " .. tostring(callback_name) .. "  ".. tostring(message) .. "\n")
        log :flush()
        log :close()
    end
end

-- ###---------------------------------- END*

-- ###------------------------- START *******
-- TRUST REAL TIME REBUILD ---------------------------------------------------------------------
-- ###-------------------------

function AeF_03_econ_UpdateTrust_Components(delta, positive, source)
    colour = GREEN1;
    if positive == 0
    then
        delta = -1 * delta;
        colour = RED1;
    end
    
    -- *** AFFECTS MAIN KPI
    AeF_03_econ_trust = AeF_03_econ_trust + delta;
    if source == "TaxLevel"  -- *** TRUST TOOLTIP REAL TIME REBUILD FOR COMPONENTS
    then
        tt_TaxLevel = tt_TaxLevel + delta;
        curr_value = tt_TaxLevel;
        param_string = WHITE.."\n - Trust Components :\nTax Level : ";
    elseif source == "Treasury"
    then
        tt_Treasury = tt_Treasury + delta;
        curr_value = tt_Treasury;
        param_string = trust_tooltip.."\nTreasury : ";
    elseif source == "Random"
    then
        tt_Random = tt_Random + delta;
        curr_value = tt_Random;
        param_string = trust_tooltip.."\nRandom : ";
    end
    trust_tooltip = param_string..colour..tostring(curr_value)..WHITE;
end

function AeF_03_econ_UpdateTrust_Thresholds()
    local length = #TRUST_LEVEL_THRESHOLDS;
    
    for i = 1, length do
        if AeF_03_econ_trust <= TRUST_LEVEL_THRESHOLDS[i] or i == length
        then
            AeF_03_econ_trust = AeF_03_econ_trust + TRUST_THRESHOLD_POINTS[i]
            trust_tooltip = trust_tooltip..LINE1..WHITE..
                            "\n - Trust Variables :\nTrust Threshold : "..
                            COLOR1_TABLE[i]..tostring(TRUST_THRESHOLD_POINTS[i])..COLOR2_TABLE[i];
            break;
        end
    end
end

-- ###---------------------------------- END*

-- ###------------------------- START *******
-- APPLY TRUST EFFECTS ---------------------------------------------------------------------
-- ###-------------------------

-- *** REMOVE EFFECT
function AeF_03_econ_ResetEffects(faction_name)

    for i = 1, #SEGMENT_LOWER_BOUNDS
    do
        local effect = "AeF_03_econ_" .. tostring(i);
        scripting.game_interface:remove_effect_bundle(effect, faction_name);
    end
end

-- *** APPLY EFFECT
function AeF_03_econ_ApplyEffects(faction_name)

    local k = 1;
    for i = 1, #SEGMENT_LOWER_BOUNDS do
        if AeF_03_econ_trust >= SEGMENT_LOWER_BOUNDS[i] and AeF_03_econ_trust <= SEGMENT_UPPER_BOUNDS[i]
        then
            local effect = "AeF_03_econ_" .. tostring(k);
            scripting.game_interface:apply_effect_bundle(effect, faction_name, 2);
            segment = k
            return
        end
        k = k + 1;
    end
end

-- ###---------------------------------- END*

-- ###------------------------- START *******
-- CALLBACK EVENT IMPLEMENTATIONS ---------------------------------------------------------------------
-- ###-------------------------

-- *** LOADING
local function AeF_03_econ_Initialize(context)

    AeF_03_econ_trust = scripting.game_interface:load_named_value("AeF_03_econ_trust", 500, context);
    old_trust = scripting.game_interface:load_named_value("old_trust", 500, context);
    
    trust_tooltip = scripting.game_interface:load_named_value("trust_tooltip", WHITE..
                                                                "\nWelcome to Fides Oeconomiae."..
                                                                "Realtime trust data will be available"..
                                                                "as soon as events occur or game actions are taken.", context);
end

-- *** SAVING
local function AeF_03_econ_Save(context)

    scripting.game_interface:save_named_value("AeF_03_econ_trust", AeF_03_econ_trust, context);
    scripting.game_interface:save_named_value("old_trust", old_trust, context);
    
    scripting.game_interface:save_named_value("trust_tooltip", trust_tooltip, context);
end

-- ###---------------------------------- END*

-- ###------------------------- START *******
-- APPLY TRUST START TURN ---------------------------------------------------------------------
-- ###-------------------------

local function AeF_03_econ_FactionStartTurn(context)

    if context:faction():is_human()
    then
        local _faction_ = context:faction():name();
        if scripting.game_interface:model():turn_number() == 1
        then
            AeF_03_econ_trust = 500;
            old_trust = 500;
            
            tooltip_reset = true;

            math.randomseed(os.time());
        end

        -- *** APPLY EFFECTS
        AeF_03_econ_ResetEffects(_faction_);
        AeF_03_econ_ApplyEffects(_faction_);
    end
end

-- ###---------------------------------- END*

-- ###------------------------- START *******
-- APPLY TRUST END TURN ---------------------------------------------------------------------
-- ###-------------------------

local function AeF_03_econ_FactionEndTurn(context)

    if context:faction():is_human()
    then

        -- *** TOOLTIP PROCEDURES
        if tooltip_reset == true
        then

            -- *** RESET TOOLTIP LAYOUT
            trust_tooltip = "";

            -- *** SAVE OLD TRUST
            old_trust = AeF_03_econ_trust;

            -- *** RESET TOOLTIP
            tooltip_reset = false;
        end

        -- *** LOCAL EQUIVALENCES
        local _faction_ = context:faction():name();

        -- /// TRUST COMPONENT: TAX LEVEL
        local tax_level = context:faction():tax_level();

        length = #TAX_LEVEL_THRESHOLDS;
        for i = 1,length  do
            level = TAX_LEVEL_THRESHOLDS[i]
            if tax_level < level or i == length
            then
                AeF_03_econ_UpdateTrust_Components(TAX_EFFECTS[i],1,"TaxLevel");
                break
            end
        end

        -- /// TRUST COMPONENT: TREASURY
        local treasury = context:faction():treasury();
        
        if treasury >= TREASURY_LEVEL_THRESHOLD
        then
            AeF_03_econ_UpdateTrust_Components(TREASURY_1,0,"Treasury");
        else
            AeF_03_econ_UpdateTrust_Components(TREASURY_2,0,"Treasury");
        end
        
        gain = 0;
        -- /// TRUST COMPONENT: RANDOM
        if math.random() > random_Gain_Ratio
        then
            gain = 1;
        end
        AeF_03_econ_UpdateTrust_Components(math.random(RANDOM_TRUST_MIN,RANDOM_TRUST_MAX),gain,"Random");
        
        -- *** TRUST THRESHOLD FOR MAIN KPI
        AeF_03_econ_UpdateTrust_Thresholds();
        
        -- *** APPLY EFFECTS
        AeF_03_econ_ResetEffects(_faction_);
        AeF_03_econ_ApplyEffects(_faction_);

        -- *** RESET TOOLTIP
        tooltip_reset = true;
    end
end

-- ###---------------------------------- END*

-- ###------------------------- START *******
-- TOOLTIPS ---------------------------------------------------------------------
-- ###-------------------------

local function AeF_03_econ_DisplayTooltip(context)

    -- *** BASE COLOR
    local color1 = "";
    local color2 = "";
    local color3 = "";
    local color4 = "";

    -- *** CHANGE VANILLA UI TOOLTIP
    if context.string == "tab_regions"
    then
        local tt_text = UIComponent(context.component):GetTooltipText();
        local string1 = "Provinces";
        local string2 = "Fides Oeconomicae";

        -- *** CHANGE COLORS
        if string.find(tt_text, string1) or string.find(tt_text, string2) or tt_text == ""
        then
            local length = #TRUST_LEVEL_THRESHOLDS;
            done1 = false; done2 = false;
            for i = 1, length do
                if (AeF_03_econ_trust <= TRUST_LEVEL_THRESHOLDS[i] or i == length) and done1 == false
                then
                    color1 = COLOR1_TABLE[i];
                    color2 = COLOR2_TABLE[i];
                    done1 = true;
                end
            if (old_trust <= TRUST_LEVEL_THRESHOLDS[i] or i == length) and done2 == false
            then
                color3 = COLOR1_TABLE[i];
                color4 = COLOR2_TABLE[i];
                done2 = true;
            end
            if done1 and done2
            then
                break;
            end
        end

        -- *** SET TOOLTIP
        local index = #TRUST_LEVEL_THRESHOLDS
        local trust_max = TRUST_LEVEL_THRESHOLDS[index]
        local ratio = math.ceil(old_trust/trust_max*100);
        local component = UIComponent(context.component):Id();
        UIComponent(context.component):SetTooltipText(WHITE..
                                                    "CURRENT\nFides Oeconomicae :\n"..
                                                    color1..AeF_03_econ_trust..WHITE.."/"..trust_max..
                                                    "\n\nPREVIOUS\nFides Oeconomicae :\n "..
                                                    color3..old_trust..WHITE.."/"..trust_max..
                                                    " "..LINE1..trust_tooltip.."");
        end
    end
end

-- ###---------------------------------- END*

-- ###------------------------- START *******
-- CALLBACKS ---------------------------------------------------------------------
-- ###-------------------------

scripting.AddEventCallBack("LoadingGame",AeF_03_econ_Initialize);
scripting.AddEventCallBack("SavingGame",AeF_03_econ_Save);
scripting.AddEventCallBack("FactionTurnStart", AeF_03_econ_FactionStartTurn);
scripting.AddEventCallBack("FactionTurnStart", AeF_03_econ_FactionEndTurn);
scripting.AddEventCallBack("ComponentMouseOn", AeF_03_econ_DisplayTooltip);

-- ###---------------------------------- END*

[leonardusius]

No absolutely not, there are a lot of things to do yet.
I'll remove Fides Populi form Testudo 1.5. It doesn't make sense as it is now.
I'll release an overhauled beta version sooner or later. Can't say when, I'll return working on this after Testudo 1.5.

That's where we are now (thaks to ivanpera too ) and, believe me, it's 10% of the work, even if it's the basic skeleton so other things should go quicker.
But there are a lot of things still, and some are yet to be checked.
Have fun

Don't forget Fides Populi so, because it's a must for your almost overhauled Testudo so on. A question: last betas were your @@@@@@@_Fides_Populi_DeI_beta_03 and @@@@@@@_Fides_Populi_DeI_beta_03a of Sonny WiFiHr's version. Inside yours I see at lua.lib the ptrust.lua and inside WiFiHr I see lib_ptrust.lua and lib_ptrust_constants.lua. Are both complementary ?

[Jake Armitage]

Main script is inside lua_scripts folder, should be named "ptrust.lua"
Then, inside script folder there are 2 library scripts, should be named "lib_ptrust.lua" and "lib_ptrust_constants.lua".
Library scripts are a sort of crutch for main script, they hold references, constants, ranges.
Think it's a common feature for lua to divide sheets into main one and secondary ones.
Maybe they could be inside the same sheet, but I have no informatic basic to discuss about these kind of choices.

Sonny's pack is the same as mine, always 1 main script and 2 libraries, think he changed some constant values here and there.
Seems he's inactive lately, hope to "see" him again around here.

[leonardusius]

Main script is inside lua_scripts folder, should be named "ptrust.lua"
Then, inside script folder there are 2 library scripts, should be named "lib_ptrust.lua" and "lib_ptrust_constants.lua".
Library scripts are a sort of crutch for main script, they hold references, constants, ranges.
Think it's a common feature for lua to divide sheets into main one and secondary ones.
Maybe they could be inside the same sheet, but I have no informatic basic to discuss about these kind of choices.

Sonny's pack is the same as mine, always 1 main script and 2 libraries, think he changed some constant values here and there.
Seems he's inactive lately, hope to "see" him again around here.

OK. Thanks for answer.

[Jake Armitage]

sorry.
No they are not, use one or the other, can't say what Sonny did though.

I'm going to summarize all the features I have in mind (for now) in the case ivanpera wants to start doing some scripts.
I prefer to do a public post instead of a private one, so people may say their piece.

FIRST FEATURE

Spoiler Alert, click show to read: 

It will be divided into 4 ranges (I'll have to check proper latin declinations and terms):

- Fides Oeconomicae (Economical Trust) - it will use the "tab_regions" UI (vanilla txt: "Event Messages")
- Fides Belli (War Trust) - it will use the "tab_units" UI (vanilla txt: "Forces")
- Fides Civile (Civil Trust) - it will use the "tab_regions" UI (vanilla txt: "Provinces")
- Fides Exterorum (Foreign Trust) - it will use the "tab_factions" UI (vanilla txt: "Factions")

@ivanpera: you can start dividing the scripts if you wish, then I'll work on triggers, effects and libraries

So the first feature appearence will be like this one (it's old, just to get the concept)

Spoiler Alert, click show to read: 

This is a newer, even if not definitive UI version

SECOND FEATURE

Spoiler Alert, click show to read: 

The 4 trust values we had into the FIRST FEATURE will be recollected and interpolated (dunno how yet) to build an "Aequilibrium Fidei" major effect.
Aequilibrium Fidei will be affected by "imperium level" and "culture/subculture" too (or I'll do some libraries to divide factions instead of a cultural division).
AeF will been shown as a ranged effect like the others - it will use the "button_clan" UI (vanilla txt: "Faction")

@ivanpera: you can try a basic interpolation script between the other 4 trust values

Check fifth image into previous spoiler

THIRD FEATURE

Spoiler Alert, click show to read: 

This is about Characters.
For now I would remove Popularity, Decoration and Decoration list (they are quite useless, we'll see one day what to do with them) and just work onto people's trust skill feature (the one dividing characters between military, balanced and statemen)
This feature will give trust points depending on skill type and what the character is doing (garrisoned, not garrisoned and other possibilities)

This was my old idea to divide those skills

ECONOMICAL TRUST: administrator
MILITARY TRUST: leader
CIVIL TRUST: statesman
POLITICAL TRUST: minister

ECO + MIL TRUST: overseer
ECO + CIV TRUST: bureaucrat
ECO + POL TRUST: legislator
MIL + CIV TRUST: magistrate
MIL + POL TRUST: warden
CIV + POL TRUST: diplomat

@ivanpera: you can try to polish/isolate scripts regarding characters

Spoiler Alert, click show to read: 

There will be other features for sure, the 3 above are the most impotant for now.
We'll talk about the others after these will be in a beta version.

[Tenerife_Boy]

Sounds promising indeed !

[♔Greek Strategos♔]

Sounds promising indeed !

Jake is always promising

[Lupo]

Iwait for the next version........

[Jake Armitage]

Find a comfortable sit 'cause it will require quite some time

[Crappy]

Hi Jake! Just curious what your thoughts are on Fides Populi are at the moment. Still working on it, or is it on the back burner for other projects?

[Jake Armitage]

I should restart working on this really soon but I'm a bit lazy lately

[leonardusius]

I should restart working on this really soon but I'm a bit lazy lately

Yeah, I was thinking about same thing. Fides Populi is a must for DeI imho.

[Lupo]

Hello!I hope and wait for a newer version ..... are you already working on it?Thanks in advance Lupo!

[Jake Armitage]

yeah I'm working on it these days and I should release the first beta regarding economy quite soon (this week or next week I think)

[a.ieraci]

yeah I'm working on it these days and I should release the first beta regarding economy quite soon (this week or next week I think)

I like this submod and I home this will be merged in main mod on the future