Documentation for this module may be created at Module:Move7/doc
local p = {};
local cargo = mw.ext.cargo
local tables = 'MoveDataCargoTest'
p.fields = 'id,name,input,target,damage,reach,tracksLeft,tracksRight,startup,recv,tot,crush,block,hit,ch,notes'
-- Get move id for querying, which is the 1st unnamed param of a template.
-- Moves are queried like this: {{TempateName|<moveId>}}
function getQueryId(frame)
local id = assert(frame:getParent().args[1], '1st unnamed param must be move id')
return mw.text.trim(id) -- whitespace is stripped only from named params
end
function moveNotFoundMsg(id)
return "move with id = '" .. id .. "' not found"
end
p.display = function(frame)
local function appendFrom(dst, src)
for k, v in pairs(src) do
dst[k] = v
end
end
local function getLeads(parentId)
local leads = {}
while (parentId ~= nil and parentId ~= '') do
local parent = cargo.query(tables, 'input,target,damage,parent', { where = "id='" .. parentId .. "'" })[1]
assert(parent, 'parent = "' .. parentId .. '" not found')
parentId = parent['parent']
parent['parent'] = nil
for k, v in pairs(parent) do
local leadName = k .. 'Lead'
if leads[leadName] == nil then
leads[leadName] = ''
end
leads[leadName] = v .. leads[leadName]
end
end
return leads
end
local leads = getLeads(frame:getParent().args['parent'])
if next(leads) == nil then
return frame:expandTemplate{ title = 'MoveData', args = frame:getParent().args }
end
local args = {}
appendFrom(args, frame:getParent().args)
appendFrom(args, leads)
return frame:expandTemplate{ title = 'MoveData', args = args }
end
p.query = function(frame)
local id = getQueryId(frame)
local result = cargo.query(tables, p.fields, { where = "id = '" .. id .. "'" })[1]
assert(result, moveNotFoundMsg)
for k, v in pairs(result) do
local override = frame:getParent().args[k]
if override ~= nil then
result[k] = override
end
end
return frame:expandTemplate{ title = 'MoveDataCargoTest/Display', args = result }
end
p.punisher = function(frame)
local id = getQueryId(frame)
local frames = frame:getParent().args['frames']
local rowspan = frame:getParent().args['rowspan']
local combo = frame:getParent().args['combo']
local type = frame:getParent().args['type']
local input = ''
local damage = 0
local hit = nil
while (id ~= '') do
local move = cargo.query(tables, 'parent,input,damage,hit', { where = "id = '" .. id .. "'" })[1]
assert(move, moveNotFoundMsg(id))
input = move['input'] .. input
damage = damage + move['damage']
if hit == nil then
hit = move['hit']
end
id = move['parent']
end
frame:callParserFunction{ name = '#cargo_store', args = {
'_table=Punisher',
type = type,
frames = frames,
damage = combo or damage
} }
local row = mw.html.create('tr')
if rowspan ~= 'skip' then
row:tag('td'):wikitext(frames):attr('rowspan', rowspan or 1)
end
row:tag('td'):wikitext(input)
if combo ~= nil then
row:tag('td'):wikitext(damage .. ' (' .. combo .. ')')
else
row:tag('td'):wikitext(damage)
end
row:tag('td'):wikitext(hit)
return row
end
p.punishment = function(frame)
local character = frame:getParent().args[1]
local punishers = cargo.query('Punisher', 'type,frames,damage', { where = "Punisher._pageTitle='User:Lume/Cargo testing/" .. character .. "punishers'" })
if (true) then
local msg = ''
for _, p in pairs(punishers) do
for k, v in pairs(p) do
msg = msg .. k .. ' -> ' .. v .. ' : ' .. type(v)
end
end
if (msg == '') then
local indent = ''
for i, row in pairs(cargo.query('Punisher', 'type,frames,damage,Punisher._pageTitle,Punisher._pageName', {})) do
msg = msg .. 'i:'
indent = ' '
for k, v in pairs(row) do
msg = msg .. indent .. k .. ' -> ' .. v .. ' : ' .. type(v)
end
end
end
error(msg)
end
data = mw.loadData('Module:Fighter/punishment')
local block = data.block[name]
if (block == nil) then
error("Punishers not defined in [[Module:Fighter/punishment]] for " .. name)
end
local span = 80
for _,t_group in pairs(block) do
for _,t_startup in pairs(t_group) do
for n,_ in pairs(t_startup) do
if n > span then
span = n
end
end
end
end
if span % 5 ~= 0 then
span = span + 5 - (span % 5)
end
local scale = mw.html.create('div'):addClass('punishment-scale')
for i = 0,span,5 do
local pip = mw.html.create('div'):addClass('punishment-scalepip')
:css("width", string.format("%.2f%%", 100 * i / span))
:node(mw.html.create('div'):addClass('punishment-piplabel'):wikitext(i))
if i % 50 == 0 then
pip:addClass('major')
elseif i % 25 == 0 then
pip:addClass('minor')
end
scale:node(pip)
end
local root = mw.html.create('div'):addClass('punishment')
for pos,punishment in pairs(block) do
local group = mw.html.create('div'):addClass('punishment-group')
root:node(group)
group:node(mw.html.create("div"):addClass('punishment-label')
:wikitext(pos:gsub("^%l", string.upper) .. "ing punishment")
)
local grid = mw.html.create('div'):addClass('punishment-grid')
group:node(grid)
best = {}
for i = 1,50 do
-- don't carry rage/meter punishment, makes viz. look funky
best[data.P_METER] = nil
if punishment[i] ~= nil then
for k,v in pairs(punishment[i]) do
if best[v] == nil or best[v] < k then
best[v] = k
end
end
if best[true] then
for k,v in pairs(best) do
if k ~= true and best[k] <= best[true] then
best[k] = nil
end
end
end
end
if punishment[i] ~= nil or (i >= 10 and i <= 15) then
bestSortedKeys = {}
for k,_ in pairs(best) do
table.insert(bestSortedKeys, k)
end
table.sort(bestSortedKeys, function (a, b)
-- Larger bars first so that smaller bars are actually visible
return best[a] > best[b]
end)
grid:node(mw.html.create('div'):addClass('punishment-startup')
:wikitext("-" .. i)
)
local bars = mw.html.create('div'):addClass('punishment-bars')
grid:node(bars)
for i,k in ipairs(bestSortedKeys) do
local class = k
if class == true then class = 'bg-blue' end
bars:node(
mw.html.create('div'):addClass('punishment-bar')
:addClass(class)
:css("width", string.format("%.2f%%", 100 * best[k] / span))
:wikitext(best[k])
)
end
local median = data.median[pos][i]
if median ~= nil then
bars:node(
mw.html.create('div'):addClass('punishment-median')
:css('width', string.format("%.2f%%", 100 * median / span))
)
end
end
end
grid:node(mw.clone(scale))
end
return root
end
return p