Module:CraftingTable

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

local p = {}

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 n = 1, 3 ,1 do

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

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

				if not item or item == '' then
					CSs[n] = CSs[n] .. data[lang]['BlankValue']
				else
					CSs[n] = CSs[n] .. 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 not Recipe[n].Ingredient or Recipe[n].Ingredient == '' then
			if n == 1 then Ings[1] = data[lang]['ErrorIngredient'] end
		else
			local v = {} ; v = mw.text.split(Recipe[n].Ingredient, "%s*,%s*")
			local x = {} ; x = mw.text.split(Recipe[n].IngredientNum, "%s*,%s*")
			local y = {} ; y = mw.text.split(Recipe[n].IngredientExtra, "%s*,%s*")
			f:callParserFunction( '#Set', 'Ingredient', Recipe[n].Ingredient )
			f:callParserFunction( '#Set', 'IngredientNum', Recipe[n].IngredientNum )
			f:callParserFunction( '#Set', 'IngredientExtra', Recipe[n].IngredientExtra )
			for i, item in ipairs(v) do

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

				if not item or item == '' then
					Ings[n] = Ings[n] .. data[lang]['BlankValue']
				else
					local z = string.find(item, "/")
					if z then
						local z = {} ; z = mw.text.split(item, "%s*/%s*")
						local z2 = {} ; z2 = mw.text.split(x[i], "%s*/%s*") or 1
						local z3 = {} ; z3 = mw.text.split(y[i], "%s*/%s*") or ''
						for i2, item2 in ipairs(z) do
							if i2 > 1 then
								Ings[n] = Ings[n] .. '<div class="or-separator">'..data[lang]['Or']..'</div>'
							end
							if z2[i2] == '' then
								Ings[n] = Ings[n] .. f:expandTemplate{ title = data[lang]['TemplateName'], args = { item2,size=imgsize } }
							else
								Ings[n] = Ings[n] .. f:expandTemplate{ title = data[lang]['TemplateName'], args = { item2,z2[i2],size=imgsize } }
							end

							if z3[i2] == data[lang]['TitleExtra'] then
								Ings[n] = Ings[n] .. data[lang]['TextExtra']
							elseif z3[i2] ==  data[lang]['TitleGourmet'] then
								Ings[n] = Ings[n] .. data[lang]['TextGourmet']
							end
						end
					else
						local v2 = string.find(item, "@")
						if v2 then
							local v2 = {} ; v2 = mw.text.split(item, "%s*@%s*")
							Ings[n] = Ings[n] .. f:expandTemplate{ title = data[lang]['TemplateName'], args = { v2[1],v=v2[2],size=imgsize } }
						else
							if x[i] == '' then
								Ings[n] = Ings[n] .. f:expandTemplate{ title = data[lang]['TemplateName'], args = { item,size=imgsize } }
							else
								Ings[n] = Ings[n] .. f:expandTemplate{ title = data[lang]['TemplateName'], args = { item,x[i],size=imgsize } }
							end
						end

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

		if not Recipe[n].CraftResult or Recipe[n].CraftResult == '' then
		else
			z = string.find(Recipe[n].CraftResult, "%s*/%s*")
			f:callParserFunction( '#Set', 'CraftingResult', Recipe[n].CraftResult )
			if z then
				local x = {} ; x = mw.text.split(Recipe[n].CraftResult, "%s*/%s*")
				local x2 = string.find(Recipe[n].CraftResult, "@")
				if x2 then
					local x2 = {} ; x2 = mw.text.split(x[1], "%s*@%s*")
					Results[n] = f:expandTemplate{ title = data[lang]['TemplateName'], args = { x2[1],x[2],v=x2[2],link='Elin:'..x2[1]..' '..x2[2],size=imgsize } }
				else
					Results[n] = f:expandTemplate{ title = data[lang]['TemplateName'], args = { x[1],x[2],size=imgsize } }
				end
			else
				local x = string.find(Recipe[n].CraftResult, "@")
				if x then
					local x = {} ; x = mw.text.split(Recipe[n].CraftResult, "%s*@%s*")
					Results[n] = f:expandTemplate{ title = data[lang]['TemplateName'], args = { x[1],v=x[2],link='Elin:'..x[1]..' '..x[2],size=imgsize } }
				else
					Results[n] = f:expandTemplate{ title = data[lang]['TemplateName'], args = { Recipe[n].CraftResult,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 not Craftingskill then
				Skills = '？'..data[lang]['TitleSkill']
			else
				Skills = Craftingskill..data[lang]['TitleSkill']
				f:callParserFunction( '#Set', 'CraftingSkill', Craftingskill )
			end

			Skills = Skills .. '&nbsp;'

			if not 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 n = 1, 3 ,1 do
			if CSs[n] ~= '' or Ings[n] ~= '' or Results[n] ~= '' then
				if n > 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[n] ~= '' then
					tr1:tag('th'):wikitext(data[lang]['TitleResult'])
				end
				local tr2 = table:tag('tr')
				tr2:tag('td'):wikitext(CSs[n])
				tr2:tag('td'):cssText('text-align: center;'):wikitext(Ings[n])
				if Results[n] ~= '' then
					tr2:tag('td'):cssText('text-align: center;'):wikitext(Results[n])
				end
			end
		end

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

		local CraftBonus = args[data[lang]['CraftBonus']] or nil
		if not CraftBonus or 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 not ObtainRecipe or 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']))
		end

		if not CSCategory or CSCategory == '' then
		else
			html:wikitext(CSCategory)
		end

	return tostring(html)
	
end

return p