Module:Dungeon

--Get Required Modules local loader = require('Module:Loader') local getArgs = require('Module:Arguments').getArgs

local string, table, yesno, lu, color, item = loader.require('String', 'Table', 'Yesno', 'LibraryUtil', 'Color', 'Item')

local addColor = color._color local checkType = lu.checkType

local p = {} local MAXSTARS = 5 --local MAXITEMSTARS = 10

local prefixes = { ['Helmet'] = 'h', ['Chestplate'] = 'c', ['Leggings'] = 'l', ['Boots'] = 'b', } local pieces = { 'Helmet', 'Chestplate', 'Leggings', 'Boots', } local starColors = { [2] = "Light Purple", }

local function needRow(tb, data) return table.some(tb, function(k, v)       return not not v[data]    end) end

local function getCumSum(tb, index) local sum = {} sum.essence = tb.conversion and tb.conversion.essence or 0 for i = index, 1, -1 do       for k, v in pairs(tb[i]) do            if k ~= 'essence' then sum[k] = sum[k] and (sum[k] + (v or 0)) or v           else sum.essence = sum.essence + (v or 0) end end end return sum end

local function getHoriSum(tb, row) local sum = {} sum.essence = 0

for i = 1, #pieces, 1 do       if tb[i][row] then for k, v in pairs(tb[i][row]) do               if k ~= 'essence' then sum[k] = sum[k] and (sum[k] + (v or 0)) or (v or 0) else sum.essence = sum.essence + (v or 0) end end end end

return sum end local function makeList(items, multipleItems) local list = {}

