Sunrust Wiki - User contributions [en]

Module:Weapon Infobox

2020-11-29T07:23:04Z

Engie: Revert

--
-- This module implements {{Gun infobox}}
--

local p = {}

local navbar = require('Module:Navbar')._navbar

local args = {}
local origArgs
local root

local function notempty( s ) return s and s:match( '%S' ) end

local function fixChildBoxes(sval, tt)
if notempty(sval) then
local marker = ''
local s = sval
s = mw.ustring.gsub(s, '(<%s*[Tt][Rr])', marker .. '%1')
s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>)', '%1' .. marker)
if s:match(marker) then
s = mw.ustring.gsub(s, marker .. '%s*' .. marker, '')
s = mw.ustring.gsub(s, '([\r\n]|-[^\r\n]*[\r\n])%s*' .. marker, '%1')
s = mw.ustring.gsub(s, marker .. '%s*([\r\n]|-)', '%1')
s = mw.ustring.gsub(s, '(</[Cc][Aa][Pp][Tt][Ii][Oo][Nn]%s*>%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '(<%s*[Tt][Aa][Bb][Ll][Ee][^<>]*>%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '^(%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '([\r\n]%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, marker .. '(%s*</[Tt][Aa][Bb][Ll][Ee]%s*>)', '%1')
s = mw.ustring.gsub(s, marker .. '(%s*\n|%})', '%1')
end
if s:match(marker) then
local subcells = mw.text.split(s, marker)
s = ''
for k = 1, #subcells do
if k == 1 then
s = s .. subcells[k] .. '</' .. tt .. '></tr>'
elseif k == #subcells then
local rowstyle = ' style="display:none"'
if notempty(subcells[k]) then rowstyle = '' end
s = s .. '<tr' .. rowstyle ..'><' .. tt .. ' colspan=2>\n' .. subcells[k]
elseif notempty(subcells[k]) then
if (k % 2) == 0 then
s = s .. subcells[k]
else
s = s .. '<tr><' .. tt .. ' colspan=2>\n' .. subcells[k] .. '</' .. tt .. '></tr>'
end
end
end
end
-- the next two lines add a newline at the end of lists for the PHP parser
-- https://en.wikipedia.org/w/index.php?title=Template_talk:Infobox_musical_artist&oldid=849054481
-- remove when [[:phab:T191516]] is fixed or OBE
s = mw.ustring.gsub(s, '([\r\n][%*#;:][^\r\n]*)$', '%1\n')
s = mw.ustring.gsub(s, '^([%*#;:][^\r\n]*)$', '%1\n')
s = mw.ustring.gsub(s, '^([%*#;:])', '\n%1')
s = mw.ustring.gsub(s, '^(%{%|)', '\n%1')
return s
else
return sval
end
end

local function union(t1, t2)
-- Returns the union of the values of two tables, as a sequence.
local vals = {}
for k, v in pairs(t1) do
vals[v] = true
end
for k, v in pairs(t2) do
vals[v] = true
end
local ret = {}
for k, v in pairs(vals) do
table.insert(ret, k)
end
return ret
end

local function getArgNums(prefix)
-- Returns a table containing the numbers of the arguments that exist
-- for the specified prefix. For example, if the prefix was 'data', and
-- 'data1', 'data2', and 'data5' exist, it would return {1, 2, 5}.
local nums = {}
for k, v in pairs(args) do
local num = tostring(k):match('^' .. prefix .. '([1-9]%d*)$')
if num then table.insert(nums, tonumber(num)) end
end
table.sort(nums)
return nums
end

local function addRow(rowArgs)
-- Adds a row to the infobox, with either a header cell
-- or a label/data cell combination.
if rowArgs.header then
root
:tag('tr')
:addClass(rowArgs.rowclass)
:cssText(rowArgs.rowstyle)
:attr('id', rowArgs.rowid)
:tag('th')
:attr('colspan', 2)
:attr('id', rowArgs.headerid)
:addClass(rowArgs.class)
:addClass(args.headerclass)
:css('text-align', 'center')
:cssText(args.headerstyle)
:cssText(rowArgs.rowcellstyle)
:wikitext(fixChildBoxes(rowArgs.header, 'th'))
elseif rowArgs.data then
local row = root:tag('tr')
row:addClass(rowArgs.rowclass)
row:cssText(rowArgs.rowstyle)
row:attr('id', rowArgs.rowid)
if rowArgs.label then
row
:tag('th')
:attr('scope', 'row')
:attr('id', rowArgs.labelid)
:cssText(args.labelstyle)
:cssText(rowArgs.rowcellstyle)
:wikitext(rowArgs.label)
:done()
end

local dataCell = row:tag('td')
if not rowArgs.label then
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
end
dataCell
:attr('id', rowArgs.dataid)
:addClass(rowArgs.class)
:cssText(rowArgs.datastyle)
:cssText(rowArgs.rowcellstyle)
:wikitext(fixChildBoxes(rowArgs.data, 'td'))
end
end

local function renderWeapon() --------------- WEAPON NAME -------------------
if not args.weapon then return end

root
:tag('caption')
:addClass(args.weaponclass)
:cssText("background:#F90;")
:wikitext(args.weapon)
end

local function renderTier() ------------------ TIER -----------------------
if not args.tier then return end

root
:tag('tr')
:tag('th')
:attr('colspan', 2)
:addClass(args.tierclass)
:css('text-align', 'center')
:css('font-size', '125%')
:css('font-weight', 'bold')
:cssText(args.tierstyle)
:wikitext("Tier ")
:wikitext(fixChildBoxes(args.tier,'th'))
end

local function renderCost() ---------------- COST --------------------
if not args.cost then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:cssText(args.costlabelclass)
:cssText(args.costlabelstyle)
:wikitext("Cost :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:addClass(args.costclass)
:cssText(args.coststyle)
:wikitext(fixChildBoxes(args.cost, 'td'))
:wikitext(" points")
end

local function renderDamage() ---------------- DAMAGE --------------------
if not args.damage then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Damage :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.damage, 'td'))
end

local function renderReload() ---------------- RELOAD --------------------
if not args.reload then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Reload speed :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.reload, 'td'))
:wikitext(" s")
end

local function renderDelay() ----------------ATTACK DELAY --------------------
if not args.attackdelay then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Attack delay :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.attackdelay, 'td'))
:wikitext(" s")
end

local function renderClipsize() ----------------CLIP SIZE--------------------
if not args.clipsize then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Clip size :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.clipsize, 'td'))
end

local function renderMinspread() ----------------MINSPREAD--------------------
if not args.minspread then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Min Spread :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.minspread, 'td'))
end

local function renderMaxspread() ----------------MAXSPREAD--------------------
if not args.maxspread then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Max Spread :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.maxspread, 'td'))
end

local function renderMovespeed() ----------------MOVEMENT SPEED--------------------
if not args.movespeed then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Move Speed :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.movespeed, 'td'))
end

local function renderRespierce() ----------------RESISTANCE PIERCE--------------------
if not args.respierce then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Res Pierce :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.respierce, 'td'))
:wikitext("%")
end

local function renderOverkill() ----------------OVERKILL--------------------
if not args.overkill then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Overkill :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.overkill, 'td'))
:wikitext("%")
end

local function renderPointmulti() ---------------- POINT MULTIPLIER --------------------
if not args.pointmulti then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Point Multi :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.pointmulti, 'td'))
:wikitext("%")
end

local function renderSlow() ---------------- SLOW --------------------
if not args.pulseslow then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Slow :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.pulseslow, 'td'))
:wikitext("%")
end

local function renderPierces() ---------------- PIERCES --------------------
if not args.nbpierces then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Pierces :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.nbpierces, 'td'))
end

local function renderPiercetaper() ---------------- PIERCE TAPER --------------------
if not args.piercetaper then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Pierce taper :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.piercetaper, 'td'))
:wikitext("%")
end

local function renderRadius() ---------------- AOE RADIUS --------------------
if not args.aoeradius then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Area Radius :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.aoeradius, 'td'))
end

local function renderTaper() ---------------- AOE TAPER --------------------
if not args.aoetaper then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Area Taper :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.aoetaper, 'td'))
:wikitext("%")
end

local function renderHsm() ---------------- HS MULTI --------------------
if not args.headshotmulti then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Headshot multiplier :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.headshotmulti, 'td'))
:wikitext("x")
end

local function renderDebufftime() ---------------- DEBUFF TIME --------------------
if not args.debufftime then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Debuff time :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.debufftime, 'td'))
:wikitext(" s")
end

local function renderBufftime() ---------------- BUFF TIME --------------------
if not args.bufftime then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Buff duration :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.bufftime, 'td'))
:wikitext(" s")
end

local function renderRange() ---------------- RANGE --------------------
if not args.range then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Range :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.range, 'td'))
end

local function renderKb() ---------------- KB --------------------
if not args.knockback then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Knockback :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.knockback, 'td'))
end

local function renderStability() ---------------- STABILITY --------------------
if not args.stability then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Stability :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.stability, 'td'))
end

local function renderStamina() ---------------- STAMINA USE --------------------
if not args.staminause then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Stamina use :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.staminause, 'td'))
:wikitext("%")
end

local function renderBlock() ---------------- BLOCK VALUE --------------------
if not args.block then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Block value :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.block, 'td'))
:wikitext("%")
end

local function renderImpactdly() ---------------- IMPACT DELAY --------------------
if not args.impactdelay then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Impact delay :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.impactdelay, 'td'))
:wikitext(" s")
end

local function renderSize() ---------------- SIZE --------------------
if not args.size then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Size :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.size, 'td'))
end

local function renderHealing() ---------------- HEALING --------------------
if not args.healing then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Healing :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.healing, 'td'))
end

local function renderBelowRow()
if not args.below then return end

root
:tag('tr')
:tag('td')
:attr('colspan', '2')
:addClass(args.belowclass)
:css('text-align', 'center')
:cssText(args.belowstyle)
:wikitext(fixChildBoxes(args.below,'td'))
end

local function renderSubheaders()
if args.subheader then
args.subheader1 = args.subheader
end
if args.subheaderrowclass then
args.subheaderrowclass1 = args.subheaderrowclass
end
local subheadernums = getArgNums('subheader')
for k, num in ipairs(subheadernums) do
addRow({
data = args['subheader' .. tostring(num)],
datastyle = args.subheaderstyle,
rowcellstyle = args['subheaderstyle' .. tostring(num)],
class = args.subheaderclass,
rowclass = args['subheaderrowclass' .. tostring(num)]
})
end
end

local function renderImages()
if args.image then
args.image1 = args.image
end
if args.caption then
args.caption1 = args.caption
end
local imagenums = getArgNums('image')
for k, num in ipairs(imagenums) do
local caption = args['caption' .. tostring(num)]
local data = mw.html.create():wikitext(args['image' .. tostring(num)])
if caption then
data
:tag('div')
:cssText(args.captionstyle)
:wikitext(caption)
end
addRow({
data = tostring(data),
datastyle = args.imagestyle,
class = args.imageclass,
rowclass = args['imagerowclass' .. tostring(num)]
})
end
end

local function renderRows()
-- Gets the union of the header and data argument numbers,
-- and renders them all in order using addRow.
local rownums = union(getArgNums('header'), getArgNums('data'))
table.sort(rownums)
for k, num in ipairs(rownums) do
addRow({
header = args['header' .. tostring(num)],
label = args['label' .. tostring(num)],
data = args['data' .. tostring(num)],
datastyle = args.datastyle,
class = args['class' .. tostring(num)],
rowclass = args['rowclass' .. tostring(num)],
rowstyle = args['rowstyle' .. tostring(num)],
rowcellstyle = args['rowcellstyle' .. tostring(num)],
dataid = args['dataid' .. tostring(num)],
labelid = args['labelid' .. tostring(num)],
headerid = args['headerid' .. tostring(num)],
rowid = args['rowid' .. tostring(num)]
})
end
end

local function renderNavBar()
if not args.name then return end

root
:tag('tr')
:tag('td')
:attr('colspan', '2')
:css('text-align', 'right')
:wikitext(navbar{
args.name,
mini = 1,
})
end

local function renderItalicTitle()
local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])
if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then
root:wikitext(mw.getCurrentFrame():expandTemplate({title = 'italic title'}))
end
end

local function renderTrackingCategories()
if args.decat ~= 'yes' then
if args.child == 'yes' then
if args.gun then
root:wikitext('[[Category:Pages which use embedded gunInfobox templates with the title parameter]]')
end
elseif #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then
root:wikitext('[[Category:Articles which use gunInfobox templates with no data rows]]')
end
end
end

local function _infobox() --INFOBOX RENDERING--
-- Specify the overall layout of the infobox, with special settings
-- if the infobox is used as a 'child' inside another infobox.
if args.child ~= 'yes' then
root = mw.html.create('table')

root
:addClass((args.subbox ~= 'yes') and 'infobox' or nil)
:addClass(args.bodyclass)

if args.subbox == 'yes' then
root
:css('padding', '0')
:css('border', 'none')
:css('margin', '-3px')
:css('width', 'auto')
:css('min-width', '100%')
:css('font-size', '100%')
:css('clear', 'none')
:css('float', 'none')
:css('background-color', 'transparent')
else
root
:css('width', '22em')
end
root
:cssText(args.bodystyle)

renderWeapon()
renderTier()
else
root = mw.html.create()

