Modification de Module:Tableau Pokémon

local p = {}
local ressources = {
	["infosPokemon"] = require("Module:Ressources/infosPokemon")
}

-- Extrait le contenu d'une fonction de la forme "fun_name(argument)" dans une expression.
function extract_argument(fun_name, expression, default)
	-- le tiret est un caractère utilisé pour les noms de fonctions, mais aussi spécial pour les expressions rationnelles
	fun_name_rat = string.gsub(fun_name, "%-", "%%-")
	if (string.match(expression, fun_name_rat .. "%([^)]*%)"))
	then return string.sub(string.match(expression, fun_name_rat .. "%([^)]*%)"), string.len(fun_name) + 2, -2)
	else return default
	end
end

-- Extrait le contenu d'une fonction de la forme "fun_name[argument]" dans une expression.
function extract_argument_bracket(fun_name, expression, default)
	-- le tiret est un caractère utilisé pour les noms de fonctions, mais aussi spécial pour les expressions rationnelles
	fun_name_rat = string.gsub(fun_name, "%-", "%%-")
	if (string.match(expression, fun_name_rat .. "%[[^]]*%]"))
	then return string.sub(string.match(expression, fun_name_rat .. "%[[^]]*%]"), string.len(fun_name) + 2, -2)
	else return default
	end
end

