Module:Unlock

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

local mad = require 'Module:AnotherData'
local p = {}

local linkPool = {}
local mLink = {}
local mSong = {}
for _, song in ipairs(mad.listOf 'songs') do
  if not song.deleted then
    local link = mad.linkTitle(song)
    linkPool[link] = true
    mSong[song.id] = song
    mLink[song.id] = link
  end
end

function p.world(frame)
  local world = mw.title.new('世界模式地图详表 (移动版' .. frame.args[1] .. ')'):getContent()
  local res = {}
  for name, wtb in world:gmatch '== *([^B].-) *==[^={]+(%b{})' do
    local tot
    for stair, reward in wtb:gmatch '| *(%d+)[0-9()%-| ]+(%b[])' do
      if linkPool[reward:sub(3, -3)] then
        tot = tot or tonumber(wtb:match '| *(%d+)[^\n]+\n|%-\n| *总计') - 1
        table.insert(res, ('|-\n|%s||%s||%d/%d'):format(reward, name, tonumber(stair) - 1, tot))
      end
    end
  end
  return table.concat(res, '\n')
end

local templates = {
  [104] = '<small><i>Axiom</i></small>',
  [105] = '<small><i>Eternity</i></small>',
  [106] = '<small><i>Moment</i></small>',
  [107] = '<small><i>Magnolia</i></small>',
  [108] = '连接她们的故事（15-6｜16-6）',
  [110] = '<small><i>Course</i></small>',
  [111] = '阅读剧情【18-6】',
  [112] = '得到你所渴求的',
}
local handlers = {}

function templates.t0(c) return ('%s 残片'):format(c.credit) end
function templates.t1(c)
  return c.grade <= 0
      and ('通关 %s [%s]'):format(handlers.song_id(c.song_id), handlers.difficulty(c.song_difficulty))
      or ('以 「%s」 或以上成绩通关 %s [%s]'):format(handlers.grade(c.grade), handlers.song_id(c.song_id), handlers.difficulty(c.song_difficulty))
end
function templates.t2(c) return ('游玩 %s [%s]'):format(handlers.song_id(c.song_id), handlers.difficulty(c.song_difficulty)) end
function templates.t3(c) return templates.t1(c) .. (' %s回'):format(c.times) end
function templates.t4(c) return ('%s<br><b>或</b> %s'):format(handlers.stringify(c.conditions[1]), handlers.stringify(c.conditions[2])) end
function templates.t5(c) return ('个人游玩潜力值 %s 或以上'):format(handlers.rating(c.rating)) end
function templates.t6(c)
  return c.grade <= 0
      and ('通关%s首%s%s难度曲目'):format(c.count, c.rating, handlers.ratingPlus(c.ratingPlus))
      or ('以「%s」或更高的成绩通关%s次难度%s%s的曲目'):format(handlers.grade(c.grade), c.count, c.rating, handlers.ratingPlus(c.ratingPlus))
end
function templates.t7(c) return ('解锁%s [%s]'):format(handlers.song_id(c.song_id), handlers.difficulty(c.song_difficulty)) end
function templates.t8(c) return ('FULL RECALL通关%s [%s]'):format(handlers.song_id(c.song_id), handlers.difficulty(c.song_difficulty)) end
function templates.t9(c)
  return c.grade <= 0
      and ('通关%s次%s曲目'):format(c.count, handlers.difficulty(c.difficulty))
      or ('以「%s」或更高的成绩通关%s次%s曲目'):format(handlers.grade(c.grade), c.count, handlers.difficulty(c.difficulty))
end
function templates.t10(c) return ('阅读剧情【%s-%s】'):format(c.major, c.minor) end
function templates.t101(c) return ('<small><i>Gauge:%s%%-%s%%</i></small>'):format(c.min, c.max) end
function templates.t103(c) return ('选择搭档「[[%s]]」'):format(handlers.id(c.id)) end
function templates.t109(c) return ('于%s%s上刻下真名'):format(handlers.index(c.index), handlers.difficulty(c.difficulty)) end

function handlers.song_id(v) return ('[[%s]]'):format(mLink[v]) end
function handlers.difficulty(v) return ({[0] = 'PST', 'PRS', 'FTR', 'BYD', 'ETR'})[v] end
function handlers.grade(v) return ({'C', 'B', 'A', 'AA', 'EX', 'EX+'})[v] end
function handlers.rating(v) return ('%.2f'):format(v / 100) end
function handlers.ratingPlus(v) return v and '+' or '' end
function handlers.id(v) return ({[45] = '拉格兰', [71] = '摩耶'})[v] end
function handlers.index(v) return ({[0] = '[T]ec[h]nicolour', 'UNKNOW[N] LEVEL[S]', 'E[g]o E[i]m[i]'})[v] end
local function stringify(cond)
  local template = templates['t' .. cond.type]
  if type(template) == 'function' then return template(cond) end
  template = templates[cond.type]
  if type(template) == 'string' then return template end
  return ('不支持的解锁类型号：' .. cond.type)
end
function handlers.stringify(v) return stringify(v) end

local function createView()
  local res = {}
  for _, chartUlk in ipairs(mad.listOf 'unlocks') do
    local id = chartUlk.songId
    local song = res[id]
    if not song then
      song = {group = mSong[id].set, link = mLink[id]}
      res[id] = song
    end
    local chart = {ratingClass = chartUlk.ratingClass}
    table.insert(song, chart)
    for _, cond in ipairs(chartUlk.conditions) do table.insert(chart, stringify(cond)) end
  end
  return res
end

local function createText(view)
  local sectionCode = {unknown = 0, single = 1, free = 2, mainstory2 = 4, mainstory = 3, sidestory = 5, collab = 6}
  local uis = {}
  for id, row in pairs(view) do
    local packItem = mad.packQueryWrap(row.group)
    table.insert(uis, {id = id, name = packItem['name'], sectionCode[packItem['section']], packItem['numero'], mSong[id].date})
  end
  table.sort(uis, function(a, b)
    for i = 1, 3 do
      local d = a[i] - b[i]
      if d ~= 0 then return d < 0 end
    end
    return false
  end)
  local classes = {
    [0] = {'PAST', 'text-pst'},
    {'PRESENT', 'text-prs'},
    {'FUTURE',  'text-ftr'},
    {'BEYOND',  'text-byd'},
    {'ETERNAL', 'text-etr'},
  }
  local function chart(cursor, o)
    local text, class = unpack(classes[o.ratingClass])
    cursor:tag 'dt':addClass(class):wikitext(text)
    for _, i in ipairs(o) do cursor:tag 'dd':wikitext(i) end
  end
  local function song(cursor, o)
    local ch = cursor:tag 'tr'
        :tag 'td':css('text-align', 'center'):wikitext('[[', o.link, ']]'):done()
        :tag 'td':tag 'dl':css('column-count', #o)
    for _, i in ipairs(o) do chart(ch, i) end
  end
  local pack
  local res = mw.html.create 'table':addClass 'wikitable mw-collapsible mw-collapsed'
      :tag 'tr'
      :tag 'th':wikitext '曲目':done()
      :tag 'th':wikitext '解锁条件':done()
      :done()
  for _, value in ipairs(uis) do
    if pack ~= value.name then
      pack = value.name
      res:tag 'tr':tag 'th':attr('colspan', '2'):wikitext(pack)
    end
    song(res, view[value.id])
  end
  return res
end
function p.detail()
  return tostring(createText(createView()))
end

return p