root
:wikitext(args.gun)
end
renderCost()
renderDamage()
renderReload()
renderDelay()
renderClipsize()
renderMinspread()
renderMaxspread()
renderMovespeed()
renderRespierce()
renderOverkill()
renderPointmulti()
renderSlow()
renderPierces()
renderPiercetaper()
renderRadius()
renderTaper()
renderHsm()
renderDebufftime()
renderBufftime()
renderRange()
renderKb()
renderStability()
renderStamina()
renderBlock()
renderImpactdly()
renderSize()
renderHealing()

renderSubheaders()
renderImages()
renderRows()
renderBelowRow()
renderNavBar()
renderItalicTitle()
renderTrackingCategories()

return tostring(root)
end

local function preprocessSingleArg(argName)
-- If the argument exists and isn't blank, add it to the argument table.
-- Blank arguments are treated as nil to match the behaviour of ParserFunctions.
if origArgs[argName] and origArgs[argName] ~= '' then
args[argName] = origArgs[argName]
end
end

local function preprocessArgs(prefixTable, step)
-- Assign the parameters with the given prefixes to the args table, in order, in batches
-- of the step size specified. This is to prevent references etc. from appearing in the
-- wrong order. The prefixTable should be an array containing tables, each of which has
-- two possible fields, a "prefix" string and a "depend" table. The function always parses
-- parameters containing the "prefix" string, but only parses parameters in the "depend"
-- table if the prefix parameter is present and non-blank.
if type(prefixTable) ~= 'table' then
error("Non-table value detected for the prefix table", 2)
end
if type(step) ~= 'number' then
error("Invalid step value detected", 2)
end

-- Get arguments without a number suffix, and check for bad input.
for i,v in ipairs(prefixTable) do
if type(v) ~= 'table' or type(v.prefix) ~= "string" or (v.depend and type(v.depend) ~= 'table') then
error('Invalid input detected to preprocessArgs prefix table', 2)
end
preprocessSingleArg(v.prefix)
-- Only parse the depend parameter if the prefix parameter is present and not blank.
if args[v.prefix] and v.depend then
for j, dependValue in ipairs(v.depend) do
if type(dependValue) ~= 'string' then
error('Invalid "depend" parameter value detected in preprocessArgs')
end
preprocessSingleArg(dependValue)
end
end
end

-- Get arguments with number suffixes.
local a = 1 -- Counter variable.
local moreArgumentsExist = true
while moreArgumentsExist == true do
moreArgumentsExist = false
for i = a, a + step - 1 do
for j,v in ipairs(prefixTable) do
local prefixArgName = v.prefix .. tostring(i)
if origArgs[prefixArgName] then
moreArgumentsExist = true -- Do another loop if any arguments are found, even blank ones.
preprocessSingleArg(prefixArgName)
end
-- Process the depend table if the prefix argument is present and not blank, or
-- we are processing "prefix1" and "prefix" is present and not blank, and
-- if the depend table is present.
if v.depend and (args[prefixArgName] or (i == 1 and args[v.prefix])) then
for j,dependValue in ipairs(v.depend) do
local dependArgName = dependValue .. tostring(i)
preprocessSingleArg(dependArgName)
end
end
end
end
a = a + step
end
end

function p.infobox(frame) --PREPROCESSING LIST--
-- If called via #invoke, use the args passed into the invoking template.
-- Otherwise, for testing purposes, assume args are being passed directly in.
if frame == mw.getCurrentFrame() then
origArgs = frame:getParent().args
else
origArgs = frame
end

-- Parse the data parameters in the same order that the old {{infobox}} did, so that
-- references etc. will display in the expected places. Parameters that depend on
-- another parameter are only processed if that parameter is present, to avoid
-- phantom references appearing in article reference lists.
preprocessSingleArg('child')
preprocessSingleArg('bodyclass')
preprocessSingleArg('subbox')
preprocessSingleArg('bodystyle')

--WEAPON
preprocessSingleArg('weapon')
preprocessSingleArg('weaponclass')
preprocessSingleArg('weaponstyle')

--TIER
preprocessSingleArg('tier')
preprocessSingleArg('tierclass')
preprocessSingleArg('tierstyle')

--COST
preprocessSingleArg('cost')
preprocessSingleArg('costclass')
preprocessSingleArg('coststyle')

--DAMAGE
preprocessSingleArg('damage')

--RELOAD
preprocessSingleArg('reload')

--ATTACK DELAY
preprocessSingleArg('attackdelay')

--CLIP SIZE
preprocessSingleArg('clipsize')

--MINSPREAD
preprocessSingleArg('minspread')

--MAXSPREAD
preprocessSingleArg('maxspread')

--MOVESPEED
preprocessSingleArg('movespeed')

--RESISTANCE PIERCE
preprocessSingleArg('respierce')

--OVERKILL
preprocessSingleArg('overkill')

--POINT MULTI
preprocessSingleArg('pointmulti')

--SLOW
preprocessSingleArg('pulseslow')

--PIERCES
preprocessSingleArg('nbpierces')

--PIERCE TAPER
preprocessSingleArg('piercetaper')

--AOE RADIUS
preprocessSingleArg('aoeradius')

--AOE TAPER
preprocessSingleArg('aoetaper')

--HS MULTI
preprocessSingleArg('headshotmulti')

--DEBUFF TIME
preprocessSingleArg('debufftime')

--BUFF TIME
preprocessSingleArg('bufftime')

--RANGE
preprocessSingleArg('range')

--KB
preprocessSingleArg('knockback')

--STABILITY
preprocessSingleArg('stability')

--STAMINA
preprocessSingleArg('staminause')

--BLOCK VALUE
preprocessSingleArg('block')

--IMPACT DELAY
preprocessSingleArg('impactdelay')

--SIZE
preprocessSingleArg('size')

--HEALING
preprocessSingleArg('healing')

preprocessArgs({
{prefix = 'subheader', depend = {'subheaderstyle', 'subheaderrowclass'}}
}, 10)
preprocessSingleArg('subheaderstyle')
preprocessSingleArg('subheaderclass')
preprocessArgs({
{prefix = 'image', depend = {'caption', 'imagerowclass'}}
}, 10)
preprocessSingleArg('captionstyle')
preprocessSingleArg('imagestyle')
preprocessSingleArg('imageclass')
preprocessArgs({
{prefix = 'header'},
{prefix = 'data', depend = {'label'}},
{prefix = 'rowclass'},
{prefix = 'rowstyle'},
{prefix = 'rowcellstyle'},
{prefix = 'class'},
{prefix = 'dataid'},
{prefix = 'labelid'},
{prefix = 'headerid'},
{prefix = 'rowid'}
}, 50)
preprocessSingleArg('headerclass')
preprocessSingleArg('headerstyle')
preprocessSingleArg('labelstyle')
preprocessSingleArg('datastyle')
preprocessSingleArg('below')
preprocessSingleArg('belowclass')
preprocessSingleArg('belowstyle')
preprocessSingleArg('name')
args['italic title'] = origArgs['italic title'] -- different behaviour if blank or absent
preprocessSingleArg('decat')

return _infobox()
end

return p

Module:Weapon Infobox

2020-11-29T07:19:07Z

Engie:

--
-- This module implements {{Gun infobox}}
--

local p = {}

local navbar = require('Module:Navbar')._navbar

local args = {}
local origArgs
local labelstyle= "background:#999;color:#FFF;"
local root

local function notempty( s ) return s and s:match( '%S' ) end

local function fixChildBoxes(sval, tt)
if notempty(sval) then
local marker = ''
local s = sval
s = mw.ustring.gsub(s, '(<%s*[Tt][Rr])', marker .. '%1')
s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>)', '%1' .. marker)
if s:match(marker) then
s = mw.ustring.gsub(s, marker .. '%s*' .. marker, '')
s = mw.ustring.gsub(s, '([\r\n]|-[^\r\n]*[\r\n])%s*' .. marker, '%1')
s = mw.ustring.gsub(s, marker .. '%s*([\r\n]|-)', '%1')
s = mw.ustring.gsub(s, '(</[Cc][Aa][Pp][Tt][Ii][Oo][Nn]%s*>%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '(<%s*[Tt][Aa][Bb][Ll][Ee][^<>]*>%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '^(%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '([\r\n]%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, marker .. '(%s*</[Tt][Aa][Bb][Ll][Ee]%s*>)', '%1')
s = mw.ustring.gsub(s, marker .. '(%s*\n|%})', '%1')
end
if s:match(marker) then
local subcells = mw.text.split(s, marker)
s = ''
for k = 1, #subcells do
if k == 1 then
s = s .. subcells[k] .. '</' .. tt .. '></tr>'
elseif k == #subcells then
local rowstyle = ' style="display:none"'
if notempty(subcells[k]) then rowstyle = '' end
s = s .. '<tr' .. rowstyle ..'><' .. tt .. ' colspan=2>\n' .. subcells[k]
elseif notempty(subcells[k]) then
if (k % 2) == 0 then
s = s .. subcells[k]
else
s = s .. '<tr><' .. tt .. ' colspan=2>\n' .. subcells[k] .. '</' .. tt .. '></tr>'
end
end
end
end
-- the next two lines add a newline at the end of lists for the PHP parser
-- https://en.wikipedia.org/w/index.php?title=Template_talk:Infobox_musical_artist&oldid=849054481
-- remove when [[:phab:T191516]] is fixed or OBE
s = mw.ustring.gsub(s, '([\r\n][%*#;:][^\r\n]*)$', '%1\n')
s = mw.ustring.gsub(s, '^([%*#;:][^\r\n]*)$', '%1\n')
s = mw.ustring.gsub(s, '^([%*#;:])', '\n%1')
s = mw.ustring.gsub(s, '^(%{%|)', '\n%1')
return s
else
return sval
end
end

local function union(t1, t2)
-- Returns the union of the values of two tables, as a sequence.
local vals = {}
for k, v in pairs(t1) do
vals[v] = true
end
for k, v in pairs(t2) do
vals[v] = true
end
local ret = {}
for k, v in pairs(vals) do
table.insert(ret, k)
end
return ret
end

local function getArgNums(prefix)
-- Returns a table containing the numbers of the arguments that exist
-- for the specified prefix. For example, if the prefix was 'data', and
-- 'data1', 'data2', and 'data5' exist, it would return {1, 2, 5}.
local nums = {}
for k, v in pairs(args) do
local num = tostring(k):match('^' .. prefix .. '([1-9]%d*)$')
if num then table.insert(nums, tonumber(num)) end
end
table.sort(nums)
return nums
end

local function addRow(rowArgs)
-- Adds a row to the infobox, with either a header cell
-- or a label/data cell combination.
if rowArgs.header then
root
:tag('tr')
:addClass(rowArgs.rowclass)
:cssText(rowArgs.rowstyle)
:attr('id', rowArgs.rowid)
:tag('th')
:attr('colspan', 2)
:attr('id', rowArgs.headerid)
:addClass(rowArgs.class)
:addClass(args.headerclass)
:css('text-align', 'center')
:cssText(args.headerstyle)
:cssText(rowArgs.rowcellstyle)
:wikitext(fixChildBoxes(rowArgs.header, 'th'))
elseif rowArgs.data then
local row = root:tag('tr')
row:addClass(rowArgs.rowclass)
row:cssText(rowArgs.rowstyle)
row:attr('id', rowArgs.rowid)
if rowArgs.label then
row
:tag('th')
:attr('scope', 'row')
:attr('id', rowArgs.labelid)
:cssText(args.labelstyle)
:cssText(rowArgs.rowcellstyle)
:wikitext(rowArgs.label)
:done()
end

local dataCell = row:tag('td')
if not rowArgs.label then
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
end
dataCell
:attr('id', rowArgs.dataid)
:addClass(rowArgs.class)
:cssText(rowArgs.datastyle)
:cssText(rowArgs.rowcellstyle)
:wikitext(fixChildBoxes(rowArgs.data, 'td'))
end
end

local function renderWeapon() --------------- WEAPON NAME -------------------
if not args.weapon then return end

root
:tag('caption')
:addClass(args.weaponclass)
:cssText("background:#F90;")
:wikitext(args.weapon)
end

local function renderTier() ------------------ TIER -----------------------
if not args.tier then return end

root
:tag('tr')
:tag('th')
:attr('colspan', 2)
:addClass(args.tierclass)
:css('text-align', 'center')
:css('font-size', '125%')
:css('font-weight', 'bold')
:cssText("color:#FFF;")
:cssText(args.tierstyle)
:wikitext("Tier ")
:wikitext(fixChildBoxes(args.tier,'th'))
end

local function renderCost() ---------------- COST --------------------
if not args.cost then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:cssText(args.labelclass)
:cssText(args.labelstyle)
:wikitext("Cost :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:addClass(args.labelclass)
:cssText(args.labelstyle)
:cssText(labelstyl)
:wikitext(fixChildBoxes(args.cost, 'td'))
:wikitext(" points")
end

local function renderDamage() ---------------- DAMAGE --------------------
if not args.damage then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Damage :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.damage, 'td'))
end

local function renderReload() ---------------- RELOAD --------------------
if not args.reload then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Reload speed :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.reload, 'td'))
:wikitext(" s")
end

local function renderDelay() ----------------ATTACK DELAY --------------------
if not args.attackdelay then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Attack delay :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.attackdelay, 'td'))
:wikitext(" s")
end

