Module:沙盒/盐棋/Sandbox

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

local p = {}
local stream = require "Module:stream"
function opt(format, value, default)
	default = default or ""
	return value and format:format(tostring(value)) or default
end
function p.entry(info)
	if not string.find(info.duration, ":") then
		info.duration = mw.language.getContentLanguage():formatDate("i:s", "@" .. math.floor(tonumber(info.duration)))
	end
	for i = 1, 4 do info.ratings[i] = opt("%s", info.ratings[i], "/") end
	return ("|-\n|%s||[[文件:Songs %s.jpg|75px]]||%s||%s||%s||%s||%s||%s"):format(
		table.concat(info.plat), info.id,
		"[[" .. info.title .. "]]" .. opt('<br /><span lang="ja">-{%s}-</span>', info.title2),
		info.artist, info.pack,
		opt("data-sort-value=%s|", info.bpm_base) .. info.bpm,
		info.duration, table.concat(info.ratings, "||")
	)
end

function p.main(frame)
	local slstIdx = mw.loadData "Module:songlist index".slstIdx
	local plst = mw.loadData "Module:packlist index"
	local durs = mw.text.jsonDecode(mw.title.new "Template:duration.json":getContent())
	return table.concat(stream.Array(mw.loadData "Module:songlist index".slst)
		:filter(function(v) return v.id ~= "lasteternity" end)
		:map(function(song) return {
				plat = { "[[文件:Icon Smartphone.png|16px|link=曲目列表 (移动版)]]" }, id = song.id,
				title = slstIdx[song.id].title, title2 = song.title_localized.ja or song.title_localized["zh-Hans"],
				artist = '<span lang="ja">-{' .. song.artist .. "}-</span>", pack = plst[song.set],
				bpm = song.bpm, bpm_base = tonumber(song.bpm) ~= song.bpm_base and song.bpm_base or nil,
				duration = durs[song.id] or 0,
				ratings = stream.Array(song.difficulties):map(function(v) return v.rating .. opt("+", v.ratingPlus) end):toArray(),
				date = song.date
			}
		end)
		:sorted(function(a, b)
			local d = math.abs(a.pack.idx) - math.abs(b.pack.idx)
			if d ~= 0 then return d < 0 else return a.date < b.date end
		end)
		:map(function(song)
			song.pack = "[[" .. song.pack.name .. "]]"
			local ride = frame.args[song.id]
			if ride then for k, v in pairs(mw.text.jsonDecode(ride)) do song[k] = v end end
			local succ, res = pcall(p.entry, song)
			if succ then return res else return "" end
		end):toArray(), "\n")
end
return p