Module:沙盒/在咕咕咕的咕子/Sandbox1

可在Module:沙盒/在咕咕咕的咕子/Sandbox1/doc创建此模块的帮助文档

p={}
local DL = mw.loadJsonData 'Template:DesignersList.json'
local multiId = mw.loadJsonData 'Template:Transition.json'.multiId
local trans = mw.loadJsonData 'Template:Transition.json'

local mad = require 'Module:AnotherData'
local data = require "Module:Arcaea Data"
local CL = require 'Module:ConvertLink'

local CDL = DL.complex
local SDL = DL.simple
local specialSong = DL.special

local queryMO = data.allSongInformation("id", "mobile")
local queryNS = data.allSongInformation("id", "ns")
local diffList = {'PST', 'PRS', 'FTR', 'BYD', 'ETR'}
local diffNameList = {PST='Past', PRS='Present', FTR='Future', BYD='Beyond', ETR='Eternal'}
local bydAppend = {[284]='last'}

local songDiffDesigner={}
local specialDesigner ={}
local LinkedDesignerMemory={['/']='/'}
local bydAppendInfo={}

local function linkDesigner(designer, songid)
	if LinkedDesignerMemory[designer] then return LinkedDesignerMemory[designer] end
	local Linked = CL.designerLink(designer, songid)
	LinkedDesignerMemory[designer] = Linked
	return Linked
end

local function readList(appendList)
	local pickList = {}
    local mobileList = {}
    local listMO = mad.listOf('songs', 'mobile')
	
	local function write(songid, songDiffList)
		songDiffDesigner[songid]={}
		local num, sameCount = 0,0
		local lastDesigner = nil
		for _,level in ipairs(songDiffList) do
			local diff = diffList[level.ratingClass+1]
			local designer = level.chartDesigner
			num=num+1
			if lastDesigner ~= designer then
				sameCount = 0
				if not pickList[designer] then
					pickList[designer] = {}
				end
				if not pickList[designer][songid] then
					pickList[designer][songid] = {}
				end
				pickList[designer][songid][diff]=true
				mobileList[songid]=true
				table.insert(songDiffDesigner[songid], {diff, linkDesigner(designer, songid)})
				if specialSong[songid] then
					specialDesigner[designer]=true
				end
				lastDesigner=designer
			else
				sameCount=sameCount+1
				table.insert(songDiffDesigner[songid], {diff, nil})
				-- if songDiffDesigner[songid][num-sameCount] then
					songDiffDesigner[songid][num-sameCount][3]=sameCount+1
				-- end
				-- songDiffDesigner[songid][num][3]=sameCount+1
			end
    	end
	end
    
    for index, id in pairs(bydAppend) do
		bydAppendInfo[id] = listMO[index].difficulties[4]
		bydAppendInfo[id].id=listMO[index].id
	end
    
    for index, song in ipairs(listMO) do
    	local songid = song.id
    	local songDiffList = song.difficulties
    	if bydAppendInfo[songid] then table.insert(songDiffList,bydAppendInfo[songid]) end
    	if not bydAppend[index] then
    		write(songid, songDiffList)
    	end
    end
    
 --   有独占ns曲目再启用
 --   for index, song in ipairs(listNS) do
	-- 	local songid = song.id
	-- 	local songDiffList = song.difficulties
	-- 	if not mobileList.songid then
	-- 		write(songid, songDiffList)
	-- 	end
	-- end
    
	for songid, songDiffList in pairs(appendList) do
    	write(songid, songDiffList)
    end
	return pickList
end

local function genList(pickList)
	local function cate(singleList, cArtist, artist)
		local artist = artist or cArtist
		if not singleList[artist] then singleList[artist] = {} end
        for id,diff in pairs(pickList[cArtist]) do
        	singleList[artist][id]=diff
        end
        return singleList
	end
	
    local singleList = {}
    for cDesigner,songids in pairs(pickList) do
    	local designerList={}
        if CDL[cDesigner] then
			if CDL[cDesigner].__FullData__ then
				for _,text in pairs(CDL[cDesigner].__FullData__) do
					if text.link then
	                    local designer = text['link']
						if not designerList[designer] then
							singleList = cate(singleList, cDesigner, designer)
							designerList[designer]=true
						end
					end
				end
			else
				for link in pairs(CDL[cDesigner]) do
                    local designer = link
					if not designerList[designer] then
						singleList = cate(singleList, cDesigner, designer)
						designerList[designer]=true
					end
				end
			end
        else
        	local temp_text = cDesigner
        	local count = 0
        	for _,data in ipairs(SDL) do
				local designer = data.link
				local dis = data.display
				if string.find(temp_text, dis) then
					singleList = cate(singleList, cDesigner, designer)
					designerList[designer]=true
					temp_text = string.gsub(temp_text, dis, '')
					count = count + 1
				end
			end
			if count == 0 then
				if specialDesigner[cDesigner] then
					singleList = cate(singleList, cDesigner, '与主线剧情相关的特殊名义')
				else
					singleList = cate(singleList, cDesigner, '其他未确认谱师名义')
				end
			end
        end
	end
    return singleList
