Module:BassaridMarketActivity

Documentation for this module may be created at Module:BassaridMarketActivity/doc

---------------------------------------------------------
-- Module: BassaridiaDailyInvestorTable
-- Updates each day with new buy/sell, but uses the
-- "previous day" simulation to set 'Stocks at Start'
-- to 'Stocks at End' from that previous day.
--
-- NOTES:
-- 1) Because we do not store data externally, we
--    re-simulate "yesterday" each day with a slightly
--    different random seed. Then we use that to set the
--    starting stocks for "today."
-- 2) Everything is still stable for the current day, but
--    tomorrow it re-simulates again. Therefore, actual
--    day-to-day changes remain consistent in the script's
--    logic, *so long as* no additional changes are made.
---------------------------------------------------------
local p = {}

---------------------------------------------------------
-- 1. Calendar: Determine PSSC + daily seeds
---------------------------------------------------------
local function getCurrentDate()
    local startDate   = os.time({year=1999, month=8, day=6})
    local secondsInDay= 86400
    local daysPerYear = 183

    local currentDate = os.time()
    local totalDaysElapsed = math.floor((currentDate - startDate) / secondsInDay)

    local yearFraction = totalDaysElapsed / daysPerYear
    local psscYear     = math.floor(yearFraction)
    local dayOfYear    = math.floor((yearFraction - psscYear) * daysPerYear) + 1

    -- For demonstration, we do 3 months: 1..61, 62..122, 123..183
    local month, dayOfMonth
    if dayOfYear <= 61 then
        month = 1
        dayOfMonth = dayOfYear
    elseif dayOfYear <= 122 then
        month = 2
        dayOfMonth = dayOfYear - 61
    else
        month = 3
        dayOfMonth = dayOfYear - 122
    end

    local dateString = string.format("%d/%d/%d [[PSSC]]", dayOfMonth, month, psscYear)
    return dateString, psscYear, dayOfYear
end

---------------------------------------------------------
-- 2. Investor Data (Initial "Base" Stocks)
---------------------------------------------------------
-- This table holds each investor's *base* stock count,
-- used only if we had no prior day. We'll override each
-- day using the "simulateYesterday" logic below.
---------------------------------------------------------
local baseInvestors = {
    {name = "Vaeringheim Regional Investor", stocks = 17424},
    {name = "Alpazkigz Regional Investor",   stocks = 16214},
    {name = "Odiferia Regional Investor",    stocks = 14718},
    {name = "Hafaan Regional Investor",      stocks =  3630},
    {name = "Jeseri Regional Investor",      stocks =  1870},
    {name = "Hatch Ministry Regional Investor", stocks = 7810},
    {name = "New South Jangsong Division",   stocks = 11085},
    {name = "Haifan Bassaridia Division",    stocks = 12500},
}

---------------------------------------------------------
-- 3. Reasons for Increase or Decrease
---------------------------------------------------------
local increaseReasons = {
    "Improved logistics attracted new investors.",
    "An influx of goods boosted trade volume.",
    "High demand for Noctic-Rabrev exports raised confidence.",
    "Completion of a new shipping lane increased activity.",
    "Successful negotiations with Erythros merchants expanded trade.",
    "A local festival drove significant port activity.",
    "High attendance at a major trade symposium enhanced the port's reputation.",
    "Discovery of new mineral resources increased export potential.",
    "A surge in ceremonial wine exports bolstered port operations.",
    "Efficient cargo handling innovations improved investor sentiment.",
    "Seasonal agricultural exports saw a sharp increase.",
    "High sales of pearl and abalone products boosted port activity.",
    "Introduction of new luxury goods attracted high-end investors.",
    "Expansion of the port's capacity improved its competitiveness.",
    "Improved relations with local merchant guilds stabilized trade routes.",
    "Increased fishing yields led to greater port activity.",
    "Enhanced security measures reduced piracy concerns.",
    "Growing cultural appreciation for exotic exports boosted confidence.",
    "Trade agreements with neighboring cities expanded port usage.",
    "Launch of new fertilizer shipments attracted agricultural investors.",
    "Rising global interest in sacred resin exports spiked port activity.",
    "Successful marketing campaigns highlighted the port's strategic importance.",
    "Completion of high-speed rail connections improved trade efficiency.",
}

local decreaseReasons = {
    "Pirate raids in the Strait disrupted shipments.",
    "Unfavorable weather delayed agricultural exports.",
    "Labor shortages caused delays in cargo handling.",
    "A major fire in supply regions reduced exports.",
    "Rising costs impacted investor confidence.",
    "Unrest in Jangsong Province disrupted shipments.",
    "Currency fluctuations affected trade stability.",
    "Economic sanctions on neighbors reduced export activity.",
    "Decline in ceremonial artifact production reduced goods traffic.",
    "Cultural disputes caused delays in exports.",
    "Counterfeit relics discovered harmed the port's reputation.",
    "High demand outpaced supply, reducing exports.",
    "Decline in pearl quality lowered investor interest.",
    "Shortage of ceremonial wine hurt exports.",
    "Unrest among key merchants disrupted major trade agreements.",
    "Reduced demand for local textiles impacted port activity.",
    "Collapse of a key trade deal reduced port volume.",
    "Seasonal labor shortages decreased shipments.",
    "Alternate shipping routes bypassed the port.",
    "Economic downturn in a key region affected investor interest.",
    "Piracy concerns in Haifan waters harmed trade confidence.",
    "Failure to secure deals at a trade symposium reduced traffic.",
    "Natural disasters destroyed key trade routes.",
    "Sabotage of port infrastructure caused significant delays.",
}

