查看“Module:Songtable”的源代码

--autoimage未完成
local p = {}

function Mergecheck(ta,tb,tc,td)
	--输入4个值，检查合并关系
	--输出一个带两个值的table，分别为合并后的块数和一个带有“第几块向右合并几块“的table

	local pst=tostring(ta)
	local prs=tostring(tb)
	local ftr=tostring(tc)
	local byd=tostring(td)
	local blocksnum=nil --合并后有多少块
	local mergenum={1,1,1,1} --在哪块向右合并多少
	local result={}

	local trun1,trun2,trun3,bydyes=false,false,false,false
	if (pst==prs) then trun1=true  end
	if (prs==ftr) then trun2=true  end
	if (ftr==byd) then trun3=true  end
	if (byd~=nil) then bydyes=true end
	--trun1 aaxx trun2 xaax trun3 xxaa
	--genre1:aaaa genre2:abbb genre3:aaab genre4:aabb
	--genre5:aabc genre6:abbc genre7:abcc genre8:abcd
	if bydyes then
		if trun1       and trun2        and trun3      then blocksnum=1 mergenum[1]=4    end
		if not(trun1)  and trun2       and trun3       then blocksnum=2 mergenum[2]=3   end
		if trun1       and trun2        and not(trun3) then blocksnum=2 mergenum[1]=3    end
		if trun1       and not(trun2)  and trun3       then blocksnum=2 mergenum[1]=2 mergenum[2]=2 end
		if trun1       and not(trun2)  and not(trun3)  then blocksnum=3 mergenum[1]=2   end
		if not(trun1)  and trun2       and not(trun3)  then blocksnum=3 mergenum[2]=2   end
		if not(trun1)  and not(trun2)  and trun3       then blocksnum=3 mergenum[3]=2   end
		if not(trun1)  and not(trun2)  and not(trun3) then blocksnum=4                  end
	else
		if trun1  and trun2   then blocksnum=3 mergenum[1]=3 end
		if not(trun1) and trun2   then blocksnum=2 mergenum[2]=2 end
		if trun1  and not(trun2)  then blocksnum=2 mergenum[1]=2 end
		if not(trun1) and not(trun2)  then blocksnum=3               end
	end


	result[1]=blocksnum
	result[2]=mergenum

	return result
	--use example:
	--local result=Mergecheck(2,1,1,2)
	--local resulta= result[1]
	--local resultb= result[2][1]
	--local resultc= result[2][2]
	--local resultd= result[2][3]
	--local resulte= result[2][4]
	--who this?
end

function RegularText(text,byd)
	local o=1
	local Secondarybox={}
	local result=""
	for i=1,11 do
		Secondarybox[o] =mw.html.create("div")
		Secondarybox[o]
			:wikitext(text[o])
			:addClass("Sbox"..o)
		if byd==true and (o==1 or o==2) then Secondarybox[o]:cssText("grid-column: 1 / span 5;") end
		if o==3 or o==5 or o==7 or o==9 or o==11 then Secondarybox[o]:cssText("grid-column: 1 / span 1;") end
		if byd==true and (o==4 or o==6 or o==8 or o==10) then Secondarybox[o]:cssText("grid-column: 2 / span 4;") end
		if byd==false and (o==1 or o==2) then Secondarybox[o]:cssText("grid-column: 1 / span 4;") end
		if byd==false and (o==4 or o==6 or o==8 or o==10) then Secondarybox[o]:cssText("grid-column: 2 / span 3;") end
		result=result..tostring(Secondarybox[o])
		o=o+1
	end
	
	return result
end

function SplitText(text)
	local Mergecheck=Mergecheck(text[1],text[2],text[3],text[4]) --获取合成的转换信息
	local Secondarybox={}
	local result=""
	
	for i=1,3 do
	local op=1
		for i=1,4 do
			if text[op]==nil then text[op],text[op+1]=text[op+1],text[op] end
			if text[op]==text[op-1] then text[op]=text[op+1] end
			op=op+1
		end
	end
	
	local c,p,o=1,1,12
	for i=1,Mergecheck[1] do
		local mergenumber=Mergecheck[2][p]
		Secondarybox[o] =mw.html.create("div")
		Secondarybox[o]
			:wikitext(tostring(text[p]))
			:addClass("Sbox"..o)
			:cssText("grid-column: "..tostring(c+1).." / span "..mergenumber) --第几个块获取第几个块的合成信息
		result=result..tostring(Secondarybox[o])
		c=c+mergenumber
		o=o+1
		p=p+1
	end
	
	return tostring(result)
end

