Module:CraftingTable

Documentation for this module may be created at Module:CraftingTable/doc

local p = {}

local function isBlank(value)
	return value == nil or not value or value == ''
end

function p.crafttable(f)

	local args = f:getParent().args
	local lang = f.args[1]
	local data = mw.loadData('Module:CraftingTable/i18n')
	local title = mw.title.getCurrentTitle()
	local Recipe = {
		{
			CraftingStation = args[data[lang]['CraftingStation']] or '',
			Ingredient = args[data[lang]['Ingredient']] or '',
			IngredientNum = args[data[lang]['IngredientNum']] or '',
			IngredientExtra = args[data[lang]['IngredientExtra']] or '',
			CraftResult = args[data[lang]['TitleResult']] or '',
		},
		{
			CraftingStation = args[data[lang]['CraftingStation']..'2'] or '',
			Ingredient = args[data[lang]['Ingredient']..'2'] or '',
			IngredientNum = args[data[lang]['IngredientNum']..'2'] or '',
			IngredientExtra = args[data[lang]['IngredientExtra']..'2'] or '',
			CraftResult = args[data[lang]['TitleResult']..'2'] or '',
		},
		{
			CraftingStation = args[data[lang]['CraftingStation']..'3'] or '',
			Ingredient = args[data[lang]['Ingredient']..'3'] or '',
			IngredientNum = args[data[lang]['IngredientNum']..'3'] or '',
			IngredientExtra = args[data[lang]['IngredientExtra']..'3'] or '',
			CraftResult = args[data[lang]['TitleResult']..'3'] or '',
		}
	}

	local CSs = { '','','' }
	local CSCategory = ''
	local Ings = { '','','' }
	local Results = { '','','' }

	for tableNum = 1, 3 ,1 do

		if isBlank(Recipe[tableNum].CraftingStation) then
			if tableNum == 1 then CSs[1] = data[lang]['ErrorCraftingStation'] end
		else
			local v = {} ; v = mw.text.split(Recipe[tableNum].CraftingStation,'%s*,%s*')
			f:callParserFunction('#Set','CraftingStation'..tableNum,Recipe[tableNum].CraftingStation)
			for i, item in ipairs(v) do

				if i > 1 then CSs[tableNum] = CSs[tableNum]..'<br />' end

				if isBlank(item) then
					CSs[tableNum] = CSs[tableNum]..data[lang]['BlankValue']
				else
					CSs[tableNum] = CSs[tableNum]..f:expandTemplate{title=data[lang]['TemplateName'],args={item,size=imgsize}}
					if title.nsText == 'Elin' then
						CSCategory = CSCategory..'[[Category:Elin '..item..']]'
					end
				end
			end
		end

		if isBlank(Recipe[tableNum].Ingredient) then
			if tableNum == 1 then Ings[1] = data[lang]['ErrorIngredient'] end
		else
			local Ing = {} ; Ing = mw.text.split(Recipe[tableNum].Ingredient,'%s*,%s*')
			local IngN = {} ; IngN = mw.text.split(Recipe[tableNum].IngredientNum,'%s*,%s*')
			local IngE = {} ; IngE = mw.text.split(Recipe[tableNum].IngredientExtra,'%s*,%s*') or ''
			if tableNum == 1 then
				f:callParserFunction('#Set','Ingredient',Recipe[tableNum].Ingredient)
				f:callParserFunction('#Set','IngredientNum',Recipe[tableNum].IngredientNum)
				f:callParserFunction('#Set','IngredientExtra',Recipe[tableNum].IngredientExtra)
			else
				f:callParserFunction('#Set','Ingredient'..tableNum,Recipe[tableNum].Ingredient)
				f:callParserFunction('#Set','IngredientNum'..tableNum,Recipe[tableNum].IngredientNum)
				f:callParserFunction('#Set','IngredientExtra'..tableNum,Recipe[tableNum].IngredientExtra)
			end
			for i, item in ipairs(Ing) do

				if i > 1 then
					Ings[tableNum] = Ings[tableNum]..'<div class="plus or-separator">&plus;</div>'
				end

				if isBlank(item) then
					Ings[tableNum] = Ings[tableNum]..data[lang]['BlankValue']
				else
					if string.find(item,'/') then
						local z = {} ; z = mw.text.split(Ing[i],'%s*/%s*')
						local z2 = {} ; if IngN[i] then z2 = mw.text.split(IngN[i],'%s*/%s*') or 1 end
						local z3 = {} ; if IngE[i] then z3 = mw.text.split(IngE[i],'%s*/%s*') or '' end

						for i2, item2 in ipairs(z) do

							local itemname = item2
							local itemnum = z2[i2] or 1
							local itemvar
							local itemext = z3[i2] or ''

							if i2 > 1 then
								Ings[tableNum] = Ings[tableNum]..'<div class="or-separator">'..data[lang]['Or']..'</div>'
							end

							if string.find(item2,'@') then
								local v2 = {} ; v2 = mw.text.split(item2,'%s*@%s*')
								itemname = v2[1]
								itemvar = v2[2]
							end

							if isBlank(itemnum) then
								if itemvar then
									Ings[tableNum] = Ings[tableNum]..f:expandTemplate{title=data[lang]['TemplateName'],args={itemname,v=itemvar,link='Elin:'..itemname..' '..itemvar,size=imgsize}}
								else
									Ings[tableNum] = Ings[tableNum]..f:expandTemplate{title=data[lang]['TemplateName'],args={itemname,size=imgsize}}
								end
							else
								if itemvar then
									Ings[tableNum] = Ings[tableNum]..f:expandTemplate{title=data[lang]['TemplateName'],args={itemname,itemnum,v=itemvar,link='Elin:'..itemname..' '..itemvar,size=imgsize}}
								else
									Ings[tableNum] = Ings[tableNum]..f:expandTemplate{title=data[lang]['TemplateName'],args={itemname,itemnum,size=imgsize}}
								end
							end

							if itemext == data[lang]['TitleExtra'] then Ings[tableNum] = Ings[tableNum]..data[lang]['TextExtra']
							elseif itemext == data[lang]['TitleGourmet'] then Ings[tableNum] = Ings[tableNum]..data[lang]['TextGourmet'] end
						end

					elseif string.find(item,'@') then
						local v2 = {} ; v2 = mw.text.split(item,'%s*@%s*')
						Ings[tableNum] = Ings[tableNum]..f:expandTemplate{title=data[lang]['TemplateName'],args={v2[1],v=v2[2],link='Elin:'..v2[1]..' '..v2[2],size=imgsize}}
					elseif isBlank(IngN[i]) then
							Ings[tableNum] = Ings[tableNum]..f:expandTemplate{title=data[lang]['TemplateName'],args={item,size=imgsize}}
					else
							Ings[tableNum] = Ings[tableNum]..f:expandTemplate{title=data[lang]['TemplateName'],args={item,IngN[i],size=imgsize}}
					end

					if IngE[i] == data[lang]['TitleExtra'] then Ings[tableNum] = Ings[tableNum]..data[lang]['TextExtra']
					elseif IngE[i] ==  data[lang]['TitleGourmet'] then Ings[tableNum] = Ings[tableNum]..data[lang]['TextGourmet'] end
				end
			end
		end

		if isBlank(Recipe[tableNum].CraftResult) then
		else
			f:callParserFunction('#Set','CraftingResult'..tableNum, Recipe[tableNum].CraftResult)
			local itemtable = {} ; itemtable = mw.text.split(Recipe[tableNum].CraftResult,'%s*,%s*')
			for i, item in ipairs(itemtable) do

				if i > 1 then
					Results[tableNum] = Results[tableNum]..'<div class="or-separator">'..data[lang]['Or']..'</div>'
				end

				local itemname = item
				local itemnum = 1
				local itemvar
				if string.find(itemname,'/') then
					local z = {} ; z = mw.text.split(itemname,'%s*/%s*')
					itemname = z[1]
					itemnum = z[2]
					if string.find(itemname,'@') then
						local z = {} ; z = mw.text.split(itemname,'%s*@%s*')
						itemname = z[1]
						itemvar = z[2]
					end
				elseif string.find(itemname,'@') then
					local z = {} ; z = mw.text.split(itemname,'%s*@%s*')
					itemname = z[1]
					itemvar = z[2]
				end

				if itemvar then
					Results[tableNum] = Results[tableNum]..f:expandTemplate{title=data[lang]['TemplateName'],args={itemname,itemnum,v=itemvar,link='Elin:'..itemname..' '..itemvar,size=imgsize}}
				else
					Results[tableNum] = Results[tableNum]..f:expandTemplate{title=data[lang]['TemplateName'],args={itemname,itemnum,size=imgsize}}
				end
			end
		end
	end


	local Craftingskill = args[data[lang]['CraftSkill']] or nil
	local CraftingskillLv = args[data[lang]['CraftSkillLv']] or nil

	local html = mw.html.create('p')
	local div = html:tag('div'):addClass('CraftingTable'):cssText('float: left; display: ruby;')
	local table = div:tag('table'):addClass('wikitable')
		if not Craftingskill and not CraftingskillLv then
		else
			local Skills = ''

			if isBlank(Craftingskill) then
				Skills = '？'..data[lang]['TitleSkill']
			else
				Skills = Craftingskill..data[lang]['TitleSkill']
				f:callParserFunction('#Set','CraftingSkill',Craftingskill)
			end

			Skills = Skills..'&nbsp;'

			if isBlank(CraftingskillLv) then
				Skills = Skills..'Lv.？'
			else
				Skills = Skills..'Lv.'..CraftingskillLv
				f:callParserFunction('#Set','CraftingSkillLv',CraftingskillLv)
			end

			if Results ~= '' then colspan = 3
			else colspan = 2 end
			table:tag('tr'):tag('th'):attr('colspan',colspan):wikitext(Skills)
		end

		for tableNum = 1, 3 ,1 do
			if CSs[tableNum] ~= '' or Ings[tableNum] ~= '' or Results[tableNum] ~= '' then
				if tableNum > 1 then
					table = div:tag('table'):addClass('wikitable'):cssText('margin-left:1em;')
				end
				local tr1 = table:tag('tr')
				tr1:tag('th'):wikitext(data[lang]['TitleCraftingStation'])
				tr1:tag('th'):wikitext(data[lang]['TitleIngredient'])
				if Results[tableNum] ~= '' then
					tr1:tag('th'):wikitext(data[lang]['TitleResult'])
				end
				local tr2 = table:tag('tr')
				tr2:tag('td'):wikitext(CSs[tableNum])
				tr2:tag('td'):cssText('text-align: center;'):wikitext(Ings[tableNum])
				if Results[tableNum] ~= '' then
					tr2:tag('td'):cssText('text-align: center;'):wikitext(Results[tableNum])
				end
			end
		end

		html:wikitext(string.format('<div style="clear:both;"></div>'))

		local CraftBonus = args[data[lang]['CraftBonus']] or nil
		if isBlank(CraftBonus) then
		else
			html:tag('li'):wikitext(string.format('<b>'..data[lang]['TitleCraftBonus']..'</b> : '..CraftBonus)):done()
			f:callParserFunction('#Set','CraftBonus',CraftBonus)
		end

		local ObtainRecipe = args[data[lang]['ObtainRecipe']] or nil
		if isBlank(ObtainRecipe) then
		else
			html:tag('li'):wikitext(string.format('<b>'..data[lang]['TitleObtainRecipe']..'</b> : '..ObtainRecipe)):done()
			f:callParserFunction('#Set','ObtainRecipe',ObtainRecipe)
		end

		if title.nsText == 'Elin' then
			html:wikitext(string.format(data[lang]['Category']))
			if isBlank(CSCategory) then
			else
				html:wikitext(CSCategory)
			end
		end

	return tostring(html)
	
end

return p