require('Module:No globals')

local p = {}

local data = mw.loadData('Module:Video game reviews/data')

local yesno = require('Module:Yesno')

local getArgs

local function getActiveSystems(args)

local activeSystems = {}

for k,v in pairs(args) do

if data.systems[k] and yesno(v) then

table.insert(activeSystems, k)

end

end

table.sort(activeSystems, function(a, b)

return data.systems[a].sortkey < data.systems[b].sortkey

end)

return activeSystems

end

local function getArgKeyTables(args)

local reviewers, aggregators, awards = {}, {}, {}

for k in pairs(args) do

if string.match(k, '^rev%d+$') then

table.insert(reviewers, k)

elseif string.match(k, '^agg%d+$') then

table.insert(aggregators, k)

elseif string.match(k, '^award%d+$') then

table.insert(awards, k)

end

end

local function comparator(a, b)

return tonumber(a:match('%d+')) < tonumber(b:match('%d+'))

end

table.sort(reviewers, comparator)

table.sort(aggregators, comparator)

table.sort(awards, comparator)

return reviewers, aggregators, awards

end

local function getProvidedReviewersAndAggregators(args, usePlatforms)

local providedReviewers, providedAggregators = {}, {}

if usePlatforms then

local seen = {}

for k in pairs(args) do

local splitPos = string.find(k, '_')

if splitPos then

local halfarg = string.sub(k, 1, splitPos - 1)

if not seen[halfarg] then

seen[halfarg] = true

if data.reviewers[halfarg] then

table.insert(providedReviewers, halfarg)

elseif data.aggregators[halfarg] then

table.insert(providedAggregators, halfarg)

end

end

end

end

else

for k in pairs(args) do

if not string.find(k, '_') then

if data.reviewers[k] then

table.insert(providedReviewers, k)

elseif data.aggregators[k] then

table.insert(providedAggregators, k)

end

end

end

end

table.sort(providedReviewers, function(a, b)

return data.reviewers[a].sortkey < data.reviewers[b].sortkey

end)

table.sort(providedAggregators, function(a, b)

return data.aggregators[a].sortkey < data.aggregators[b].sortkey

end)

return providedReviewers, providedAggregators

end

local function renderTitleRow(tbl, plain, title)

local titleCell = tbl:tag('tr'):tag('th'):css('font-size', '120%')

if plain then

titleCell:tag('span')

:css('padding-left', '5.7em')

:wikitext(' ')

end

if title then

titleCell

:wikitext(title)

else

titleCell

:addClass('Reception')

:wikitext('Reception')

end

end

local function renderMainHeading(builder, colspan, headingText, borderTop)

builder:tag('tr'):tag('th')

:attr('colspan', colspan)

:css('background', '#d1dbdf')

:css('font-size', '120%')

:css('border-top', borderTop)

:wikitext(headingText)

end

local function renderHeadingRowWithSystems(builder, mainHeading, activeSystems)

