Module:ChartConstantDetail

来自Rotaeno中文维基
Star0讨论 | 贡献2022年8月28日 (日) 22:35的版本 (添加颜色)
(差异) ←上一版本 | 最后版本 (差异) | 下一版本→ (差异)

可在Module:ChartConstantDetail/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' })

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

	
	for _,songInf in ipairs(songlist["songs"])
	do
		if songInf["difficulties"] and not(appendList[songInf["id"]])
		then
			table.insert(songlistE,{
				songInf["id"],
				songInf["title_localized"]["default"],
				songInf["difficulties"][1]["ratingReal"],
				songInf["difficulties"][2]["ratingReal"],
				songInf["difficulties"][3]["ratingReal"],
				songInf["difficulties"][4]["ratingReal"]
			})
		end
	end
	return songlistE
end

function p.main(frame)
	local inf = getInfList()

	table.sort(inf, function(a, b) return a[6] > b[6] end)

	local outputTable = mw.html.create("table"):addClass("rotable"):addClass("sortable")
	outputTable:tag("tr"):tag("th"):wikitext("曲绘"):tag("th"):wikitext("曲目")
				:tag("th"):wikitext(frame:expandTemplate{ title = "Color", args = { "难度I", "难度I"} })
				:tag("th"):wikitext(frame:expandTemplate{ title = "Color", args = { "难度II", "难度II"} })
				:tag("th"):wikitext(frame:expandTemplate{ title = "Color", args = { "难度III", "难度III"} })
				:tag("th"):wikitext(frame:expandTemplate{ title = "Color", args = { "难度IV", "难度IV"} })

	for _,inf in ipairs(inf)
	do
		outputTable:tag("tr"):tag("td"):wikitext("[[File:Songs "..inf[1]..".png|40px]]")
					:tag("td"):wikitext("[["..inf[2].."]]")
					:tag("td"):wikitext(inf[3]):tag("td"):wikitext(inf[4])
					:tag("td"):wikitext(inf[5]):tag("td"):wikitext(inf[6])
	end


    return outputTable
end

return p