local function renderClipsize() ----------------CLIP SIZE--------------------
if not args.clipsize then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Clip size :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.clipsize, 'td'))
end

local function renderMinspread() ----------------MINSPREAD--------------------
if not args.minspread then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Min Spread :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.minspread, 'td'))
end

local function renderMaxspread() ----------------MAXSPREAD--------------------
if not args.maxspread then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Max Spread :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.maxspread, 'td'))
end

local function renderMovespeed() ----------------MOVEMENT SPEED--------------------
if not args.movespeed then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Move Speed :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.movespeed, 'td'))
end

local function renderRespierce() ----------------RESISTANCE PIERCE--------------------
if not args.respierce then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Res Pierce :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.respierce, 'td'))
:wikitext("%")
end

local function renderOverkill() ----------------OVERKILL--------------------
if not args.overkill then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Overkill :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.overkill, 'td'))
:wikitext("%")
end

local function renderPointmulti() ---------------- POINT MULTIPLIER --------------------
if not args.pointmulti then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Point Multi :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.pointmulti, 'td'))
:wikitext("%")
end

local function renderSlow() ---------------- SLOW --------------------
if not args.pulseslow then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Slow :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.pulseslow, 'td'))
:wikitext("%")
end

local function renderPierces() ---------------- PIERCES --------------------
if not args.nbpierces then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Pierces :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.nbpierces, 'td'))
end

local function renderPiercetaper() ---------------- PIERCE TAPER --------------------
if not args.piercetaper then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Pierce taper :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.piercetaper, 'td'))
:wikitext("%")
end

local function renderRadius() ---------------- AOE RADIUS --------------------
if not args.aoeradius then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Area Radius :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.aoeradius, 'td'))
end

local function renderTaper() ---------------- AOE TAPER --------------------
if not args.aoetaper then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Area Taper :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.aoetaper, 'td'))
:wikitext("%")
end

local function renderHsm() ---------------- HS MULTI --------------------
if not args.headshotmulti then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Headshot multiplier :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.headshotmulti, 'td'))
:wikitext("x")
end

local function renderDebufftime() ---------------- DEBUFF TIME --------------------
if not args.debufftime then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Debuff time :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.debufftime, 'td'))
:wikitext(" s")
end

local function renderBufftime() ---------------- BUFF TIME --------------------
if not args.bufftime then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Buff duration :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.bufftime, 'td'))
:wikitext(" s")
end

local function renderRange() ---------------- RANGE --------------------
if not args.range then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Range :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.range, 'td'))
end

local function renderKb() ---------------- KB --------------------
if not args.knockback then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Knockback :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.knockback, 'td'))
end

local function renderStability() ---------------- STABILITY --------------------
if not args.stability then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Stability :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.stability, 'td'))
end

local function renderStamina() ---------------- STAMINA USE --------------------
if not args.staminause then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Stamina use :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.staminause, 'td'))
:wikitext("%")
end

local function renderBlock() ---------------- BLOCK VALUE --------------------
if not args.block then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Block value :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.block, 'td'))
:wikitext("%")
end

local function renderImpactdly() ---------------- IMPACT DELAY --------------------
if not args.impactdelay then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Impact delay :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.impactdelay, 'td'))
:wikitext(" s")
end

local function renderSize() ---------------- SIZE --------------------
if not args.size then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Size :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.size, 'td'))
end

local function renderHealing() ---------------- HEALING --------------------
if not args.healing then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Healing :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.healing, 'td'))
end

local function renderBelowRow()
if not args.below then return end

root
:tag('tr')
:tag('td')
:attr('colspan', '2')
:addClass(args.belowclass)
:css('text-align', 'center')
:cssText(args.belowstyle)
:wikitext(fixChildBoxes(args.below,'td'))
end

local function renderSubheaders()
if args.subheader then
args.subheader1 = args.subheader
end
if args.subheaderrowclass then
args.subheaderrowclass1 = args.subheaderrowclass
end
local subheadernums = getArgNums('subheader')
for k, num in ipairs(subheadernums) do
addRow({
data = args['subheader' .. tostring(num)],
datastyle = args.subheaderstyle,
rowcellstyle = args['subheaderstyle' .. tostring(num)],
class = args.subheaderclass,
rowclass = args['subheaderrowclass' .. tostring(num)]
})
end
end

local function renderImages()
if args.image then
args.image1 = args.image
end
if args.caption then
args.caption1 = args.caption
end
local imagenums = getArgNums('image')
for k, num in ipairs(imagenums) do
local caption = args['caption' .. tostring(num)]
local data = mw.html.create():wikitext(args['image' .. tostring(num)])
if caption then
data
:tag('div')
:cssText(args.captionstyle)
:wikitext(caption)
end
addRow({
data = tostring(data),
datastyle = args.imagestyle,
class = args.imageclass,
rowclass = args['imagerowclass' .. tostring(num)]
})
end
end

local function renderRows()
-- Gets the union of the header and data argument numbers,
-- and renders them all in order using addRow.
local rownums = union(getArgNums('header'), getArgNums('data'))
table.sort(rownums)
for k, num in ipairs(rownums) do
addRow({
header = args['header' .. tostring(num)],
label = args['label' .. tostring(num)],
data = args['data' .. tostring(num)],
datastyle = args.datastyle,
class = args['class' .. tostring(num)],
rowclass = args['rowclass' .. tostring(num)],
rowstyle = args['rowstyle' .. tostring(num)],
rowcellstyle = args['rowcellstyle' .. tostring(num)],
dataid = args['dataid' .. tostring(num)],
labelid = args['labelid' .. tostring(num)],
headerid = args['headerid' .. tostring(num)],
rowid = args['rowid' .. tostring(num)]
})
end
end

local function renderNavBar()
if not args.name then return end

root
:tag('tr')
:tag('td')
:attr('colspan', '2')
:css('text-align', 'right')
:wikitext(navbar{
args.name,
mini = 1,
})
end

local function renderItalicTitle()
local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])
if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then
root:wikitext(mw.getCurrentFrame():expandTemplate({title = 'italic title'}))
end
end

local function renderTrackingCategories()
if args.decat ~= 'yes' then
if args.child == 'yes' then
if args.gun then
root:wikitext('[[Category:Pages which use embedded gunInfobox templates with the title parameter]]')
end
elseif #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then
root:wikitext('[[Category:Articles which use gunInfobox templates with no data rows]]')
end
end
end

local function _infobox() --INFOBOX RENDERING--
-- Specify the overall layout of the infobox, with special settings
-- if the infobox is used as a 'child' inside another infobox.
if args.child ~= 'yes' then
root = mw.html.create('table')

root
:addClass((args.subbox ~= 'yes') and 'infobox' or nil)
:addClass(args.bodyclass)

if args.subbox == 'yes' then
root
:css('padding', '0')
:css('border', 'none')
:css('margin', '-3px')
:css('width', 'auto')
:css('min-width', '100%')
:css('font-size', '100%')
:css('clear', 'none')
:css('float', 'none')
:css('background-color', 'transparent')
else
root
:css('width', '22em')
end
root
:cssText(args.bodystyle)

renderWeapon()
renderTier()
else
root = mw.html.create()

root
:wikitext(args.gun)
end
renderCost()
renderDamage()
renderReload()
renderDelay()
renderClipsize()
renderMinspread()
renderMaxspread()
renderMovespeed()
renderRespierce()
renderOverkill()
renderPointmulti()
renderSlow()
renderPierces()
renderPiercetaper()
renderRadius()
renderTaper()
renderHsm()
renderDebufftime()
renderBufftime()
renderRange()
renderKb()
renderStability()
renderStamina()
renderBlock()
renderImpactdly()
renderSize()
renderHealing()

renderSubheaders()
renderImages()
renderRows()
renderBelowRow()
renderNavBar()
renderItalicTitle()
renderTrackingCategories()

return tostring(root)
end

local function preprocessSingleArg(argName)
-- If the argument exists and isn't blank, add it to the argument table.
-- Blank arguments are treated as nil to match the behaviour of ParserFunctions.
if origArgs[argName] and origArgs[argName] ~= '' then
args[argName] = origArgs[argName]
end
end

local function preprocessArgs(prefixTable, step)
-- Assign the parameters with the given prefixes to the args table, in order, in batches
-- of the step size specified. This is to prevent references etc. from appearing in the
-- wrong order. The prefixTable should be an array containing tables, each of which has
-- two possible fields, a "prefix" string and a "depend" table. The function always parses
-- parameters containing the "prefix" string, but only parses parameters in the "depend"
-- table if the prefix parameter is present and non-blank.
if type(prefixTable) ~= 'table' then
error("Non-table value detected for the prefix table", 2)
end
if type(step) ~= 'number' then
error("Invalid step value detected", 2)
end

-- Get arguments without a number suffix, and check for bad input.
for i,v in ipairs(prefixTable) do
if type(v) ~= 'table' or type(v.prefix) ~= "string" or (v.depend and type(v.depend) ~= 'table') then
error('Invalid input detected to preprocessArgs prefix table', 2)
end
preprocessSingleArg(v.prefix)
-- Only parse the depend parameter if the prefix parameter is present and not blank.
if args[v.prefix] and v.depend then
for j, dependValue in ipairs(v.depend) do
if type(dependValue) ~= 'string' then
error('Invalid "depend" parameter value detected in preprocessArgs')
end
preprocessSingleArg(dependValue)
end
end
end

-- Get arguments with number suffixes.
local a = 1 -- Counter variable.
local moreArgumentsExist = true
while moreArgumentsExist == true do
moreArgumentsExist = false
for i = a, a + step - 1 do
for j,v in ipairs(prefixTable) do
local prefixArgName = v.prefix .. tostring(i)
if origArgs[prefixArgName] then
moreArgumentsExist = true -- Do another loop if any arguments are found, even blank ones.
preprocessSingleArg(prefixArgName)
end
-- Process the depend table if the prefix argument is present and not blank, or
-- we are processing "prefix1" and "prefix" is present and not blank, and
-- if the depend table is present.
if v.depend and (args[prefixArgName] or (i == 1 and args[v.prefix])) then
for j,dependValue in ipairs(v.depend) do
local dependArgName = dependValue .. tostring(i)
preprocessSingleArg(dependArgName)
end
end
end
end
a = a + step
end
end

function p.infobox(frame) --PREPROCESSING LIST--
-- If called via #invoke, use the args passed into the invoking template.
-- Otherwise, for testing purposes, assume args are being passed directly in.
if frame == mw.getCurrentFrame() then
origArgs = frame:getParent().args
else
origArgs = frame
end

-- Parse the data parameters in the same order that the old {{infobox}} did, so that
-- references etc. will display in the expected places. Parameters that depend on
-- another parameter are only processed if that parameter is present, to avoid
-- phantom references appearing in article reference lists.
preprocessSingleArg('child')
preprocessSingleArg('bodyclass')
preprocessSingleArg('subbox')
preprocessSingleArg('bodystyle')

--WEAPON
preprocessSingleArg('weapon')
preprocessSingleArg('weaponclass')
preprocessSingleArg('weaponstyle')

--TIER
preprocessSingleArg('tier')
preprocessSingleArg('tierclass')
preprocessSingleArg('tierstyle')

--COST
preprocessSingleArg('cost')
preprocessSingleArg('costclass')
preprocessSingleArg('coststyle')

--DAMAGE
preprocessSingleArg('damage')

--RELOAD
preprocessSingleArg('reload')

--ATTACK DELAY
preprocessSingleArg('attackdelay')

--CLIP SIZE
preprocessSingleArg('clipsize')

--MINSPREAD
preprocessSingleArg('minspread')

--MAXSPREAD
preprocessSingleArg('maxspread')

--MOVESPEED
preprocessSingleArg('movespeed')

--RESISTANCE PIERCE
preprocessSingleArg('respierce')

--OVERKILL
preprocessSingleArg('overkill')

--POINT MULTI
preprocessSingleArg('pointmulti')

--SLOW
preprocessSingleArg('pulseslow')

--PIERCES
preprocessSingleArg('nbpierces')

--PIERCE TAPER
preprocessSingleArg('piercetaper')

--AOE RADIUS
preprocessSingleArg('aoeradius')

--AOE TAPER
preprocessSingleArg('aoetaper')

--HS MULTI
preprocessSingleArg('headshotmulti')

--DEBUFF TIME
preprocessSingleArg('debufftime')

--BUFF TIME
preprocessSingleArg('bufftime')

--RANGE
preprocessSingleArg('range')

--KB
preprocessSingleArg('knockback')

--STABILITY
preprocessSingleArg('stability')

--STAMINA
preprocessSingleArg('staminause')

--BLOCK VALUE
preprocessSingleArg('block')

--IMPACT DELAY
preprocessSingleArg('impactdelay')

--SIZE
preprocessSingleArg('size')

--HEALING
preprocessSingleArg('healing')

