Модуль:Варка — различия между версиями

local p = {}
local slot = require( 'Модуль:Инвентарный слот' )
local getParts = slot.getParts
local prefixes = slot.prefixes
local function prefixedLink( name, mod )
	local prefix = ''
	for _, thisPrefix in pairs( prefixes ) do
		if mw.ustring.find(name, '^' .. thisPrefix .. ' ' ) then
			prefix = thisPrefix .. ' '
			name = mw.ustring.gsub(name, '^' .. prefix, '' )
			break
		end
	end
	
	local page = ''
	if mod and mod ~= '' then
		page = mod .. '/'
	end

	local vanilla = {v = 1, vanilla = 1, mc = 1, minecraft = 1}
	if mod == '' or vanilla[mw.ustring.lower(parts.mod)] then
		return prefix .. name
	else
		return prefix .. '[[' .. page .. name .. '|' .. name .. ']]'
	end
end

function p.table( f )
	local args = f
	if f == mw.getCurrentFrame() then
		args = f:getParent().args
	else
		f = mw.getCurrentFrame()
	end
	local getParts = require( 'Модуль:Инвентарный слот' ).getParts
	
	-- Начинать таблицу при необходимости
	local multirow = f:callParserFunction( '#dplvar', 'multirow' )
	if multirow ~= '1' then
		multirow = nil
	end
	local head = args["глава"] or ''
	if multirow then
		head = ''
		elseif head ~= '' then
			multirow = 1
			f:callParserFunction( '#dplvar:set', 'multirow', '1' )
		else
			head = 1
		end

	-- Заканчивать таблицу при необходимости
	local foot = args["подвал"] or ''
	if multirow then
		if foot ~= '' then
			multirow = nil
			f:callParserFunction( '#dplvar:set', 'multirow', '0' )
		end
	else
		foot = 1
	end
	
	local header = ''
	if head ~= '' then
		local name = ''
		local description = ''
		local effect = ''
		local duration = ''
		if args["название"] or args["показатьимя"] == '1' or multirow and args["показатьимя"] ~= '0' then
			name = 'Название !! '
			f:callParserFunction( '#dplvar:set', 'brewingname', '1' )
		end
		if args["показатьописание"] == '1' then
			description = ' !! class="unsortable" | Описание'
			f:callParserFunction( '#dplvar:set', 'brewingdescription', '1' )
		end
		if args["эффект"] then
			effect = ' !! class="unsortable" | Эффект'
			f:callParserFunction( '#dplvar:set', 'brewingeffect', '1' )
		end
		if args["продолжительность"] then
			duration = ' !! class="unsortable" | Продолжительность<br />(минуты : секунды)'
			f:callParserFunction( '#dplvar:set', 'brewingduration', '1' )
		end
		local class = args["класс"] or ''
		local recipeClass = ''
		if multirow then
			class = 'sortable collapsible ' .. class
			recipeClass = 'class="unsortable" |'
		end
		header = table.concat( {
			' {| class="wikitable ' .. class .. '" style="text-align:center" data-description="Схема варки"',
			'! ' .. name .. 'width="150" | Ингредиенты !! ' .. recipeClass .. ' Схема [[Зельеварение|варки]]' .. effect .. duration .. description,
			'|-'
			}, '\n' )
	end
	
	local input = mw.text.trim( args[1] or '' )
	local output2 = mw.text.trim( args[2] or '' )
	local base = args['Ресурс'] or ''
	if base == '' then
		base = 'Грубое зелье'
	end
	
	-- Ячейка с названием
	local nameCell
	if f:callParserFunction( '#dplvar', 'smeltingname' ) == '1' then
		if args["название"] or '' ~= '' then
			nameCell = args["название"]
		else
			local names = {}
			local links = {}
			for v in mw.text.gsplit( args[2] or args["Выход"] or '', '%s*;%s*' ) do
				parts = getParts( v, args["Мод"] )
				parts.mod = parts.mod or ''
				if not names[parts.mod .. ':' .. parts.name] then
					table.insert( links, prefixedLink( parts.name, parts.mod ) )
					names[parts.mod .. ':' .. parts.name] = 1
				end
			end

			nameCell = table.concat( links, '&nbsp;или<br>' )
		end
	end
	if nameCell and args["запланированное"] then
		nameCell = nameCell .. '<br>(' .. args["запланированное"] .. ')'
	end

	-- Ячейка с ингредиентами
	local ingredientsCell
	if args["ингредиенты"] or '' ~= '' and fuelslot ~= '' then
		ingredientsCell = args["ингредиенты"] .. ' +<br>[[Огненный порошок]] (топливо)'
		elseif args["ингредиенты"] or '' ~= '' then
			ingredientsCell = args["ингредиенты"]
		else
			ingredientsCell = {}
			local ingredients = {}
			for k, v in ipairs{ input, base } do
				local separator = ''
				if k == 2 and next( ingredients ) then
					separator = '&nbsp;+<br>\n'
				end
				local mod = ( ingredients[v] or animatedIngredients[v] ).mod
				local name = ( ingredients[v] or animatedIngredients[v] ).name
				table.insert( ingredientsCell, prefixedLink( name, mod ) .. separator )
			end

			ingredientsCell = table.concat( ingredientsCell, '<br>\n' )
		end
		if fuelslot ~= '' then
			ingredientsCell = table.concat( ingredientsCell ) .. '&nbsp;+<br>\n[[Огненный порошок]] (топливо)'
		else
			ingredientsCell = table.concat( ingredientsCell )
		end

	-- Whether to show base or output
	local newArgs = {}
	if args["показатьресурс"] == '1' then
		newArgs["Выход2"] = base
		newArgs["Выход1"] = args["Ресурс2"]
		newArgs["Выход3"] = args["Ресурс3"]
	else
		newArgs["Выход2"] = args[2]
		newArgs["Выход1"] = args[3]
		newArgs["Выход3"] = args[4]
	end

    -- Any other args we want to pass along
    newArgs["Ресурс"] = args[1]
    newArgs["Рназв"] = args["Рназв"]
    newArgs["В2назв"] = args["Вназв"]
    newArgs["В1назв"] = args["В2назв"]
    newArgs["В3назв"] = args["В3назв"]
    newArgs.fuelslot = fuelslot

	-- Ячейка с рецептом
	local recipeCell = require( 'Модуль:Интерфейс' ).brewingStand( newArgs )
	
	local row = {
	'\n' .. ingredientsCell,
	'style="padding:1px" |\n' .. recipeCell
}
if nameCell then
	table.insert( row, 1, nameCell )
