Module:ECR

--[=[ -- LUA script to get Enchanted Chests Rewards -- --]=]

local p = {}

local availableData = mw.loadData( 'Module:Available/data' ) local cData = mw.loadData( 'Module:ItemCollection/data' ) ---[==[ For testing purposes local chestData = mw.loadData( 'Module:ECR/data' ) --[===[]==] local chestData = { ["Legendary/Pinocchio"] = { ["Update 48"] = { ["C"] = "EC-Gems #60$EC-Gems #120^x3", ["R"] = { ["Common"] = "EC-Magic #50-613 $ Jiminy Cricket $ Figaro $ Geppetto's Workshop", ["Uncommon"] = "EC-Magic #100-1,225 $ Geppetto $ Blue Fairy $ Pinocchio Village Haus $ Jiminy Cricket's Hat Stand", ["Rare"] = "EC-Magic #150-1,838 $ Honest John $ Stromboli's Caravan", ["Epic"] = "Stromboli $ Pinocchio's Daring Journey $ Pinocchio's Hat Stand", ["Legendary"] = "Pinocchio", },		},	}, 	["Radiant"] = {true, ["THOND Event"] = { ["N"] = "", ["D"] = {"2022/12/28", 18}, ["C"] = "EC-Gems #20$Real Money^x6", ["R"] = { ["Tokens"] = {"Phoebus$Djali$Claude Frollo$Esmeralda$Quasimodo"}, ["Common"] = "EC-THOND #200 $ EC-Magic #100-700 $ IP-THOND #5", ["Uncommon"] = "EC-Magic #200-1,400", ["Rare"] = "EC-Magic #500-3,500", },		},	}, } --]===]

local util = require('Module:Utility') local RARITY = require("Module:Rarity").rarity local oneItem = require("Module:MultiItems") local EC = require("Module:EC").getEC local TOK = require("Module:CharacterToken") local date = require("Dev:Date") local today = os.date("%Y/%m/%d %H:%M:%S")

local bubbles = {}

local function addItem(data) local tRarity = {}

for _, rarityType in ipairs({"Legendary", "Epic", "Rare", "Uncommon", "Common", "Unknown"}) do       table.insert(tRarity, {rarityType, data[rarityType] or ""}) end

return tRarity end

local function chItems(inStr) local tIn = mw.text.split(inStr, "%s*%$%s*") local tOut = {} for idx = 1, #tIn do		local tt = mw.text.split(tIn[idx], "%s*#%s*") if tt[1] ~= "" then if not tt[2] or tt[2] == "" then tt[2] = 1 end table.insert(tOut, tt) end end return tOut end

local function colItem(iNumb, tNumb, aNumb, item) local tOut = {}

if iNumb == 1 then table.insert(tOut, '\n| colspan="2"|') table.insert(tOut, '\n| colspan="2"|') table.insert(tOut, '\n| colspan="2"|') table.insert(tOut, item) table.insert(tOut, '\n| colspan="2"|') table.insert(tOut, '\n| colspan="2"|') elseif iNumb == 2 then if aNumb == (tNumb - 1) then table.insert(tOut, '\n|\n| colspan="2"|') table.insert(tOut, '\n| colspan="2"|') table.insert(tOut, item) elseif aNumb == tNumb then table.insert(tOut, '\n| colspan="2"|') table.insert(tOut, item) table.insert(tOut, '\n| colspan="2"|\n|') end elseif iNumb == 3 then if aNumb == (tNumb - 2) then table.insert(tOut, '\n| colspan="2"|') table.insert(tOut, '\n| colspan="2"|') table.insert(tOut, item) elseif aNumb == (tNumb - 1) then table.insert(tOut, '\n| colspan="2"|') table.insert(tOut, item) elseif aNumb == tNumb then table.insert(tOut, '\n| colspan="2"|') table.insert(tOut, item) table.insert(tOut, '\n| colspan="2"|') end elseif iNumb == 4 then if aNumb == (tNumb - 3) then table.insert(tOut, '\n|\n| colspan="2"|') table.insert(tOut, item) elseif aNumb == (tNumb - 2) then table.insert(tOut, '\n| colspan="2"|') table.insert(tOut, item) elseif aNumb == (tNumb - 1) then table.insert(tOut, '\n| colspan="2"|') table.insert(tOut, item) elseif aNumb == tNumb then table.insert(tOut, '\n| colspan="2"|') table.insert(tOut, item) table.insert(tOut, '\n|') end end