---------------------------------------------------------
-- 4. Tiers
---------------------------------------------------------
local function determineTier(stocksAtEnd)
    if stocksAtEnd > 12500 then
        return "Tier I"
    elseif stocksAtEnd >= 5000 then
        return "Tier II"
    else
        return "Tier III"
    end
end

---------------------------------------------------------
-- 5. Single-Day Simulation
---------------------------------------------------------
local function simulateDailyActivity(stocksAtStart)
    local buyStocks = math.random(0, 500)
    local sellStocks = math.random(0, 500)

    local stocksAtEnd = stocksAtStart + buyStocks - sellStocks
    local change = "Increased"
    if stocksAtEnd < stocksAtStart then
        change = "Decreased"
    elseif stocksAtEnd == stocksAtStart then
        change = "No Change"
    end

    return {
        buyStocks     = buyStocks,
        sellStocks    = sellStocks,
        stocksAtEnd   = stocksAtEnd,
        change        = change,
    }
end

local function getReason(change)
    if change == "Increased" then
        return increaseReasons[math.random(#increaseReasons)]
    elseif change == "Decreased" then
        return decreaseReasons[math.random(#increaseReasons)]
    else
        return "Market activity remained stable."
    end
end

---------------------------------------------------------
-- 6. Yesterday Simulation:
--    1) We define a "yesterSeed" = dailySeed - 1
--    2) We replicate the random buy/sell from "yesterday"
--    3) We get stocksAtEndFromYesterday
--    4) That becomes today's StocksAtStart
---------------------------------------------------------
local function getYesterdaysEnd(investorBase, dailySeed)
    local yesterSeed = dailySeed - 1
    math.randomseed(yesterSeed)

    -- We'll simulate the same logic we use for the day,
    -- but only for "yesterday"
    local baseStart = investorBase.stocks
    local yResult   = simulateDailyActivity(baseStart)
    return yResult.stocksAtEnd  -- "yesterday's" stocks at end
end

---------------------------------------------------------
-- 7. Main Table Generation
---------------------------------------------------------
function p.generateTable()
    -- 7.1) Today’s date + seeds
    local dateString, psscYear, dayOfYear = getCurrentDate()
    local localTime = os.date("*t")
    local dailySeed = localTime.year * 1000 + localTime.yday
    math.randomseed(dailySeed)

    local stockPrice = 30
    local totalMarketValueAtStart = 0
    local totalMarketValueAtEnd   = 0
    local totalBoughtValue        = 0
    local totalSoldValue          = 0

    local out = {}
    table.insert(out, '{| class="wikitable"\n')
    table.insert(out,
        "! Date (Day/Month/Year PSSC) !! Investor !! Tier !! Stocks at Start !! Value at Start !! Stocks Bought !! Value of Stocks Bought !! Stocks Sold !! Value of Stocks Sold !! Stocks at End !! Value at End !! Change !! Reason\n"
    )

    -- For each investor
    for _, baseObj in ipairs(baseInvestors) do
        local yEnd = getYesterdaysEnd(baseObj, dailySeed)
        local stocksAtStart = yEnd  -- "today's start" is "yesterday's end"
        if stocksAtStart < 0 then
            stocksAtStart = 0  -- safety clamp
        end

        local valueAtStart = stocksAtStart * stockPrice

        -- Re-randomseed for "today"
        math.randomseed(dailySeed)

        local dayResult = simulateDailyActivity(stocksAtStart)
        local buyCount  = dayResult.buyStocks
        local sellCount = dayResult.sellStocks
        local stocksAtEnd = dayResult.stocksAtEnd
        if stocksAtEnd < 0 then
            stocksAtEnd = 0
        end
        local valueBought = buyCount  * stockPrice
        local valueSold   = sellCount * stockPrice
        local valueAtEnd  = stocksAtEnd * stockPrice
        local theChange   = dayResult.change
        local reason      = getReason(theChange)
        local tier        = determineTier(stocksAtEnd)

        -- accumulate totals
        totalMarketValueAtStart = totalMarketValueAtStart + valueAtStart
        totalMarketValueAtEnd   = totalMarketValueAtEnd   + valueAtEnd
        totalBoughtValue        = totalBoughtValue        + valueBought
        totalSoldValue          = totalSoldValue          + valueSold

        table.insert(out, "|-\n")
        table.insert(out, string.format(
            "| %s || %s || %s || %d || %d Polis || %d || %d Polis || %d || %d Polis || %d || %d Polis || %s || %s\n",
            dateString,          -- today's date
            baseObj.name,
            tier,
            stocksAtStart,
            valueAtStart,
            buyCount,
            valueBought,
            sellCount,
            valueSold,
            stocksAtEnd,
            valueAtEnd,
            theChange,
            reason
        ))
    end

    -- Totals row
    table.insert(out, "|-\n")
    table.insert(out, string.format(
        "| colspan=5 | Total Market Value at Start || %d Polis || %d Polis || %d Polis || %d Polis || ||\n",
        totalMarketValueAtStart, totalBoughtValue, totalSoldValue, totalMarketValueAtEnd
    ))
    table.insert(out, "|}")

    return table.concat(out)
end

return p