preprocessArgs({
{prefix = 'subheader', depend = {'subheaderstyle', 'subheaderrowclass'}}
}, 10)
preprocessSingleArg('subheaderstyle')
preprocessSingleArg('subheaderclass')
preprocessArgs({
{prefix = 'image', depend = {'caption', 'imagerowclass'}}
}, 10)
preprocessSingleArg('captionstyle')
preprocessSingleArg('imagestyle')
preprocessSingleArg('imageclass')
preprocessArgs({
{prefix = 'header'},
{prefix = 'data', depend = {'label'}},
{prefix = 'rowclass'},
{prefix = 'rowstyle'},
{prefix = 'rowcellstyle'},
{prefix = 'class'},
{prefix = 'dataid'},
{prefix = 'labelid'},
{prefix = 'headerid'},
{prefix = 'rowid'}
}, 50)
preprocessSingleArg('headerclass')
preprocessSingleArg('headerstyle')
preprocessSingleArg('labelstyle')
preprocessSingleArg('datastyle')
preprocessSingleArg('below')
preprocessSingleArg('belowclass')
preprocessSingleArg('belowstyle')
preprocessSingleArg('name')
args['italic title'] = origArgs['italic title'] -- different behaviour if blank or absent
preprocessSingleArg('decat')

return _infobox()
end

return p

Module:Weapon Infobox

2020-11-29T06:55:46Z

Engie:

Module:Weapon Infobox

2020-11-29T06:53:53Z

Engie: Color change and typo fix

--
-- This module implements {{Weapon Infobox}}
--

local p = {}

local navbar = require('Module:Navbar')._navbar

local args = {}
local origArgs
local root

local function notempty( s ) return s and s:match( '%S' ) end

local function fixChildBoxes(sval, tt)
if notempty(sval) then
local marker = ''
local s = sval
s = mw.ustring.gsub(s, '(<%s*[Tt][Rr])', marker .. '%1')
s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>)', '%1' .. marker)
if s:match(marker) then
s = mw.ustring.gsub(s, marker .. '%s*' .. marker, '')
s = mw.ustring.gsub(s, '([\r\n]|-[^\r\n]*[\r\n])%s*' .. marker, '%1')
s = mw.ustring.gsub(s, marker .. '%s*([\r\n]|-)', '%1')
s = mw.ustring.gsub(s, '(</[Cc][Aa][Pp][Tt][Ii][Oo][Nn]%s*>%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '(<%s*[Tt][Aa][Bb][Ll][Ee][^<>]*>%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '^(%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '([\r\n]%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, marker .. '(%s*</[Tt][Aa][Bb][Ll][Ee]%s*>)', '%1')
s = mw.ustring.gsub(s, marker .. '(%s*\n|%})', '%1')
end
if s:match(marker) then
local subcells = mw.text.split(s, marker)
s = ''
for k = 1, #subcells do
if k == 1 then
s = s .. subcells[k] .. '</' .. tt .. '></tr>'
elseif k == #subcells then
local rowstyle = ' style="display:none"'
if notempty(subcells[k]) then rowstyle = '' end
s = s .. '<tr' .. rowstyle ..'><' .. tt .. ' colspan=2>\n' .. subcells[k]
elseif notempty(subcells[k]) then
if (k % 2) == 0 then
s = s .. subcells[k]
else
s = s .. '<tr><' .. tt .. ' colspan=2>\n' .. subcells[k] .. '</' .. tt .. '></tr>'
end
end
end
end
-- the next two lines add a newline at the end of lists for the PHP parser
-- https://en.wikipedia.org/w/index.php?title=Template_talk:Infobox_musical_artist&oldid=849054481
-- remove when [[:phab:T191516]] is fixed or OBE
s = mw.ustring.gsub(s, '([\r\n][%*#;:][^\r\n]*)$', '%1\n')
s = mw.ustring.gsub(s, '^([%*#;:][^\r\n]*)$', '%1\n')
s = mw.ustring.gsub(s, '^([%*#;:])', '\n%1')
s = mw.ustring.gsub(s, '^(%{%|)', '\n%1')
return s
else
return sval
end
end

local function union(t1, t2)
-- Returns the union of the values of two tables, as a sequence.
local vals = {}
for k, v in pairs(t1) do
vals[v] = true
end
for k, v in pairs(t2) do
vals[v] = true
end
local ret = {}
for k, v in pairs(vals) do
table.insert(ret, k)
end
return ret
end

local function getArgNums(prefix)
-- Returns a table containing the numbers of the arguments that exist
-- for the specified prefix. For example, if the prefix was 'data', and
-- 'data1', 'data2', and 'data5' exist, it would return {1, 2, 5}.
local nums = {}
for k, v in pairs(args) do
local num = tostring(k):match('^' .. prefix .. '([1-9]%d*)$')
if num then table.insert(nums, tonumber(num)) end
end
table.sort(nums)
return nums
end

local function addRow(rowArgs)
-- Adds a row to the infobox, with either a header cell
-- or a label/data cell combination.
if rowArgs.header then
root
:tag('tr')
:addClass(rowArgs.rowclass)
:cssText(rowArgs.rowstyle)
:attr('id', rowArgs.rowid)
:tag('th')
:attr('colspan', 2)
:attr('id', rowArgs.headerid)
:addClass(rowArgs.class)
:addClass(args.headerclass)
:css('text-align', 'center')
:cssText(args.headerstyle)
:cssText(rowArgs.rowcellstyle)
:wikitext(fixChildBoxes(rowArgs.header, 'th'))
elseif rowArgs.data then
local row = root:tag('tr')
row:addClass(rowArgs.rowclass)
row:cssText(rowArgs.rowstyle)
row:attr('id', rowArgs.rowid)
if rowArgs.label then
row
:tag('th')
:attr('scope', 'row')
:attr('id', rowArgs.labelid)
:cssText(args.labelstyle)
:cssText(rowArgs.rowcellstyle)
:wikitext(rowArgs.label)
:done()
end

local dataCell = row:tag('td')
if not rowArgs.label then
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
end
dataCell
:attr('id', rowArgs.dataid)
:addClass(rowArgs.class)
:cssText(rowArgs.datastyle)
:cssText(rowArgs.rowcellstyle)
:wikitext(fixChildBoxes(rowArgs.data, 'td'))
end
end

local function renderWeapon() --------------- WEAPON NAME -------------------
if not args.weapon then return end

root
:tag('caption')
:addClass(args.weaponclass)
:cssText("background:#cfc;")
:wikitext(args.weapon)
end

local function renderTier() ------------------ TIER -----------------------
if not args.tier then return end

root
:tag('tr')
:tag('th')
:attr('colspan', 2)
:addClass(args.tierclass)
:css('text-align', 'center')
:css('font-size', '125%')
:css('font-weight', 'bold')
:cssText(args.tierstyle)
:wikitext("Tier ")
:wikitext(fixChildBoxes(args.tier,'th'))
end

local function renderCost() ---------------- COST --------------------
if not args.cost then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:cssText(args.costlabelclass)
:cssText(args.costlabelstyle)
:wikitext("Cost :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:addClass(args.costclass)
:cssText(args.coststyle)
:wikitext(fixChildBoxes(args.cost, 'td'))
:wikitext(" points")
end

local function renderDamage() ---------------- DAMAGE --------------------
if not args.damage then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Damage :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.damage, 'td'))
end

local function renderReload() ---------------- RELOAD --------------------
if not args.reload then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Reload speed :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.reload, 'td'))
:wikitext(" s")
end

local function renderDelay() ----------------ATTACK DELAY --------------------
if not args.attackdelay then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Attack delay :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.attackdelay, 'td'))
:wikitext(" s")
end

local function renderClipsize() ----------------CLIP SIZE--------------------
if not args.clipsize then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Clip size :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.clipsize, 'td'))
end

local function renderMinspread() ----------------MINSPREAD--------------------
if not args.minspread then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Min Spread :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.minspread, 'td'))
end

local function renderMaxspread() ----------------MAXSPREAD--------------------
if not args.maxspread then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Max Spread :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.maxspread, 'td'))
end

local function renderMovespeed() ----------------MOVEMENT SPEED--------------------
if not args.movespeed then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Move Speed :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.movespeed, 'td'))
end

local function renderRespierce() ----------------RESISTANCE PIERCE--------------------
if not args.respierce then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Res Pierce :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.respierce, 'td'))
:wikitext("%")
end

local function renderOverkill() ----------------OVERKILL--------------------
if not args.overkill then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Overkill :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.overkill, 'td'))
:wikitext("%")
end

local function renderPointmulti() ---------------- POINT MULTIPLIER --------------------
if not args.pointmulti then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Point Multi :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.pointmulti, 'td'))
:wikitext("%")
end

local function renderSlow() ---------------- SLOW --------------------
if not args.pulseslow then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Slow :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.pulseslow, 'td'))
:wikitext("%")
end

local function renderPierces() ---------------- PIERCES --------------------
if not args.nbpierces then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Pierces :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.nbpierces, 'td'))
end

local function renderPiercetaper() ---------------- PIERCE TAPER --------------------
if not args.piercetaper then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Pierce taper :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.piercetaper, 'td'))
:wikitext("%")
end

local function renderRadius() ---------------- AOE RADIUS --------------------
if not args.aoeradius then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Area Radius :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.aoeradius, 'td'))
end

local function renderTaper() ---------------- AOE TAPER --------------------
if not args.aoetaper then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Area Taper :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.aoetaper, 'td'))
:wikitext("%")
end

local function renderHsm() ---------------- HS MULTI --------------------
if not args.headshotmulti then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Headshot multiplier :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.headshotmulti, 'td'))
:wikitext("x")
end

local function renderDebufftime() ---------------- DEBUFF TIME --------------------
if not args.debufftime then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Debuff time :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.debufftime, 'td'))
:wikitext(" s")
end

local function renderBufftime() ---------------- BUFF TIME --------------------
if not args.bufftime then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Buff duration :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.bufftime, 'td'))
:wikitext(" s")
end

local function renderRange() ---------------- RANGE --------------------
if not args.range then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Range :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.range, 'td'))
end

local function renderKb() ---------------- KB --------------------
if not args.knockback then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Knockback :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.knockback, 'td'))
end

local function renderStability() ---------------- STABILITY --------------------
if not args.stability then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Stability :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.stability, 'td'))
end

local function renderStamina() ---------------- STAMINA USE --------------------
if not args.staminause then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Stamina use :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.staminause, 'td'))
:wikitext("%")
end

local function renderBlock() ---------------- BLOCK VALUE --------------------
if not args.block then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Block value :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.block, 'td'))
:wikitext("%")
end

local function renderImpactdly() ---------------- IMPACT DELAY --------------------
if not args.impactdelay then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Impact delay :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.impactdelay, 'td'))
:wikitext(" s")
end

local function renderSize() ---------------- SIZE --------------------
if not args.size then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Size :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.size, 'td'))
end

local function renderHealing() ---------------- HEALING --------------------
if not args.healing then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Healing :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.healing, 'td'))
end

local function renderBelowRow()
if not args.below then return end

root
:tag('tr')
:tag('td')
:attr('colspan', '2')
:addClass(args.belowclass)
:css('text-align', 'center')
:cssText(args.belowstyle)
:wikitext(fixChildBoxes(args.below,'td'))
end

local function renderSubheaders()
if args.subheader then
args.subheader1 = args.subheader
end
if args.subheaderrowclass then
args.subheaderrowclass1 = args.subheaderrowclass
end
local subheadernums = getArgNums('subheader')
for k, num in ipairs(subheadernums) do
addRow({
data = args['subheader' .. tostring(num)],
datastyle = args.subheaderstyle,
rowcellstyle = args['subheaderstyle' .. tostring(num)],
class = args.subheaderclass,
rowclass = args['subheaderrowclass' .. tostring(num)]
})
end
end

local function renderImages()
if args.image then
args.image1 = args.image
end
if args.caption then
args.caption1 = args.caption
end
local imagenums = getArgNums('image')
for k, num in ipairs(imagenums) do
local caption = args['caption' .. tostring(num)]
local data = mw.html.create():wikitext(args['image' .. tostring(num)])
if caption then
data
:tag('div')
:cssText(args.captionstyle)
:wikitext(caption)
end
addRow({
data = tostring(data),
datastyle = args.imagestyle,
class = args.imageclass,
rowclass = args['imagerowclass' .. tostring(num)]
})
end
end

local function renderRows()
-- Gets the union of the header and data argument numbers,
-- and renders them all in order using addRow.
local rownums = union(getArgNums('header'), getArgNums('data'))
table.sort(rownums)
for k, num in ipairs(rownums) do
addRow({
header = args['header' .. tostring(num)],
label = args['label' .. tostring(num)],
data = args['data' .. tostring(num)],
datastyle = args.datastyle,
class = args['class' .. tostring(num)],
rowclass = args['rowclass' .. tostring(num)],
rowstyle = args['rowstyle' .. tostring(num)],
rowcellstyle = args['rowcellstyle' .. tostring(num)],
dataid = args['dataid' .. tostring(num)],
labelid = args['labelid' .. tostring(num)],
headerid = args['headerid' .. tostring(num)],
rowid = args['rowid' .. tostring(num)]
})
end
end

local function renderNavBar()
if not args.name then return end

root
:tag('tr')
:tag('td')
:attr('colspan', '2')
:css('text-align', 'right')
:wikitext(navbar{
args.name,
mini = 1,
})
end

local function renderItalicTitle()
local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])
if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then
root:wikitext(mw.getCurrentFrame():expandTemplate({title = 'italic title'}))
end
end

local function renderTrackingCategories()
if args.decat ~= 'yes' then
if args.child == 'yes' then
if args.gun then
root:wikitext('[[Category:Pages which use embedded gunInfobox templates with the title parameter]]')
end
elseif #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then
root:wikitext('[[Category:Articles which use gunInfobox templates with no data rows]]')
end
end
end

