Module:Credits

Documentation for this module may be created at Module:Credits/doc

local utils = require('Module:Utils')

local p = {}

function p.semanticStore(frame)

	local titleObj    = mw.title.getCurrentTitle()
	local args        = frame:getParent().args or {}
	
	-- Get infobox helper params
	local collapsible = args['collapsible'] or 'no'
	local state       = args['state'] or 'autocollapse'

	-- Get other properties	
	local title       = args['title'] or titleObj.text 
	
	local Concept = args['Concept'] or ''
	local Designer = args['Designer'] or ''
	-- Credit
	local Credit1 = args['Credit1'] or ''
	local Credit2 = args['Credit2'] or ''
	local Credit3 = args['Credit3'] or ''
	local Credit4 = args['Credit4'] or ''
	local CreditTable = {}
	for _, credit in ipairs{Credit1, Credit2, Credit3, Credit4} do
    	if credit ~= '' then
	        table.insert(CreditTable, credit)
    	end
	end
	-- Graphics
	local Graphics1 = args['Graphics1'] or ''
	local Graphics2 = args['Graphics2'] or ''
	local Graphics3 = args['Graphics3'] or ''
	local Graphics4 = args['Graphics4'] or ''
	local Graphics5 = args['Graphics5'] or ''
	local GraphicsTable = {}
	for _, graphics in ipairs{Graphics1, Graphics2, Graphics3, Graphics4, Graphics5} do
	    if graphics ~= '' then
    	    table.insert(GraphicsTable, graphics)
    	end
	end
	local GameIdea = args['GameIdea'] or '' -- '''Game Idea'''
	local ADesign = args['ADesign'] or '' -- '''Additional Design'''
	local Producer = args['Producer'] or '' -- '''Producer'''
	local Writer = args['Writer'] or '' -- '''Writer'''
	local ArtDirector = args['ArtDirector'] or '' -- '''Art Director'''
	local TechDirector = args['TechDirector'] or '' -- '''Technical Director'''
	local AProducer = args['AProducer'] or '' -- '''Assistant Producer'''
	local LProgrammer = args['LProgrammer'] or '' -- '''Lead Programmer'''
	local SProgrammer = args['SProgrammer'] or '' -- '''Senior Programmer'''
	local Programmer = args['Programmer'] or '' -- '''Programmer'''
	local GProgrammer = args['GProgrammer'] or '' -- '''Game Programming'''
	local AProgrammer = args['AProgrammer'] or '' -- '''Additional Programming'''
	local LAnimator = args['LAnimator'] or '' -- '''Lead Animator'''
	local Animation = args['Animation'] or '' -- '''Animation'''
	local LArtist = args['LArtist'] or '' -- '''Lead Artist'''
	local Artists = args['Artists'] or '' -- '''Art Team'''
	local CArtist = args['CArtist'] or '' -- '''Concept Artist'''
	local AArtwork = args['AArtwork'] or '' -- '''Additional Artwork'''
	local TechLead = args['TechLead'] or '' -- '''Technology Lead'''
	local TProgramming = args['TechLead'] or '' -- '''Technology Programming'''
	local ATProgramming = args['ATProgramming'] or '' -- '''Additional Technology Programming'''
	local QALead = args['QALead'] or '' -- '''QA Lead'''
	local QA = args['QA'] or '' -- '''QA'''
	local Music = args['Music'] or '' -- '''Music'''
	local Sound = args['Sound'] or '' -- '''Sound Effects'''
	local AudioEdit = args['AudioEdit'] or '' -- '''Audio Editor'''
	local CDirector = args['CDirector'] or '' -- '''Casting Director'''
	local LAProducer = args['LAProducer'] or '' -- '''Live Action Producer'''
	local DPhoto = args['DPhoto'] or '' -- '''Director of Photography'''
	local VEditor = args['VEditor'] or '' -- '''Video Editor'''
	local Cast = args['Cast'] or '' -- '''Cast'''
	local Manual = args['Manual'] or '' -- '''Manual'''
	local ContentPub = args['ContentPub'] or '' -- '''Publisher name'''
	local SrEditor = args['SrEditor'] or '' -- '''Senior Editor'''
	local Editor = args['Editor'] or '' -- '''Editor'''
	local CoverArt = args['CoverArt'] or '' -- '''Cover Art'''
	local Production = args['Production'] or '' -- '''Production'''
		
	-- Set properties
    local data = {
    	'Has Title=' .. title,
    	'Concept=' .. utils.unwrapList(utils.unwrapLink(Concept)),
    	'Designer=' .. utils.unwrapList(utils.unwrapLink(Designer)),
    	'+sep=,',
	    'Game Idea=' .. utils.unwrapList(utils.unwrapLink(GameIdea)),
	    '+sep=,',
    	'Additional Design=' .. utils.unwrapList(utils.unwrapLink(ADesign)),
    	'+sep=,',
    	'Producer=' .. utils.unwrapList(utils.unwrapLink(Producer)),
    	'+sep=,',
    	'Writer=' .. utils.unwrapList(utils.unwrapLink(Writer)),
    	'+sep=,',
    	'Art Director=' .. utils.unwrapList(utils.unwrapLink(ArtDirector)),
    	'+sep=,',
    	'Technical Director=' .. utils.unwrapList(utils.unwrapLink(TechDirector)),
    	'+sep=,',
    	'Assistant Producer=' .. utils.unwrapList(utils.unwrapLink(AProducer)),
    	'+sep=,',
    	'Lead Programmer=' .. utils.unwrapList(utils.unwrapLink(LProgrammer)),
    	'+sep=,',
    	'Senior Programmer=' .. utils.unwrapList(utils.unwrapLink(SProgrammer)),
    	'+sep=,',
    	'Programmer=' .. utils.unwrapList(utils.unwrapLink(Programmer)),
    	'+sep=,',
    	'Game Programming=' .. utils.unwrapList(utils.unwrapLink(GProgrammer)),
    	'+sep=,',
    	'Additional Programming=' .. utils.unwrapList(utils.unwrapLink(AProgrammer)),
    	'+sep=,',
    	'Lead Animator=' .. utils.unwrapList(utils.unwrapLink(LAnimator)),
    	'+sep=,',
    	'Animation=' .. utils.unwrapList(utils.unwrapLink(Animation)),
    	'+sep=,',
    	'Lead Artist=' .. utils.unwrapList(utils.unwrapLink(LArtist)),
    	'+sep=,',
    	'Art Team=' .. utils.unwrapList(utils.unwrapLink(Artists)),
    	'+sep=,',
    	'Concept Artist=' .. utils.unwrapList(utils.unwrapLink(CArtist)),
    	'+sep=,',
    	'Additional Artwork=' .. utils.unwrapList(utils.unwrapLink(AArtwork)),
    	'+sep=,',
    	'Technology Lead=' .. utils.unwrapList(utils.unwrapLink(TechLead)),
    	'+sep=,',
    	'Technology Programming=' .. utils.unwrapList(utils.unwrapLink(TProgramming)),
    	'+sep=,',
    	'Additional Technology Programming=' .. utils.unwrapList(utils.unwrapLink(ATProgramming)),
    	'+sep=,',
    	'QA Lead=' .. utils.unwrapList(utils.unwrapLink(QALead)),
    	'+sep=,',
    	'QA=' .. utils.unwrapList(utils.unwrapLink(QA)),
    	'+sep=,',
    	'Music=' .. utils.unwrapList(utils.unwrapLink(Music)),
    	'+sep=,',
    	'Sound Effects=' .. utils.unwrapList(utils.unwrapLink(Sound)),
    	'+sep=,',
    	'Audio Editor=' .. utils.unwrapList(utils.unwrapLink(AudioEdit)),
    	'+sep=,',
    	'Casting Director=' .. utils.unwrapList(utils.unwrapLink(CDirector)),
    	'+sep=,',
    	'Live Action Producer=' .. utils.unwrapList(utils.unwrapLink(LAProducer)),
    	'+sep=,',
    	'Director of Photography=' .. utils.unwrapList(utils.unwrapLink(DPhoto)),
    	'+sep=,',
    	'Video Editor=' .. utils.unwrapList(utils.unwrapLink(VEditor)),
    	'+sep=,',
    	'Cast=' .. utils.unwrapList(utils.unwrapLink(Cast)),
    	'+sep=,',
    	'Manual=' .. utils.unwrapList(utils.unwrapLink(Manual)),
    	'+sep=,',
    	'Publisher name=' .. utils.unwrapList(utils.unwrapLink(ContentPub)),
    	'+sep=,',
    	'Senior Editor=' .. utils.unwrapList(utils.unwrapLink(SrEditor)),
    	'+sep=,',
    	'Editor=' .. utils.unwrapList(utils.unwrapLink(Editor)),
    	'+sep=,',
    	'Cover Art=' .. utils.unwrapList(utils.unwrapLink(CoverArt)),
    	'+sep=,',
    	'Production=' .. utils.unwrapList(utils.unwrapLink(Production)),
    	'+sep=,',
    	'Credit=' .. table.concat(CreditTable, ','),
    	'+sep=,',
    	'Graphics=' .. table.concat(GraphicsTable, ','),
    	'+sep=,'
	}
	mw.smw.set( data )
	
	-- Infobox variables
	local infoboxClass = 'smwtable-clean w-100 border shadow-sm mb-4 text-left'
	local pad = ''
	if collapsible == 'yes' then
		infoboxClass = infoboxClass .. ' collapsible ' .. state
		pad = frame:preprocess('{{pad|5em}}')
	end
	-- Build infobox
	local html   = mw.html.create()
	local infobox = html:tag('table'):addClass(infoboxClass)
    	:css('font-size', '90%')
		:attr('cellpadding', '0')
		:attr('cellspacing', '0')
		
	-- Header row (title + optional image)
	local headerTr = mw.html.create('tr')
	headerTr:tag('td'):attr('colspan', '2')
       	:tag('div'):addClass('summary text-center font-italic font-weight-bold')
			:css('font-size', '110%')
			:wikitext(pad .. title):done()
		infobox:node(headerTr)
		
	-- Print data rows
	local function appendIfExists(label, value, link)
    	local tr = utils.addLabelValue(label, value, link)
    	if tr then infobox:node(tr) end
	end
	
	appendIfExists('Concept',             Concept)
	appendIfExists('Designer',            Designer, 'link')
	appendIfExists('Credit', table.concat(CreditTable, ', '))
    appendIfExists('Graphics', table.concat(GraphicsTable, ', '))
	appendIfExists('Game Idea',           GameIdea)
	appendIfExists('Additional Design',   ADesign)
	appendIfExists('Producer',            Producer)
	appendIfExists('Writer',              Writer)
	appendIfExists('Art Director',        ArtDirector)
	appendIfExists('Technical Director',  TechDirector)
	appendIfExists('Assistant Producer',  AProducer)
	appendIfExists('Lead Programmer',     LProgrammer)
	appendIfExists('Senior Programmer',   SProgrammer)
	appendIfExists('Programmer',          Programmer)
	appendIfExists('Game Programming',    GProgrammer)
	appendIfExists('Additional Programming', AProgrammer)
	appendIfExists('Lead Animator',       LAnimator)
	appendIfExists('Animation',           Animation)
	appendIfExists('Lead Artist',         LArtist)
	appendIfExists('Art Team',            Artists)
	appendIfExists('Concept Artist',      CArtist)
	appendIfExists('Additional Artwork',  AArtwork)
	appendIfExists('Technology Lead',     TechLead)
	appendIfExists('Technology Programming', TProgramming)
	appendIfExists('Additional Technology Programming', ATProgramming)
	appendIfExists('QA Lead',             QALead)
	appendIfExists('QA',                  QA)
	appendIfExists('Music',               Music)
	appendIfExists('Sound Effects',       Sound)
	appendIfExists('Audio Editor',        AudioEdit)
	appendIfExists('Casting Director',    CDirector)
	appendIfExists('Live Action Producer', LAProducer)
	appendIfExists('Director of Photography', DPhoto)
	appendIfExists('Video Editor',        VEditor)
	appendIfExists('Cast',                Cast)
	appendIfExists('Manual',              Manual)
	appendIfExists('Publisher',           ContentPub)
	appendIfExists('Senior Editor',       SrEditor)
	appendIfExists('Editor',              Editor)
	appendIfExists('Cover Art',           CoverArt)
	appendIfExists('Production',          Production)
	
	return html
end

return p