end

-- Function to convert table to string
-- local function t2s(tbl, indent)
--     indent = indent or 0
--     local toPrint = string.rep(" ", indent) .. "{\n"
    
--     for k, v in pairs(tbl) do
--         local keyString = tostring(k)
--         local valueString

--         if type(v) == "table" then
--             valueString = t2s(v, indent + 2)
--         else
--             valueString = tostring(v)
--         end

--         toPrint = toPrint .. string.rep(" ", indent + 2) .. "[" .. keyString .. "] = " .. valueString .. ",\n"
--     end

--     toPrint = toPrint .. string.rep(" ", indent) .. "}"
--     return toPrint
-- end

local function songTitle(id,byd)
	local display
	local title = queryMO(id, 'title') or queryNS(id, 'title')
	if byd then
		display = queryMO(id, 'bydSongName')
		-- 如果有新的ns独占byd曲目再使用
		-- display = queryMO(id, 'bydSongName') or queryNS(id, 'bydSongName') or 'cant find BYD'
		if not display then
			return nil
		end
	else 
		display = title
	end
	local res = trans.songNameToDisplayName[title]
	if res then return res..'|'..display end
	res = trans.sameName[title]
	if res then return res[id]..'|'..display end
	if title then return title..'|'..display
	else return nil end
end

local function songPack(id)
	local packid,plat,isNS
	-- if queryNS(id, 'set') then
	-- 	packid = queryNS(id, 'set')
	-- 	plat = 'ns'
	-- 	isNS = 1
	if queryMO(id, 'set') then
		packid = queryMO(id, 'set')
	else
		return nil
	end
	local packName = trans.packName[packid] or mad.packQueryWrap(packid, plat).name
	local packLink = CL.packLink(packName,1,isNS)
	return packLink
end

local head = '\n{| class="wikitable" border="1" cellspacing="1" cellpadding="5" style="text-align:center" width="100%"\n'
head = head .. '! width="20%" style="position:-webkit-sticky;position:sticky;top:0px;" |曲名 \n'
head = head .. '! width="20%" style="position:-webkit-sticky;position:sticky;top:0px;" |所属曲包 \n'
head = head .. '! colspan="2" width="40%" style="position:-webkit-sticky;position:sticky;top:0px;" |谱师名义 \n'
head = head .. '! width="20%" style="position:-webkit-sticky;position:sticky;top:0px;" |备注 \n'

local ratingSortMemory ={}
local function ratingSort(rating)
	local findInMemory = ratingSortMemory[rating]
	if findInMemory then return findInMemory end
	local num
	if string.find(rating, '+') then
		num = tonumber(string.match(rating,'%d+'))*2 +1
	else
		num = tonumber(rating)*2
	end
	ratingSortMemory[rating] = num
	return num
end


