Module:Uses material list

Documentation for this module may be created at Module:Uses material list/doc

local p = {}

local geprice = require('Module:Exchange')._price
local commas = require('Module:Addcommas')
local skillpic = require('Module:SCP')._main
local yesno = require('Module:Yesno')
local lang = mw.getContentLanguage()
local trim = mw.text.trim

-- Sorting function for two item objects, first by name, then by sub-text
function sortItemsByNameSubtext(item1, item2)
	if (item1.output.name < item2.output.name) then
		return true
	elseif (item1.output.name > item2.output.name) then
		return false
	else
		return (item1.output.subtxt or '') < (item2.output.subtxt or '')
	end
end

function p.main(frame)
	return p._main(frame:getParent().args)
end

function p._main(args)
	local materials = {}
	if (args == nil) then
		table.insert(materials, mw.title.getCurrentTitle().text)
	else
		local splitMultiple = {}
		for type in string.gmatch(args[1], '([^,]+)') do
			table.insert(splitMultiple, type)
		end
		
		for _, v in ipairs(splitMultiple) do
			mw.log(v)
			table.insert(materials, trim(v))
		end
	end
	
	local materialsLowered = {}
	for index, material in pairs(materials) do
	    materialsLowered[material:lower()] = true
	end

    -- Fetch data
    local query = {
        '[[Uses material::'..table.concat(materials, '||')..']]',
        '[[Production JSON::+]]',
        '?=#-',
        '?Production JSON = json',
        limit = args.limit or 500,
    }
    local t1 = os.clock()
    local t2 = os.clock()

    if not smwdata then
        return 'Failed to find products with those materials - ensure they are spelled correctly. (ERR: no results from SMW)[[Category:Empty drop lists]]'
    end
    mw.log(string.format('SMW: entries %d, time elapsed: %.3f ms.', #smwdata, (t2 - t1) * 1000))

    -- Post-process
    data = {}
    for _, e in ipairs(smwdata) do
    	if type(e['json']) == 'string' then
            local j = mw.text.jsonDecode(e['json'])
            table.insert(data, j)
        elseif type(e['json']) == 'table' then
        	for _, f in ipairs(e['json']) do
        		local j = mw.text.jsonDecode(f)
                table.insert(data, j)
        	end
    	end
    end
    smwdata = nil
    
    -- Items with different variants (e.g. Divine battlemage potion has (1), (2), (3), (4) variants)
    -- or methods (e.g. "4-dose oil" vs "3-dose oil" for pyre logs) may not come in sorted, so now do a final alphabetical sort on name, sub-text
    table.sort(data, sortItemsByNameSubtext)

    -- Render page
    local t = mw.html.create('table')
    t:addClass('wikitable sortable products-list align-center-1 align-right-3 align-right-4')
    local ttlrow = t:tag('tr')
            :tag('th')
            	:attr('colspan', '2')
                :wikitext('Item')
            :done()
            :tag('th')
                :wikitext('Members')
               :done()
            :tag('th')
            	:attr('data-sort-type', 'number')
                :wikitext('Skills')
            :done()
            :tag('th')
            	:attr('data-sort-type', 'number')
            	:wikitext('XP')
            :done()
            :tag('th')
                :wikitext('Materials')
            :done()

    local rows = 0

    -- Render rows
    for _, item in ipairs(data) do
        local _found = false
        for _,mat_info in ipairs(item.materials) do
            if materialsLowered[mat_info.name:lower()] == true then
                _found = true
                break
            end
        end
        if _found then
            local namestr
            if (tonumber(item.output.quantity) or 0) > 1 then
                namestr = string.format('[[%s]] × %s', item.output.name, item.output.quantity)
            else
                namestr = string.format('[[%s]]', item.output.name)
            end
            
            if item.output.subtxt then
            	namestr = string.format('%s <br /><small>(%s)</small>', namestr, item.output.subtxt)	
            end
            
            local memberstr
            members = item.members
            if members == 'Yes' then
				memberstr = "[[File:Member icon.png|center|link=Members]]"	
			elseif members == 'No' then
				memberstr = "[[File:Free-to-play icon.png|center|link=Free-to-play]]"	
			end
		
            local experience_cell = mw.html.create('td')
            experience_cell:addClass('plainlist')
            local experience_ul = experience_cell:tag('ul')
            experience_ul:addClass('skills-list')
            local skills_cell = mw.html.create('td')
            skills_cell:addClass('plainlist')
            local skills_ul = skills_cell:tag('ul')
            skills_ul:addClass('skills-list')
            if #item.skills == 0 then
        		local skill_li = skills_ul:tag('li')
        		local experience_li = experience_ul:tag('li')
        		experience_cell:addClass('table-na'):css('text-align', 'center')
        		experience_li:wikitext(string.format('None'))
        		skills_cell:addClass('table-na'):css('text-align', 'center')
        		skill_li:wikitext(string.format('None'))
        	else
        		for index, v in ipairs(item.skills) do
            		local skill_li = skills_ul:tag('li')
            		local experience_li = experience_ul:tag('li')
            		local stripped_experience = string.gsub(v.experience, ',', '')
            		skill_li:attr('data-sort-value', index == 1 and v.level or ''):wikitext(skillpic(lang:ucfirst(v.name), v.level))
            		experience_li:attr('data-sort-value', index == 1 and v.experience or ''):wikitext(tonumber(stripped_experience) ~= nil and skillpic(lang:ucfirst(v.name), v.experience) or v.experience)
        		end
        	end
            local mats_ul = mw.html.create('ul')
            mats_ul:addClass('products-materials')
            local materialsortvalue = nil
            for _, mat_info in ipairs(item.materials) do
                local mat_li = mats_ul:tag('li')
                local qty = string.gsub(mat_info.quantity, '%-', '–')
                local matnm = mat_info.name
            	for _,mat in ipairs(materialsLowered) do
            		if mat_info.name:lower() == mat then
            			mat_li:addClass('production-selected')
            		end
            	end
                if materialsLowered[mat_info.name:lower()] == true then
                    mat_li:addClass('production-selected')
                end
                
                if materialsortvalue == nil then
                	materialsortvalue = qty
                end
                
                mat_li:wikitext(string.format('%s × [[%s]]', commas._add(qty), matnm))
            end

            local prow = t:tag('tr')
            	:tag('td')
            		:wikitext(item.output.image)
                :tag('td')
                	:attr('data-sort-value', item.product)
                    :wikitext(namestr)
                :done()
                :tag('td')
                	:wikitext(memberstr)
                :node(skills_cell)
                :node(experience_cell)
                :tag('td')
                	:attr('data-sort-value', materialsortvalue)
                	:addClass('plainlist')
                    :node(mats_ul)
                :done()
            rows = rows + 1
        end
    end

    if rows == 0 then
        return 'Failed to find products with those materials - ensure they are spelled correctly. (ERR: no mats found in results)[[Category:Empty drop lists]]'
    end

    return t
end

--[[ DEBUG COPYPASTA
= p._main({'Mithril bar'})
--]]

return p