Module:沙盒/盐棋/Sandbox
可在Module:沙盒/盐棋/Sandbox/doc创建此模块的帮助文档
local getArgs = require 'Module:Arguments'.getArgs
-- local link = require 'Module:Link'._link
local mad = require 'Module:AnotherData'
local lang = mw.language.getContentLanguage()
local p = {}
local bgLinkF = '[[:分类:采用%s背景的曲目|%s]]'
local bgCatF = '采用%s背景的曲目'
local function array(...) return setmetatable({...}, {__index = table}) end
local function onlySupScript(s) return mw.getCurrentFrame().expandTemplate {title = '仅', args = {s, '', '图片角标'}} end
local function vdValidation(v, d) return v and d and {v, d} end
local function labelText(text) return mw.html.create 'span':addClass 'bg-c':wikitext(text) end
local br = mw.html.create 'br'
local function dateCov(dateBox, data, plat)
if not data then return end
local version, date = unpack(data)
dateBox:tag 'div':node(labelText(plat)):done()
:tag 'div':wikitext(version):node(br):wikitext('(', date, ')'):done()
end
local function span(len) if len > 1 then return 'span-' .. len end end
-- .container
-- .img-tab#tab-a
-- .img-tab-part.{cls} * n
-- {text}
-- .tab-text-a.active? * n
-- {file}[画师]{jacket}
---@param view table<integer,table<integer,string>>
---@param activeIdx integer?
---@return table
local function createContainer(view, activeIdx)
activeIdx = activeIdx or 1
local container = mw.html.create 'div':addClass 'container'
local tab = container:tag 'div':addClass 'img-tab':attr('id', 'tab-a')
for _, v in ipairs(view) do
local text, cls = v[1], v[2] or 'normal'
tab:tag 'div':wikitext(text):addClass 'img-tab-part':addClass(cls):done()
end
for idx, v in ipairs(view) do
local file, jacket = v[3], v[4]
container
:tag 'div':addClass 'tab-text-a':addClass(idx == activeIdx and 'active' or nil)
:wikitext('[[文件:', file, '|', 256, 'px|none]]')
:node(labelText '画师')
:wikitext(jacket)
:done()
end
return container
end
local function getImage(args, song)
local id = song and song.id
local argPic = args['图片'] or args['曲绘']
local argArtist = args['画师']
if args['Beyond画师'] then
return createContainer {
{'Normal', nil, argPic, argArtist},
{'Beyond', 'byd', args['Beyond曲绘'], args['Beyond画师']},
}
end
return mw.html.create 'div'
:wikitext('[[文件:', id and ('Songs ' .. id .. '.jpg') or argPic, '|', 256, 'px|none]]')
:node(labelText '画师')
:wikitext(argArtist)
end
local function tabCustom(args)
local i = 1
local res = array()
while args['tab' .. i] do
res:insert {mw.ustring.match(args['tab' .. i], '([^/]*)/([^/]*)/([^/]*)/(.*)')}
i = i + 1
end
return res, args['默认图片序号']
end
local function merge(charts, field)
local res = array()
local cur, len = charts[1][field], 1
for _, c in ipairs {}, charts, 1 do
local e = c[field]
if e == cur then
len = len + 1
else
res:insert {cur, len}
cur = e
len = 1
end
end
res:insert {cur, len}
return res
end
local function getSet(sm, sns)
--% 要求名字相同
local qm, qns = mad.packQueryWrap(sm and sm.set, 'mobile'), mad.packQueryWrap(sns and sns.set, 'ns')
local namem, namens = qm.section ~= 'unknown' and qm.name or nil, qns.section ~= 'unknown' and qns.name or nil
local name = namem or namens
if not name then return nil end
local res = {name}
if namens and namens ~= name then table.insert(res, namens .. onlySupScript 'NS版') end
if #res > 1 then res[1] = res[1] .. onlySupScript '移动版' end
return table.concat(res, '<br>')
end
-- TODO:displaytitle lowercase
local function getById(list, id)
for _, k in ipairs(list) do if k.id == id then return k end end
end
local function getByTitle(list, title)
for _, k in ipairs(list) do if k.title_localized.en == title then return k end end
end
local function auto(args)
local category = {}
local function addCategory(item)
table.insert(category, '[[分类:' .. item .. ']]')
end
local notice = {}
--% "曲名"必存在，"id"必非空串
local songKey, getDatum = args['id'], getById
if not songKey then songKey, getDatum = mw.text.decode(args['曲名']), getByTitle end
local lm, lns
if args['愚人节'] then
lm, lns = mad.listOfReserve(), array()
elseif songKey == 'Last' then
lm, lns = mad.listOfReserve(), mad.listOfReserve()
else
lm, lns = mad.listOf('songs', 'mobile'), mad.listOf('songs', 'ns')
end
local sm, sns = getDatum(lm, songKey), getDatum(lns, songKey)
--% 可能平台不一致
local set = args['曲包'] or getSet(sm, sns)
local platCode = (sm and 1 or 0) + (sns and 2 or 0)
local song = sm or sns
if not (sns and sns ~= song) then sns = {difficulties = array()} end
if not song then
notice.data = true
song = mad.listOfReserve()[1]
song.title_localized.en = songKey
end
local box = mw.html.create 'div':addClass 'infotable'
local header = box:tag 'div':addClass 'header bg-c':wikitext(song.title_localized.en)
if song.title_localized.ja then header:node(br):node 'span':attr {lang = 'ja'}:wikitext(song.title_localized.ja) end
if song.title_localized['zh-Hans'] then header:node(br):wikitext(song.title_localized['zh-Hans']) end
box:tag 'div':addClass 'figure':node(args['tab1'] and createContainer(tabCustom(args)) or getImage(args, song))
--% :create''
local main = box:tag 'div':addClass 'main'
addCategory(({'移动版曲目', 'NS版曲目', '双平台曲目'})[platCode])
local sideCode = (tonumber(args['侧']) or song.side) + 1
box:addClass(({'light', 'conflict', 'colorless'})[sideCode])
addCategory(({'光芒侧曲目', '纷争侧曲目', '消色侧曲目'})[sideCode])
local colTags = array()
for idx, diff in ipairs(song.difficulties) do
colTags[idx] = diff['@tag'] or ({[0] = 'Past', 'Present', 'Future', 'Beyond', 'Eternal'})[diff.ratingClass]
end
main:addClass('repeat-' .. #colTags)
local artist = args['编曲'] or args['曲师'] or song.artist
if not set then notice.pack = true end
-- addCategory %set曲包曲目
local duration = args['时长']
if not duration then notice.duration = true end
local bpm = args['BPM'] or song.bpm
main:tag 'div':addClass 'gc-1 bg-c f-m':wikitext '曲目信息'
for _, v in ipairs {{'曲师', artist}, {'曲包', set}, {'时长', duration}, {'BPM', bpm},} do
local tag, data = unpack(v)
main:tag 'div':addClass 'bg-c':wikitext(tag):done()
:tag 'div':addClass 'gc-2':wikitext(data)
end
local bg = args['背景'] or song.bg
if bg then addCategory(bgCatF:format(bg)) end
local vd = vdValidation(args['更新版本'], args['更新时间'])
if not vd then notice.vd = true end
local vdNS
if sns.id then
vdNS = vdValidation(args['更新版本NS'], args['更新时间NS'])
if not vdNS then notice.vd = true end
end
local charts = array()
--% 假定ns难度序列是主难度序列的前缀
for idx, tag in ipairs(colTags) do
local chart = {}
charts:insert(chart)
local diff = song.difficulties[idx]
local class = ({[0] = 'PST', 'PRS', 'FTR', 'BYD', 'ETR'})[diff.ratingClass]
local function chartBasic(df, vd_, s)
chart['rating' .. s] = args[tag .. '等级' .. s] or (df.rating .. (df.ratingPlus and '+' or ''))
chart['note' .. s] = args[tag .. 'Note' .. s]
chart['vdOverride' .. s] = vdValidation(args[tag .. '更新版本' .. s], args[tag .. '更新时间' .. s])
if df.date and not chart['vdOverride' .. s] then notice.vd = true end
chart['vdOverride' .. s] = chart['vdOverride' .. s] or vd_
end
chartBasic(diff, vd, '')
if not chart.note then notice.note = true end
chart.display = ('<span class="text-%s">[%s]</span>'):format(lang:lc(class), tag)
addCategory(class .. chart.rating .. '级曲目')
chart.designer = args[tag .. 'Note编写'] or args['note编写'] or diff.chartDesigner
chart.bgOverride = args[tag .. '背景'] or diff.bg
if chart.bgOverride then addCategory(bgCatF:format(chart.bgOverride)) end
chart.bgOverride = chart.bgOverride or bg
if diff.title_localized then header:node(br):wikitext(diff.title_localized.en, ' ', chart.display) end
local diffNS = sns.difficulties[idx]
if diffNS then
-- 仅移动版
chartBasic(diffNS, vdNS, 'NS')
if diffNS.has_controller_alt_chart then
notice.alt = true
if not chart.noteNS then notice.note = true end
end
end
end
main:tag 'div':addClass 'gc-1 bg-c f-m':wikitext '谱面信息'
main:tag 'div':addClass 'bg-c':wikitext '难度'
for _, c in ipairs(charts) do
main:tag 'div':wikitext(c.display)
end
main:tag 'div':addClass 'bg-c':wikitext '等级'
for _, c in ipairs(charts) do
main:tag 'div':wikitext(c.rating)
end
main:tag 'div':addClass 'bg-c':wikitext 'note数量'
for _, c in ipairs(charts) do
main:tag 'div':wikitext(c.note)
end
main:tag 'div':addClass 'bg-c':wikitext '谱面设计'
for _, tp in ipairs(merge(charts, 'designer')) do
local data, len = unpack(tp)
main:tag 'div':addClass(span(len)):wikitext(data)
end
if platCode == 3 then
main:tag 'div':addClass 'bg-c':wikitext '等级NS'
for _, c in ipairs(charts) do
main:tag 'div':wikitext(c.ratingNS)
end
end
if notice.alt then
addCategory '多模式谱面有差异的曲目'
main:tag 'div':addClass 'bg-c':wikitext 'note数量<br>(Joy-Con)'
for _, c in ipairs(charts) do
main:tag 'div':wikitext(c.noteNS)
end
end
main:tag 'div':addClass 'bg-c':wikitext '背景'
for _, tp in ipairs(merge(charts, 'bgOverride')) do
local data, len = unpack(tp)
main:tag 'div':addClass(span(len)):wikitext(data and bgLinkF:format(data, data))
end
main:tag 'div':addClass 'bg-c':css(platCode == 3 and {['grid-row'] = 'span 2'} or {}):wikitext '更新时间'
for _, tp in ipairs(merge(charts, 'vdOverride')) do
local data, len = unpack(tp)
dateCov(main:tag 'div':addClass(span(len)), data, '移动版')
end
if platCode == 3 then
for _, tp in ipairs(merge(charts, 'vdOverrideNS')) do
local data, len = unpack(tp)
dateCov(main:tag 'div':addClass(span(len)), data, 'NS版')
end
end
local noticeText = ''
for _, v in ipairs {
{'data', '在Songlist中无法检查到此曲目。请尝试更新[[模板:Songlist]]，检查页面名或填写正确的<code>曲名</code>参数。'},
{'duration', '此模板缺少<code>时长</code>参数，此参数无法自动读取。'},
{'pack', '未更新Packlist。曲目信息模板无法进行曲包分类。'},
{'vd', '此模板的更新版本是未完整状态。请添加<code>更新版本</code>与<code>更新时间</code>参数。'},
{'note', '此模板缺少某种<code>Note</code>参数，此参数无法自动读取。'},
} do
local msg, text = unpack(v)
if notice[msg] then noticeText = noticeText .. text end
end
if noticeText ~= '' then
noticeText = mw.getCurrentFrame():expandTemplate {title = 'Collapse', args = {['标题'] = '曲目信息模板提示信息', ['状态'] = '折叠',
['标题文字方向'] = 'center', ['标题颜色'] = '#dddddd',
['内容颜色'] = '#eeeeee', ['内容样式'] = 'width:800px',
['style'] = 'display:table;width:200px', ['class'] = 'nomobile',
['内容'] = noticeText}}
category:add '缺少参数的曲目信息模板'
end
return tostring(box) .. noticeText .. (args['nocat'] and '' or table.concat(category))
-- .. tostring(mw.html.create 'pre':wikitext(mw.dumpObject(charts)))
end
-- p.dateCov = dateCov
function p.main(frame)
local args = getArgs(frame)
return auto(args)
end
return p