function p.main(frame)
	
	local parentArgs = frame:getParent().args
	local Args = frame.args
	
	local function getOrder(name)
		local orderArg = Args[name]
		if orderArg then return mw.text.split(orderArg,'\n') end
	end
	
	local function getDescription(title)
		return parentArgs[title .. '.description'] or ''
	end
	
	local function getText(dasigner, songid)
		local argName = dasigner..'.'..songid .. '.text'
		return parentArgs[argName] or '<span title="'.. argName .. '">' .. '-'..'</span>'
	end
	
	local function color(diff,theText)
		theText = theText or (diffNameList[diff] or '?')
		return frame:expandTemplate{ title = "color", args = {diff, theText} }
	end
	
	local append = Args['appendList']
	local appendList = {}
	if append then
		local list = mw.text.split(append,'\n')
		for _,id in pairs(list) do
			appendList[id] = {}
			local designerList = {}
			for i=0,4 do
				local diffDesigner = Args[id .. '.'.. i ..'.designer']
				if diffDesigner then
					table.insert(designerList,{ratingClass = i, chartDesigner = diffDesigner})
					-- chartDesigner ratingClass
				end
			end
			-- appendList[id].pack = Args[id .. '.pack']
			appendList[id] = designerList
		end
	end
	
	local pickList = readList(appendList)
	local singleList = genList(pickList)

	local function songUnit(songid,text)
		if not songDiffDesigner[songid] then return '' end
	    local data = songDiffDesigner[songid]
	    local name =  songTitle(songid) or Args[songid .. '.title'] or '???'
	    local nameBYD = {songTitle(songid,true)}
	    table.insert(nameBYD, bydAppendInfo[songid] and songTitle(bydAppendInfo[songid].id))
	    local pack = songPack(songid) or Args[songid .. '.pack'] or '/'
	    if data[1][3] and data[1][3]==3 and #data==3 then
	    	local PST_PRS_FTR = color(diffList[1],'全')..color(diffList[2],'难')..color(diffList[3],'度')
	    	-- local PST_PRS_FTR = '全难度'
	    	local style = '|style="height: 35px"'
	    	return '|-\n'.. style ..'|[['..name..']]||'..pack..'||'..PST_PRS_FTR..'||'..data[1][2]..'\n|'..text..'\n|-\n'
	    end
	    local row = #data
	    local wikiText = ''
	    local rowspanSong = nameBYD and ('|rowspan='.. row-#nameBYD ..'|') or ('|rowspan='.. #data ..'|')
	    local rowspan ='|rowspan='.. row ..'|'
	    wikiText = wikiText .. '|-\n'..rowspanSong ..'[['..name..']]'..'\n'
	    wikiText = wikiText .. rowspan ..pack ..'\n'
	    local j = 1
	    local style='|style="height: 15px" width="10%"'
	    for num, i in ipairs(data) do
	    	wikiText = wikiText ..style
	    	if nameBYD[1] and i[1] == 'BYD' then
	    		wikiText = wikiText ..'|'..'[['..(nameBYD[1] or '')..']]'..'\n'
	    		-- j = j + 1
	    	end
	    	local diffFormat = '| '..(i[1] and color(i[1]) or '')
	    	local designerFormat = i[3] and '||rowspan='.. i[3] ..'|' ..i[2]  or (i[2] and '||'..i[2] or '')
	        wikiText = wikiText .. diffFormat ..designerFormat..'\n'
	    	wikiText = wikiText .. (num == 1 and rowspan .. (text or '')..'\n' or '')
	    	wikiText = wikiText ..'\n|-\n'
	    end
	    return wikiText
	end
	
	local function cateText(cate, titelStr, formatJa)
		local theText = ''
		local sectionCode = {unknown = 100, free = 1, archive = 2, mainstory = 3, sidestory = 4, collab = 5, single = 6}
		function sort_fun(a, b)
			a, b = a.sort, b.sort
			for i = 1, 3 do
				local d = a[i] - b[i]
				if d ~= 0 then return d < 0 end
			end
			return a[4]<b[4]
		end
		local function getSongSort(songs)
			local songSort = {}
			for songid, diff in pairs(songs) do
				local packItem = mad.packQueryWrap(queryMO(songid, 'set'), 'mobile')
				local sortLevel = ratingSort(queryMO(songid, 'ftrRating') or 0)
				table.insert(songSort, {
					id=songid,
					sort={
						sectionCode[packItem['section']], 
						packItem['numero'] or Args[songid..'.sortNum'] or 0, 
						sortLevel, 
						songid
						
					}})
			end
			table.sort(songSort, sort_fun)
			return songSort
		end
		local function writeText(designer, songs)
			local songSort = getSongSort(songs)
			local designerTitle = designer
			if formatJa and mw.ustring.match(designer,'[一-龠ぁ-ゔァ-ヴー々〆〤ヶ]+') then
				designerTitle = '<span lang="ja">' .. designer .. '</span>'
			end
			theText = theText .."\n"..titelStr.. designerTitle ..titelStr.."\n"
			theText = theText .. getDescription(designer)
			theText = theText .. head
			for _,data in ipairs(songSort) do
				local songid = data.id
				local text = getText(designer, songid)
				theText = theText .. songUnit(songid,text)
			end
			theText = theText .. '|}'
		end
		
		if cate then
			for _,designer in ipairs(cate) do
				local songs = singleList[designer] or {}
				writeText(designer, songs)
				singleList[designer]=nil
			end
		else
			for designer,songs in pairs(singleList) do
				writeText(designer, songs)
				singleList[designer]=nil
			end
		end
		return theText
	end

	local common = getOrder("common")
	local commonText = cateText(common, '==')
	
	local rare = getOrder("rare")
	local rareTitle = '非常驻谱师'
	local rareSpanid = '\n<span id="已确认的其他谱师名义及相关曲目名单" />'
	local rareText = rareSpanid.. '\n=='.. rareTitle .. '==\n' .. getDescription(rareTitle)
	rareText = rareText .. cateText(rare, '===')
	
	local uncommonTitle = '未确认谱师'
	local uncommonSpanid = '\n<span id="未采用常驻谱师名义的曲目名单及所用名义" />'
	local uncommonText = uncommonSpanid..'\n=='.. uncommonTitle .. '==\n' .. getDescription(uncommonTitle)
	local headText = cateText(getOrder("uncommon_head"), '===', true)
	local endText = cateText(getOrder("uncommon_end"), '===')
	uncommonText = uncommonText..headText..cateText(nil, '===')..endText

	return commonText..rareText..uncommonText
	-- return tableToString(appendList) ..'\n'..commonText..rareText..uncommonText
end

return p