function EasySplitText(ain,byd)
	text=ain
	local secondarybox={}
	local result=""
	
	if byd==true then
		text[21]=tostring(text[21]).."\n"..tostring(text[23])
	end
	
	text[20]=tostring(text[20]).."\n"..tostring(text[22])
	
	if byd==true
	then
		local o,p=1,21
		for i=1,21 do
			secondarybox[o]=mw.html.create("div")
			secondarybox[o]
				:wikitext(tostring(text[o]))
				:addClass("Sbox"..p)
			result=result..tostring(secondarybox[o])
			o,p=o+1,p+1
		end
	else
		local o,p=1,21
		for i=1,21 do
			if o~=5 and o~=10 and o~=15 and o~=18
			then
				secondbox[o]=mw.html.create("div")
				secondbox[o]
				 :wikitext(text[o])
				 :addClass("Sbox"..p)
			result=result..tostring(secondbox[o])
			end
		o,p=o+1,p+1
		end
		
	end
	
	return tostring(result)
end

function autoimage(image)
	
end

function p.box(frame)
	--主函数
	local RegularGroup={} --不会进行拆分的组
	local SplitGroup={} --会进行4等拆分的组
	local EasySplitGroup={} --会进行2等拆分的组
	
	local bydyes
	local column=""
	local byd=tonumber(frame:getParent().args["Beyond等级"])
	if byd then bydyes=true else bydyes=false end
	if bydyes==true then column="10% 22.5% 22.5% 22.5% 22.5%" else column="10% 30% 30% 30%" end
	
	local songname=frame:getParent().args["曲名"]
	
	if frame:getParent().args["第二曲名"] then songname=songname..frame:getParent().args["第二曲名"] end
	
	-- 1-11对应表 example: image class:Sbox1
	RegularGroup[1]="image"
	RegularGroup[2]=songname
	RegularGroup[3]="编曲"
	RegularGroup[4]=frame:getParent().args["编曲"]
	RegularGroup[5]="曲包"
	RegularGroup[6]=frame:getParent().args["曲包"]
	RegularGroup[7]="时长"
	RegularGroup[8]=frame:getParent().args["时长"]
	RegularGroup[9]="BPM"
	RegularGroup[10]=frame:getParent().args["BPM"]
	RegularGroup[11]="谱师"
	
	local notewrite=frame:getParent().args["Note编写"] --临时转换
	
	if notewrite~=nil 
	then
		SplitGroup[1],SplitGroup[2],SplitGroup[3],SplitGroup[4]=notewrite,notewrite,notewrite,notewrite
		--如果没有分难度谱师参数输入，直接用谱师的值
	else
		-- 12-14 四谱师 如空留位
		SplitGroup[1]=frame:getParent().args["PastNote编写"]
		SplitGroup[2]=frame:getParent().args["PresentNote编写"]
		SplitGroup[3]=frame:getParent().args["FutureNote编写"]
		SplitGroup[4]=frame:getParent().args["BeyondNote编写"]
	end
	
	--依次对应21-33
	EasySplitGroup[1]="难度"
	EasySplitGroup[2]="Past"
	EasySplitGroup[3]="Present"
	EasySplitGroup[4]="Future"
	EasySplitGroup[5]="Beyond"
	EasySplitGroup[6]="等级"
	EasySplitGroup[7]=frame:getParent().args["Past等级"]
	EasySplitGroup[8]=frame:getParent().args["Present等级"]
	EasySplitGroup[9]=frame:getParent().args["Future等级"]
	EasySplitGroup[10]=frame:getParent().args["Beyond等级"]
	EasySplitGroup[11]="物量"
	EasySplitGroup[12]=frame:getParent().args["PastNote"]
	EasySplitGroup[13]=frame:getParent().args["PresentNote"]
	EasySplitGroup[14]=frame:getParent().args["FutureNote"]
	EasySplitGroup[15]=frame:getParent().args["BeyondNote"]
	EasySplitGroup[16]="画师"
	EasySplitGroup[17]=frame:getParent().args["画师"]
	EasySplitGroup[18]=frame:getParent().args["Beyond画师"]
	EasySplitGroup[19]="更新时间"
	EasySplitGroup[20]=frame:getParent().args["更新版本"]
	EasySplitGroup[21]=frame:getParent().args["Beyond更新版本"]
	EasySplitGroup[22]=frame:getParent().args["更新时间"]
	EasySplitGroup[23]=frame:getParent().args["Beyond更新时间"]
	

	local texta,textb,textc="","",""
	texta=RegularText(RegularGroup,bydyes)
	textb=SplitText(SplitGroup,bydyes)
	textc=EasySplitText(EasySplitGroup,bydyes)
	--将参数封装为table变量，输入进函数返回转换后的字符串。
	
	local endstring=texta..textb..textc
	
	local box =mw.html.create("div")
	box
		:addClass("box")
		:cssText("grid-template-columns:"..tostring(column))
		:css ("background-color","antiquewhite")
		:wikitext(endstring)
	
	return tostring(box)
	
end

return p