local function _infobox() --INFOBOX RENDERING--
-- Specify the overall layout of the infobox, with special settings
-- if the infobox is used as a 'child' inside another infobox.
if args.child ~= 'yes' then
root = mw.html.create('table')

root
:addClass((args.subbox ~= 'yes') and 'infobox' or nil)
:addClass(args.bodyclass)

if args.subbox == 'yes' then
root
:css('padding', '0')
:css('border', 'none')
:css('margin', '-3px')
:css('width', 'auto')
:css('min-width', '100%')
:css('font-size', '100%')
:css('clear', 'none')
:css('float', 'none')
:css('background-color', 'transparent')
else
root
:css('width', '22em')
end
root
:cssText(args.bodystyle)

renderWeapon()
renderTier()
else
root = mw.html.create()

root
:wikitext(args.gun)
end
renderCost()
renderDamage()
renderReload()
renderDelay()
renderClipsize()
renderMinspread()
renderMaxspread()
renderMovespeed()
renderRespierce()
renderOverkill()
renderPointmulti()
renderSlow()
renderPierces()
renderPiercetaper()
renderRadius()
renderTaper()
renderHsm()
renderDebufftime()
renderBufftime()
renderRange()
renderKb()
renderStability()
renderStamina()
renderBlock()
renderImpactdly()
renderSize()
renderHealing()

renderSubheaders()
renderImages()
renderRows()
renderBelowRow()
renderNavBar()
renderItalicTitle()
renderTrackingCategories()

return tostring(root)
end

local function preprocessSingleArg(argName)
-- If the argument exists and isn't blank, add it to the argument table.
-- Blank arguments are treated as nil to match the behaviour of ParserFunctions.
if origArgs[argName] and origArgs[argName] ~= '' then
args[argName] = origArgs[argName]
end
end

local function preprocessArgs(prefixTable, step)
-- Assign the parameters with the given prefixes to the args table, in order, in batches
-- of the step size specified. This is to prevent references etc. from appearing in the
-- wrong order. The prefixTable should be an array containing tables, each of which has
-- two possible fields, a "prefix" string and a "depend" table. The function always parses
-- parameters containing the "prefix" string, but only parses parameters in the "depend"
-- table if the prefix parameter is present and non-blank.
if type(prefixTable) ~= 'table' then
error("Non-table value detected for the prefix table", 2)
end
if type(step) ~= 'number' then
error("Invalid step value detected", 2)
end

-- Get arguments without a number suffix, and check for bad input.
for i,v in ipairs(prefixTable) do
if type(v) ~= 'table' or type(v.prefix) ~= "string" or (v.depend and type(v.depend) ~= 'table') then
error('Invalid input detected to preprocessArgs prefix table', 2)
end
preprocessSingleArg(v.prefix)
-- Only parse the depend parameter if the prefix parameter is present and not blank.
if args[v.prefix] and v.depend then
for j, dependValue in ipairs(v.depend) do
if type(dependValue) ~= 'string' then
error('Invalid "depend" parameter value detected in preprocessArgs')
end
preprocessSingleArg(dependValue)
end
end
end

-- Get arguments with number suffixes.
local a = 1 -- Counter variable.
local moreArgumentsExist = true
while moreArgumentsExist == true do
moreArgumentsExist = false
for i = a, a + step - 1 do
for j,v in ipairs(prefixTable) do
local prefixArgName = v.prefix .. tostring(i)
if origArgs[prefixArgName] then
moreArgumentsExist = true -- Do another loop if any arguments are found, even blank ones.
preprocessSingleArg(prefixArgName)
end
-- Process the depend table if the prefix argument is present and not blank, or
-- we are processing "prefix1" and "prefix" is present and not blank, and
-- if the depend table is present.
if v.depend and (args[prefixArgName] or (i == 1 and args[v.prefix])) then
for j,dependValue in ipairs(v.depend) do
local dependArgName = dependValue .. tostring(i)
preprocessSingleArg(dependArgName)
end
end
end
end
a = a + step
end
end

function p.infobox(frame) --PREPROCESSING LIST--
-- If called via #invoke, use the args passed into the invoking template.
-- Otherwise, for testing purposes, assume args are being passed directly in.
if frame == mw.getCurrentFrame() then
origArgs = frame:getParent().args
else
origArgs = frame
end

-- Parse the data parameters in the same order that the old {{infobox}} did, so that
-- references etc. will display in the expected places. Parameters that depend on
-- another parameter are only processed if that parameter is present, to avoid
-- phantom references appearing in article reference lists.
preprocessSingleArg('child')
preprocessSingleArg('bodyclass')
preprocessSingleArg('subbox')
preprocessSingleArg('bodystyle')

--WEAPON
preprocessSingleArg('weapon')
preprocessSingleArg('weaponclass')
preprocessSingleArg('weaponstyle')

--TIER
preprocessSingleArg('tier')
preprocessSingleArg('tierclass')
preprocessSingleArg('tierstyle')

--COST
preprocessSingleArg('cost')
preprocessSingleArg('costclass')
preprocessSingleArg('coststyle')

--DAMAGE
preprocessSingleArg('damage')

--RELOAD
preprocessSingleArg('reload')

--ATTACK DELAY
preprocessSingleArg('attackdelay')

--CLIP SIZE
preprocessSingleArg('clipsize')

--MINSPREAD
preprocessSingleArg('minspread')

--MAXSPREAD
preprocessSingleArg('maxspread')

--MOVESPEED
preprocessSingleArg('movespeed')

--RESISTANCE PIERCE
preprocessSingleArg('respierce')

--OVERKILL
preprocessSingleArg('overkill')

--POINT MULTI
preprocessSingleArg('pointmulti')

--SLOW
preprocessSingleArg('pulseslow')

--PIERCES
preprocessSingleArg('nbpierces')

--PIERCE TAPER
preprocessSingleArg('piercetaper')

--AOE RADIUS
preprocessSingleArg('aoeradius')

--AOE TAPER
preprocessSingleArg('aoetaper')

--HS MULTI
preprocessSingleArg('headshotmulti')

--DEBUFF TIME
preprocessSingleArg('debufftime')

--BUFF TIME
preprocessSingleArg('bufftime')

--RANGE
preprocessSingleArg('range')

--KB
preprocessSingleArg('knockback')

--STABILITY
preprocessSingleArg('stability')

--STAMINA
preprocessSingleArg('staminause')

--BLOCK VALUE
preprocessSingleArg('block')

--IMPACT DELAY
preprocessSingleArg('impactdelay')

--SIZE
preprocessSingleArg('size')

--HEALING
preprocessSingleArg('healing')

preprocessArgs({
{prefix = 'subheader', depend = {'subheaderstyle', 'subheaderrowclass'}}
}, 10)
preprocessSingleArg('subheaderstyle')
preprocessSingleArg('subheaderclass')
preprocessArgs({
{prefix = 'image', depend = {'caption', 'imagerowclass'}}
}, 10)
preprocessSingleArg('captionstyle')
preprocessSingleArg('imagestyle')
preprocessSingleArg('imageclass')
preprocessArgs({
{prefix = 'header'},
{prefix = 'data', depend = {'label'}},
{prefix = 'rowclass'},
{prefix = 'rowstyle'},
{prefix = 'rowcellstyle'},
{prefix = 'class'},
{prefix = 'dataid'},
{prefix = 'labelid'},
{prefix = 'headerid'},
{prefix = 'rowid'}
}, 50)
preprocessSingleArg('headerclass')
preprocessSingleArg('headerstyle')
preprocessSingleArg('labelstyle')
preprocessSingleArg('datastyle')
preprocessSingleArg('below')
preprocessSingleArg('belowclass')
preprocessSingleArg('belowstyle')
preprocessSingleArg('name')
args['italic title'] = origArgs['italic title'] -- different behaviour if blank or absent
preprocessSingleArg('decat')

return _infobox()
end

return p

Template:Weapon Infobox/doc

2020-05-06T17:29:30Z

Engie:

This template is used to create infoboxes for weapons. Its development has reached a point where this should be used for guns only, melee will be implemented.
This page will feature the arguments for this infobox as it is developped.

Examples :
{{Weapon Infobox
|weapon = 'Stubber' Rifle
|tier = 1
|cost = 15
|damage = 55
|reload = 2.93
|attackdelay = 1.15
|clipsize = 5
|minspread = 0
|maxspread = 3.75
|movespeed = 218
|respierce = 70
|overkill = 50
|pointmulti =
|pulseslow =
|headshotmulti = 2.2
}}

<pre style="overflow:auto">
{{Weapon Infobox
|weapon = 'Stubber' Rifle
|tier = 1
|cost = 15
|damage = 55
|reload = 2.93
|attackdelay = 1.15
|clipsize = 5
|minspread = 0
|maxspread = 3.75
|movespeed = 218
|respierce = 70
|overkill = 50
|pointmulti =
|pulseslow =
|headshotmulti = 2.2
}}
</pre>{{clear}}

{{Weapon Infobox
|weapon = 'Oberon' Pulse Shotgun
|tier = 3
|cost = 65
|damage = 13x5
|reload = 0.4
|attackdelay = 0.82
|clipsize = 7
|minspread = 4.75
|maxspread = 5.5
|movespeed = 211
|respierce =
|overkill =
|pointmulti = 125
|pulseslow = 38
}}
<pre style="overflow:auto">
{{Weapon Infobox
|weapon = 'Oberon' Pulse Shotgun
|tier = 3
|cost = 65
|damage = 13x5
|reload = 0.4
|attackdelay = 0.82
|clipsize = 7
|minspread = 4.75
|maxspread = 5.5
|movespeed = 211
|respierce =
|overkill =
|pointmulti = 125
|pulseslow = 38
}}
</pre>{{clear}}

{{Weapon Infobox
|weapon = 'Akbar' Assault Rifle
|tier = 3
|cost = 65
|damage = 21.75
|reload = 2.46
|attackdelay = 0.12
|clipsize = 30
|minspread = 1.27
|maxspread = 2.65
|movespeed = 218
|respierce = 30
|overkill =
|pointmulti =
|pulseslow =
|nbpierces = 1
|piercetaper = 20
}}

<pre style="overflow:auto">
{{Weapon Infobox
|weapon = 'Akbar' Assault Rifle
|tier = 3
|cost = 65
|damage = 21.75
|reload = 2.46
|attackdelay = 0.12
|clipsize = 30
|minspread = 1.27
|maxspread = 2.65
|movespeed = 218
|respierce = 30
|overkill =
|pointmulti =
|pulseslow =
|nbpierces = 1
|piercetaper = 20
}}
</pre>{{clear}}

Notice how some stats dont have a value assigned to them. All stats are optional, however, i recommend still putting the name of stats that are unused, in case a future update adds them to the weapon.

Existing parameters for this template are :
*weapon --This designates then NAME of the weapon
*tier
*cost
*damage
*reload --This designates reload time in seconds
*attackdelay
*clipsize
*minspread --Minimum spread
*maxspread --Maximum spread
*movespeed
*respierce --Resistance pierce in %
*overkill
*pointmulti --Point multiplier in %
*pulseslow --Written as "Slow%" in weapon database
*nbpierces --Pierces
*piercetaper
*aoeradius --Area radius
*aoetaper --Area taper
*headshotmulti --Headshot multiplier
*debufftime --Time of debuff in seconds
*bufftime --Time of buff in seconds
*healing

Melee exclusive stats :
*range
*knockback
*stability
*staminause --stamina use in %
*block --block value in %
*impactdelay
*size

Module:Weapon Infobox

2020-05-06T17:28:36Z

Engie: added healing

--
-- This module implements {{Gun infobox}}
--

local p = {}

local navbar = require('Module:Navbar')._navbar

local args = {}
local origArgs
local root

local function notempty( s ) return s and s:match( '%S' ) end