return table.concat(tOut) end

local function allRarity(data, special) local tOut = {} local rData = addItem(data)

for cNumb, item in ipairs(rData) do		if item[2] ~= "" then table.insert(tOut, '\n|-\n! colspan="10" style="padding: 5px;"|') table.insert(tOut, RARITY({item[1], "ECR"}))

local tItems = {} tItems = chItems(item[2]) local tNo = #tItems local rNo = tNo%5 local iNo = math.floor(tNo/5)

local br = 1 for i, rData in ipairs(tItems) do				if i == br then table.insert(tOut, '\n|-') br = br + 5 end if i <= (iNo * 5) then table.insert(tOut, '\n| colspan="2"|') table.insert(tOut, oneItem.getOneItem(rData[1], rData[2], nil, true)) else table.insert(tOut, colItem(rNo, tNo, i, oneItem.getOneItem(rData[1], rData[2], nil, true))) end

local iData = cData.Items[rData[1]] if iData and iData[2] and iData[2] == "ch" then table.insert(bubbles, {(special and cNumb*0.1 or cNumb), 1, (special and "specialchance" or item[1]), rData[1]}) elseif iData and iData[2] and iData[2] == "ba" then table.insert(bubbles, {(special and cNumb*0.1 or cNumb), 2, (special and "specialchance" or item[1]), rData[1]}) elseif iData and iData[2] and iData[2] == "bc" then table.insert(bubbles, {(special and cNumb*0.1 or cNumb), 3, (special and "specialchance" or item[1]), rData[1]}) elseif iData and iData[2] and iData[2] == "d" then table.insert(bubbles, {(special and cNumb*0.1 or cNumb), 4, (special and "specialchance" or item[1]), rData[1]}) elseif rData[1]:match("^EC") then table.insert(bubbles, {(special and cNumb*0.1 or cNumb), 6, (special and "specialchance" or item[1]), rData[1]}) else table.insert(bubbles, {(special and cNumb*0.1 or cNumb), 5, (special and "specialchance" or item[1]), rData[1]}) end end end end

return table.concat(tOut) end

local function getPrizeTable(ecData, sName, sArgs) local tTable = {'{| class="dmk-chests', "", '" style="text-align: center; line-height: 1.0; width: 100%;', ' background: #b3b4c112; border-radius: 20px; margin: 1em 1em 1em 0;', '"\n', '!', "", ' colspan="10" style="background: linear-gradient(#14bfe4 5%,#2866ce 100%); border-radius: 20px 20px 0 0; height: 35px; color: white; text-shadow: 1px 2px 3px #030d9d; padding: 5px;"| Possible Rewards You can receive the following rewards.\n|- style="height: 0px;"|\n||||||||||||||||||||'} if sName then tTable[2] = ' mw-collapsible mw-collapsed" id="mw-customcollapsible-' .. sName:gsub(" ", "_") tTable[4] = ' display: unset;' tTable[7] = ' id="' .. sName .. '"' end

if ecData["S"] then table.insert(tTable, '\n|-\n! colspan="10"|⸺⸺⸺ Only at ') table.insert(tTable, (ecData["S"][1] or "?")) table.insert(tTable, '% Special Chance  ⸺⸺⸺ ') table.insert(tTable, allRarity(ecData["S"], true)) table.insert(tTable, '\n|-\n! colspan="10"|⸺⸺⸺⸺ ⸺⸺⸺⸺ ') end