renderMainHeading(builder, #activeSystems + 1, mainHeading)

builder:tag('tr')

:tag('th')

:attr('rowspan', '2')

:css('background', '#e8f4f8')

:css('text-align', 'center')

:css('vertical-align', 'middle')

:wikitext('Publication')

:done()

:tag('th')

:attr('colspan', #activeSystems)

:css('background', '#e8f4f8')

:css('vertical-align', 'middle')

:wikitext('Score')

builder = builder:tag('tr')

for _,v in ipairs(activeSystems) do

builder:tag('th'):wikitext(data.systems[v].name)

end

end

local function renderHeadingRow(builder, mainHeading, nameHeading)

renderMainHeading(builder, 2, mainHeading)

builder

:tag('tr')

:tag('th')

:css('background', '#e8f4f8')

:css('text-align', 'center')

:css('vertical-align', 'middle')

:wikitext(nameHeading)

:done()

:tag('th')

:css('background', '#e8f4f8')

:css('vertical-align', 'middle')

:wikitext('Score')

end

local function renderRatingsBySystem(builder, code, name, activeSystems, args, na)

builder = builder:tag('tr')

builder:tag('td')

:css('vertical-align','middle')

:wikitext(name)

for _,v in ipairs(activeSystems) do

local combinedCode = code .. '_' .. v

local cell = builder:tag('td')

if args[combinedCode] then

cell

:css('vertical-align', 'middle')

:css('font-size', '110%')

:wikitext(args[combinedCode])

elseif na then

cell

:css('color', 'lightgray')

:css('vertical-align','middle')

:css('text-align', 'center')

:css('font-size', '110%')

:addClass('table-na')

:wikitext('N/A')

end

end

end

local function renderRating(builder, name, rating)

builder:tag('tr')

:tag('td')

:css('text-align', 'center')

:css('vertical-align', 'middle')

:wikitext(name)

:done()

:tag('td')

:css('text-align', 'center')

:css('font-size', '110%')

:wikitext(rating)

end

local function renderReviews(builder, providedReviewers, providedAggregators, activeSystems, customAggregatorKeys, customReviewerKeys, args)

builder = builder:tag('table')

:addClass('infobox wikitable')

:attr('cellpadding', 0)

:attr('cellspacing', 0)

:css('width', '100%')

:css('border-bottom', 'none')

:css('margin', '0em')

local hasReviewers = #providedReviewers ~= 0 or #customReviewerKeys ~= 0

local hasAggregators = #providedAggregators ~= 0 or #customAggregatorKeys ~= 0

builder:css('font-size', '100%')

if #activeSystems ~= 0 then

local na = yesno(args.na)

local showplatforms = #activeSystems ~= 1 or yesno(args.showplatforms)

if hasReviewers then

if showplatforms then

renderHeadingRowWithSystems(builder, 'Review scores', activeSystems)

else

renderHeadingRow(builder, 'Review scores', 'Publication')

end

for _,v in ipairs(providedReviewers) do

renderRatingsBySystem(builder, v, data.reviewers[v].name, activeSystems, args, na)

end

for _,v in ipairs(customReviewerKeys) do

renderRatingsBySystem(builder, v, args[v], activeSystems, args, na)

end

end

if hasAggregators then

if hasReviewers then

renderMainHeading(builder, #activeSystems+1, 'Aggregate scores')

elseif showplatforms then

renderHeadingRowWithSystems(builder, 'Aggregate scores', activeSystems)

else

renderHeadingRow(builder, 'Aggregate scores', 'Aggregator')

end

for _,v in ipairs(providedAggregators) do

renderRatingsBySystem(builder, v, data.aggregators[v].name, activeSystems, args, na)

end

for _,v in ipairs(customAggregatorKeys) do

renderRatingsBySystem(builder, v, args[v], activeSystems, args, na)

end

end

else

builder:css('font-size', '100%')

if hasAggregators then

renderHeadingRow(builder, 'Aggregate scores', 'Aggregator')

for _,v in ipairs(providedAggregators) do

renderRating(builder, data.aggregators[v].name, args[v])

end

for _,v in ipairs(customAggregatorKeys) do

renderRating(builder, args[v], args[v .. 'Score'])

end

end

if hasReviewers then

renderHeadingRow(builder, 'Review scores', 'Publication')

for _,v in ipairs(providedReviewers) do

renderRating(builder, data.reviewers[v].name, args[v])

end

for _,v in ipairs(customReviewerKeys) do

renderRating(builder, args[v], args[v .. 'Score'])

end

end

end

end

local function renderAwards(builder, args, awardKeys, borderTop)

builder = builder:tag('table')

:addClass('infobox wikitable')

:css('width', '100%')

:css('margin', '0em')

:css('border-top', borderTop)

:attr('cellpadding', 3)

:attr('cellspacing', 0)

renderMainHeading(builder, 2, 'Awards', borderTop)

builder:tag('tr')

:tag('th')

:wikitext('Publication')

:done()

:tag('th')

:wikitext('Award')

for _,v in ipairs(awardKeys) do

builder:tag('tr')

:tag('td')

:css('font-weight','bold')

:css('background-color','#f2f2f2')

:wikitext(args[v .. 'Pub'])

:done()

:tag('td')

:css('background-color','#f2f2f2')

:wikitext(args[v])

end

end

local function renderMainTable(providedReviewers, providedAggregators, awardKeys, activeSystems, customAggregatorKeys, customReviewerKeys, args)

local tbl = mw.html.create('table')

:attr('cellpadding', 0)

:attr('cellspacing', 0)

:addClass(args.state or 'collapsible')

:css('background', 'transparent')

:css('padding', '0em')

:css('margin', '0em 1em 1em 1em')

:css('text-align', 'center')

:css('font-size', '80%')

:css('float', args.align or 'right')

:css('clear', args.align or 'right')

if #activeSystems == 0 then

-- Width: 20% Seems better since it scales with the article size.

tbl

:css('width', args.width or '23em')

end

if args.title and args.state ~= 'plain' and args.state ~= 'off' then

tbl

:addClass('collapsible')

:addClass(args.state)

end

renderTitleRow(tbl, args.state == 'plain', args.title)

if args.subtitle then

tbl:tag('tr'):tag('th')

:css('font-size', '120%')

:wikitext(args.subtitle)

end

renderReviews(tbl:tag('tr'):tag('td'), providedReviewers, providedAggregators, activeSystems, customAggregatorKeys, customReviewerKeys, args)

if #awardKeys ~= 0 then

renderAwards(tbl:tag('tr'):tag('td'), args, awardKeys, (#customAggregatorKeys ~= 0 or #customReviewerKeys ~= 0 or #providedAggregators ~= 0 or #providedReviewers ~= 0) and 'none' or nil)

end

return tbl

end

function p._reviewbox(args)

local activeSystems = getActiveSystems(args)

local customReviewerKeys, customAggregatorKeys, awardKeys = getArgKeyTables(args)

local providedReviewers, providedAggregators = getProvidedReviewersAndAggregators(args, #activeSystems ~= 0)

if #customAggregatorKeys ~= 0 or #customReviewerKeys ~= 0 or #providedAggregators ~= 0 or #providedReviewers ~= 0 or #awardKeys ~= 0 then

return renderMainTable(providedReviewers, providedAggregators, awardKeys, activeSystems, customAggregatorKeys, customReviewerKeys, args)

elseif mw.title.getCurrentTitle().namespace == 0 then

return

end

end

function p.reviewbox(frame)

if not getArgs then

getArgs = require('Module:Arguments').getArgs

end

return p._reviewbox(getArgs(frame, {wrappers = 'User:X201/sandbox/Lua', trim = false}))

end

function p._mulitcheck(args)

local activeSystems = getActiveSystems(args)

local showplatforms = #activeSystems ~= 1 or yesno(args.showplatforms)

return 'Category:True test'

else

return 'Category:false test'

end

end

return p

• Hesar Darreh
• Hesar Deh
• Hesar (disambiguation)
• Hesar-e Abd ol Karim
• Hesar-e Afghan
• Hesar-e Agh Bolagh
• Hesar-e Amir
• Hesar-e Amir Rural District
• Hesar-e Andaf
• Hesar-e Aqbolagh
• Hesar-e Aq Bolagh
• Hesar-e Ardovey
• Hesar-e Ardovi
• Hesar-e Babaganjeh
• Hesar-e Babakhan
• Hesar-e Bahramkhan
• Hesar-e Bahram Khan
• Hesar-e Bala
• Hesar-e Bala, Damavand
• Hesar-e Bala (disambiguation)
• Hesar-e Bala, Varamin
• Hesar-e Bala, Zanjan
• Hesar-e Chupan
• Hesar-e Dashtak
• Hesar-e Devin