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