Module:沙盒/盐棋/Sandbox

来自Arcaea中文维基
< Module:沙盒
盐棋讨论 | 贡献2022年9月16日 (五) 18:41的版本 (frame)

可在Module:沙盒/盐棋/Sandbox/doc创建此模块的帮助文档

local p = {}
local slstIdx = mw.loadData "Module:沙盒/盐棋/Sandbox1".slstIdx
local unlocks = mw.text.jsonDecode(mw.getCurrentFrame():expandTemplate { title = "unlocks" }).unlocks
;(function(u) local _ = u[14]; u[14] = u[16]; u[16] = u[17]; u[17] = u[15]; u[15] = _; table.insert(u, { songId = "" }) end)(unlocks)

p.condition = setmetatable({
	song_id = function(v) return "[[" .. slstIdx[v].title .. "]]" end,
	song_difficulty = function(v) return "[" .. ({ [0] = "PST", "PRS", "FTR", "BYD" })[v] .. "]" end,
	grade = function(v) return v == 0 and "" or ("以 「%s」 或以上成绩"):format(({ "C", "B", "A", "AA", "EX" })[v]) end,
	rating = function(v) return ("%.2f"):format(v / 100) end,
	id = function() return "[[拉格兰]]" end,
	[0] = "$credit 残片",
	"$grade通关 $song_id $song_difficulty",
	"游玩 $song_id $song_difficulty",
	"$grade通关 $song_id $song_difficulty$times回",
	"$1 <br>'''或''' $2",
	"个人游玩潜力值 $rating 或以上",
	[103] = "获得搭档「$id」"
}, {
	__call = function(self, args)
		return string.gsub(self[args.type] or "", "%$[a-z12_]+", function(k)
			k = k:sub(2)
			if self[k] then return self[k](args[k]) end
			if tonumber(k) then return self(args.conditions[tonumber(k)]) end
			return args[k]
		end)
	end
})

local function unlocksIt(ware)
	local i, key = 1, nil
	return function()
		if ware[i].songId == "" then return end
		local arr = {}
		key = ware[i].songId
		repeat
			table.insert(arr, ware[i].ratingClass + 1, ware[i].conditions)
			i = i + 1
		until ware[i].songId ~= key
		if ware[i].songId == "lasteternity" then i = i + 4 end--
		return key, arr
	end
end

function p.single(id)
	--- unlocks song k/v :
	for songk, songv in unlocksIt(unlocks) do
		if id == songk then return songv end
	end
end

local detail = {}
function p.detail(frame)
	if next(detail) then return detail[frame.args[1]] end
	local inter = { fragment = {}, previous = {}, potential = {}, partner = {} }
	function type2Key(t)
		if t == 0 then return "fragment"
		elseif t < 5 then return "previous"
		elseif t == 5 then return "potential"
		elseif t == 103 then return "partner"
		end
	end
	for songk, songv in unlocksIt(unlocks) do
		local row = { fragment = {}, previous = {}, potential = {}, partner = {} }
		for rate = 1, 3 do
			for _, cond in ipairs(songv[rate] or {}) do
				local key = type2Key(cond.type)
				if key then
					row[key][rate] = row[key][rate] or {}
					table.insert(row[key][rate], (p.condition(cond)))
				end
			end
		end
		for key, kind in pairs(row) do
			if kind[3] then
				table.insert(inter[key], {
					table.concat(kind[1] or { " " }, "<br>"),
					table.concat(kind[2] or { " " }, "<br>"),
					table.concat(kind[3], "<br>"), id = songk
				})
			end
		end
	end
	local slst = mw.loadData "Module:沙盒/盐棋/Sandbox1".slst
	local plst = mw.loadData "Module:沙盒/盐棋/Sandbox2"
	for key, songs in pairs(inter) do
		table.sort(songs, function(a, b)
			local d = plst[slst[slstIdx[a.id].idx].set].idx - plst[slst[slstIdx[b.id].idx].set].idx
			if d ~= 0 then return d < 0 else return slst[slstIdx[a.id].idx].date < slst[slstIdx[b.id].idx].date end
		end)
		--- wikitable
		local wtb, pid = {}, ""
		for _, song in ipairs(songs) do
			if pid ~= slst[slstIdx[song.id].idx].set then
				pid = slst[slstIdx[song.id].idx].set
				table.insert(wtb, '|-\n| colspan="4" |[[' .. plst[pid].name .. "]]")
			end
			table.insert(wtb, table.concat({ "|-\n|[[" .. slstIdx[song.id].title .. "]]", unpack(song) }, "||"))
		end
		detail[key] = table.concat({
			'{| class="wikitable mw-collapsible mw-collapsed" style="text-align:center"',
			"|-\n!曲目!!Past!!Present!!Future",
			table.concat(wtb, "\n"),
			"|}"
		}, "\n")
	end
	return detail[frame.args[1]]
end
return p