function p.sauvage(frame)
	-- Recense les différents types de rencontre de Pokémon sauvages
	local milieu_sauvage = require("Module:Tableau Pokémon/Milieux")

	local jeu = frame.args["jeu"]
	if jeu == nil then jeu = "" end
	
	local bordure = frame:expandTemplate{title='Bordure', args={jeu}}
	if bordure == nil then bordure = "" end
	
	local image = frame.args["image"]
	
	local fetching_loc = frame.args["localisations"]
	fetching_loc = fetching_loc ~= "non"
	
	local i = 1
	local j = 1
	local k = 1
	local h = 1

	-- Noms des icônes / Noms des sous-arguments / Classes de couleurs associées (cf. MediaWiki:Gadget-couleurs.css)
	-- / Lien vers une page globale qui traite de ces sous-taux, nom du type de sous-taux (météo, horaire, saison),
	-- singulier, pluriel, article ("le", "la" ou "l'"), et est-ce que le type du sous-taux est féminin (true ou false)
	local sous_taux = require("Module:Tableau Pokémon/sousTaux")
	local raccourcis = sous_taux.raccourcis
	
	-- GESTION DES TAUX PRÉSENTS
	local taux_presents = nil
	local phrase_finale = ""
	local union_taux = true
	local colspan_taux = 1
	
	-- Paramètre taux-raccourci
	local raccourci_arg = frame.args["taux-raccourci"]
	if raccourci_arg ~= nil
	then taux_presents = raccourcis[raccourci_arg]
		if taux_presents ~= nil
		then if taux_presents[4] and taux_presents[4][2] then phrase_finale = taux_presents[4][2] end
			union_taux = false
			local nombre_taux = 1
			while taux_presents[1][nombre_taux] do
				nombre_taux = nombre_taux + 1
			end
			colspan_taux = nombre_taux - 1
		end
	end
	
	-- Paramètre taux-présents
	local taux_presents_arg = nil
	if taux_presents == nil		-- Si les taux présents ont déjà été définis, on passe cette étape
	then taux_presents_arg = frame.args["taux-présents"]
	end
	
	if taux_presents_arg ~= nil
	then 
		i = 1
		local nombre_taux = 0
		local taux_presents_max = sous_taux[jeu]		-- Le tableau qu'on va émincer pour ne garder que les taux présents
		taux_presents = {{}, {}, {}, taux_presents_max[4]}	-- Le tableau des taux qu'on va remplir
		taux_presents_arg = mw.text.split(taux_presents_arg, "/")
		while taux_presents_arg[i] do
			taux_i = "taux-" .. taux_presents_arg[i]
			j = 1
			while taux_presents_max[2][j] and taux_i ~= taux_presents_max[2][j] do
				j = j + 1
			end
			if taux_presents_max[2][j] -- Trouvé !
			then
				table.insert(taux_presents[1], taux_presents_max[1][j])
				table.insert(taux_presents[2], taux_presents_max[2][j])
				table.insert(taux_presents[3], taux_presents_max[3][j])
				nombre_taux = nombre_taux + 1
			end
			i = i + 1
			union_taux = false
			colspan_taux = nombre_taux
		end
		
		-- Création de la phrase de bas de tableau
		if nombre_taux > 0 then
			if nombre_taux >= 2
			then phrase_finale = "Les " .. taux_presents[4][3] .. " "
			else if taux_presents[4][4] == "l'"
				then phrase_finale = "L'"
				else phrase_finale = mw.getContentLanguage():ucfirst(taux_presents[4][4]) .. " "
				end
				phrase_finale = phrase_finale .. taux_presents[4][2] .. " "
			end
			i = 1
			while taux_presents[1][i] and taux_presents[1][i+1] and taux_presents[1][i+2] do
				phrase_finale = phrase_finale .. taux_presents[1][i] .. ", "
				i = i + 1
			end
			if taux_presents[1][i] and taux_presents[1][i+1]
			then
				local e = ""
				if taux_presents[4][5] then e = "e" end
				phrase_finale = phrase_finale .. taux_presents[1][i] .. " et " .. taux_presents[1][i+1]
				.. "<br>sont les seul" .. e .. "s présent" .. e .. "s dans cette zone."
			elseif taux_presents[1][i] then
				local e = ""
				if taux_presents[4][5] then e = "e" end
				phrase_finale = phrase_finale .. taux_presents[1][i] .. "<br>est "
				if taux_presents[4][5]
				then phrase_finale = phrase_finale .. "la"
				else phrase_finale = phrase_finale .. "le"
				end
				phrase_finale = phrase_finale .. " seul" .. e .. " présent" .. e .. " dans cette zone."
			else
				phrase_finale = "<p>" .. phrase_finale .. " n'est pas disponible dans cette zone.</p>"
			end
		end
	end
	
	-- Paramètre taux-absents
	local taux_absents_arg = nil
	if taux_presents == nil		-- Si les taux présents ont déjà été définis, on passe cette étape
	then taux_absents_arg = frame.args["taux-absents"]
	end
	
	if taux_absents_arg ~= nil
	then 
		i = 1
		colspan_taux = 0
		local nombre_taux_absents = 0
		local taux_presents_max = sous_taux[jeu]		-- Le tableau qu'on va émincer pour ne garder que les taux présents
		taux_presents = {{}, {}, {}, taux_presents_max[4]}	-- Le tableau des taux qu'on va remplir
		taux_absents = {{}, {}, {}, taux_presents_max[4]}	-- Le tableau qui va servir à la phrase finale
		taux_absents_arg = mw.text.split(taux_absents_arg, "/")
		while taux_presents_max[2][i] do
			taux_i = taux_presents_max[2][i]
			j = 1
			while taux_absents_arg[j] and taux_i ~= "taux-" .. taux_absents_arg[j] do
				j = j + 1
			end
			if taux_absents_arg[j] == nil	-- Pas trouvé !
			then
				table.insert(taux_presents[1], taux_presents_max[1][i])
				table.insert(taux_presents[2], taux_presents_max[2][i])
				table.insert(taux_presents[3], taux_presents_max[3][i])
				colspan_taux = colspan_taux + 1
			else
				table.insert(taux_absents[1], taux_presents_max[1][i])
				table.insert(taux_absents[2], taux_presents_max[2][i])
				table.insert(taux_absents[3], taux_presents_max[3][i])
				nombre_taux_absents = nombre_taux_absents + 1
			end
			i = i + 1
			union_taux = false
		end
		
		-- Création de la phrase de bas de tableau
		if nombre_taux_absents > 0 then
			if nombre_taux_absents >= 2
			then phrase_finale = "Les " .. taux_absents[4][3] .. " "
			else if taux_absents[4][4] == "l'"
				then phrase_finale = "L'"
				else phrase_finale = mw.getContentLanguage():ucfirst(taux_absents[4][4]) .. " "
				end
				phrase_finale = phrase_finale .. taux_absents[4][2] .. " "
			end
			i = 1
			while taux_absents[1][i] and taux_absents[1][i+1] and taux_absents[1][i+2] do
				phrase_finale = phrase_finale .. taux_absents[1][i] .. ", "
				i = i + 1
			end
			if taux_absents[1][i] and taux_absents[1][i+1]
			then
				local e = ""
				if taux_absents[4][5] then e = "e" end
				phrase_finale = phrase_finale .. taux_absents[1][i] .. " et " .. taux_absents[1][i+1]
				.. " sont absent" .. e .. "s dans cette zone."
			elseif taux_absents[1][i] then
				local e = ""
				if taux_absents[4][5] then e = "e" end
				phrase_finale = phrase_finale .. taux_absents[1][i] .. " est absent" .. e .. " dans cette zone."
			else
				phrase_finale = phrase_finale .. " n'est pas disponible dans cette zone."
			end
		end
	end
	
	-- Si aucune restriction de taux n'a été appliquée, on prend par défaut celle associée au jeu.
	if taux_presents == nil
	then taux_presents = sous_taux[jeu]
	end
	
	
	-- TAUX
	local raccourcis_sous_taux = {
		["taux-journée"] = {"taux-matin", "taux-jour"}
	}
	
	-- On remplace les raccourcis de taux
	i = 1
	
	local pokemon = frame.args[1]
	if pokemon == nil
	then pokemon = {}
	else
		for key, value in pairs(raccourcis_sous_taux) do
			local replacement = ""
			i = 1
			while value[i] do
				replacement = replacement .. value[i] .. "(%1) "
				i = i + 1
			end
			
			local pattern = key:gsub("-", "%%-")
			pokemon = string.gsub(pokemon, pattern .. "%((.-)%)", replacement)
		end
		
		pokemon = mw.text.split(pokemon, "\n")
	end
	
	local colspan_blocs_safari = 0	-- blocs du Parc Safari de Johto
	local colspan_renfort = 0		-- renfort de SL/USUL
	i = 1
	-- Première boucle pour voir si on a affaire à des taux particuliers (si les taux doivent être divisés ou s'ils peuvent être réunis)
	-- et des renforts.
	while pokemon[i] do
		-- Taux particuliers
		if union_taux
		then
			j = 1
			while taux_presents and taux_presents[2][j] do
				-- le tiret est un caractère utilisé pour les noms de fonctions, mais aussi spécial pour les expressions rationnelles
				if string.find(pokemon[i], string.gsub(taux_presents[2][j], "%-", "%%-"))
				then union_taux = false
				end
				j = j + 1
			end
			if not union_taux
			then colspan_taux = j - 1	-- On récupère la longueur des taux
			end
		end
		
		-- Blocs Safari
		if colspan_blocs_safari == 0
		then if string.find(pokemon[i], "blocs") or string.find(pokemon[i], "attente")
			then colspan_blocs_safari = 2
			end
		end
		
		-- Renforts
		if colspan_renfort < 2 and string.find(pokemon[i], "renfort")
		then if string.find(pokemon[i], "taux%-renfort")
			then colspan_renfort = 2
			else colspan_renfort = 1
			end
		end
		
		i = i + 1
	end
	
	-- EN-TÊTE
	local rowspan_en_tete = 1
	if not union_taux
	then rowspan_en_tete = 2
	end
	local game_suffix = ""
	local japan_class = ""
	if jeu == "RV" then game_suffix =  " <small>(Japon)</small>" end
	if jeu == "RV" or jeu == "B-jp" then japan_class = "japonais" end
	local resultat = {"<table class='tableaustandard centre " .. japan_class .. "' style='max-width: 100%;'><tr><td colspan='"
		.. 2 + colspan_taux + colspan_blocs_safari + colspan_renfort .. "' class='" .. bordure .. "'><b>" .. frame:expandTemplate{title='Jeu', args={jeu}} .. game_suffix
		.. "</b></td></tr>"}
	if image then table.insert(resultat, "<tr><td colspan='" .. 2 + colspan_taux + colspan_blocs_safari + colspan_renfort .. "'>[[Fichier:" .. image .. "]]</td></tr>") end
	table.insert(resultat, "<tr><th rowspan='" .. rowspan_en_tete .. "'>Pokémon</th><th rowspan='" .. rowspan_en_tete
		.. "'>Niveau</th><th colspan='" .. colspan_taux .. "'>Taux</th>")
	
	if colspan_blocs_safari > 0
	then table.insert(resultat, "<th rowspan='" .. rowspan_en_tete .. "'>Blocs</th><th rowspan='" .. rowspan_en_tete .. "'>Attente</th>")
	end

	if colspan_renfort > 0
	then table.insert(resultat, "<th rowspan='" .. rowspan_en_tete .. "'>Renfort</th>")
		if colspan_renfort == 2
		then table.insert(resultat, "<th rowspan='" .. rowspan_en_tete .. "'>Taux d'appel</th>")
		end
	end
	
	table.insert(resultat, "</tr>")
	
	
	if not union_taux
	then j = 1
		table.insert(resultat, "<tr>")
		while taux_presents[1][j] do
			local color = taux_presents[3][j]
			if color
			then table.insert(resultat, "<th class='" .. color .. "'>[[Fichier:Icône " .. taux_presents[1][j]
				.. " " .. jeu .. ".png|" .. taux_presents[1][j] .. "|link=" .. taux_presents[4][1] .. "|x25px]]</th>")
			else table.insert(resultat, "<th>[[Fichier:Icône " .. taux_presents[1][j]
				.. " " .. jeu .. ".png|" .. taux_presents[1][j] .. "|link=" .. taux_presents[4][1] .. "|x25px]]</th>")
			end
			j = j + 1
		end
		table.insert(resultat, "</tr>")
	end
	
	-- Pokémon
	local poke = {}
	local poke_split = {}
	local niveau = ""
	local taux = ""
	local renfort_poke = {}
	local rowspan_ligne = 1
	i = 1
	while pokemon[i] do
		poke = pokemon[i]
		poke = mw.text.split(pokemon[i], " / ")
		
		local nb_entrees = 1
		while poke[nb_entrees + 1] do
			nb_entrees = nb_entrees + 1
		end
		
		local rowspan_poke = 0
		-- Instance de Pokémon sauvage
		if nb_entrees >= 2 then
			h = 2
			
			-- On regarde le nombre de lignes nécessaires au total
			local rowspan_lignes = {}
			local renforts_poke = {}
			local renforts_poke_unsplit = {}
			while poke[h] do
				local renfort_poke_unsplit = extract_argument_bracket("renfort", poke[h], "—")
				renforts_poke_unsplit[h] = renfort_poke_unsplit
				renforts_poke[h] = {}
				
				local renfort_poke = mw.text.split(renfort_poke_unsplit, ", ")
				j = 1
				while renfort_poke[j] do
					renforts_poke[h][j] = renfort_poke[j]
					j = j + 1
				end
				rowspan_poke = rowspan_poke + math.max(1, j - 1)
				rowspan_lignes[h] = j - 1
				h = h + 1
			end
			
			poke_split = mw.text.split(poke[1], ", ")
			if poke_split[2]
			-- Cas de horde
			then table.insert(resultat, '<tr><td rowspan="' .. rowspan_poke .. '">')
				j = 1
				while poke_split[j] do
					table.insert(resultat, ressources.infosPokemon(poke_split[j], "miniature"))
					
					-- Retour à la ligne pour en montrer 2 sur la première ligne et 3 sur la seconde, comme dans les jeux
					if j == 2
					then table.insert(resultat, '<br>')
					end
					
					j = j + 1
				end
				table.insert(resultat, "</td>")
			-- Cas classique, un seul Pokémon
			else table.insert(resultat, '<tr><td rowspan="' .. rowspan_poke .. '" style="text-align:left">'
				.. ressources.infosPokemon(poke_split[1]) .. "</td>")
			end
			
			h = 2
			while poke[h] do
				if h ~= 2 then table.insert(resultat, "<tr>") end
				infos = poke[h]
				
				-- On regarde combien de Pokémon peuvent être en renforts dans cette ligne
				local rowspan_ligne = rowspan_lignes[h]
				
				-- On regroupe les renforts avec les lignes d'après s'il n'y en a qu'un et que ce sont les mêmes
				-- On vérifie quand même au préalable que ce n'est pas déjà regroupé avec la ligne d'avant
				local is_renfort_alone_and_same_than_pred = false
				local renfort_poke = renforts_poke[h]
				local renfort_poke_unsplit = renforts_poke_unsplit[h]
				local renfort_pred = nil
				local renfort_pred_unsplit = nil
				local rowspan_renfort = 1
				
				if h ~= 1
				then renfort_pred = renforts_poke[h-1]
					renfort_pred_unsplit = renforts_poke_unsplit[h-1]
				end
				
				
				if not renfort_poke[2]
				then if renfort_pred_unsplit == renfort_poke_unsplit
					then is_renfort_alone_and_same_than_pred = true
					else
						local hh = h + 1
						while poke[hh] do
							local renfort_next_unsplit = renforts_poke_unsplit[hh]
							if renfort_next_unsplit == renfort_poke_unsplit
							then rowspan_renfort = rowspan_renfort + 1
							else break
							end
							hh = hh + 1
						end
					end
				else 
				end
				
				local niveau_unsplit = extract_argument("niveau", infos, "—")
				local niveau_pred = extract_argument("niveau", poke[h-1], "—")
				local niveau = niveau_unsplit:gsub("-", "–")
				niveau = mw.text.split(niveau, ", ")
				local rowspan_niveau = rowspan_ligne
				if h == 2 or niveau_unsplit ~= niveau_pred
				then
					local hh = h + 1
					while poke[hh] do
						local niveau_next = extract_argument("niveau", poke[hh], nil)
						if niveau_next == niveau_unsplit
						then rowspan_niveau = rowspan_niveau + rowspan_lignes[hh]
						else break
						end
						hh = hh + 1
					end
				
					local niveau_text = niveau[1]
					j = 2
					while niveau[j] do
						niveau_j_number = niveau[j]:gsub("–", "")
						if tonumber(niveau_j_number)
						then niveau_text = niveau_text .. "<br>" .. niveau[j]
						else niveau_text = niveau_text .. frame:expandTemplate{title='Sup', args={niveau[j]}}
						end
						j = j + 1
					end
					table.insert(resultat, "</td><td rowspan='" .. rowspan_niveau .. "'>" .. niveau_text .. "</td>")
				end
				
				
				
				-- Ajout du taux
				function add_rate(rate, rate_precision, colspan, rowspan, class)
					local seen_games_here = nil
					
					rate = mw.ustring.gsub(rate, "-", "—")
					rate = mw.text.split(rate, ", ")
					if tonumber(rate[1])
					then rate[1] = string.gsub(rate[1], "%.", ",") .. "&nbsp;%"
					else rate[1] = mw.ustring.gsub(rate[1], "{{!}}", "|")
					end
					if rate[1] == "Fixe" then rate[1] = "[[Fichier:Icône Fixe.svg|class=imagenoire|27px|Fixe]]" end
					
					table.insert(resultat, "<td")
					if colspan then table.insert(resultat, ' colspan="' .. colspan .. '"') end
					if rowspan then table.insert(resultat, ' rowspan="' .. rowspan .. '"') end
					if class then table.insert(resultat, ' class="' .. class .. '"') end
					table.insert(resultat, '>' .. rate[1])
					
					local k = 2
					while rate[k] do	-- Gestion des taux spécifiques à des jeux
						if tonumber(rate[k])
						then table.insert(resultat, "<br>" .. string.gsub(rate[k], "%.", ",") .. "&nbsp;%")
						else table.insert(resultat, frame:expandTemplate{title='Sup', args={rate[k]}})
						end
						k = k + 1
					end
					if rate_precision then table.insert(resultat, '<br><small><i>' .. rate_precision .. '</i></small>') end
					table.insert(resultat, "</td>")
				end
				
				if union_taux
				then
					-- Configuration où les taux ne varient jamais
					local taux = extract_argument("taux", infos, "—")
					local precision_taux = extract_argument("précision-taux", infos, nil)
					add_rate(taux, precision_taux, nil, rowspan_ligne, nil)
				else
					local taux = extract_argument("taux", infos, "—")
					if taux == "—"
					then
						-- Sur une configuration où les taux sont divisés, cas d'un Pokémon qui plusieurs taux différents
						j = 1
						while taux_presents[2][j] do
							local taux_j = extract_argument(taux_presents[2][j], infos, "—")
							local precision_taux_j = extract_argument("précision-" .. taux_presents[2][j], infos, nil)
							local color = taux_presents[3][j]
							
							add_rate(taux_j, precision_taux_j, nil, rowspan_ligne, color)
							
							j = j + 1
						end
					else
						-- Sur une configuration où les taux sont divisés, cas d'un Pokémon qui a un taux unique
						local precision_taux = extract_argument("précision-taux", infos, nil)
						
						add_rate(taux, precision_taux, colspan_taux, rowspan_ligne, nil)
						
						table.insert(resultat, "</td>")
					end
				end
				
				-- Ajout des Blocs du Parc Safari
				if colspan_blocs_safari > 0
				then
					local j = 1
					local blocs_unsplit = extract_argument("blocs", infos, "—")
					local blocs_pred = extract_argument("blocs", poke[h-1], "—")
					local blocs = mw.ustring.gsub(blocs_unsplit, ", ", "<br>")
					
					local attente_default
					if blocs_unsplit ~= "—" then attente_default = "Immédiatement" else attente_default = "—" end
					local attente = extract_argument("attente", infos, attente_default)
					if tonumber(attente)
					then attente = attente .. " jour"
						if tonumber(attente) >= 2 then attente = attente .. "s" end
					end
					
					if blocs_pred ~= "—" then attente_default = "Immédiatement" else attente_default = "—" end
					local attente_pred = extract_argument("attente", poke[h-1], attente_default)
					if tonumber(attente_pred)
					then attente_pred = attente_pred .. " jour"
						if tonumber(attente_pred) >= 2 then attente_pred = attente_pred .. "s" end
					end
					
					local rowspan_blocs = rowspan_ligne
					local rowspan_attente = rowspan_ligne
					local extending_blocs_beginning = h > 2 and blocs_unsplit == blocs_pred
					local extending_attente_beginning = h > 2 and attente == attente_pred
					
					if not (extending_blocs_beginning and extending_attente_beginning)
					then
						local hh = h + 1
						local extending_blocs = extending_blocs_beginning
						local extending_attente = extending_attente_beginning
						while poke[hh] do
							local blocs_next = extract_argument("blocs", poke[hh], "—")
							
							if not extending_blocs and blocs_next == blocs_unsplit
							then rowspan_blocs = rowspan_blocs + rowspan_lignes[hh]
							else extending_blocs = true
							end
							
							if not extending_attente
							then if blocs_next ~= "—" then attente_default = "Immédiatement" else attente_default = "—" end
								local attente_next = extract_argument("attente", poke[hh], attente_default)
								if tonumber(attente_next)
								then attente_next = attente_next .. " jour"
									if tonumber(attente_next) >= 2 then attente_next = attente_next .. "s" end
								end
								
								if attente == attente_next
								then rowspan_attente = rowspan_attente + rowspan_lignes[hh]
								else extending_attente = true
								end
							end
							
							if extending_blocs and extending_attente then break end
							hh = hh + 1
						end
						
						if h == 2 or not extending_blocs_beginning
						then table.insert(resultat, '<td rowspan="' .. rowspan_blocs .. '">' .. blocs .. '</td>')
						end
						if h == 2 or not extending_attente_beginning
						then table.insert(resultat, '<td rowspan="' .. rowspan_attente .. '">' .. attente .. '</td>')
						end
					end
				end
				
				-- Ajout du renfort
				if not is_renfort_alone_and_same_than_pred and colspan_renfort > 0
				then
					j = 1
					local renfort_taux = extract_argument("taux-renfort", infos, "100")
					renfort_taux = mw.text.split(renfort_taux, ", ")
					
					if renfort_poke[1] == "—"
					-- Cas où le Pokémon n'a pas de renforts, mais d'autres en ont
					then table.insert(resultat, '<td colspan="' .. colspan_renfort .. '" style="background-color:#F0F0F0" rowspan="'
							.. rowspan_renfort .. '">—</td>')
					else
						while renfort_poke[j] do
							if j >= 2 then table.insert(resultat, "<tr>") end
							
							table.insert(resultat, '<td style="text-align:left; background-color:#F0F0F0" rowspan="' .. rowspan_renfort
								.. '">[[Fichier:Miniature Orbe Frousse SL.png|Renfort]]&nbsp;' .. ressources.infosPokemon(renfort_poke[j]) .. '</td>')
							if colspan_renfort == 2
							then
								local renfort_taux_j = renfort_taux[j]
								if renfort_taux_j == nil or renfort_taux_j == "-" then renfort_taux_j = "100" end
								if tonumber(renfort_taux_j) then renfort_taux_j = string.gsub(renfort_taux_j, "%.", ",") .. "&nbsp;%" end
								table.insert(resultat, '<td style="background-color:#F0F0F0" rowspan="' .. rowspan_renfort
									.. '">' .. renfort_taux_j .. '</td>')
							end
							j = j + 1
						end
					end
				end
				
				table.insert(resultat, "</tr>")
				h = h + 1
			end
		
		-- Ligne de changement d'endroit de Poké sauvage
		elseif poke[1] then
			local endroit_unsplit = mw.text.split(poke[1], ",, ")
			local prefixe_endroit = endroit_unsplit[2] -- éventuellement nil
			local endroit = mw.text.split(endroit_unsplit[1], ",")
			local endroit_untouched = endroit[1]
			if prefixe_endroit == nil
			then prefixe_endroit = ""
			else prefixe_endroit = prefixe_endroit .. " "
				if endroit[1]:sub(1,2) == "É"
				then endroit[1] = "é" .. endroit[1]:sub(3, endroit[1]:len())
				else endroit[1] = endroit[1]:sub(1,1):lower() .. endroit[1]:sub(2, endroit[1]:len())
				end	-- on a mis la première lettre de l'endroit en minuscule, puisqu'elle est précédée de prefixe_endroit
			end
			
			if endroit[2] == nil then endroit[2] = "" end
			
			endroit[2] = mw.ustring.gsub(endroit[2], "{{!}}", "|")
			local template_replacement = endroit[2]:gsub(".*{{(.-)|(.-)}}.*", "%1") -- sert à process les modèles, qu'ils utilisent "|" ou "{{!}}"
			local templates_replaced = 0
			while template_replacement ~= endroit[2] and templates_replaced < 4 do -- pour empêcher une boucle infinie en cas de pépin, 4 modèles max devraient suffire
				local arg_template_teplacement = endroit[2]:gsub(".*{{(.-)|(.-)}}.*", "%2")
				
				local template_result = frame:expandTemplate{title=template_replacement, args={arg_template_teplacement}}
				endroit[2] = endroit[2]:gsub("(.*){{(.-)|(.-)}}(.*)", "%1" .. template_result .. "%4")
				
				local template_replacement = endroit[2]:gsub(".*{{(.-)|(.-)}}.*", "%1")
				templates_replaced = templates_replaced + 1
			end
			
			if endroit[1] ~= ""
			then 
				local milieu = milieu_sauvage[jeu]
				if milieu ~= nil then milieu = milieu[endroit_untouched] end
				if milieu == nil
				then milieu = "'>[[Catégorie:Article avec un milieu de capture non normalisé]]" .. prefixe_endroit .. endroit[1] .. endroit[2]
				else
					-- Si aucun nom n'est précisé dans les données des milieux, on prend celui par défaut (celui indiqué)
					if milieu:sub(-6, -1) == ".png]]" or milieu:sub(-4, -1) == "px]]"
					then milieu = milieu .. " " .. prefixe_endroit .. endroit[1] .. endroit[2]
					else milieu = milieu .. endroit[2]
					end
				end
				table.insert(resultat, "<tr><th colspan='" .. 2 + colspan_taux + colspan_blocs_safari + colspan_renfort .. "' class='" .. milieu .. "</th></tr>")
			end
		end
		i = i + 1
	end
	
	note = frame.args["note"]
	if note
	then
		if note == "ligue"
			then phrase_finale = "<p><i>Les niveaux présentés correspondent respectivement à<br>"
				.. "avant et après la victoire contre la Ligue Pokémon.</i></p>" .. phrase_finale
		elseif note == "éthernatos"
			then phrase_finale = "<p><i>Les niveaux présentés correspondent respectivement à<br>"
				.. "avant et après le combat contre Éthernatos.<br>"
				.. "Les Pokémon vadrouilleurs de niveau 65 apparaissent une fois la Ligue vaincue.</i></p>" .. phrase_finale
		elseif note == "trouée cachée"
			then phrase_finale = "<p><i>Tous les Pokémon possèdent leur [[talent caché]].</i></p>" .. phrase_finale	
		else phrase_finale = "<p><i>" .. note .. "</i></p>"
		end
	end
	
	if phrase_finale ~= ""
	then table.insert(resultat, "<tr><td colspan='" .. 2 + colspan_taux + colspan_blocs_safari + colspan_renfort .. "'><i>" .. phrase_finale .. "</i></td></tr>")
	end
	
	table.insert(resultat, '</table>')
	if fetching_loc then table.insert(resultat, "[[Catégorie:Page avec un module Tableau Pokémon]]") end
	return table.concat(resultat, "")
end






function p.antre(frame)
	local pokemon = frame.args[1]
	if pokemon ~= nil then pokemon = mw.text.split(pokemon, "\n") else pokemon = {} end
		
	local page = frame.args["page"]
	local pagename = frame:preprocess("{{PAGENAME}}")
	
	local fetching_loc = frame.args["localisations"]
	fetching_loc = fetching_loc ~= "non"
	
	local i = 1
	local j = 1
	local k = 1
	
	taux_presents = {{"★<br><i><small>(Niveau 15–20)</small></i>", "★★<br><i><small>(Niveau 25–30)</small></i>",
			"★★★<br><i><small>(Niveau 35–40)</small></i>", "★★★★<br><i><small>(Niveau 45–50)</small></i>",
			"★★★★★<br><i><small>(Niveau 55–60)</small></i>"},
		{"1", "2", "3", "4", "5"},
		{"raid1", "raid2", "raid3", "raid4", "raid5"}}
	
	-- Première boucle pour voir si on a affaire à des notes/remarques sur certains Pokémon
	i = 1
	local colspan_notes = 0
	while pokemon[i] do
		poke = mw.text.split(pokemon[i], "/")
		local h = 2
		while poke[h] do
			if extract_argument("notes", poke[h], nil)
			then colspan_notes = 1
			break
			end
			h = h + 1
		end
		if colspan_notes == 1 then break end
		i = i + 1
	end
	
	local colspan_taux = 5
	local rowspan_en_tete = 2
	-- EN-TÊTE
	local resultat = {"<table class='tableaustandard centre' style='max-width: 100%;'><tr>"
		.. "<th rowspan='" .. rowspan_en_tete .. "'>Pokémon</th><th rowspan='" .. rowspan_en_tete .. "'>Talent caché</th><th rowspan='"
		.. rowspan_en_tete .. "'>[[IV]] parfaits<br>garantis</th><th colspan='" .. colspan_taux .. "'>"}
	
	if page ~= nil and page ~= pagename
	then table.insert(resultat, '<div style="float:left; width:0em; text-align:left"><div style="font-size:xx-small">'
		..  frame:preprocess("[[" .. page .. "|Source]]") .. '</div></div>')
	end
	table.insert(resultat, "Taux</th>")
	if colspan_notes > 0
	then table.insert(resultat, "<th rowspan='" .. rowspan_en_tete .. "'>Notes</th>")
	end
	table.insert(resultat, "</tr>")
	
	j = 1
	table.insert(resultat, "<tr>")
	while taux_presents[1][j] do
		local color = taux_presents[3][j]
		if color
		then table.insert(resultat, "<th class='" .. color .. "'>" .. taux_presents[1][j] .. "</th>")
		else table.insert(resultat, "<th>taux_presents[1][j]</th>")
		end
		j = j + 1
	end
	table.insert(resultat, "</tr>")
	
	-- Pokémon
	local poke = {}
	local poke_split = {}
	local niveau = ""
	local taux = ""
	local renfort_poke = {}
	local rowspan_ligne = 1
	i = 1
	while pokemon[i] do
		poke = mw.text.split(pokemon[i], "/")
		
		local nb_entrees = 1
		while poke[nb_entrees + 1] do
			nb_entrees = nb_entrees + 1
		end
		
		local rowspan_poke = 0
		-- Instance de Pokémon sauvage
		if nb_entrees >= 2 then
			h = 2
			
			-- On regarde le nombre de lignes nécessaires au total
			while poke[h] do
				rowspan_poke = rowspan_poke + 1
				h = h + 1
			end
			
			table.insert(resultat, '<tr><td rowspan="' .. rowspan_poke .. '" style="text-align:left">'
				.. ressources.infosPokemon(poke[1] .. " jeu(EB)") .. "</td>")
				
			h = 2
			while poke[h] do
				if h ~= 2 then table.insert(resultat, "<tr>") end
				infos = poke[h]
						
				talent_cache = extract_argument("talent-caché", infos, nil)
				local talent_cache_pred = extract_argument("talent-caché", poke[h-1], nil)
				local rowspan_talent_cache = 1
				if h == 2 or talent_cache ~= talent_cache_pred
				then
					local hh = h + 1
					while poke[hh] do
						local talent_cache_next = extract_argument("talent-caché", poke[hh], nil)
						if talent_cache_next == talent_cache
						then rowspan_talent_cache = rowspan_talent_cache + 1
						else break
						end
						hh = hh + 1
					end
					
					if talent_cache == "Possible"
						then table.insert(resultat, "<td rowspan='" .. rowspan_talent_cache .. "'class='résistance'>Possible</td>")
					elseif talent_cache == "Toujours"
						then table.insert(resultat, "<td rowspan='" .. rowspan_talent_cache .. "'class='standard'>Toujours</td>")
					elseif talent_cache == "Impossible" or talent_cache == nil
						then table.insert(resultat, "<td rowspan='" .. rowspan_talent_cache .. "'class='faiblesse'>Impossible</td>")
					else table.insert(resultat, "<td rowspan='" .. rowspan_talent_cache .. "'>" .. talent_cache .. "</td>")
					end
				end
				
				local iv_unsplit = extract_argument("iv", infos, "—")
				local iv_pred = extract_argument("iv", poke[h-1], nil)
				iv = mw.text.split(iv_unsplit, ", ")
				local rowspan_iv = 1
				if h == 2 or iv_unsplit ~= iv_pred
				then
					local hh = h + 1
					while poke[hh] do
						local iv_next = extract_argument("iv", poke[hh], nil)
						if iv_next == iv_unsplit
						then rowspan_iv = rowspan_iv + 1
						else break
						end
						hh = hh + 1
					end
				
					table.insert(resultat, "<td rowspan='" .. rowspan_iv .. "'>" .. iv[1])
					j = 2
					while iv[j] do
						if tonumber(iv[j])
							then table.insert(resultat, "<br>" .. iv[j])
							else table.insert(resultat, frame:expandTemplate{title='Sup', args={iv[j]}})
						end
						j = j + 1
					end
					table.insert(resultat, "</td>")
				end
				
				taux = extract_argument("taux", infos, "—")
				if taux == "—"
				then
					-- Cas d'un Pokémon qui plusieurs taux différents
					j = 1
					while taux_presents[2][j] do
						local taux_j = extract_argument(taux_presents[2][j], infos, "—")
						taux_j = mw.text.split(taux_j, ", ")
						local precision_taux_j = extract_argument("précision-" .. taux_presents[2][j], infos, nil)
						if tonumber(taux_j[1]) then taux_j[1] = string.gsub(taux_j[1], "%.", ",") .. "&nbsp;%" end
						
						local color = taux_presents[3][j]
						if color
						then table.insert(resultat, "<td class='" .. color .. "' rowspan='" .. rowspan_ligne
							.. "'>" .. taux_j[1])
						else table.insert(resultat, "<td rowspan='" .. rowspan_ligne .. "'>" .. taux_j[1])
						end
						k = 2
						while taux_j[k] do	-- Gestion des taux spécifiques à des jeux
							if tonumber(taux_j[k])
							then table.insert(resultat, "<br>" .. string.gsub(taux_j[k], "%.", ",") .. "&nbsp;%")
							else table.insert(resultat, frame:expandTemplate{title='Sup', args={taux_j[k]}})
							end
							k = k + 1
						end
						if precision_taux_j then table.insert(resultat, '<br><small><i>' .. precision_taux_j .. '</i></small>') end
						table.insert(resultat, "</td>")
						j = j + 1
					end
				else
					-- Cas d'un Pokémon qui a un taux unique
					local precision_taux = extract_argument("précision-taux", infos, nil)
					taux = mw.text.split(taux, ", ")
					if tonumber(taux[1]) then taux[1] = string.gsub(taux[1], "%.", ",") .. "&nbsp;%" end
					
					table.insert(resultat, '<td colspan="' .. colspan_taux .. '">' .. taux[1])
					j = 2
					while taux[j] do	-- Gestion des taux spécifiques à des jeux
						if tonumber(taux[j])
						then table.insert(resultat, "<br>" .. string.gsub(taux[j], "%.", ",") .. "&nbsp;%")
						else table.insert(resultat, frame:expandTemplate{title='Sup', args={taux[j]}})
						end
						j = j + 1
					end
					if precision_taux then table.insert(resultat, '<br><small><i>' .. precision_taux .. '</i></small>') end
					table.insert(resultat, "</td>")
				end
				
				-- Notes (colonne optionnelle)
				if colspan_notes > 0
				then
					local notes_unsplit = extract_argument("notes", infos, "—")
					local notes_pred = extract_argument("notes", poke[h-1], "—")
					notes = mw.text.split(notes_unsplit, ", ")
					local rowspan_notes = 1
					if h == 2 or notes_unsplit ~= notes_pred
					then
						local hh = h + 1
						while poke[hh] do
							local notes_next = extract_argument("notes", poke[hh], "—")
							if notes_next == notes_unsplit
							then rowspan_notes = rowspan_notes + 1
							else break
							end
							hh = hh + 1
						end
					
						table.insert(resultat, "<td rowspan='" .. rowspan_notes .. "'>")
						j = 1
						while notes[j] do
							-- Expansion de certaines notes
							if notes[j] == "Toujours chromatique"
								then notes[j] = "[[Fichier:Miniature Chromatique EB.png|x15px|link=Pokémon chromatique|Ce Pokémon est toujours chromatique.]]"
									.. "&nbsp;Toujours chromatique"
							elseif notes[j] == "Doté du gène Gigamax"
								then notes[j] = "[[Fichier:Miniature Gigamax EB.png|x15px|link=Gigamax|Gigamax]]&nbsp;Doté du gène Gigamax"
							end
							
							if j == 1
							then table.insert(resultat, notes[j])
							else table.insert(resultat, "<br>" .. notes[j])
							end
							j = j + 1
						end
						table.insert(resultat, "</td>")
					end
				end
				
				h = h + 1
			end
		end
		i = i + 1
	end
	
	table.insert(resultat, '</table>')
	if fetching_loc and (page == nil or page == pagename) then table.insert(resultat, "[[Catégorie:Page avec un module Tableau Pokémon]]") end
	return table.concat(resultat, "")
end






function p.teracristal(frame)
	local ressources = {
		["infosPokemon"] = require("Module:Ressources/infosPokemon")
	}
	local data_capacites = require("Module:Data/TypesCapacités")
	local id_separator = "_"
	
	-- Fonction intermédiaire qui transforme une capacité en une ligne avec le type et le lien de la capacité
	function capacite_to_line(capacite, type_teracristal)
		local link_capacite = capacite
		local image_capacite = ""
		local type_capacite = data_capacites[capacite]
		
		if (capacite == "Téra Explosion" or capacite == "Danse Éveil") and type_teracristal ~= nil and type_teracristal ~= "Par défaut"
		then type_capacite = type_teracristal
		elseif type_capacite == nil
		then type_capacite = data_capacites[capacite .. " (capacité)"]
			if type_capacite ~= nil
			then link_capacite = capacite .. " (capacité)"
			end
		end
		if type_capacite ~= nil
		then image_capacite = "[[Fichier:Icône Type " .. type_capacite .. " EV.png|x20px|link=" .. type_capacite .. " (type)|alt=" .. type_capacite .. "]] "
		end
		
		return image_capacite .. " [[" .. link_capacite .. "|" .. capacite .. "]]"
	end
	
	local pokemon = frame.args[1]
	if pokemon ~= nil then pokemon = mw.text.split(pokemon, "\n") else pokemon = {} end
		
	-- local page = frame.args["page"]
	-- local pagename = frame:preprocess("{{PAGENAME}}")
	
	local fetching_loc = frame.args["localisations"]
	fetching_loc = fetching_loc ~= "non"
	
	local i = 1
	local j = 1
	local k = 1
	
	-- Première boucle pour voir si on a affaire à des notes/remarques sur certains Pokémon
	i = 1
	local colspan_notes = 0
	while pokemon[i] do
		poke = mw.text.split(pokemon[i], "/")
		local h = 2
		while poke[h] do
			if extract_argument("notes", poke[h], nil)
			then colspan_notes = 1
			break
			end
			h = h + 1
		end
		if colspan_notes == 1 then break end
		i = i + 1
	end
	
	local coslpan_capacites = 2
	local rowspan_en_tete = 2
	-- EN-TÊTE
	local resultat = {"<table class='tableaustandard centre' style='max-width: 100%;'><tr>"
		.. "<th rowspan='" .. rowspan_en_tete .. "'>Pokémon</th><th rowspan='" .. rowspan_en_tete .. "'>Type Téracristal</th><th rowspan='" .. rowspan_en_tete .. "'>Talent caché</th><th rowspan='"
		.. rowspan_en_tete .. "'>Difficulté</th><th colspan='" .. coslpan_capacites .. "'>Capacités</th>"}
	
	if colspan_notes > 0
	then table.insert(resultat, "<th rowspan='" .. rowspan_en_tete .. "'>Notes</th>")
	end
	table.insert(resultat, "<th rowspan='" .. rowspan_en_tete .. "'>Récompenses</th></tr>")
	table.insert(resultat, "<tr><th>À la capture</th><th>Supplémentaires</th></tr>")
	
	-- Pokémon
	local poke = {}
	local poke_split = {}
	local niveau = ""
	local taux = ""
	local renfort_poke = {}
	local rowspan_ligne = 1
	local id_dict = {}
	i = 1
	while pokemon[i] do
		poke = mw.text.split(pokemon[i], "/")
		
		local nb_entrees = 1
		while poke[nb_entrees + 1] do
			nb_entrees = nb_entrees + 1
		end
		
		local rowspan_poke = 0
		-- Instance de Pokémon sauvage
		if nb_entrees >= 2 then
			h = 2
			
			-- On regarde le nombre de lignes nécessaires au total
			while poke[h] do
				rowspan_poke = rowspan_poke + 1
				h = h + 1
			end
			
			table.insert(resultat, '<tr><td rowspan="' .. rowspan_poke .. '" style="text-align:left">'
				.. ressources.infosPokemon(poke[1] .. " jeu(EV)") .. "</td>")
				
			h = 2
			while poke[h] do
				if h ~= 2 then table.insert(resultat, "<tr>") end
				infos = poke[h]
						
				-- Type Téracristal
				local type_teracristal = extract_argument("type-téracristal", infos, nil)
				local type_teracristal_pred = extract_argument("type-téracristal", poke[h-1], nil)
				local rowspan_type_teracristal = 1
				if h == 2 or type_teracristal ~= type_teracristal_pred
				then
					local hh = h + 1
					while poke[hh] do
						local type_teracristal_next = extract_argument("type-téracristal", poke[hh], nil)
						if type_teracristal_next == type_teracristal
						then rowspan_type_teracristal = rowspan_type_teracristal + 1
						else break
						end
						hh = hh + 1
					end
					
					table.insert(resultat, "<td rowspan='" .. rowspan_type_teracristal .. "'>")
					if type_teracristal == nil
						then table.insert(resultat, "Aléatoire")
					elseif type_teracristal == "Par défaut"
						then table.insert(resultat, type_teracristal)
					else
						table.insert(resultat, frame:expandTemplate{title='Type', args={type_teracristal, ["téra"] = "oui"}})
					end
					table.insert(resultat, "</td>")
				end
					
				-- Talent caché	
				local talent_cache = extract_argument("talent-caché", infos, nil)
				local talent_cache_pred = extract_argument("talent-caché", poke[h-1], nil)
				local rowspan_talent_cache = 1
				if h == 2 or talent_cache ~= talent_cache_pred
				then
					local hh = h + 1
					while poke[hh] do
						local talent_cache_next = extract_argument("talent-caché", poke[hh], nil)
						if talent_cache_next == talent_cache
						then rowspan_talent_cache = rowspan_talent_cache + 1
						else break
						end
						hh = hh + 1
					end
					
					if talent_cache == "Possible"
						then table.insert(resultat, "<td rowspan='" .. rowspan_talent_cache .. "'class='résistance'>Possible</td>")
					elseif talent_cache == "Toujours"
						then table.insert(resultat, "<td rowspan='" .. rowspan_talent_cache .. "'class='standard'>Toujours</td>")
					elseif talent_cache == "Impossible" or talent_cache == nil
						then table.insert(resultat, "<td rowspan='" .. rowspan_talent_cache .. "'class='faiblesse'>Impossible</td>")
					else table.insert(resultat, "<td rowspan='" .. rowspan_talent_cache .. "'>" .. talent_cache .. "</td>")
					end
				end
				
				-- Difficulté
				difficulte = extract_argument("difficulté", infos, nil)
				local difficulte_pred = extract_argument("difficulté", poke[h-1], nil)
				local rowspan_difficulte = 1
				if h == 2 or difficulte ~= difficulte_pred
				then
					local hh = h + 1
					while poke[hh] do
						local difficulte_next = extract_argument("difficulté", poke[hh], nil)
						if difficulte_next == difficulte
						then rowspan_difficulte = rowspan_difficulte + 1
						else break
						end
						hh = hh + 1
					end
					
					local difficulte_number = tonumber(difficulte)
					if difficulte_number == nil
					then table.insert(resultat, "<td rowspan='" .. rowspan_difficulte .. ">—</td>")
					else table.insert(resultat, "<td rowspan='" .. rowspan_difficulte .. ">" .. difficulte_number .. "★" .. "</td>")
					end
				end
				
				-- Capacités
				capacites = extract_argument("capacités", infos, nil)
				local capacites_pred = extract_argument("capacités", poke[h-1], nil)
				local rowspan_capacites = 1
				if h == 2 or capacites ~= capacites_pred
				then
					local hh = h + 1
					while poke[hh] do
						local capacites_next = extract_argument("capacités", poke[hh], nil)
						if capacites_next == capacites
						then rowspan_capacites = rowspan_capacites + 1
						else break
						end
						hh = hh + 1
					end
					
					local capacites_split = {}
					if capacites then capacites_split = mw.text.split(capacites, "; ") end
					local capacites_capture = capacites_split[1]
					local capacites_supplementaires = capacites_split[2]
					
					if capacites_capture == nil
					then capacites_capture = {}
					else capacites_capture = mw.text.split(capacites_capture, ", ")
					end
					if capacites_supplementaires == nil
					then capacites_supplementaires = {}
					else capacites_supplementaires = mw.text.split(capacites_supplementaires, ", ")
					end
					
					local c = 1
					if capacites_capture[1] == nil or capacites_capture[1] == ""
					then table.insert(resultat, "<td rowspan='" .. rowspan_capacites .. "'>—</td>")
					else
						table.insert(resultat, "<td rowspan='" .. rowspan_capacites .. "' style='text-align:left; white-space:nowrap'>")
						while capacites_capture[c] do
							if c > 1
							then table.insert(resultat, "<br>")
							end
							
							table.insert(resultat, capacite_to_line(capacites_capture[c], type_teracristal))
							c = c + 1
						end
						table.insert(resultat, "</td>")
					end
					
					local c = 1
					if capacites_supplementaires[1] == nil or capacites_supplementaires[1] == ""
					then table.insert(resultat, "<td rowspan='" .. rowspan_capacites .. "'>—</td>")
					else
						table.insert(resultat, "<td rowspan='" .. rowspan_capacites .. "' style='text-align:left; white-space:nowrap'>")
						while capacites_supplementaires[c] do
							if c > 1
							then table.insert(resultat, "<br>")
							end
							
							table.insert(resultat, capacite_to_line(capacites_supplementaires[c], type_teracristal))
							c = c + 1
						end
						table.insert(resultat, "</td>")
					end
				end
				
				-- Notes (colonne optionnelle)
				if colspan_notes > 0
				then
					local notes_unsplit = extract_argument("notes", infos, "—")
					local notes_pred = extract_argument("notes", poke[h-1], "—")
					notes = mw.text.split(notes_unsplit, "%. ")
					local rowspan_notes = 1
					if h == 2 or notes_unsplit ~= notes_pred
					then
						local hh = h + 1
						while poke[hh] do
							local notes_next = extract_argument("notes", poke[hh], "—")
							if notes_next == notes_unsplit
							then rowspan_notes = rowspan_notes + 1
							else break
							end
							hh = hh + 1
						end
					
						table.insert(resultat, "<td rowspan='" .. rowspan_notes .. "' style='white-space:nowrap'>")
						j = 1
						while notes[j] do
							if notes[j+1] ~= nil
							then notes[j] = notes[j] .. "."
							end
									
							-- Expansion de certaines notes
							if notes[j] == "Toujours chromatique."
								then notes[j] = "[[Fichier:Miniature Chromatique (avec fond) EV.png|x15px|link=Pokémon chromatique|Ce Pokémon est toujours chromatique.]]"
									.. "&nbsp;Toujours chromatique."
							elseif notes[j] == "Jamais chromatique."
								then notes[j] = "[[Fichier:Miniature Chromatique (barrée) EV.png|x15px|link=Pokémon chromatique|Ce Pokémon n'est jamais chromatique.]]"
									.. "&nbsp;Jamais chromatique."
							elseif notes[j] == "Exclusif Ec."
								then notes[j] = "[[Fichier:Icône Pokémon Écarlate HOME.png|x20px|link=|Ce Pokémon est exclusif à Écarlate.]]"
									.. "&nbsp;Exclusif à ''Écarlate''."
							elseif notes[j] == "Exclusif Vi."
								then notes[j] = "[[Fichier:Icône Pokémon Violet HOME.png|x20px|link=|Ce Pokémon est exclusif à Violet.]]"
									.. "&nbsp;Exclusif à ''Violet''."
							elseif notes[j]:sub(1, 7) == "Insigne"
								then mark_type = notes[j]:sub(9, -2)
									notes[j] = "[[Fichier:Insigne " .. mark_type .. " EV.png|x20px|link=Insigne]] [[Insigne]] " .. mark_type .. "."
							end
							
							if j == 1
							then table.insert(resultat, notes[j])
							else table.insert(resultat, "<br>" .. notes[j])
							end
							j = j + 1
						end
						table.insert(resultat, "</td>")
					end
				end
				
				-- Récompenses
				local id = extract_argument("id", infos, nil)
				if id == nil
				then id = ""
					local w = 1
					local poke_words = mw.text.split(poke[1], " ")
					while poke_words[w] and poke_words[w] ~= "" do
						local l = 1
						local b = false
						while poke_words[w]:sub(l, l) ~= "" do
							if poke_words[w]:sub(l, l) == "("
							then b = true
								break
							end
							l = l + 1
						end
						if b then break end
						if w > 1 then id = id .. " " end
						id = id .. poke_words[w]
						w = w + 1
					end
					if tonumber(difficulte)
					then id = id .. id_separator .. difficulte
					end
				end
				if id_dict[id] == nil
				then id_dict[id] = 1
				else id_dict[id] = id_dict[id] + 1
					id = id .. id_separator .. id_dict[id]
				end
				table.insert(resultat, "<td id='Pokémon" .. id_separator .. id .. "'>[[#Objet" .. id_separator .. id .. "|[voir]]]</td></tr>")
				
				h = h + 1
			end
		end
		i = i + 1
	end
	
	table.insert(resultat, '</table>')
	if fetching_loc then table.insert(resultat, "[[Catégorie:Page avec un module Tableau Pokémon]]") end
	return table.concat(resultat, "")
end

return p