local function fixChildBoxes(sval, tt)
if notempty(sval) then
local marker = ''
local s = sval
s = mw.ustring.gsub(s, '(<%s*[Tt][Rr])', marker .. '%1')
s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>)', '%1' .. marker)
if s:match(marker) then
s = mw.ustring.gsub(s, marker .. '%s*' .. marker, '')
s = mw.ustring.gsub(s, '([\r\n]|-[^\r\n]*[\r\n])%s*' .. marker, '%1')
s = mw.ustring.gsub(s, marker .. '%s*([\r\n]|-)', '%1')
s = mw.ustring.gsub(s, '(</[Cc][Aa][Pp][Tt][Ii][Oo][Nn]%s*>%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '(<%s*[Tt][Aa][Bb][Ll][Ee][^<>]*>%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '^(%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '([\r\n]%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, marker .. '(%s*</[Tt][Aa][Bb][Ll][Ee]%s*>)', '%1')
s = mw.ustring.gsub(s, marker .. '(%s*\n|%})', '%1')
end
if s:match(marker) then
local subcells = mw.text.split(s, marker)
s = ''
for k = 1, #subcells do
if k == 1 then
s = s .. subcells[k] .. '</' .. tt .. '></tr>'
elseif k == #subcells then
local rowstyle = ' style="display:none"'
if notempty(subcells[k]) then rowstyle = '' end
s = s .. '<tr' .. rowstyle ..'><' .. tt .. ' colspan=2>\n' .. subcells[k]
elseif notempty(subcells[k]) then
if (k % 2) == 0 then
s = s .. subcells[k]
else
s = s .. '<tr><' .. tt .. ' colspan=2>\n' .. subcells[k] .. '</' .. tt .. '></tr>'
end
end
end
end
-- the next two lines add a newline at the end of lists for the PHP parser
-- https://en.wikipedia.org/w/index.php?title=Template_talk:Infobox_musical_artist&oldid=849054481
-- remove when [[:phab:T191516]] is fixed or OBE
s = mw.ustring.gsub(s, '([\r\n][%*#;:][^\r\n]*)$', '%1\n')
s = mw.ustring.gsub(s, '^([%*#;:][^\r\n]*)$', '%1\n')
s = mw.ustring.gsub(s, '^([%*#;:])', '\n%1')
s = mw.ustring.gsub(s, '^(%{%|)', '\n%1')
return s
else
return sval
end
end

local function union(t1, t2)
-- Returns the union of the values of two tables, as a sequence.
local vals = {}
for k, v in pairs(t1) do
vals[v] = true
end
for k, v in pairs(t2) do
vals[v] = true
end
local ret = {}
for k, v in pairs(vals) do
table.insert(ret, k)
end
return ret
end

local function getArgNums(prefix)
-- Returns a table containing the numbers of the arguments that exist
-- for the specified prefix. For example, if the prefix was 'data', and
-- 'data1', 'data2', and 'data5' exist, it would return {1, 2, 5}.
local nums = {}
for k, v in pairs(args) do
local num = tostring(k):match('^' .. prefix .. '([1-9]%d*)$')
if num then table.insert(nums, tonumber(num)) end
end
table.sort(nums)
return nums
end

local function addRow(rowArgs)
-- Adds a row to the infobox, with either a header cell
-- or a label/data cell combination.
if rowArgs.header then
root
:tag('tr')
:addClass(rowArgs.rowclass)
:cssText(rowArgs.rowstyle)
:attr('id', rowArgs.rowid)
:tag('th')
:attr('colspan', 2)
:attr('id', rowArgs.headerid)
:addClass(rowArgs.class)
:addClass(args.headerclass)
:css('text-align', 'center')
:cssText(args.headerstyle)
:cssText(rowArgs.rowcellstyle)
:wikitext(fixChildBoxes(rowArgs.header, 'th'))
elseif rowArgs.data then
local row = root:tag('tr')
row:addClass(rowArgs.rowclass)
row:cssText(rowArgs.rowstyle)
row:attr('id', rowArgs.rowid)
if rowArgs.label then
row
:tag('th')
:attr('scope', 'row')
:attr('id', rowArgs.labelid)
:cssText(args.labelstyle)
:cssText(rowArgs.rowcellstyle)
:wikitext(rowArgs.label)
:done()
end

local dataCell = row:tag('td')
if not rowArgs.label then
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
end
dataCell
:attr('id', rowArgs.dataid)
:addClass(rowArgs.class)
:cssText(rowArgs.datastyle)
:cssText(rowArgs.rowcellstyle)
:wikitext(fixChildBoxes(rowArgs.data, 'td'))
end
end

local function renderWeapon() --------------- WEAPON NAME -------------------
if not args.weapon then return end

root
:tag('caption')
:addClass(args.weaponclass)
:cssText("background:#cfc;")
:wikitext(args.weapon)
end

local function renderTier() ------------------ TIER -----------------------
if not args.tier then return end

root
:tag('tr')
:tag('th')
:attr('colspan', 2)
:addClass(args.tierclass)
:css('text-align', 'center')
:css('font-size', '125%')
:css('font-weight', 'bold')
:cssText(args.tierstyle)
:wikitext("Tier ")
:wikitext(fixChildBoxes(args.tier,'th'))
end

local function renderCost() ---------------- COST --------------------
if not args.cost then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:cssText(args.costlabelclass)
:cssText(args.costlabelstyle)
:wikitext("Cost :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:addClass(args.costclass)
:cssText(args.coststyle)
:wikitext(fixChildBoxes(args.cost, 'td'))
:wikitext(" points")
end

local function renderDamage() ---------------- DAMAGE --------------------
if not args.damage then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Damage :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.damage, 'td'))
end

local function renderReload() ---------------- RELOAD --------------------
if not args.reload then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Reload speed :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.reload, 'td'))
:wikitext(" s")
end

local function renderDelay() ----------------ATTACK DELAY --------------------
if not args.attackdelay then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Attack delay :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.attackdelay, 'td'))
:wikitext(" s")
end

local function renderClipsize() ----------------CLIP SIZE--------------------
if not args.clipsize then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Clip size :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.clipsize, 'td'))
end

local function renderMinspread() ----------------MINSPREAD--------------------
if not args.minspread then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Min Spread :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.minspread, 'td'))
end

local function renderMaxspread() ----------------MAXSPREAD--------------------
if not args.maxspread then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Max Spread :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.maxspread, 'td'))
end

local function renderMovespeed() ----------------MOVEMENT SPEED--------------------
if not args.movespeed then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Move Speed :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.movespeed, 'td'))
end

local function renderRespierce() ----------------RESISTANCE PIERCE--------------------
if not args.respierce then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Res Pierce :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.respierce, 'td'))
:wikitext("%")
end

local function renderOverkill() ----------------OVERKILL--------------------
if not args.overkill then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Overkill :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.overkill, 'td'))
:wikitext("%")
end

local function renderPointmulti() ---------------- POINT MULTIPLIER --------------------
if not args.pointmulti then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Point Multi :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.pointmulti, 'td'))
:wikitext("%")
end

local function renderSlow() ---------------- SLOW --------------------
if not args.pulseslow then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Slow :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.pulseslow, 'td'))
:wikitext("%")
end

local function renderPierces() ---------------- PIERCES --------------------
if not args.nbpierces then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Pierces :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.nbpierces, 'td'))
end

local function renderPiercetaper() ---------------- PIERCE TAPER --------------------
if not args.piercetaper then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Pierce taper :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.piercetaper, 'td'))
:wikitext("%")
end

local function renderRadius() ---------------- AOE RADIUS --------------------
if not args.aoeradius then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Area Radius :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.aoeradius, 'td'))
end

local function renderTaper() ---------------- AOE TAPER --------------------
if not args.aoetaper then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Area Taper :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.aoetaper, 'td'))
:wikitext("%")
end

local function renderHsm() ---------------- HS MULTI --------------------
if not args.headshotmulti then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Headshot multiplier :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.headshotmulti, 'td'))
:wikitext("x")
end

local function renderDebufftime() ---------------- DEBUFF TIME --------------------
if not args.debufftime then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Debuff time :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.debufftime, 'td'))
:wikitext(" s")
end

local function renderBufftime() ---------------- BUFF TIME --------------------
if not args.bufftime then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Buff duration :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.bufftime, 'td'))
:wikitext(" s")
end

local function renderRange() ---------------- RANGE --------------------
if not args.range then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Range :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.range, 'td'))
end

local function renderKb() ---------------- KB --------------------
if not args.knockback then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Knockback :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.knockback, 'td'))
end

local function renderStability() ---------------- STABILITY --------------------
if not args.stability then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Stability :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.stability, 'td'))
end

local function renderStamina() ---------------- STAMINA USE --------------------
if not args.staminause then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Stamina use :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.staminause, 'td'))
:wikitext("%")
end

local function renderBlock() ---------------- BLOCK VALUE --------------------
if not args.block then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Block value :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.block, 'td'))
:wikitext("%")
end

local function renderImpactdly() ---------------- IMPACT DELAY --------------------
if not args.impactdelay then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Impact delay :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.impactdelay, 'td'))
:wikitext(" s")
end

local function renderSize() ---------------- SIZE --------------------
if not args.size then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Size :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.size, 'td'))
end

local function renderHealing() ---------------- HEALING --------------------
if not args.healing then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Healing :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.healing, 'td'))
end

local function renderBelowRow()
if not args.below then return end

root
:tag('tr')
:tag('td')
:attr('colspan', '2')
:addClass(args.belowclass)
:css('text-align', 'center')
:cssText(args.belowstyle)
:wikitext(fixChildBoxes(args.below,'td'))
end

local function renderSubheaders()
if args.subheader then
args.subheader1 = args.subheader
end
if args.subheaderrowclass then
args.subheaderrowclass1 = args.subheaderrowclass
end
local subheadernums = getArgNums('subheader')
for k, num in ipairs(subheadernums) do
addRow({
data = args['subheader' .. tostring(num)],
datastyle = args.subheaderstyle,
rowcellstyle = args['subheaderstyle' .. tostring(num)],
class = args.subheaderclass,
rowclass = args['subheaderrowclass' .. tostring(num)]
})
end
end

local function renderImages()
if args.image then
args.image1 = args.image
end
if args.caption then
args.caption1 = args.caption
end
local imagenums = getArgNums('image')
for k, num in ipairs(imagenums) do
local caption = args['caption' .. tostring(num)]
local data = mw.html.create():wikitext(args['image' .. tostring(num)])
if caption then
data
:tag('div')
:cssText(args.captionstyle)
:wikitext(caption)
end
addRow({
data = tostring(data),
datastyle = args.imagestyle,
class = args.imageclass,
rowclass = args['imagerowclass' .. tostring(num)]
})
end
end

local function renderRows()
-- Gets the union of the header and data argument numbers,
-- and renders them all in order using addRow.
local rownums = union(getArgNums('header'), getArgNums('data'))
table.sort(rownums)
for k, num in ipairs(rownums) do
addRow({
header = args['header' .. tostring(num)],
label = args['label' .. tostring(num)],
data = args['data' .. tostring(num)],
datastyle = args.datastyle,
class = args['class' .. tostring(num)],
rowclass = args['rowclass' .. tostring(num)],
rowstyle = args['rowstyle' .. tostring(num)],
rowcellstyle = args['rowcellstyle' .. tostring(num)],
dataid = args['dataid' .. tostring(num)],
labelid = args['labelid' .. tostring(num)],
headerid = args['headerid' .. tostring(num)],
rowid = args['rowid' .. tostring(num)]
})
end
end

local function renderNavBar()
if not args.name then return end

root
:tag('tr')
:tag('td')
:attr('colspan', '2')
:css('text-align', 'right')
:wikitext(navbar{
args.name,
mini = 1,
})
end

local function renderItalicTitle()
local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])
if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then
root:wikitext(mw.getCurrentFrame():expandTemplate({title = 'italic title'}))
end
end

local function renderTrackingCategories()
if args.decat ~= 'yes' then
if args.child == 'yes' then
if args.gun then
root:wikitext('[[Category:Pages which use embedded gunInfobox templates with the title parameter]]')
end
elseif #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then
root:wikitext('[[Category:Articles which use gunInfobox templates with no data rows]]')
end
end
end

local function _infobox() --INFOBOX RENDERING--
-- Specify the overall layout of the infobox, with special settings
-- if the infobox is used as a 'child' inside another infobox.
if args.child ~= 'yes' then
root = mw.html.create('table')

root
:addClass((args.subbox ~= 'yes') and 'infobox' or nil)
:addClass(args.bodyclass)

if args.subbox == 'yes' then
root
:css('padding', '0')
:css('border', 'none')
:css('margin', '-3px')
:css('width', 'auto')
:css('min-width', '100%')
:css('font-size', '100%')
:css('clear', 'none')
:css('float', 'none')
:css('background-color', 'transparent')
else
root
:css('width', '22em')
end
root
:cssText(args.bodystyle)

renderWeapon()
renderTier()
else
root = mw.html.create()

root
:wikitext(args.gun)
end
renderCost()
renderDamage()
renderReload()
renderDelay()
renderClipsize()
renderMinspread()
renderMaxspread()
renderMovespeed()
renderRespierce()
renderOverkill()
renderPointmulti()
renderSlow()
renderPierces()
renderPiercetaper()
renderRadius()
renderTaper()
renderHsm()
renderDebufftime()
renderBufftime()
renderRange()
renderKb()
renderStability()
renderStamina()
renderBlock()
renderImpactdly()
renderSize()
renderHealing()

renderSubheaders()
renderImages()
renderRows()
renderBelowRow()
renderNavBar()
renderItalicTitle()
renderTrackingCategories()

return tostring(root)
end

local function preprocessSingleArg(argName)
-- If the argument exists and isn't blank, add it to the argument table.
-- Blank arguments are treated as nil to match the behaviour of ParserFunctions.
if origArgs[argName] and origArgs[argName] ~= '' then
args[argName] = origArgs[argName]
end
end

local function preprocessArgs(prefixTable, step)
-- Assign the parameters with the given prefixes to the args table, in order, in batches
-- of the step size specified. This is to prevent references etc. from appearing in the
-- wrong order. The prefixTable should be an array containing tables, each of which has
-- two possible fields, a "prefix" string and a "depend" table. The function always parses
-- parameters containing the "prefix" string, but only parses parameters in the "depend"
-- table if the prefix parameter is present and non-blank.
if type(prefixTable) ~= 'table' then
error("Non-table value detected for the prefix table", 2)
end
if type(step) ~= 'number' then
error("Invalid step value detected", 2)
end

-- Get arguments without a number suffix, and check for bad input.
for i,v in ipairs(prefixTable) do
if type(v) ~= 'table' or type(v.prefix) ~= "string" or (v.depend and type(v.depend) ~= 'table') then
error('Invalid input detected to preprocessArgs prefix table', 2)
end
preprocessSingleArg(v.prefix)
-- Only parse the depend parameter if the prefix parameter is present and not blank.
if args[v.prefix] and v.depend then
for j, dependValue in ipairs(v.depend) do
if type(dependValue) ~= 'string' then
error('Invalid "depend" parameter value detected in preprocessArgs')
end
preprocessSingleArg(dependValue)
end
end
end

