Module:Appearances

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

-- Module:Appearances
-- Handles both short codes (S1, G1, etc.) and full names (Suikoden II, etc.)
-- Backward compatible with |S1=yes|G1=yes|...
-- Supports mixed inputs like |Codes=S1,Suikoden II,G1

local p = {}

-- Master lookup: short code → { page name, category, display text (optional) }
local games = {
	S1  = { "Suikoden", "Characters in Suikoden" },
	S2  = { "Suikoden II", "Characters in Suikoden II" },
	G1  = { "Genso Suikogaiden Vol.1", "Characters in Genso Suikogaiden Vol.1" },
	G2  = { "Genso Suikogaiden Vol.2", "Characters in Genso Suikogaiden Vol.2" },
	CS  = { "Genso Suikoden Card Stories", "Characters in Genso Suikoden Card Stories" },
	S3  = { "Suikoden III", "Characters in Suikoden III" },
	S4  = { "Suikoden IV", "Characters in Suikoden IV" },
	ST  = { "Suikoden Tactics", "Characters in Suikoden Tactics" },
	S5  = { "Suikoden V", "Characters in Suikoden V" },
	HS  = { "Genso Suikoden Tierkreis Hoshikuzu no Shiro", "Characters in Genso Suikoden Tierkreis Hoshikuzu no Shiro" },
	TK  = { "Suikoden Tierkreis", "Characters in Suikoden Tierkreis" },
	PS  = { "Pachislot Genso Suikoden", "Characters in Pachislot Genso Suikoden" },
	HT  = { "Genso Suikoden Tsumugareshi Hyakunen no Toki", "Characters in Genso Suikoden Tsumugareshi Hyakunen no Toki" },
	SP  = { "Suikoden STAR LEAP", "Characters in Suikoden STAR LEAP" },
	SL  = { "Suikoden STAR LEAP", "Characters in Suikoden STAR LEAP" },
	kpc = { "Konami Parody Comic Series Genso Suikoden", "Characters from Konami Parody Comic Series Genso Suikoden" },
	SE  = { "Genso Suikoden: Soul Eater 1", "Characters from Genso Suikoden Soul Eater", "Soul Eater 1" },
	SE3 = { "Genso Suikoden: Soul Eater 3", "Characters from Genso Suikoden Soul Eater", "Soul Eater 3" },
	S2n = { "Genso Suikoden II: 1 (novel)", "Characters from the Genso Suikoden II novel" },
	S2n4= { "Genso Suikoden II: 4 (novel)", "Characters from the Genso Suikoden II novel" },
	SS1 = { "Genso Suikoden Short Story Collection 1", "Characters from Genso Suikoden Short Story Collection 1" },
	SS2 = { "Genso Suikoden Short Story Collection 2", "Characters from Genso Suikoden Short Story Collection 2" },
	SS3 = { "Genso Suikoden Short Story Collection 3", "Characters from Genso Suikoden Short Story Collection 3" },
	SS4 = { "Genso Suikoden Short Story Collection 4", "Characters from Genso Suikoden Short Story Collection 4" },
	S4n = { "Genso Suikoden IV: 1 (novel)", "Characters from the Genso Suikoden IV novel" },
}

-- Reverse lookup: full title → code
local titleToCode = {}
for code, data in pairs(games) do
	titleToCode[data[1]] = code
end

local function trim(s)
	return (s:gsub("^%s*(.-)%s*$", "%1"))
end

local function makeLine(entry)
	local title, category, display = entry[1], entry[2], entry[3]
	return string.format("* [[%s|%s]] [[Category:%s]]", title, display or title, category)
end

function p.render(frame)
	local args = frame.args
	local inputCodes = {}

	-- 1️⃣ Get from comma-separated list
	if args.Codes and args.Codes ~= "" then
		for _, token in ipairs(mw.text.split(args.Codes, ",")) do
			token = trim(token)
			if token ~= "" then
				-- Normalize to short code if it’s a full name
				local code = titleToCode[token] or token
				if games[code] then
					table.insert(inputCodes, code)
				end
			end
		end
	end

	-- 2️⃣ Get from named parameters (legacy |S1=yes|)
	for code, _ in pairs(games) do
		if (args[code] or ""):lower() == "yes" then
			table.insert(inputCodes, code)
		end
	end

	-- 3️⃣ Remove duplicates
	local seen, unique = {}, {}
	for _, code in ipairs(inputCodes) do
		if not seen[code] then
			seen[code] = true
			table.insert(unique, code)
		end
	end

	-- 4️⃣ Sort codes for consistent order (optional)
	table.sort(unique, function(a, b) return a < b end)

	-- 5️⃣ Build output
	local output = {}
	for _, code in ipairs(unique) do
		table.insert(output, makeLine(games[code]))
	end

	return table.concat(output, "<br />\n")
end

return p