Module:Available

--[=[ -- LUA script to get Items Availability Info -- --]=]

local p = {}

---[==[ local availableData = mw.loadData( 'Module:Available/data' ) --[===[]==] local availableData = { ["Hocus Pocus Event 2022"] = { ["Winifred Sanderson"] = {"2022/10/29", 6, " 18:00:00 UTC", true, A="Event Shop"}, },	["Striking Gold Mini Event"] = {true, ["Hocus Pocus Gold Trophy"] = {"2022/11/01", 3, A="Striking Gold #125", R="L1"}, },	["Chests"] = { ["Legendary Chests"] = { ["The Incredibles"] = {"2022/08/18", 15, " 18:00:00 UTC"}, },		["Red Ribbon Chests"] = { ["Christmas 2022"] = {"2022/12/25", 1, nil, true}, },	} } --]===]

local util = require('Module:Utility') local getCost = require("Module:MultiItems").getCost local ME = require("Module:MiniEvent") local EC = require("Module:EC").getEC local date = require("Dev:Date") local today = os.date("%Y/%m/%d %H:%M:%S")

local function strDate(sDate) local theDate = date(sDate)

return string.gsub(theDate:fmt("%d"), "^0", "") .. theDate:fmt(" %B %Y") end

local function lastCharacter(count) local limit = count local tIndex = {} if not limit or limit == 0 then limit = 3 end

for sName, data in pairs(availableData) do		if sName ~= "Legendary" then for k, v in pairs(data) do				if v[4] and v[1] and today >= v[1] then table.insert(tIndex, {k, v[1]}) end end end end

table.sort(tIndex, function(a,b) return a[2] > b[2] end) local outText = ""

local retText = "" for i, v in ipairs(tIndex) do       local linkText = v[1] and "" or "Work In Progress"

local space = ""

for cName in mw.text.gsplit(v[1], "%s*%$%s*") do           linkText = linkText .. space .. "" .. cName .. "" space = ", " end

retText = retText .. "* "               .. linkText .. " "               .. strDate(v[2]) .. " \n"

if i>= limit then break end end return retText end

function p.latest local lastLTE = require ("Module:LTEvent").getLastLTE local lastUpdate = require("Module:UpdateNumber").getLastVer

local headerlast = '{| class="article-table" width="100%"\n! style="font-weight: normal;"|\n' local headerupcoming = '{| class="article-table" width="100%" style="border: 3px solid yellowgreen;"\n! style="font-weight: normal;"|\n' local foot1 = ' For '

local foot2 = '|here]] \n|}\n'

local outText = '==Upcoming Mini Events ==\n' .. headerupcoming .. ME.getUpcomingME({"5"}) .. foot1 .. "a complete timeline of the events in Disney Magic Kingdoms, click [[Event Timeline"                   .. foot2

outText = outText .. '{| class="" style="background-color:transparent;'                   .. ' color:inherit; width:100%;"\n' .. '|style="width:50%;"|\n' outText = outText .. "==Latest Events==\n" .. headerlast .. lastLTE({"5"}) .. foot1 .. "more events, click [[:Category:Events"                   .. foot2

outText = outText .. "==Latest Mini Events==\n" .. headerlast .. ME.getLastME({"5"}) .. foot1 .. "more mini events, click [[:Category:Mini Events"                   .. foot2

outText = outText .. '| style="width:50%;"|\n'

outText = outText .. "==Latest Updates==\n" .. headerlast .. lastUpdate({"5"}) .. foot1 .. "more updates, click [[Content Updates"                   .. foot2

outText = outText .. "==Latest Characters==\n" .. headerlast .. lastCharacter(5) .. foot1 .. "more characters, click [[:Category:Characters"                   .. foot2

outText = outText .. "|}\n"

return outText end

local function dispTime(t) local d = math.floor(t / 86400) local h = math.floor((t % 86400) / 3600) local m = math.floor((t % 3600) / 60) if d == 0 and h == 0 then return string.format("%dm", m)	elseif d == 0 then return string.format("%dh %02d", h, m)	else return string.format("%dd %dh %02d", d, h, m)	end end

local function oneSource(srcName, anchName, dispName, costVal, rewType) local tOut = {"", "", ""} local fileName = "home-limited_time" local linkName = srcName .. (anchName and ("#" .. anchName) or "") .. "|" .. (dispName or srcName)

if srcName == "Special Request Wishes Chests" then fileName = "special_request_wishes" linkName = "Special Request Wishes" elseif srcName:match(" Chests") then srcName = mw.ustring.gsub(srcName, "/" .. (mw.ustring.gsub(dispName, "-", "%-") or ""), "") or "" fileName = "ec-" .. mw.ustring.lower(mw.ustring.gsub(srcName, " Chests", "")) tOut[3] = "" .. linkName .. "" elseif srcName:match(" Mini Event$") and anchName then local meName = srcName:match("^(.+) Mini Event$") local meNumb = anchName:match("^meName %#") tOut[1] = ME.getME({meName, meNumb, "I", 25}) if rewType then local mile, pos = string.match(rewType, "^([LM])(.*)") tOut[3] = "" .. linkName .. ": " .. util.ordinal(pos) .. (rewType:match("^M") and " Milestone Reward" or " Leaderboard Reward") end elseif srcName:match("^The Tower Challenge ") then fileName = "update-20-event_shop" elseif dispName and dispName == "Challenging the Tower" then fileName = "update-20-event_challenge" elseif srcName:match("^Season ") then fileName = "season_pass" if anchName then tOut[3] = "" .. linkName .. ": " .. anchName end elseif srcName:match(" Calendar$") then fileName = "home-calendar" if anchName then tOut[3] = "" .. linkName .. ": " .. anchName end elseif srcName == "Bundle Shop" and anchName and anchName:match(": %d$") then fileName = "home-chain_offer" linkName = srcName .. (anchName and ("#" .. anchName) or "") .. "|" .. (anchName or dispName or srcName) elseif srcName == "Bundle Shop" then fileName = "home-shop" elseif srcName == "Discovery Rewards" then fileName = "discovery" if anchName then tOut[3] = "" .. linkName .. ": " .. anchName end elseif srcName:match(" Sales$") then fileName = "home-sale" end