-- Get arguments with number suffixes.
local a = 1 -- Counter variable.
local moreArgumentsExist = true
while moreArgumentsExist == true do
moreArgumentsExist = false
for i = a, a + step - 1 do
for j,v in ipairs(prefixTable) do
local prefixArgName = v.prefix .. tostring(i)
if origArgs[prefixArgName] then
moreArgumentsExist = true -- Do another loop if any arguments are found, even blank ones.
preprocessSingleArg(prefixArgName)
end
-- Process the depend table if the prefix argument is present and not blank, or
-- we are processing "prefix1" and "prefix" is present and not blank, and
-- if the depend table is present.
if v.depend and (args[prefixArgName] or (i == 1 and args[v.prefix])) then
for j,dependValue in ipairs(v.depend) do
local dependArgName = dependValue .. tostring(i)
preprocessSingleArg(dependArgName)
end
end
end
end
a = a + step
end
end

function p.infobox(frame) --PREPROCESSING LIST--
-- If called via #invoke, use the args passed into the invoking template.
-- Otherwise, for testing purposes, assume args are being passed directly in.
if frame == mw.getCurrentFrame() then
origArgs = frame:getParent().args
else
origArgs = frame
end

-- Parse the data parameters in the same order that the old {{infobox}} did, so that
-- references etc. will display in the expected places. Parameters that depend on
-- another parameter are only processed if that parameter is present, to avoid
-- phantom references appearing in article reference lists.
preprocessSingleArg('child')
preprocessSingleArg('bodyclass')
preprocessSingleArg('subbox')
preprocessSingleArg('bodystyle')

--WEAPON
preprocessSingleArg('weapon')
preprocessSingleArg('weaponclass')
preprocessSingleArg('weaponstyle')

--TIER
preprocessSingleArg('tier')
preprocessSingleArg('tierclass')
preprocessSingleArg('tierstyle')

--COST
preprocessSingleArg('cost')
preprocessSingleArg('costclass')
preprocessSingleArg('coststyle')

--DAMAGE
preprocessSingleArg('damage')

--RELOAD
preprocessSingleArg('reload')

--ATTACK DELAY
preprocessSingleArg('attackdelay')

--CLIP SIZE
preprocessSingleArg('clipsize')

--MINSPREAD
preprocessSingleArg('minspread')

--MAXSPREAD
preprocessSingleArg('maxspread')

--MOVESPEED
preprocessSingleArg('movespeed')

--RESISTANCE PIERCE
preprocessSingleArg('respierce')

--OVERKILL
preprocessSingleArg('overkill')

--POINT MULTI
preprocessSingleArg('pointmulti')

--SLOW
preprocessSingleArg('pulseslow')

--PIERCES
preprocessSingleArg('nbpierces')

--PIERCE TAPER
preprocessSingleArg('piercetaper')

--AOE RADIUS
preprocessSingleArg('aoeradius')

--AOE TAPER
preprocessSingleArg('aoetaper')

--HS MULTI
preprocessSingleArg('headshotmulti')

--DEBUFF TIME
preprocessSingleArg('debufftime')

--BUFF TIME
preprocessSingleArg('bufftime')

--RANGE
preprocessSingleArg('range')

--KB
preprocessSingleArg('knockback')

--STABILITY
preprocessSingleArg('stability')

--STAMINA
preprocessSingleArg('staminause')

--BLOCK VALUE
preprocessSingleArg('block')

--IMPACT DELAY
preprocessSingleArg('impactdelay')

--SIZE
preprocessSingleArg('size')

--HEALING
preprocessSingleArg('healing')

preprocessArgs({
{prefix = 'subheader', depend = {'subheaderstyle', 'subheaderrowclass'}}
}, 10)
preprocessSingleArg('subheaderstyle')
preprocessSingleArg('subheaderclass')
preprocessArgs({
{prefix = 'image', depend = {'caption', 'imagerowclass'}}
}, 10)
preprocessSingleArg('captionstyle')
preprocessSingleArg('imagestyle')
preprocessSingleArg('imageclass')
preprocessArgs({
{prefix = 'header'},
{prefix = 'data', depend = {'label'}},
{prefix = 'rowclass'},
{prefix = 'rowstyle'},
{prefix = 'rowcellstyle'},
{prefix = 'class'},
{prefix = 'dataid'},
{prefix = 'labelid'},
{prefix = 'headerid'},
{prefix = 'rowid'}
}, 50)
preprocessSingleArg('headerclass')
preprocessSingleArg('headerstyle')
preprocessSingleArg('labelstyle')
preprocessSingleArg('datastyle')
preprocessSingleArg('below')
preprocessSingleArg('belowclass')
preprocessSingleArg('belowstyle')
preprocessSingleArg('name')
args['italic title'] = origArgs['italic title'] -- different behaviour if blank or absent
preprocessSingleArg('decat')

return _infobox()
end

return p

2020-05-06T13:40:03Z

Engie:

Module:Weapon Infobox

2020-05-06T13:37:58Z

Engie: added debuff time

--
-- This module implements {{Gun infobox}}
--

local p = {}

local navbar = require('Module:Navbar')._navbar

local args = {}
local origArgs
local root

local function notempty( s ) return s and s:match( '%S' ) end

local function fixChildBoxes(sval, tt)
if notempty(sval) then
local marker = ''
local s = sval
s = mw.ustring.gsub(s, '(<%s*[Tt][Rr])', marker .. '%1')
s = mw.ustring.gsub(s, '(</[Tt][Rr]%s*>)', '%1' .. marker)
if s:match(marker) then
s = mw.ustring.gsub(s, marker .. '%s*' .. marker, '')
s = mw.ustring.gsub(s, '([\r\n]|-[^\r\n]*[\r\n])%s*' .. marker, '%1')
s = mw.ustring.gsub(s, marker .. '%s*([\r\n]|-)', '%1')
s = mw.ustring.gsub(s, '(</[Cc][Aa][Pp][Tt][Ii][Oo][Nn]%s*>%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '(<%s*[Tt][Aa][Bb][Ll][Ee][^<>]*>%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '^(%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, '([\r\n]%{|[^\r\n]*[\r\n]%s*)' .. marker, '%1')
s = mw.ustring.gsub(s, marker .. '(%s*</[Tt][Aa][Bb][Ll][Ee]%s*>)', '%1')
s = mw.ustring.gsub(s, marker .. '(%s*\n|%})', '%1')
end
if s:match(marker) then
local subcells = mw.text.split(s, marker)
s = ''
for k = 1, #subcells do
if k == 1 then
s = s .. subcells[k] .. '</' .. tt .. '></tr>'
elseif k == #subcells then
local rowstyle = ' style="display:none"'
if notempty(subcells[k]) then rowstyle = '' end
s = s .. '<tr' .. rowstyle ..'><' .. tt .. ' colspan=2>\n' .. subcells[k]
elseif notempty(subcells[k]) then
if (k % 2) == 0 then
s = s .. subcells[k]
else
s = s .. '<tr><' .. tt .. ' colspan=2>\n' .. subcells[k] .. '</' .. tt .. '></tr>'
end
end
end
end
-- the next two lines add a newline at the end of lists for the PHP parser
-- https://en.wikipedia.org/w/index.php?title=Template_talk:Infobox_musical_artist&oldid=849054481
-- remove when [[:phab:T191516]] is fixed or OBE
s = mw.ustring.gsub(s, '([\r\n][%*#;:][^\r\n]*)$', '%1\n')
s = mw.ustring.gsub(s, '^([%*#;:][^\r\n]*)$', '%1\n')
s = mw.ustring.gsub(s, '^([%*#;:])', '\n%1')
s = mw.ustring.gsub(s, '^(%{%|)', '\n%1')
return s
else
return sval
end
end

local function union(t1, t2)
-- Returns the union of the values of two tables, as a sequence.
local vals = {}
for k, v in pairs(t1) do
vals[v] = true
end
for k, v in pairs(t2) do
vals[v] = true
end
local ret = {}
for k, v in pairs(vals) do
table.insert(ret, k)
end
return ret
end

local function getArgNums(prefix)
-- Returns a table containing the numbers of the arguments that exist
-- for the specified prefix. For example, if the prefix was 'data', and
-- 'data1', 'data2', and 'data5' exist, it would return {1, 2, 5}.
local nums = {}
for k, v in pairs(args) do
local num = tostring(k):match('^' .. prefix .. '([1-9]%d*)$')
if num then table.insert(nums, tonumber(num)) end
end
table.sort(nums)
return nums
end

local function addRow(rowArgs)
-- Adds a row to the infobox, with either a header cell
-- or a label/data cell combination.
if rowArgs.header then
root
:tag('tr')
:addClass(rowArgs.rowclass)
:cssText(rowArgs.rowstyle)
:attr('id', rowArgs.rowid)
:tag('th')
:attr('colspan', 2)
:attr('id', rowArgs.headerid)
:addClass(rowArgs.class)
:addClass(args.headerclass)
:css('text-align', 'center')
:cssText(args.headerstyle)
:cssText(rowArgs.rowcellstyle)
:wikitext(fixChildBoxes(rowArgs.header, 'th'))
elseif rowArgs.data then
local row = root:tag('tr')
row:addClass(rowArgs.rowclass)
row:cssText(rowArgs.rowstyle)
row:attr('id', rowArgs.rowid)
if rowArgs.label then
row
:tag('th')
:attr('scope', 'row')
:attr('id', rowArgs.labelid)
:cssText(args.labelstyle)
:cssText(rowArgs.rowcellstyle)
:wikitext(rowArgs.label)
:done()
end

local dataCell = row:tag('td')
if not rowArgs.label then
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
end
dataCell
:attr('id', rowArgs.dataid)
:addClass(rowArgs.class)
:cssText(rowArgs.datastyle)
:cssText(rowArgs.rowcellstyle)
:wikitext(fixChildBoxes(rowArgs.data, 'td'))
end
end

local function renderWeapon() --------------- WEAPON NAME -------------------
if not args.weapon then return end

root
:tag('caption')
:addClass(args.weaponclass)
:cssText("background:#cfc;")
:wikitext(args.weapon)
end

local function renderTier() ------------------ TIER -----------------------
if not args.tier then return end

root
:tag('tr')
:tag('th')
:attr('colspan', 2)
:addClass(args.tierclass)
:css('text-align', 'center')
:css('font-size', '125%')
:css('font-weight', 'bold')
:cssText(args.tierstyle)
:wikitext("Tier ")
:wikitext(fixChildBoxes(args.tier,'th'))
end

local function renderCost() ---------------- COST --------------------
if not args.cost then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:cssText(args.costlabelclass)
:cssText(args.costlabelstyle)
:wikitext("Cost :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:addClass(args.costclass)
:cssText(args.coststyle)
:wikitext(fixChildBoxes(args.cost, 'td'))
:wikitext(" points")
end

local function renderDamage() ---------------- DAMAGE --------------------
if not args.damage then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Damage :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.damage, 'td'))
end

local function renderReload() ---------------- RELOAD --------------------
if not args.reload then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Reload speed :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.reload, 'td'))
:wikitext(" s")
end

local function renderDelay() ----------------ATTACK DELAY --------------------
if not args.attackdelay then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Attack delay :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.attackdelay, 'td'))
:wikitext(" s")
end

local function renderClipsize() ----------------CLIP SIZE--------------------
if not args.clipsize then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Clip size :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.clipsize, 'td'))
end

local function renderMinspread() ----------------MINSPREAD--------------------
if not args.minspread then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Min Spread :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.minspread, 'td'))
end

local function renderMaxspread() ----------------MAXSPREAD--------------------
if not args.maxspread then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Max Spread :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.maxspread, 'td'))
end

local function renderMovespeed() ----------------MOVEMENT SPEED--------------------
if not args.movespeed then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Move Speed :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.movespeed, 'td'))
end

local function renderRespierce() ----------------RESISTANCE PIERCE--------------------
if not args.respierce then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Res Pierce :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.respierce, 'td'))
:wikitext("%")
end

local function renderOverkill() ----------------OVERKILL--------------------
if not args.overkill then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Overkill :")
:done()

local dataCell = row:tag('td')
dataCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.overkill, 'td'))
:wikitext("%")
end

local function renderPointmulti() ---------------- POINT MULTIPLIER --------------------
if not args.pointmulti then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Point Multi :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.pointmulti, 'td'))
:wikitext("%")
end

local function renderSlow() ---------------- SLOW --------------------
if not args.pulseslow then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Slow :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.pulseslow, 'td'))
:wikitext("%")
end

local function renderPierces() ---------------- PIERCES --------------------
if not args.nbpierces then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Pierces :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.nbpierces, 'td'))
end

local function renderPiercetaper() ---------------- PIERCE TAPER --------------------
if not args.piercetaper then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Pierce taper :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.piercetaper, 'td'))
:wikitext("%")
end

local function renderRadius() ---------------- AOE RADIUS --------------------
if not args.aoeradius then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Area Radius :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.aoeradius, 'td'))
end

local function renderTaper() ---------------- AOE TAPER --------------------
if not args.aoetaper then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Area Taper :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.aoetaper, 'td'))
:wikitext("%")
end

