Module:Memory Archive

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

local mad = require 'Module:AnotherData'
local songlist = mad.listOf 'songs'
local songlistNS = mad.listOf('songs','ns')

local dot='{{·}}'
function expand(t)
	local res=''
	for i,v in ipairs(t) do
		if i~=1 then
			res = res .. dot
		end
		res = res .. '[[' .. mad.linkTitle(v) .. ']]'
	end
	return res
end

local p={}
function p.main()
	local categories = {'poprec', 'partner', 'original', 'variety', 'musicgames'}
	local getCategory={}
	for i=1,5 do
		getCategory[categories[i]]=i
	end
	
	local songs={}
	for i=1,5 do
		songs[i]={both={}, mobile={}, ns={}}
	end
	
	local nsId={}
	local mobileId={}
	for i,v in ipairs(songlistNS) do
		if string.sub(v.set,1,6)=='single' then -- 处理 single_append_X
			nsId[v.id]=1
		end
	end
	for i,v in ipairs(songlist) do
		if v.set=='single' then
			mobileId[v.id]=1
			local cate=getCategory[v.category]
			if nsId[v.id] then
				songs[cate].both[#songs[cate].both+1]=v
			else
				songs[cate].mobile[#songs[cate].mobile+1]=v
			end
		end
	end
	for i,v in ipairs(songlistNS) do
		if string.sub(v.set,1,6)=='single' then
			if not mobileId[v.id] then
				-- 硬编码 gengaozo
				songs[4].ns[#songs[4].ns+1]=v
			end
		end
	end
	
	local categoryNames = {'流行/推荐', '搭档', '原创', '综合', '音乐游戏'}
	local final='{{曲目索引|曲包=[[Memory Archive]]|曲包封面=[[文件:Pack single.png|75px]]|name=Memory Archive曲目索引|color=#84daff'
	for i=1,5 do
		local list=''
		local first=true
		if #songs[i].both ~= 0 then
			if not first then list = list .. dot end
			list = list .. expand(songs[i].both)
			first=false
		end
		if #songs[i].mobile ~= 0 then
			if not first then list = list .. dot end
			list = list .. '{{仅|移动版|' .. expand(songs[i].mobile) .. '}}'
			first=false
		end
		if #songs[i].ns ~= 0 then
			if not first then list = list .. dot end
			list = list .. '{{仅|NS版|' .. expand(songs[i].ns) .. '}}'
			first=false
		end
		final = final .. '|group' .. i .. '=' .. categoryNames[i]
		final = final .. '|list' .. i .. '=' .. list
	end
	return final .. '}}'
end
return p