if costVal then tOut[3] = "" .. linkName .. ": " .. getCost(costVal) end

if tOut[1]=="" then tOut[1] = " " end if tOut[2]=="" then tOut[2] = "" .. linkName .. ":  " end

return tOut end

function p.availability(frame) local cData = mw.loadData('Module:ItemCollection/data' ) local bData = mw.loadData('Module:Bundle/data' ) local meData = mw.loadData( 'Module:MiniEvent/data')

local VL = mw.ext.VariablesLua local tArgs = util.getArgs(frame) local pagename = tArgs[1] or mw.title.getCurrentTitle.text

local tItem = require("Module:ECR").getDATA(pagename) local itemData = {} local alreadyInShop = nil local space = "" local space2 = "" local tAv = {} local tOb = {} local ltbundle = ""

for sName, data in pairs(availableData) do		if sName ~= "Legendary" then for k, v in pairs(data) do				for cName in mw.text.gsplit(k, "%s*%$%s*") do					if pagename == cName then table.insert(tItem, {cName, v[1], v[2], (v[3] or util.dayStart), {(v["L"] or sName), v["A"], (v["D"] or v["A"] or v["L"] or sName), v["C"], v["R"]}}) end end end end end

local baseName, subName = mw.ustring.match(mw.ustring.gsub(pagename, " Chests", ""), "^([^,]-)%s*%/%s*([^,]-)$") if baseName and availableData[baseName] and availableData[baseName][subName] then local v = availableData[baseName][subName] table.insert(tItem, {pagename, v[1], v[2], (v[3] or util.dayStart), {"Bundle Shop", "Enchanted Chests Bundles", (subName .. " Chests Bundle")}}) ltbundle = util.strDate(v[1], v[2]) end

for sName, data in pairs(bData) do		for _, cName in pairs(data["C"]) do			local tt = mw.text.split(cName, "%s*#%s*") if pagename == tt[1] then table.insert(tItem, {cName, data["D"][1], data["D"][2], (data["D"][3] or util.dayStart), {"Bundle Shop", sName, (data["N"] or sName), data["G"]}}) end end end

for sName, data in pairs(meData) do		if sName:match("^ttc ") then for k, tab in pairs(data) do				if tab["C"] then for _, cName in pairs(mw.text.split(tab["C"], "%s*%$%s*")) do						if pagename == cName then table.insert(tItem, {cName, tab[1], tab[2], util.dayStart, {data["Name"], "Characters Required", "Challenging the Tower"}}) end end end end end end

table.sort(tItem, function(a,b) return (date(a[2]):adddays(a[3]):fmt("%Y/%m/%d")) < (date(b[2]):adddays(b[3]):fmt("%Y/%m/%d")) end)

for _, v in pairs(tItem) do local UnlockDate = v[2] .. util.dayStart local LockDate = date(v[2]):adddays(v[3]):fmt("%Y/%m/%d") .. v[4]

if v[3] == 0 or today <= LockDate then if v[5][3]:match("Shop$") then alreadyInShop = true end

itemData = oneSource(v[5][1], v[5][2], v[5][3], v[5][4], v[5][5])

table.insert(tAv, space) table.insert(tAv, itemData[1]) table.insert(tAv, itemData[2])

if today < UnlockDate then table.insert(tAv, ": ") table.insert(tAv, util.countdown(UnlockDate, " in ", " on ")) space = " " elseif v[3] == 0 then table.insert(tAv, ": Currently Available ") space = " " else table.insert(tAv, ": ") table.insert(tAv, util.countdown(LockDate, " for ", " until ")) space = " " end

if today >= UnlockDate and itemData[3] ~= "" then table.insert(tOb, space2) table.insert(tOb, itemData[3]) space2 = " " end end end

itemData = oneSource("Shop")

if tArgs[2] and cData["Items"][pagename] and not cData["Items"][pagename][4] and not alreadyInShop then table.insert(tAv, space) table.insert(tAv, itemData[1]) table.insert(tAv, itemData[2]) table.insert(tAv, ": Currently Available") space = " " end

if space == "" then table.insert(tAv, itemData[1]) table.insert(tAv, itemData[2]) table.insert(tAv, ": Not Currently Available") end

VL.vardefine("availability", table.concat(tAv)) VL.vardefine("obtainable", table.concat(tOb)) VL.vardefine("ltbundle", ltbundle)

return "" end

return p