end

	-- Ячейка с эффектом
	local effectCell = args["эффект"] or ''
	if f:callParserFunction( '#dplvar', 'brewingeffect' ) == '1' then
		table.insert( row, effectCell )
	end

	-- Ячейка с продолжительностьительностью
	local durationCell = args["продолжительность"] or ''
	if f:callParserFunction( '#dplvar', 'brewingduration' ) == '1' then
		table.insert( row, durationCell )
	end

	local descriptionCell = args["описание"] or ''
	if f:callParserFunction( '#dplvar', 'brewingdescription' ) == '1' then
		table.insert( row, descriptionCell )
	end

	row = table.concat( row, '\n|' )
	
	if nameCell then
		row = '!\n' .. row
	else
		row = '|\n' .. row
	end
	
	local footer = ''
	if foot ~= '' then
		footer = '|}'
		f:callParserFunction( '#dplvar:set', 'brewingname', '0', 'brewingeffect', '0', 'brewingduration', '0', 'brewingdescription', '0' )
	end
	
	local title = mw.title.getCurrentTitle()
	local title = mw.title.getCurrentTitle()
	local category = ''
	if args["некат"] ~= '1' and title.namespace == 0 and not title.isSubpage then
		category = {}
		
		if args["запланированное"] then
			table.insert( categories, '[[Категория:Запланированные материалы]]' )
		end
		
		if args["тип"] then
			table.insert( categories, '[[Категория:Рецепты/' .. args["тип"] .. ']]' )
		end
		
		if args["игнорировать"] ~= '1' then
			local dyes = {
			'Оранжевый краситель', 'Сиреневый краситель', 'Светло-синий краситель', 'Жёлтый краситель', 'Лаймовый краситель',
			'Розовый краситель', 'Серый краситель', 'Светло-серый краситель', 'Бирюзовый краситель', 'Фиолетовый краситель',
			'Лазурит', 'Какао-бобы', 'Кактусовая зелень', 'Красный краситель', 'Чернильный мешок'
		}
			-- Названия в следующем списке должны писаться ОБЯЗАТЕЛЬНО со строчной буквы, так как встречаются в середине названия:
			local variants = {
			'древесина', 'доски', 'окрашенное стекло', 'окрашенная стеклянная панель', 'шерсть',
			'песчаник', 'ступени', 'плита', 'нажимная пластина', 'звёздочка',
			'каменный кирпич', 'андезит', 'диорит', 'гранит', 'щит'
		}

		for k, v in ipairs( ingredientKeys ) do
			v = mw.ustring.sub(v, 2 )
			if not mw.ustring.find(v, ':' ) then
				if v == 'Любой краситель' or v == 'Любой цветной краситель' then
					if v == 'Любой краситель' then
						table.insert( dyes, 1, 'Костная мука' )
					end
				else
					if v == 'Липкий поршень' then v = 'Поршень'
						elseif v == 'Любой гриб' or v == 'Красный гриб' or v == 'Коричневый гриб' then v = 'Гриб'
							elseif v == 'Красный песок' then v = 'Песок'
								elseif v == 'Древесный уголь' then v = 'Уголь'
									elseif mw.ustring.find(v, 'красный песчаник$' ) then v = 'Песчаник'
										elseif mw.ustring.find(v, '^Флаг ') or mw.ustring.find(v, ' флаг$') then v = 'Флаг'
											elseif v == 'Кварцевый пилон' or v == 'Резной кварцевый блок' then v = 'Кварцевый блок'
											else
							-- Объединить категории вариантов, описываемых на единой странице
							for _, variant in pairs( variants ) do
								if mw.ustring.find(v, ' ' .. variant .. '$' ) then
									v = variant
									break
								end
							end
							
							-- Убрать приставки
							for _, prefix in pairs( prefixes ) do
								if mw.ustring.find(v, '^' .. prefix .. ' ' ) then
									v = mw.ustring.gsub(v, '^' .. prefix .. ' ', '' )
									break
								end
							end
						end
					end
				end
			end
		end


		if args["отладка"] == '1' then
			return '<pre>' .. header .. '\n' .. row .. '\n|-\n' .. footer .. category .. '</pre>'
		else
			return header .. '\n' .. row .. '\n|-\n' .. footer .. category
		end
	end
end
return p