Module:ChartConstant

来自Rotaeno中文维基
Star0讨论 | 贡献2022年8月27日 (六) 00:05的版本

可在Module:ChartConstant/doc创建此模块的帮助文档

local p = {}
local songlist = mw.text.jsonDecode(mw.getCurrentFrame():expandTemplate{ title = 'Songlist.json' })
local songlistAppend = mw.text.jsonDecode(mw.getCurrentFrame():expandTemplate{ title = 'Songlist append.json' })
local trans = mw.text.jsonDecode(mw.getCurrentFrame():expandTemplate{ title = 'Template:Transition.json' })

local getArgs = require('Module:Arguments').getArgs

function getInfList()
	-- 返回一个数据表。
	local songlistE = {}
	local appendList = {} -- 记录在songlistAppend中存在的曲目,避免重复列举
	local ratingClass
	for _,songInf in ipairs(songlistAppend["songs"])
	do
		for _,diffInf in ipairs(songInf["difficulties"])
		do
			if diffInf["ratingClass"] ~= 0 and diffInf["ratingClass"] ~= 1
			then
				if diffInf["ratingReal"] == 2 then ratingClass = "难度III" else ratingClass = "难度IV" end
				table.insert(songlistE,{
					songInf["id"],
					songInf["title_localized"]["default"] ,
					ratingClass,
					diffInf["ratingReal"]
				})
			end
		end
		appendList[songInf["id"]] = true
	end

	
	for _,songInf in ipairs(songlist["songs"])
	do
		if songInf["difficulties"] and not(appendList[songInf["id"]])
		then
			for _,diffInf in ipairs(songInf["difficulties"])
			do
				if diffInf["ratingClass"] ~= 0 or diffInf["ratingClass"] ~= 1
				then
					if diffInf["ratingReal"] == 2 then ratingClass = "难度III" else ratingClass = "难度IV" end
					table.insert(songlistE,{
						songInf["id"],
						songInf["title_localized"]["default"] ,
						ratingClass,
						diffInf["ratingReal"]
					})
				end
			end
		end
	end
	return songlistE
end



function p.main(frame)
    local args = getArgs(frame)
    return p._main(args)
end

function p._main(args)
	local inf = getInfList()

	local listReplyA = {}
	for _,k in ipairs(inf)
	do
		if listReplyA[k[4]] == nil then listReplyA[k[4]] = {} end
		table.insert(listReplyA[k[4]], k)
	end

	local listReplyB = {}

	local tableC
    for s, k in pairs(listReplyA) do
		tableC = {}
		for _, m in pairs(k) do
			table.insert(tableC, mw.getCurrentFrame():expandTemplate { title = '组排单元', args = { m[2], m[1], m[3]} } )
		end
		table.insert(listReplyB, {s, tableC} )
    end
	tableC = nil

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

	local finText = "<div class='notaninfobox dstable'>\n"

	for _,k in pairs(listReplyB)
	do	
		
		finText = finText .. "<div class='ds'>"..string.format("%.1f", k[1]).."</div>\n"
		finText = finText .. "<div class='number'>"..mw.getCurrentFrame():expandTemplate { title = '组排列' }
				..table.concat(k[2])..mw.getCurrentFrame():expandTemplate { title = '组排列-end' }.."</div>\n"
	end
	
	finText = finText .. "</div>"


    return finText
end

return p