for k, v in pairs(items) do       if k ~= 'essence' then list[#list + 1] = tostring(v) .. ' ' .. k       end end

if table.length(list) > 1 then table.sort(list, function(a, b)       	return a:match('[%d,%.]+%s+([%w%s%d]+)$') < b:match('[%d,%.]+%s+([%w%s%d]+)$')    	end) end

for k, v in ipairs(list) do       list[k] = item._resourceDisplay(v) end

table.unshift(list, addColor('#ff55ff', (string._formatNum(tostring(items.essence)) or '0') .. (multipleItems and ' Essence' or '')))

return table.concat(list, " ") end

local function convertUpgradeData(source) if not source then return nil end

local tb = {} tb.essence = source:match("([%d,%.]+);") or source:match("([%d,%.]+)$") or source:match("([%d,%.]+)%s+[Ee][Ss][Ss][Ee]?[Nn]?[Cc]?[Ee]?;") or source:match("([%d,%.]+)%s*[Ee][Ss][Ss][Ee]?[Nn]?[Cc]?[Ee]?$") source = source:gsub("([%d,%.]+)%s*[Ee][Ss][Ss][Ee]?[Nn]?[Cc]?[Ee]?;?", "") tb.essence = tonumber(tb.essence)

for number, item in source:gmatch("([%d,%.]+)%s+([%w%d%s]+);") do       tb[item] = tb[item] and (tb[item] + tonumber(number)) or tonumber(number) end

local number, item = source:match("([%d,%.]+)%s+([%w%d%s]+)$") if item then tb[item] = tb[item] and (tb[item] + tonumber(number)) or tonumber(number) end return tb end

local function starsCell(num) local color = starColors[math.ceil(num / 5)] if num == 0 then return p._stars(0), p._unfilledstars(5) end

return p._stars(num - ((math.ceil(num / 5) - 1) * 5), color), color and p._stars(math.abs(num - math.ceil(num / 5) * 5), starColors[math.ceil(num / 5) - 1]) or p._unfilledstars(5 - num) end

--- -- Template:Star -- -- Produces the star icon --- function p.stars(frame) local args = getArgs(frame) local amount = tonumber(args[1]) or 1 local color = args[2] local unfilled = args.unfilled return string.pcall(unfilled and p._stars or p._unfilledstars, amount, color) end

function p._stars(amount, color) return string._repeat('', amount, ' ') end

function p._unfilledstars(amount, color) return string.wrapHtml(p._stars(amount, color),		'span', { style = 'opacity: .2;' }	) end

--- -- Template:Dungeon Ranking -- -- Produces colored dungeon score with link to the Dungeons Score page and a hover info with the dungeon score needed to get that ranking. --- function p.dungeonRanking(frame) local args = getArgs(frame) local val = args[1] local nolink = yesno(args['nolink'] or args['no_link'] or args['nl'], false) return string.pcall(p._dungeonRanking, val, nolink) end

--Module Access Point function p._dungeonRanking(val, nolink) checkType('dungeonsRanking', 1, val, 'string') checkType('dungeonsRanking', 2, nolink, 'boolean', true) local data = { ['D'] = { color = '#fc2803', score = 'between 0 and 99' },		['C'] = { color = '#0373fc', score = 'between 100 and 159' },		['B'] = { color = '#40a40c', score = 'between 160 and 229' },		['A'] = { color = '#b700ff', score = 'between 230 and 269' },		['S'] = { color = '#ffc800', score = 'between 270 and 299' },		['S+'] = { color = '#ffc800', score = 'above 300' }	}	local col = data[val:upper].color or error('Invalid value "'..val..'"', 2) local score = data[val:upper].score val = val:upper val = addColor(col, val) val = string.wrapHtml(val, 'b') val = string.wrapHtml(val, 'abbr', {title = 'Score '..score..' points. Click to go to Dungeon Score page.'}) val = nolink and val or string.wrapLink('Dungeon Score', val) return val end

--- --Template:Essence Crafting -- --Produces a table with all tiers of essence crafting (star upgrading) --- function p.essenceCrafting(frame) local args = getArgs(frame) local type = args['type'] or args['t'] local essence = args['essence'] or args['e'] local allPiecesSameStats = yesno(args['all_pieces_same_stats'], false) -- phased out, consider removing return p._essenceCrafting(type, essence, args, allPiecesSameStats) end

function p._essenceCrafting(type, essence, args, allPiecesSameStats) checkType('essenceCrafting', 1, type, 'string') checkType('essenceCrafting', 2, essence, 'string') checkType('essenceCrafting', 3, args, 'table')

local USESITEMS = false for k, v in pairs(args) do		if v:match(';') then USESITEMS = true break end end

local MAXITEMSTARS = table.xlength(args, false) >= 10 and 10 or 5 for k, v in pairs(prefixes) do		if args[v..'10'] then MAXITEMSTARS = 10 end end essence = mw.text.trim(essence:gsub('[Ee][Ss][Ss][Ee]?[Nn]?[Cc]?[Ee]?', '')) type = type:lower local g_convert = args['convert'] or args['c'] or nil local function forWeapon local costs = { conversion = convertUpgradeData(g_convert), }		for i = 1, MAXITEMSTARS do           costs[i] = convertUpgradeData(args[i]) end return { costs } end local function forArmor local ret = {} for i, piece in ipairs(pieces) do local costs = { label = piece, conversion = convertUpgradeData(args[prefixes[piece] .. '_convert']) or convertUpgradeData(args[prefixes[piece] .. '_c']) or convertUpgradeData(g_convert), } for i = 1, MAXITEMSTARS do costs[i] = convertUpgradeData(args[prefixes[piece] .. i]) or convertUpgradeData(args[i]) or convertUpgradeData('0') end table.push(ret, costs) end return ret end -- Make Data local tabledata, horizontalSum if type == 'weapon' or type == 'w' then tabledata, horizontalSum = forWeapon, false elseif type == 'armor' or type == 'a' then tabledata, horizontalSum = forArmor, true else error(string.format('Invalid item type "%s"', type), 2) end -- Add 'Combined' Column if needed if horizontalSum then local tb = { label = 'Combined', conversion = needRow(tabledata, 'conversion') and getHoriSum(tabledata, 'conversion') or nil } for i = 1, MAXITEMSTARS, 1 do			tb[i] = getHoriSum(tabledata, i)		end tabledata[#tabledata + 1] = tb	end -- Construct Table local wikitable = mw.html.create('table'):addClass('wikitable'):addClass('centertext'):css('border', '3px solid gray') wikitable:tag('tr') :tag('th'):attr('colspan', 1 + 2 * #tabledata):wikitext(			('Essence Required \'\'\'%s Essence\'\'\''):format(essence, essence, essence)		):css('white-space: nowrap; padding: 1em 2em !important;'):done :done local row = wikitable:tag('tr') if needRow(tabledata, 'label') then -- Label row exists row:tag('th'):attr('rowspan', 2):wikitext('Action'):done for n = 1, #tabledata, 1 do			row:tag('th'):attr('colspan', 2):wikitext(tabledata[n].label or ''):done end row = wikitable:tag('tr') else row:tag('th'):wikitext('Action'):done end for n = 1, #tabledata, 1 do		row:tag('th'):css({ width = '60px', ['font-size'] = 'small' }):wikitext('Cost'):done row:tag('th'):css({ width = '60px', ['font-size'] = 'small' }):wikitext(string.makeTitle('Cumul.', 'Cumulative')):done end if needRow(tabledata, 'conversion') then -- Conversion row exists row = wikitable:tag('tr') row:tag('td'):wikitext(string.makeTitle('Conversion', 'The cost of the conversion to a dungeon item.')):done for n = 1, #tabledata, 1 do			row:tag('td'):attr('colspan', 2):wikitext(makeList(tabledata[n].conversion or {essence = 0}, USESITEMS)):done end end for i = 1, MAXITEMSTARS, 1 do		row = wikitable:tag('tr') row:tag('td'):wikitext(('%s %s'):format(starsCell(i))):css('white-space', 'nowrap'):done for n = 1, #tabledata, 1 do			local value, cumulativeSum = tabledata[n][i] or 0, getCumSum(tabledata[n], i)			--mw.log(value) mw.log(cumulativeSum) mw.log(value == cumulativeSum) if value == cumulativeSum then row:tag('td'):attr('colspan', 2):wikitext(makeList(value, USESITEMS)):done else row:tag('td'):wikitext(makeList(value, USESITEMS)):done row:tag('td'):wikitext(makeList(cumulativeSum, USESITEMS)):done end end end return tostring(wikitable) end

return p