if ecData["R"] then table.insert(tTable, allRarity(ecData["R"])) end

if sArgs then table.insert(tTable, '\n|-\n|colspan="10" style="line-height: 1.75; text-align: left;"|') table.insert(tTable, sArgs) end

table.insert(tTable, '\n|}\n')

return tTable end

function p.getPrizeTable(ecData) return table.concat(getPrizeTable(ecData)) end

local function getBubbles local tBubble = {' '}

table.sort(bubbles, function(a,b)			if a[1] == b[1] then				return a[2] < b[2]			else				return a[1] < b[1]			end		end)

local tOut = {} local k = 1

for _, v in ipairs(bubbles) do		if k == 1 then tBubble[4] = v[3]:lower tBubble[8] = oneItem.getOneItem(v[4], 1, 52, nil, nil, 1) table.insert(tOut, table.concat(tBubble)) k = k + 1 elseif k == 2 and v[3] ~= "specialchance" then tBubble[2] = "left: 2px; bottom: 55px;" tBubble[4] = v[3]:lower tBubble[6] = "height: 75px; width: 75px;" tBubble[8] = oneItem.getOneItem(v[4], 1, 37, nil, nil, 1) table.insert(tOut, table.concat(tBubble)) k = k + 1 elseif k == 3 and v[3] ~= "specialchance" then tBubble[2] = "right: 2px; bottom: 55px;" tBubble[4] = v[3]:lower tBubble[6] = "height: 75px; width: 75px;" tBubble[8] = oneItem.getOneItem(v[4], 1, 37, nil, nil, 1) table.insert(tOut, table.concat(tBubble)) if bubbles[#bubbles-1][4] ~= v[4] then tBubble[2] = "right: 17px; bottom: 7px;" tBubble[4] = bubbles[#bubbles-1][3]:lower tBubble[6] = "height: 55px; width: 55px;" tBubble[8] = oneItem.getOneItem(bubbles[#bubbles-1][4], 1, 27, nil, nil, 1) table.insert(tOut, table.concat(tBubble)) end if bubbles[#bubbles][4] ~= v[4] and bubbles[#bubbles][4] ~= bubbles[#bubbles-1][4] then tBubble[2] = "left: 17px; bottom: 7px;" tBubble[4] = bubbles[#bubbles][3]:lower tBubble[6] = "height: 55px; width: 55px;" tBubble[8] = oneItem.getOneItem(bubbles[#bubbles][4], 1, 27, nil, nil, 1) table.insert(tOut, table.concat(tBubble)) end break end end

return table.concat(tOut) end

function p.getECR(frame) local tArgs = util.getArgs(frame)

local pagename = tArgs[1] or mw.title.getCurrentTitle.text local cName = mw.ustring.gsub(pagename, " Chests", "") local tOut = {} local cSection = {}

if chestData[cName] then for k, v in pairs(chestData[cName]) do			if v ~= true then local aData = (v["D"] or {"0001/01/01", 0}) if availableData[cName] and availableData[cName][k] then aData = availableData[cName][k] end

local unlockdate = aData[1] .. util.dayStart local lockdate = date(aData[1]):adddays(aData[2]):fmt("%Y/%m/%d") .. (aData[3] or util.dayStart)

local cDur = nil

if aData[2] == 0 then lockdate = date(aData[1]):adddays(1):fmt("%Y/%m/%d") .. (aData[3] or util.dayStart) elseif unlockdate <= today then cDur = util.strDate(aData[1], aData[2]) end

table.insert(cSection, {lockdate, k, v, cDur, unlockdate, (aData["C"] or v["C"])}) end end

table.sort(cSection, function(a,b) return a[1] > b[1] end)

for _, cItem in pairs(cSection) do			if chestData[cName][1] and (cItem[5] >= today) then table.insert(tOut, "") else bubbles = {} local tTable = getPrizeTable(cItem[3], cItem[2], tArgs[cItem[2]]) local tCard = {'{| class="chestcard ', "default", '"\n', '| class="Part_1"|', "", '\n', '| class="Part_2"|', "", '\n', '|-\n| colspan="2" class="Part_3"| ', "", getBubbles, '  \n', '|-\n| colspan="2" class="Part_4"| ', (cItem[3]["N"] or cItem[2]), ' \n', '|-\n| colspan="2" class="Part_5"| \n', '|-\n| colspan="2" class="Part_6"|', "", '\n|}\n'}

if cName == "Special Request Wishes" then tCard[11] = '' else local baseName, subName = mw.ustring.match(cName, "^([^,]-)%s*%/%s*([^,]-)$") tCard[11] = '' end

if cItem[6] then tCard[20] = '' .. oneItem.getCost(cItem[6], true) .. ' '				end

if cItem[5] <= today and today <= cItem[1] then cItem[4] = util.countdown(cItem[1], " for ", " until ", true) elseif cItem[5] >= today then cItem[4] = ": " .. util.countdown(cItem[5], " in ", " on ") end

if cItem[4] then tCard[23] = ' ' end

table.insert(tOut, table.concat(tCard)) table.insert(tOut, table.concat(tTable)) end end end

return frame:preprocess(table.concat(tOut)) end

function p.getGallery(frame) local pagename = mw.title.getCurrentTitle.baseText pagename = mw.ustring.gsub(pagename, " Chests", "")

local tOut = {'")

return frame:preprocess(table.concat(tOut)) end

local function getPagename(item) if item:match("^EC") then item = EC({item, "T"}) elseif not cData.Items[item] then item = TOK.getTokenDirect(item, "T") end

return item end

function p.getTokenFormat(tOut, pagename) local rarityType = { ["collection"]		= "collection", ["common"]		= "common", ["uncommon"]		= "uncommon", ["rare"]		= "rare", ["epic"]		= "epic", ["legendary"]		= "legendary", ["relic common"]	= "common relic", ["relic uncommon"]	= "uncommon relic", ["relic rare"]		= "rare relic", }	local tOut = {} pagename = pagename or mw.title.getCurrentTitle.text

for cName, chest in pairs(chestData) do		for n, v in pairs(chest) do			if v ~= true then local aData = v["D"] or {"0001/01/01", 0} if availableData[cName] and availableData[cName][n] then aData = availableData[cName][n] end local UnlockDate = aData[1] .. util.dayStart local LockDate = date(aData[1]):adddays(aData[2]):fmt("%Y/%m/%d") .. (aData[3] or util.dayStart)

if UnlockDate < today and (aData[2]==0 or today < LockDate) then local tokenpage = pagename:gsub(" Token$", "") or "" if (v["NoTokens"] and not v["NoTokens"]:match(tokenpage)) or not v["NoTokens"] then if v["R"] then for _, item in pairs(addItem(v["R"])) do								if item[2] ~= "" then item[2] = chItems(item[2]) for _, rData in ipairs(item[2]) do										if pagename == getPagename(rData[1]) then tOut[cName .. "-" .. n .. " Chests"] = "$ $ x" .. rData[2] .. " $ $ $ $ " .. (aData[2]~=0 and LockDate or "") elseif rarityType[rData[1]:lower] then if TOK.tokenType({pagename, "I"}) == rarityType[rData[1]:lower] then tOut[cName .. "-" .. n .. " Chests"] = "$ $ x" .. rData[2] .. " $ $ $ $ " .. (aData[2]~=0 and LockDate or "") end end end end end end if v["S"] then for _, item in pairs(addItem(v["S"])) do								if item[2] ~= "" then item[2] = chItems(item[2]) for _, rData in ipairs(item[2]) do										if pagename == getPagename(rData[1]) then tOut[cName .. "-" .. n .. " Chests"] = "$ $ x" .. rData[2] .. " $ $ $ Special Chance Only $ " .. (aData[2]~=0 and LockDate or "") elseif rarityType[rData[1]:lower] then if TOK.tokenType({pagename, "I"}) == rarityType[rData[1]:lower] then tOut[cName .. "-" .. n .. " Chests"] = "$ $ x" .. rData[2] .. " $ $ $ Special Chance Only $ " .. (aData[2]~=0 and LockDate or "") end end end end end end end end end end end

return tOut end

function p.getTrivia(pagename, height) local tOut = {""} local tChest = {}

for cName, chest in pairs(chestData) do		for n, v in pairs(chest) do			if v ~= true and cName ~= "Special Request Wishes" then local aData = (v["D"] or {"0001/01/01", 0})

if v["R"] then for _, item in pairs(addItem(v["R"])) do						if item[2] ~= "" then item[2] = chItems(item[2]) for _, rData in ipairs(item[2]) do								if pagename == getPagename(rData[1]) then table.insert(tChest, {aData[1], aData[2], cName, n, (v["N"] or n), item[1]}) end end end end end if v["S"] then for _, item in pairs(addItem(v["S"])) do						if item[2] ~= "" then item[2] = chItems(item[2]) for _, rData in ipairs(item[2]) do								if pagename == getPagename(rData[1]) then table.insert(tChest, {aData[1], aData[2], cName, n, (v["N"] or n), "special"}) end end end end end end end end

table.sort(tChest, function(a,b) return a[1] > b[1] end)

for _, v in pairs(tChest) do		local baseName, subName = mw.ustring.match(v[3], "^([^,]-)%s*%/%s*([^,]-)$") local tRow = {'|-\n| style="vertical-align: baseline;"|\n|", pagename, " was introduced as ", RARITY({v[6], "L"}), " in the ", (subName or v[3]), " Chests", util.durDate(v[1], v[2]), "", "", ".\n"}

if v[5] and v[2]~=0 then tRow[21] = " as part of " tRow[22] = v[5] end

table.insert(tOut, table.concat(tRow)) end

return (table.concat(tOut)~="" and ('|-|Chests=\n\n{|\n' .. table.concat(tOut) .. '|} \n') or "") end

function p.getDATA(pagename) local tChest = {}

for cName, chest in pairs(chestData) do		for n, v in pairs(chest) do			if v ~= true then local aData = (v["D"] or {"0001/01/01", 0}) if availableData[cName] and availableData[cName][n] then aData = availableData[cName][n] end local LockDate = date(aData[1]):adddays(aData[2]):fmt("%Y/%m/%d") .. (aData[3] or util.dayStart)

if (LockDate > today or aData[2] == 0) then if v["R"] then local tRarity = addItem(v["R"]) for _, item in pairs(tRarity) do							if item[2] ~= "" then item[2] = chItems(item[2]) for _, rData in ipairs(item[2]) do									if pagename == rData[1] then local baseName, subName = mw.ustring.match(cName, "^([^,]-)%s*%/%s*([^,]-)$") table.insert(tChest, {rData[1], aData[1], aData[2], (aData[3] or util.dayStart), {(subName and (baseName .. " Chests/" .. subName) or cName) .. " Chests", n, (subName or cName) .. " Chests"}}) end end end end end if v["S"] then local tRarity = addItem(v["S"]) for _, item in pairs(tRarity) do							if item[2] ~= "" then item[2] = chItems(item[2]) for _, rData in ipairs(item[2]) do									if pagename == rData[1] then local baseName, subName = mw.ustring.match(cName, "^([^,]-)%s*%/%s*([^,]-)$") table.insert(tChest, {rData[1], aData[1], aData[2], (aData[3] or util.dayStart), {(subName and (baseName .. " Chests/" .. subName) or cName) .. " Chests", n, (subName or cName) .. " Chests"}}) end end end end end end end end end

return tChest end

return p