local function renderHsm() ---------------- HS MULTI --------------------
if not args.headshotmulti then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Headshot multiplier :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.headshotmulti, 'td'))
:wikitext("x")
end

local function renderDebuff() ---------------- DEBUFF TIME --------------------
if not args.debufftime then return end

local row = root:tag('tr')
row
:tag('th')
:attr('scope', 'row')
:wikitext("Debuff time :")
:done()

local costCell = row:tag('td')
costCell
:attr('colspan', 2)
:css('text-align', 'center')
:wikitext(fixChildBoxes(args.debufftime, 'td'))
:wikitext(" s")
end

local function renderBelowRow()
if not args.below then return end

root
:tag('tr')
:tag('td')
:attr('colspan', '2')
:addClass(args.belowclass)
:css('text-align', 'center')
:cssText(args.belowstyle)
:wikitext(fixChildBoxes(args.below,'td'))
end

local function renderSubheaders()
if args.subheader then
args.subheader1 = args.subheader
end
if args.subheaderrowclass then
args.subheaderrowclass1 = args.subheaderrowclass
end
local subheadernums = getArgNums('subheader')
for k, num in ipairs(subheadernums) do
addRow({
data = args['subheader' .. tostring(num)],
datastyle = args.subheaderstyle,
rowcellstyle = args['subheaderstyle' .. tostring(num)],
class = args.subheaderclass,
rowclass = args['subheaderrowclass' .. tostring(num)]
})
end
end

local function renderImages()
if args.image then
args.image1 = args.image
end
if args.caption then
args.caption1 = args.caption
end
local imagenums = getArgNums('image')
for k, num in ipairs(imagenums) do
local caption = args['caption' .. tostring(num)]
local data = mw.html.create():wikitext(args['image' .. tostring(num)])
if caption then
data
:tag('div')
:cssText(args.captionstyle)
:wikitext(caption)
end
addRow({
data = tostring(data),
datastyle = args.imagestyle,
class = args.imageclass,
rowclass = args['imagerowclass' .. tostring(num)]
})
end
end

local function renderRows()
-- Gets the union of the header and data argument numbers,
-- and renders them all in order using addRow.
local rownums = union(getArgNums('header'), getArgNums('data'))
table.sort(rownums)
for k, num in ipairs(rownums) do
addRow({
header = args['header' .. tostring(num)],
label = args['label' .. tostring(num)],
data = args['data' .. tostring(num)],
datastyle = args.datastyle,
class = args['class' .. tostring(num)],
rowclass = args['rowclass' .. tostring(num)],
rowstyle = args['rowstyle' .. tostring(num)],
rowcellstyle = args['rowcellstyle' .. tostring(num)],
dataid = args['dataid' .. tostring(num)],
labelid = args['labelid' .. tostring(num)],
headerid = args['headerid' .. tostring(num)],
rowid = args['rowid' .. tostring(num)]
})
end
end

local function renderNavBar()
if not args.name then return end

root
:tag('tr')
:tag('td')
:attr('colspan', '2')
:css('text-align', 'right')
:wikitext(navbar{
args.name,
mini = 1,
})
end

local function renderItalicTitle()
local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])
if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then
root:wikitext(mw.getCurrentFrame():expandTemplate({title = 'italic title'}))
end
end

local function renderTrackingCategories()
if args.decat ~= 'yes' then
if args.child == 'yes' then
if args.gun then
root:wikitext('[[Category:Pages which use embedded gunInfobox templates with the title parameter]]')
end
elseif #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then
root:wikitext('[[Category:Articles which use gunInfobox templates with no data rows]]')
end
end
end

local function _infobox() --INFOBOX RENDERING--
-- Specify the overall layout of the infobox, with special settings
-- if the infobox is used as a 'child' inside another infobox.
if args.child ~= 'yes' then
root = mw.html.create('table')

root
:addClass((args.subbox ~= 'yes') and 'infobox' or nil)
:addClass(args.bodyclass)

if args.subbox == 'yes' then
root
:css('padding', '0')
:css('border', 'none')
:css('margin', '-3px')
:css('width', 'auto')
:css('min-width', '100%')
:css('font-size', '100%')
:css('clear', 'none')
:css('float', 'none')
:css('background-color', 'transparent')
else
root
:css('width', '22em')
end
root
:cssText(args.bodystyle)

renderWeapon()
renderTier()
else
root = mw.html.create()

root
:wikitext(args.gun)
end
renderCost()
renderDamage()
renderReload()
renderDelay()
renderClipsize()
renderMinspread()
renderMaxspread()
renderMovespeed()
renderRespierce()
renderOverkill()
renderPointmulti()
renderSlow()
renderPierces()
renderPiercetaper()
renderRadius()
renderTaper()
renderHsm()
renderDebuff()

renderSubheaders()
renderImages()
renderRows()
renderBelowRow()
renderNavBar()
renderItalicTitle()
renderTrackingCategories()

return tostring(root)
end

local function preprocessSingleArg(argName)
-- If the argument exists and isn't blank, add it to the argument table.
-- Blank arguments are treated as nil to match the behaviour of ParserFunctions.
if origArgs[argName] and origArgs[argName] ~= '' then
args[argName] = origArgs[argName]
end
end

local function preprocessArgs(prefixTable, step)
-- Assign the parameters with the given prefixes to the args table, in order, in batches
-- of the step size specified. This is to prevent references etc. from appearing in the
-- wrong order. The prefixTable should be an array containing tables, each of which has
-- two possible fields, a "prefix" string and a "depend" table. The function always parses
-- parameters containing the "prefix" string, but only parses parameters in the "depend"
-- table if the prefix parameter is present and non-blank.
if type(prefixTable) ~= 'table' then
error("Non-table value detected for the prefix table", 2)
end
if type(step) ~= 'number' then
error("Invalid step value detected", 2)
end

-- Get arguments without a number suffix, and check for bad input.
for i,v in ipairs(prefixTable) do
if type(v) ~= 'table' or type(v.prefix) ~= "string" or (v.depend and type(v.depend) ~= 'table') then
error('Invalid input detected to preprocessArgs prefix table', 2)
end
preprocessSingleArg(v.prefix)
-- Only parse the depend parameter if the prefix parameter is present and not blank.
if args[v.prefix] and v.depend then
for j, dependValue in ipairs(v.depend) do
if type(dependValue) ~= 'string' then
error('Invalid "depend" parameter value detected in preprocessArgs')
end
preprocessSingleArg(dependValue)
end
end
end

-- Get arguments with number suffixes.
local a = 1 -- Counter variable.
local moreArgumentsExist = true
while moreArgumentsExist == true do
moreArgumentsExist = false
for i = a, a + step - 1 do
for j,v in ipairs(prefixTable) do
local prefixArgName = v.prefix .. tostring(i)
if origArgs[prefixArgName] then
moreArgumentsExist = true -- Do another loop if any arguments are found, even blank ones.
preprocessSingleArg(prefixArgName)
end
-- Process the depend table if the prefix argument is present and not blank, or
-- we are processing "prefix1" and "prefix" is present and not blank, and
-- if the depend table is present.
if v.depend and (args[prefixArgName] or (i == 1 and args[v.prefix])) then
for j,dependValue in ipairs(v.depend) do
local dependArgName = dependValue .. tostring(i)
preprocessSingleArg(dependArgName)
end
end
end
end
a = a + step
end
end

function p.infobox(frame) --PREPROCESSING LIST--
-- If called via #invoke, use the args passed into the invoking template.
-- Otherwise, for testing purposes, assume args are being passed directly in.
if frame == mw.getCurrentFrame() then
origArgs = frame:getParent().args
else
origArgs = frame
end

-- Parse the data parameters in the same order that the old {{infobox}} did, so that
-- references etc. will display in the expected places. Parameters that depend on
-- another parameter are only processed if that parameter is present, to avoid
-- phantom references appearing in article reference lists.
preprocessSingleArg('child')
preprocessSingleArg('bodyclass')
preprocessSingleArg('subbox')
preprocessSingleArg('bodystyle')

--WEAPON
preprocessSingleArg('weapon')
preprocessSingleArg('weaponclass')
preprocessSingleArg('weaponstyle')

--TIER
preprocessSingleArg('tier')
preprocessSingleArg('tierclass')
preprocessSingleArg('tierstyle')

--COST
preprocessSingleArg('cost')
preprocessSingleArg('costclass')
preprocessSingleArg('coststyle')

--DAMAGE
preprocessSingleArg('damage')

--RELOAD
preprocessSingleArg('reload')

--ATTACK DELAY
preprocessSingleArg('attackdelay')

--CLIP SIZE
preprocessSingleArg('clipsize')

--MINSPREAD
preprocessSingleArg('minspread')

--MAXSPREAD
preprocessSingleArg('maxspread')

--MOVESPEED
preprocessSingleArg('movespeed')

--RESISTANCE PIERCE
preprocessSingleArg('respierce')

--OVERKILL
preprocessSingleArg('overkill')

--POINT MULTI
preprocessSingleArg('pointmulti')

--SLOW
preprocessSingleArg('pulseslow')

--PIERCES
preprocessSingleArg('nbpierces')

--PIERCE TAPER
preprocessSingleArg('piercetaper')

--AOE RADIUS
preprocessSingleArg('aoeradius')

--AOE TAPER
preprocessSingleArg('aoetaper')

--HS MULTI
preprocessSingleArg('headshotmulti')

--DEBUFF TIME
preprocessSingleArg('debufftime')

preprocessArgs({
{prefix = 'subheader', depend = {'subheaderstyle', 'subheaderrowclass'}}
}, 10)
preprocessSingleArg('subheaderstyle')
preprocessSingleArg('subheaderclass')
preprocessArgs({
{prefix = 'image', depend = {'caption', 'imagerowclass'}}
}, 10)
preprocessSingleArg('captionstyle')
preprocessSingleArg('imagestyle')
preprocessSingleArg('imageclass')
preprocessArgs({
{prefix = 'header'},
{prefix = 'data', depend = {'label'}},
{prefix = 'rowclass'},
{prefix = 'rowstyle'},
{prefix = 'rowcellstyle'},
{prefix = 'class'},
{prefix = 'dataid'},
{prefix = 'labelid'},
{prefix = 'headerid'},
{prefix = 'rowid'}
}, 50)
preprocessSingleArg('headerclass')
preprocessSingleArg('headerstyle')
preprocessSingleArg('labelstyle')
preprocessSingleArg('datastyle')
preprocessSingleArg('below')
preprocessSingleArg('belowclass')
preprocessSingleArg('belowstyle')
preprocessSingleArg('name')
args['italic title'] = origArgs['italic title'] -- different behaviour if blank or absent
preprocessSingleArg('decat')

return _infobox()
end

return p

2020-04-07T15:15:02Z

Engie:

Template:Weapon Infobox/doc

2020-04-07T15:03:53Z

Engie:

Template:Weapon Infobox/doc

2020-04-07T14:56:26Z

Engie:

This template is used to create infoboxes for guns. It is currently in development and should not be used.
This page will feature the arguments for this infobox as it is developped.

Examples :
{{Weapon Infobox
|weapon = 'Annabelle' Rifle
|tier = 2
|cost = 30
|damage = 70
|reload = 0.43
|attackdelay = 0.73
|clipsize = 5
|minspread = 0.25
|maxspread = 4
|movespeed = 218
|respierce = 70
|overkill = 25
}}

{{Weapon Infobox
|weapon = 'Oberon' Pulse Shotgun
|tier = 3
|cost = 65
|damage = 13x5
|reload = 0.4
|attackdelay = 0.82
|clipsize = 7
|minspread = 4.75
|maxspread = 5.5
|movespeed = 211
|pointmulti = 125
|pulseslow = 38
}}

Existing parameters for this templates are :
*weapon --This designates then NAME of the weapon
*tier
*cost
*damage
*reload --This designates reload time in seconds
*attackdelay
*clipsize
*minspread --Minimum spread
*maxspread --Maximum spread
*movespeed
*respierce --Resistance pierce in %
*overkill
*pointmulti --Point multiplier in %
*pulseslow --Written as "Slow%" in weapon database

Template:Weapon Infobox/doc

2020-04-07T14:44:29Z

Engie:

Template:Weapon Infobox/doc

2020-04-07T14:31:41Z

Engie:

Template:Weapon Infobox/doc

2020-04-07T14:31:10Z

Engie:

Template:Weapon Infobox

2020-04-07T14:30:26Z

Engie:

{{#invoke:Weapon Infobox|infobox}}<includeonly>{{template other|{{#ifeq:{{PAGENAME}}|Weapon Infobox||{{#ifeq:{{str left|{{SUBPAGENAME}}|7}}|Weapon Infobox|[[Category:Infobox templates|{{remove first word|{{SUBPAGENAME}}}}]]}}}}|}}</includeonly><noinclude>
{{documentation}}

Template:Gun infobox/doc

2020-04-07T14:29:28Z

Engie: Engie moved page Template:Gun infobox/doc to Template:Weapon Infobox/doc: Infobox will be made to apply to all weapons

#REDIRECT [[Template:Weapon Infobox/doc]]

2020-04-07T13:25:43Z

Engie:

Module:Weapon Infobox

2020-04-07T13:18:06Z

Engie:

Module:Weapon Infobox

2020-04-07T13:07:59Z

Engie: