Module:Video game series reviews

local getArgs = require('Module:Arguments').getArgs
local yesno = require('Module:Yesno')

local p = {}

local function row(args, i, mc, gr, fam, sales, year)
	local ret = ""

	ret = ret .. "|-\n"
	ret = ret .. "! scope=\"row\" | ''" .. args["game" ..i] .. "'' \n"
	if year then
		ret = ret .. "| style=\"text-align: center;\" | " .. (args["year" ..i] or '') .. " \n"
	end	
	if sales then
		ret = ret .. "| style=\"text-align: center;\" | " .. (args["sales" ..i] or '') .. " \n"
	end
	if fam then
		ret = ret .. "| style=\"text-align: center;\" | " .. (args["fam" ..i] or '') .. " \n"
	end
	if gr then
		ret = ret .. "| style=\"text-align: center;\" | " .. (args["gr" ..i] or '') .. " \n"
	end
	if mc then
		ret = ret .. "| style=\"text-align: center;\" | " .. (args["mc" ..i] or '') .. " \n"
	end
	
	return ret
end

function p.main(frame)
	local args = getArgs(frame)
	return p._main(args)
end

function p._main(args)
	local ret = ""
	local mc, gr, fam, sales, year = false, false, false, false, false
	local highGame = 0
	
	for k, v in pairs(args) do
		if string.find(k, "mc%d+") then
			mc = true;
		elseif string.find(k, "gr%d+") then
			gr = true;
		elseif string.find(k, "fam%d+") then
			fam = true;
		elseif string.find(k, "sales%d+") then
			sales = true;
		elseif string.find(k, "year%d+") then
			year = true;
		elseif string.find(k, "game%d+") then
			local num = tonumber(string.match(k, "%d+"))
			if not(num == nil) and highGame < num then
				highGame = num
			end;
		end;
	end

	if args["mc"] then
		mc = yesno(args.mc, false)
	end
	if args["gr"] then
		gr = yesno(args.gr, false)
	end	
	if args["fam"] then
		fam = yesno(args.fam, false)
	end		
	if args["sales"] then
		sales = yesno(args.sales, false)
	end		
	
	ret = ret .. "{| class=\"wikitable plainrowheaders\" style=\"font-size: 90%; float: right; clear: right; margin:0.5em 0 0.5em 1em;\"\n"
	
	ret = ret .."|+ style=\"font-size: 111.11%;\" | "
	if args.title then
		ret = ret .. args.title
	elseif sales then
		if fam then
			ret = ret .. "Sales and review scores"
		elseif gr or mc then
			ret = ret .. "Sales and aggregate review scores"
		else
			ret = ret .. "Sales"
		end
	elseif fam then
		if gr or mc then
			ret = ret .. "Japan and Western review scores"
		else
			ret = ret .. "Famitsu review scores"
		end
	else
		ret = ret .. "Aggregate review scores"
	end

	if args.updated then
		ret = ret .. "<br /><small>''As of " .. args.updated ..".''</small>"
	end
	ret = ret .. " \n"
	
	ret = ret .. "! scope=\"col\" | Game \n"
	if year then
		ret = ret .. "! scope=\"col\" | Year\n"
	end	
	if sales then
		ret = ret .. "! scope=\"col\" | " .. (args.sales_title or "Units sold") .. " \n"
	end
	if fam then
		ret = ret .. "! scope=\"col\" | " .. (args.fam_title or  "''[[Famitsū scores|Famitsu]]''") .. " \n"
	end
	if gr then
		ret = ret .. "! scope=\"col\" | " .. (args.gr_title or  "[[GameRankings]]") .. " \n"
	end
	if mc then
		ret = ret .. "! scope=\"col\" | " .. (args.mc_title or  "[[Metacritic]]") .. " \n"
	end
	
	for i = 1, highGame do
		if args["game" ..i] then
			ret = ret .. row(args, i, mc, gr, fam, sales, year)
		end
	end

	ret = ret .. "|}"

	return ret
end

return p