|
p = {}
require('strict')
require('Module:Mw.html extension')
local recipe = require('Module:Infobox Recipe') -- to make use of its extensive material searching function
local param = require( 'Module:Paramtest' )
local currency = require('Module:Currency')
local lang = mw.getContentLanguage()
function p.main()
local p = {}
local query = {'[[~*(skill node)]]',
-- non dynamic module, no inputs
'?= node',
function p.main()
'?Description=nodeDesc',
-- returns only directly needed parameter needed for the row,
'?Has subobject.Dropped item = item',
-- other parameters are determined by subqueries of chained pages
'?Has subobject.Dropped item.Description=itemDesc',
local query = {
'limit=500',
'[[Uses facility::Standard Potion Station||Potent Potion Station]]',
'?sort=Variant of,Profession Level A = lvl',
'? #- = name',
'?Recipe JSON = recipeJSON',
'?Activity XP = XP',
'?Activity duration = duration',
'?Value = sell',
'sort = Profession Level A',
'limit = 500'
}
local results = mw.smw.ask(query)
local same = {}
results = p.formatResults(results)
local onlyitem = {}
local onlynode = {}
return p.displayTable(results)
local neither = {}
local different = {}
for _,page in ipairs(results) do
if page.nodeDesc == nil and page.itemDesc == nil then
table.insert(neither,page)
elseif page.nodeDesc == nil and page.itemDesc ~= nil then
table.insert(onlyitem,page)
elseif page.nodeDesc ~= nil and page.itemDesc == nil then
table.insert(onlynode,page)
elseif page.nodeDesc == page.itemDesc then
table.insert(same,page)
else
table.insert(different,page)
end
end
local onlyitemN = 0
--for debugging
for _,_ in ipairs(onlyitem) do
--return '<pre>'..mw.text.jsonEncode(results, mw.text.JSON_PRETTY)..'</pre>'
onlyitemN = onlyitemN + 1
end
-- makes the html for the cells containing currency directly
-- Replaces nil with an "unknown" cell
local function currency_cell(amount)
if not amount then
return mw.html.create('td')
:addClass('table-bg-gray')
:css{ ['text-align'] = 'center' }
:attr{ colspan = '10' }
:wikitext("''unknown''")
:done()
end
return currency._cell(amount, { html = 'yes' })
local onlynodeN = 0
end
for _,_ in ipairs(onlynode) do
onlynodeN = onlynodeN + 1
-- do calculations and determine strings to go in cells
end
function p.formatResults(results)
local neitherN = 0
-- iterate through potions
for _, item_ in ipairs(resultsneither) do
neitherN = neitherN + 1
end
local differentN = 0
for _,_ in ipairs(different) do
differentN = differentN + 1
end
local out = mw.html.create('table')
:addClass('wikitable sortable')
:tag('tr')
-- recipe in a workable format
:tag('th')
local unpackJSON = mw.text.jsonDecode(item.recipeJSON)
:attr{ colspan = '3' }
item.outputQuantity = unpackJSON.output[1].quantity
:wikitext('Nodes with no descriptions')
:done()
-- call the module:infobox recipe to extensively search for
:tag('td')
-- all raw materials (to add to prices)
:wikitext(onlyitemN)
-- all intermediate materials (for intermediate XP and duration)
:done()
local Materials = recipe._getTrueRawMaterials(unpackJSON.materials)
:done()
if next(Materials) ~= nil then
item.reagents = Materials.rawMaterials
item.intermediates = Materials.intermediateMaterials
end
:tag('tr')
-- iterate through reagents, adding buy price to running total (individuals not needed)
:tag('th')
item.buy = 0
:wikitext('Node')
for _, reagent in ipairs(item.reagents) do
:done()
:tag('th')
:wikitext('Node description')
:done()
:tag('th')
:wikitext('Item')
:done()
:tag('th')
:wikitext('Item description')
:done()
:done()
for _,page in ipairs(onlyitem) do
--shamelessley lifted from Module:Products
out:tag('tr')
local shopPriceQuery = '[[:+]][[Sold item::' .. reagent.name .. ']]|?Shop buy price|mainlabel=' .. reagent.name
:tag('td')
local shopPriceResult = mw.smw.ask(shopPriceQuery) or {}
:wikitext(page.node)
local shopPrice = 0
:done()
:tag('td')
if shopPriceResult[1] and shopPriceResult[1]["Shop buy price"] then
:wikitext(page.nodeDesc)
shopPrice = tonumber(shopPriceResult[1]["Shop buy price"]) or 0
else :done()
item.buy = nil:tag('td')
:wikitext(page.item)
end
:done()
:tag('td')
item.buy = item.buy and item.buy + shopPrice * reagent.quantity
:wikitext(page.itemDesc)
:done()
:done()
end
out:tag('tr')
-- iterate through intermediaries to add to XP and duration parameters
:tag('th')
for _, intermediate in ipairs(item.intermediates) do
:attr{ colspan = '3' }
:wikitext('Items with no descriptions')
-- look up activity XP and add it to running total
:done()
local XPQuery = '[[Recipe output::' .. intermediate.name .. ']]|?Activity XP|mainlabel=' .. intermediate.name
:tag('td')
local XPResult = mw.smw.ask(XPQuery) or {}
:wikitext(onlynodeN)
local XPIncrease = 0
:done()
if XPResult[1] and XPResult[1]["Activity XP"] then
:done()
XPIncrease = tonumber(XPResult[1]["Activity XP"]) or 0
else
XPIncrease = nil
end
-- need to look up both the amount of the item used in this recipe and created in its own recipe to know how much of this xp to use
local QTYused = intermediate.quantity
local QTYQuery = '[[Recipe output::' .. intermediate.name .. ']]|?Recipe JSON|mainlabel=' .. intermediate.name
local QTYResult = mw.smw.ask(QTYQuery) or {}
local QTYmade = 0
if QTYResult[1] and QTYResult[1]["Recipe JSON"] then
QTYmade = mw.text.jsonDecode(QTYResult[1]["Recipe JSON"]) or {}
end
QTYmade = QTYmade.output[1].quantity
item.XP = item.XP and XPIncrease and item.XP + XPIncrease * QTYused / QTYmade;
-- look up activity duration and add it to running total
local durationQuery = '[[Recipe output::' .. intermediate.name .. ']]|?Activity duration|mainlabel=' .. intermediate.name
local durationResult = mw.smw.ask(durationQuery) or {}
local durationIncrease = 0
if durationResult[1] and durationResult[1]["Activity duration"] then
durationIncrease = tonumber(durationResult[1]["Activity duration"]) or 0
else
durationIncrease = nil
end
item.duration = item.duration and durationIncrease and item.duration + durationIncrease * intermediate.quantity
end
-- direct values
item.sell = item.sell and item.outputQuantity and item.sell * item.outputQuantity
item.profit = item.sell and item.buy and item.sell - item.buy
item.profitPerXP = item.profit and item.XP and math.floor(item.profit / item.XP * 100) / 100
-- 40 seconds to buy new supplies and travel and deposit and everything, per 12 potions
local batchSize = 12
local downtime = 40
item.duration = item.duration and item.duration + downtime/batchSize
item.potionPerHour = item.duration and 1 / item.duration * 3600
-- properties per hour
item.XPPerHour = item.XP and item.potionPerHour and math.floor(item.XP * item.potionPerHour)
item.profitPerHour = item.profit and item.potionPerHour and math.floor(item.profit * item.potionPerHour)
end
return results
end
-- make the table
function p.displayTable(results)
local out = mw.html.create('table')
:addClass('wikitable sortable')
:tag('tr')
:tag('th')
:wikitext('[[File:Alchemist small icon.png|15px]] LevelNode')
:done()
:tag('th')
:wikitext('Node description')
:attr{ colspan = '3' }
:wikitext('Potion')
:done()
:tag('th')
:wikitext('ReagentsItem')
:done()
:tag('th')
:wikitext('Item description')
:attr{ colspan = '10' }
:wikitext('Buy Value')
:done()
:tagdone('th')
:attr{ colspan = '10' }
for _,page in ipairs(onlynode) do
:wikitext('Sell Value')
out:tag('tr')
:tag('td')
:wikitext(page.node)
:done()
:tag('td')
:wikitext(page.nodeDesc)
:done()
:tag('td')
:wikitext(page.item)
:done()
:tag('td')
:wikitext(page.itemDesc)
:done()
:done()
end
out:tag('tr')
:tag('th')
:attr{ colspan = '103' }
:wikitext('ProfitNiether Node nor Item has description')
:done()
:tag('td')
:wikitext(neitherN)
:done()
:done()
:tag('tr')
:tag('th')
:attr{ colspan = wikitext('10Node' })
:wikitext('Profit/hr')
:done()
:tag('th')
:wikitext('XPNode description')
:done()
:tag('th')
:wikitext('XP/hrItem')
:done()
:tag('th')
:wikitext('Item description')
:attr{ colspan = '10' }
:wikitext('Coins/XP')
:done()
:done()
for _,page in ipairs(neither) do
local unknown_value_cell = mw.html.create('td')
out:addClasstag('table-bg-graytr')
:css{ ['text-align'] = 'center' }
:wikitext("''unknown''")
for i, item in ipairs(results) do
local row = out:tag('tr')
:IF(item.lvl)
:tag('td')
:wikitext(page.node)
:css{ ['text-align'] = 'center' }
:wikitextdone(item.lvl)
:tag('td')
:wikitext(page.nodeDesc)
:done()
:tag('td')
:wikitext(page.item)
:done()
:tag('td')
:wikitext(page.itemDesc)
:done()
:ELSE()
:node(unknown_value_cell)
:END()
:tag('td')
:css{ ['border-right'] = '0', ['padding-right'] = '0', ['text-align'] = 'right' }
:attr{ ['data-sort-value'] = item.name }
:wikitext(item.outputQuantity .. ' ×')
:done()
end
:tag('td')
:addClass('plinkt-image no-border')
out:tag('tr')
:css{ ['border-left'] = '0', ['padding-left'] = '0' }
:tag('th')
:wikitext('[[File:' .. item.name .. '.png|link=' .. item.name .. '|30px]]')
:attr{ colspan = '3' }
:wikitext('Node and Item both have descriptions, but they are different')
:done()
:tag('td')
:wikitext(differentN)
:addClass('plinkt-link no-border')
:wikitext('[[' .. item.name .. ']]')
:done()
:done()
local reagentCell = row:tag('td')
for i, _ in ipairs(item.reagents) do
reagentCell:wikitext(item.reagents[i].quantity .. '× [[File:' .. item.reagents[i].name .. '.png|18px|link=' .. item.reagents[i].name .. ']]' .. '[[' .. item.reagents[i].name .. ']]<br>')
end
:tag('tr')
row
:tag('th')
:node(currency_cell(item.buy))
:wikitext('Node')
:node(currency_cell(item.sell))
:done()
:node(currency_cell(item.profit))
:tag('th')
:node(currency_cell(item.profitPerHour))
:wikitext('Node description')
:IFdone(item.XP)
:tag('th')
:wikitext('Item')
:done()
:tag('th')
:wikitext('Item description')
:done()
:done()
for _,page in ipairs(different) do
out:tag('tr')
:tag('td')
:wikitext(itempage.XP and lang:formatNum(tonumber(item.XP))node)
:done()
:ELSE()
:node(unknown_value_cell)
:END()
:IF(item.XPPerHour)
:tag('td')
:wikitext(itempage.XPPerHour and lang:formatNum(tonumber(item.XPPerHour))nodeDesc)
:done()
:ELSEtag('td')
:nodewikitext(unknown_value_cellpage.item)
:ENDdone()
:tag('td')
:wikitext(page.itemDesc)
:node(currency_cell(item.profitPerXP))
:done()
:done()
end
return out
end
return p
| 