Módulo:Porter calc

Documentação do módulo

Esta documentação é transcluída de Predefinição:Sem documentação/doc. [editar] [atualizar]

Este módulo não possui nenhuma documentação. Por favor, considere adicionar uma documentação em Módulo:Porter calc/doc. [editar]

Módulo:Porter calc's a função main é invocada por Predefinição:Calculadora sinal do transportador.

Módulo:Porter calc requer Módulo:Mercado.

Módulo:Porter calc requer Módulo:Moedas.

Módulo:Porter calc requer Módulo:Porter items/data.

---

-- <nowiki>

local p = {}

-- mw.loadData would be better but it can't handle it (#data.items[1] == 0 with mw.loadData)
local data = require('Módulo:Porter_items/data')
local gep = require('Módulo:Mercado')._price
local coins = require('Módulo:Moedas')._amount

function p.main(frame)
	local info = {
		{'I',   30, 'pálida',       	'safira',   	5},
		{'II',  35, 'resplandecente',   'safira',   	10},
		{'III', 40, 'faiscante',    	'esmeralda',    15},
		{'IV',  45, 'lampejante',   	'esmeralda',    20},
		{'V',   60, 'radiante',     	'rubi',         25},
		{'VI',  80, 'luminosa',     	'diamante',     30},
		{'VII',120, 'incandescente',	'dragolito',	50},
	}
	
	local function get_price(name)
		local _, n = pcall(gep,name)

		return n
	end
	
	local cost = {}
	
	for i, v in ipairs(info) do
		local c = (v[2] * get_price('Energia ' .. v[3]) + get_price('Colar de ' .. v[4])) / v[5]
		
		table.insert(cost, c)
	end
	
	local function sign_name(n)
		return 'Sinal do transportador ' .. info[n][1]
	end
	
	local function link(title, text)
		local s = '[[' .. title
		
		if text then
			s = s .. '|' .. text
		end
		
		return s .. ']]'
	end
	
	local function get_profit(item, i)
		local p = get_price(item)
		
		if type(p) ~= 'number' then
			return 'Não negociável'
		else
			local profit = p - cost[i]
			
			return coins(profit)
		end
	end
	
	local container = mw.html.create('div')

	local cols = #info + 1

	for i, category in ipairs(data.categories) do
		local t = container:tag('table'):addClass('wikitable mw-collapsible mw-collapsed')
		
		t:tag('tr'):tag('th'):attr('colspan', cols):wikitext(category == 'Outro' and category or link(category))
		
		local header = t:tag('tr')
		for j=0, #info do
			local text
			if j == 0 then
				text = 'Objeto'
			else
				text = link(sign_name(j), info[j][1])
			end
			
			header:tag('th'):wikitext(text)
		end
		
		for _, item in ipairs(data.items[i]) do
			local row = t:tag('tr')
					:tag('td')
					:wikitext('[[Arquivo:'..item..'.png|link='..item..
							']][['..item..']]')
					:done()
			
			for j, v in ipairs(info) do
				row:tag('td'):wikitext(get_profit(item, j))
			end
		end
	end
	
	return container
end

return p