Ver el código de «Módulo:Ficha de personaje»

local p = {}

local ModuloWikidata			= require('Módulo:Wikidata')
local ModuloFormatos			= require('Módulo:Wikidata/Formatos')
local ModuloPaginas				= require('Módulo:Páginas')
local ModuloArgs    			= require('Módulo:Argumentos')
local elementoTabla				= require('Módulo:Tablas').elemento
local formatoNumero				= ModuloFormatos.formatoNumero2
local numeroUnidad				= ModuloFormatos.formatoUnidad2
local obtenerEtiquetaWikidata	= ModuloWikidata.obtenerEtiquetaWikidata
local argumentos				= ModuloArgs.obtenerValorDeArgumentos
local ModuloFicha				-- El módulo se define más abajo
local Entidad
local InstanciaDeID

-- :: Estilos por defecto
local EstiloTabla		= 'border-spacing:2px;padding:2px;'
local EstiloEtiqueta	= 'width:30%;'
local EstiloDatos		= 'width:70%;'
local anchoImagen		= '245px'
local ColorTituloFondo	= '#69A0F3'
local ColorTituloTexto	= '#ffffff'
local ColorEtiqueta		= '#e7f0fd'
local EstiloTitulo		= 'font-weight:bold;'

-- :: Tablas
local DatosPokemon		= mw.loadData('Módulo:Ficha de personaje/Pokémon')
local ColoresCabello	= mw.loadData('Módulo:Ficha de personaje/Colores')

-- La función Ficha()
function p.Ficha(frame)
	-- :: Inicializardor
	ModuloWikidata:setFrame(frame)
	ModuloArgs.obtenerTablaDeArgumentos(frame)

	Entidad		= mw.wikibase.getEntityObject(argumentos{'id'}) or mw.wikibase.getEntityObject(argumentos{'entidad'}) or {}

	local InstanciaDe	= elementoTabla(Entidad, 'claims', 'P31', 1)
	if InstanciaDe then InstanciaDeID = elementoTabla(InstanciaDe, 'mainsnak', 'datavalue', 'value', 'id') end

	-- Para incluir a Módulo:Ficha o Módulo:Ficha animanga según corresponda
	local Integrada	= argumentos{'uni', 'child', 'integrada'}
	local Animanga	= argumentos{'animanga'}
	if Integrada or Animanga then
		ModuloFicha = require('Módulo:Ficha animanga')
		TipoFicha	= 'cabecera'
		Integrada	= 'sí'
		ClaseTitulo	= 'animanga'
	else
		ModuloFicha = require('Módulo:Ficha/pruebas')
	end

	-- :: Cabecera ficha
	local Titulo		= argumentos{'nombre', 'nombre_personaje'} or obtenerEtiquetaWikidata(Entidad) or ModuloPaginas.nombrePagina({desambiguar='sí'})
	local Subtitulo

	-- :: Datos personales
	local NombreOrig			= argumentos{'nombre_original', 'nombre original', 'real', 'nombrejapon', 'japanname', 'namejapon', 'nombre_ja', 'nombre_co'}
	local NombreTransliterado	= argumentos{'nombre_ja_trad', 'ja_romaji'}
	if not NombreOrig then
		local NO				= elementoTabla(Entidad, 'claims', 'P1559', 1) or elementoTabla(Entidad, 'claims', 'P1705', 1)
		if NO then
			NombreOrig			= elementoTabla(NO, 'mainsnak', 'datavalue', 'value', 'text') or NombreOrig
			NombreTransliterado = elementoTabla(NO, 'qualifiers', 'P2440', 1, 'datavalue', 'value') or NombreTransliterado
		end
	end
	
	if NombreOrig then
		--if Animanga then Titulo = Titulo .. '<br><span style="font-size:70%">' .. NombreOrig .. '</span>' end
		if NombreTransliterado then NombreOrig = NombreOrig .. ' (' .. NombreTransliterado .. ')' end
	end

	local Alias			= argumentos{'sobrenombre', 'alias', {propiedad, 'P1449'}}
	local OtrosNombres	= argumentos{'otrosnombres', {propiedad, 'P4970'}}

	-- :: Datos generales
	local FechaNac		= argumentos{'nacido', {propiedad, 'P569', {['uno'] = 'sí'}}}
	local FechaFall		= argumentos{'fallecido', {propiedad, 'P570', {['uno'] = 'sí'}}}
	local Raza			= argumentos{'raza', {propiedad, 'P4743', {['uno'] = 'sí'}}}
	local Genero		= argumentos{'sexo', 'género', {propiedad, 'P21', {['uno'] = 'sí'}}}

	local Edad			= argumentos{'edad', {propiedad, 'P6249', {['formato'] = 'unidad'}}}

	local Estatura		= argumentos{'altura', 'metricheight'}
	if Estatura then
		Estatura 		= Estatura .. ' [[Metro|m]]'
	else
		Estatura 		= argumentos{{propiedad, 'P2048', {['formato'] = 'unidad'}}}
	end	

	local Peso			= argumentos{'peso', 'metricweight'}
	if Peso then
		Peso 			= Peso .. ' [[kg]]'
	else
		Peso 			= argumentos{{propiedad, 'P2067', {['formato'] = 'unidad'}}}
	end		

	local Cabello		= argumentos{'pelo', 'cabello', {propiedad, 'P1884', {['uno'] = 'sí'}}}
	local Ojos			= argumentos{'ojos', {propiedad, 'P1340', {['uno'] = 'sí'}}}

	-- :: Datos familiares, gremio y actividades
	local Ocupacion		= argumentos{'ocupación', {propiedad, 'P106'}}
	local TituloCortes	= argumentos{'título', {propiedad, 'P1035'}}
	local Equipamiento	= argumentos{'equipamiento', {propiedad, 'P2283'}, {propiedad, 'P2283'}, {propiedad, 'P520'}}
	local Miembros		= argumentos{'miembros', {propiedad, 'P463'}}
	local ExMiembros	= argumentos{'exmiembros'}
	local Aliados		= argumentos{'aliados', {propiedad, 'P399'}, {propiedad, 'P2546'}}
	local Enemigos		= argumentos{'enemigos', {propiedad, 'P7047'}}
	local Afiliaciones	= argumentos{'afiliaciones', {propiedad, 'P1416'}}
	local AfilAnt		= argumentos{'afiliaciones_anteriores'}

	local Familia		= argumentos{'familia', {propiedad, 'P53'}}
	local Conexiones	= argumentos{'conexiones'}
	local Conyuge		= argumentos{'cónyuge', {propiedad, 'P26'}}
	local Pareja		= argumentos{'pareja', {propiedad, 'P451'}}
	local Padres		= argumentos{'padres'}
	local Padre
	local Madre
	if not Padres then
		Padres			= {}
		Padre			= argumentos{'padre', {propiedad, 'P22'}}
		Madre			= argumentos{'madre', {propiedad, 'P25'}}
		if Padre then table.insert(Padres, Padre) end
		if Madre then table.insert(Padres, Madre) end
		Padres			= table.concat(Padres, '<br>')
	end

	local Hijos			= argumentos{'hijos', {propiedad, 'P40'}}
	local Familiares	= argumentos{'familiares', 'parientes', {propiedad, 'P1038'}}
	local Residencia	= argumentos{'residencia', {propiedad, 'P551'}}
	local Religion		= argumentos{'religión', 'credo', {propiedad, 'P140'}}
	local Nacionalidad	= argumentos{'nacionalidad', {propiedad, 'P27'}}
	local EstadoActual	= argumentos{'estatus', 'status', 'estado'}
	
	-- Poderes y habilidades
	local PoderesTitulo		= 'Poderes'
	local Poderes			= argumentos{'especialidad', 'poderes'} or ''
	if string.len(Poderes) > 342 then
		Poderes				= Poderes:gsub('<div [%w%"%%:;=%s]*>\n<div [%w%"%%:;=%s]*>[%w%s]*</div>',''):gsub('</div>\n</div>','</div>')
		Poderes				= seccionDesplegable(frame, PoderesTitulo, Poderes)
	else
		PoderesEtiqueta		= PoderesTitulo
	end
	
	local HabilidadesTitulo	= 'Habilidades'
	local Habilidades		= argumentos{'habilidad', 'ability'} or ''
	if string.len(Habilidades) > 342 then
		Habilidades			= Habilidades:gsub('<div [%w%"%%:;=%s]*>\n<div [%w%"%%:;=%s]*>[%w%s]*</div>',''):gsub('</div>\n</div>','</div>')
		Habilidades			= seccionDesplegable(frame, HabilidadesTitulo, Habilidades)
	else
		HabilidadesEtiqueta	= HabilidadesTitulo
	end

	-- :: Autoría, sindicación y doblaje
	local Autor			= argumentos{'creador', 'autor', {propiedad, 'P170'}}
	local Interprete	= argumentos{'actor', {propiedad, 'P175', {['lista'] = 'nobullet'}}}
	local Voz			= argumentos{'voz', 'doblador', 'seiyu', {propiedad, 'P725'}}
	local VozPersonaje, VozVocaloid, InterpretePersonaje, InterpreteVocaloid
	local VozLatam		= argumentos{'doblador_hispanoamérica', 'doblador hispanoamérica'} or ''
	local VozEsp		= argumentos{'doblador_españa', 'doblador españa'} or ''
	local Doblaje		= {}
	if string.len(VozLatam) > 0	then 
		if string.len(VozLatam) > 300 then
			VozLatam	= seccionDesplegable(frame, '[[Hispanoamérica]]', VozLatam, true)
		else
			VozLatam	= '<div style="font-weight:bold;background-color:' .. ColorEtiqueta .. '">[[Hispanoamérica]]</div>\n' .. VozLatam
		end
		table.insert(Doblaje, VozLatam)
	end
	if string.len(VozEsp) > 0	then 
		if string.len(VozEsp) > 300 then
			VozEsp	= seccionDesplegable(frame, '[[España]]', VozEsp, true)
		else
			VozEsp	= '<div style="font-weight:bold;background-color:' .. ColorEtiqueta .. '">[[España]]</div>\n' .. VozEsp
		end
		table.insert(Doblaje, VozEsp)
	end
	Doblaje				= table.concat(Doblaje, '<br>\n')
	
	local Editorial		= argumentos{'editorial', {propiedad, 'P123'}}

	-- :: Fechas
	local Debut			= argumentos{'primera aparición', 'primera', 'debut', 'fecha salida', 'lanzamiento', {propiedad, 'P4584'}, {propiedad, 'P580'}, {propiedad, 'P577'}, {propiedad, 'P5204'}}
	local Retiro		= argumentos{'última aparición', 'ultima', 'última', {propiedad, 'P582'}}
	local MotivoRetiro	= argumentos{'última aparición causa', 'causa'}
	if MotivoRetiro then Retiro = Retiro .. '<small>(' .. MotivoRetiro .. ')</small>' end
	local WebLanzamineto= argumentos{'web_lanzamiento'}
	
	-- :: Datos externos
	local imdbId, filmaffinityId, seccionEnlacesExternos
	if argumentos{'test'} == 'sí' then
		seccionEnlacesExternos = frame:preprocess('<small>{{#Invoke:listas|listahtml|clase=hlist'..
			'|'..((propiedad('P3593', {['uno'] = 'sí'}) and '[http://www.afi.com/members/catalog/DetailView.aspx?s=&Movie='..propiedad('P3593', {['uno'] = 'sí'})..' AFI]') or '')..
			'|'..((propiedad('P1562', {['uno'] = 'sí'}) and '[http://www.allmovie.com/movie/'..propiedad('P1562', {['uno'] = 'sí'})..' AllMovie]') or '')..
			'|'..((propiedad('P1237', {['uno'] = 'sí'}) and '[http://www.boxofficemojo.com/movies/?id='..propiedad('P1237', {['uno'] = 'sí'})..' Box Office Mojo]') or '')..
			'|'..((propiedad('P480', {['uno'] = 'sí'}) and '[https://www.filmaffinity.com/es/film'..propiedad('P480', {['uno'] = 'sí'})..'.html FilmAffinity]') or '')..
			'|'..((propiedad('P345', {['uno'] = 'sí'}) and '[https://www.imdb.com/title/'..propiedad('P345', {['uno'] = 'sí'})..'/ IMDb]') or '')..
			'|'..((propiedad('P1712', {['uno'] = 'sí'}) and '[http://www.metacritic.com/'..propiedad('P1712', {['uno'] = 'sí'})..' Metacritic]') or '')..
			'|'..((propiedad('P3302', {['uno'] = 'sí'}) and '[https://www.omdb.org/movie/'..propiedad('P3302', {['uno'] = 'sí'})..' omdb]') or '')..
			'|'..((propiedad('P1258', {['uno'] = 'sí'}) and '[https://www.rottentomatoes.com/'..propiedad('P1258', {['uno'] = 'sí'})..' Rotten Tomatoes]') or '')..
			'|'..((propiedad('P1265', {['uno'] = 'sí'}) and '[http://www.sensacine.com/film/fichefilm_gen_cfilm='..propiedad('P1265', {['uno'] = 'sí'})..'.html SensaCine]') or '')..
			'|'..((propiedad('P2631', {['uno'] = 'sí'}) and '[http://tcmdb.com/title/title.jsp?stid='..propiedad('P2631', {['uno'] = 'sí'})..' TCM]') or '')..
			'|'..((propiedad('P2638', {['uno'] = 'sí'}) and '[http://www.tv.com/'..propiedad('P2638', {['uno'] = 'sí'})..' TV.com]') or '')..'}}</small>')
	else
		imdbId = argumentos{'imdbid', 'imdbId', {propiedad, 'P345', {['uno'] = 'sí'}}}
		filmaffinityId = argumentos{'filmaffinityid', 'filmaffinityId', {propiedad, 'P480', {['uno'] = 'sí'}}}
	end

	local enlaceImdb = imdbId and '[https://www.imdb.com/title/'..imdbId..'/ Ficha] en [[Internet Movie Database|IMDb]]'
	local enlaceFilmaffinity = filmaffinityId and '[https://www.filmaffinity.com/es/film'..filmaffinityId..'.html Ficha] en [[FilmAffinity]]'
	local identificadoresExternos
	
	if imdbId and filmaffinityId then
		identificadoresExternos = enlaceImdb..'<br />'..enlaceFilmaffinity
	elseif imdbId or filmaffinityId then 
		identificadoresExternos = enlaceImdb or enlaceFilmaffinity
	end

	-- :: Específicos de Pokémon
	local Pokedex			= obtenerPokedex(frame)
	local PokemonTipo		= Pokedex['tipo']
	local PokemonEspecie	= Pokedex['especie']
	local PokemonEtapa		= Pokedex['etapa']
	local DifrenciaGenero	= Pokedex['dif_genero'] or ''
	local Generacion		= Pokedex['generacion'] or argumentos{'generación', 'generation'}
	if not Debut == '' and Generacion then
		Debut = Debut .. '<br>(' .. Generacion .. ' generación)'
	elseif not Debut and Generacion then
		Debut = Generacion .. 'generación'
	end

	local Preevolucion		= Pokedex['preevolución']
	if Preevolucion then Preevolucion = enlazar(frame, Preevolucion) end
	
	local Evolucion			= Pokedex['evolución']
	if Evolucion then Evolucion = enlazar(frame, Evolucion) end

	-- Nacional / Kanto
	local PokedexNacNum		= Pokedex['pokedex_nac']
	local PokedexNacAnt		= Pokedex['anterior_nac'] or ''
	local PokedexNacSig		= Pokedex['siguiente_nac'] or ''
	local KantoTitulo		= '[[Pokédex#Pokédex_Nacional|Pokédex nacional]] / [[Anexo:Lugares_de_Pokémon#Kanto|Kanto]]'
	if PokedexNacNum then KantoTitulo = KantoTitulo .. ' (#' .. formatoNumero(PokedexNacNum) .. ')' end

	-- Johto
	local PokedexJotNum		= Pokedex['pokedex_jot']
	local PokedexJotAnt		= Pokedex['anterior_jot'] or ''
	local PokedexJotSig		= Pokedex['siguiente_jot'] or ''
	local JohtoTitulo		= '[[Pokédex]] de [[Anexo:Lugares_de_Pokémon#Johto|Johto]]'
	if PokedexJotNum then JohtoTitulo = JohtoTitulo .. ' (#' ..  formatoNumero(PokedexJotNum) .. ')' end

	-- Hoenn
	local PokedexHoeNum		= Pokedex['pokedex_hoe']
	local PokedexHoeAnt		= Pokedex['anterior_hoe'] or ''
	local PokedexHoeSig		= Pokedex['siguiente_hoe'] or ''
	local HoennTitulo		= '[[Pokédex]] de [[Anexo:Lugares_de_Pokémon#Hoenn|Hoenn]]'
	if PokedexHoeNum then HoennTitulo = HoennTitulo .. ' (#' ..  formatoNumero(PokedexHoeNum) .. ')' end

	-- Sinnoh
	local PokedexSinNum		= Pokedex['pokedex_sin']
	local PokedexSinAnt		= Pokedex['anterior_sin'] or ''
	local PokedexSinSig		= Pokedex['siguiente_sin'] or ''
	local SinnohTitulo		= '[[Pokédex]] de [[Anexo:Lugares_de_Pokémon#Sinnoh|Sinnoh]]'
	if PokedexSinNum then SinnohTitulo = SinnohTitulo .. ' (#' ..  formatoNumero(PokedexSinNum) .. ')' end

	-- Teselia
	local PokedexTesNum		= Pokedex['pokedex_tes']
	local PokedexTesAnt		= Pokedex['anterior_tes'] or ''
	local PokedexTesSig		= Pokedex['siguiente_tes'] or ''
	local TeseliaTitulo		= '[[Pokédex]] de [[Anexo:Lugares_de_Pokémon#Teselia|Teselia]]'
	if PokedexTesNum then TeseliaTitulo = TeseliaTitulo .. ' (#' ..  formatoNumero(PokedexTesNum) .. ')' end

	local PokedexTes2Num	= Pokedex['pokedex_te2']
	local PokedexTes2Ant	= Pokedex['anterior_te2'] or ''
	local PokedexTes2Sig	= Pokedex['siguiente_te2'] or ''
	local Teselia2Titulo	= '[[Pokédex]] de [[Anexo:Lugares_de_Pokémon#Teselia|Teselia]] ([[Pokémon negro 2 y Pokémon blanco 2|NB2]])'
	if PokedexTes2Num then Teselia2Titulo = Teselia2Titulo .. ' (#' ..  formatoNumero(PokedexTes2Num) .. ')' end

	-- Kalos
	local PokedexKalMonNum	= Pokedex['pokedex_kal_mon']
	local PokedexKalMonAnt	= Pokedex['anterior_kal_mon'] or ''
	local PokedexKalMonSig	= Pokedex['siguiente_kal_mon'] or ''
	local KalosMonTitulo	= '[[Pokédex]] de [[Anexo:Lugares_de_Pokémon#Kalos|Kalos Montaña]]'
	if PokedexKalMonNum then KalosMonTitulo = KalosMonTitulo .. ' (#' ..  formatoNumero(PokedexKalMonNum) .. ')' end

	local PokedexKalCenNum	= Pokedex['pokedex_kal_cen']
	local PokedexKalCenAnt	= Pokedex['anterior_kal_cen'] or ''
	local PokedexKalCenSig	= Pokedex['siguiente_kal_cen'] or ''
	local KalosCenTitulo	= '[[Pokédex]] de [[Anexo:Lugares_de_Pokémon#Kalos|Kalos Centro]]'
	if PokedexKalCenNum then KalosCenTitulo = KalosCenTitulo .. ' (#' ..  formatoNumero(PokedexKalCenNum) .. ')' end
	
	local PokedexKalCosNum	= Pokedex['pokedex_kal_cos']
	local PokedexKalCosAnt	= Pokedex['anterior_kal_cos'] or ''
	local PokedexKalCosSig	= Pokedex['siguiente_kal_cos'] or ''
	local KalosCosTitulo	= '[[Pokédex]] de [[Anexo:Lugares_de_Pokémon#Kalos|Kalos Costa]]'
	if PokedexKalCosNum then KalosCosTitulo = KalosCosTitulo .. ' (#' ..  formatoNumero(PokedexKalCosNum) .. ')' end

	-- Alola
	local PokedexAloNum		= Pokedex['pokedex_alo']
	local PokedexAloAnt		= Pokedex['anterior_alo'] or ''
	local PokedexAloSig		= Pokedex['siguiente_alo'] or ''
	local AlolaTitulo		= '[[Pokédex]] de [[Anexo:Lugares_de_Pokémon#Alola|Alola]]'
	if PokedexAloNum then AlolaTitulo = AlolaTitulo .. ' (#' ..  formatoNumero(PokedexAloNum) .. ')' end

	-- Galar
	local PokedexGalNum		= Pokedex['pokedex_gal']
	local PokedexGalAnt		= Pokedex['anterior_gal'] or ''
	local PokedexGalSig		= Pokedex['siguiente_gal'] or ''
	local GalarTitulo		= '[[Pokédex]] de [[Anexo:Lugares_de_Pokémon#Galar|Galar]]'
	if PokedexGalNum then GalarTitulo = GalarTitulo .. ' (#' ..  formatoNumero(PokedexGalNum) .. ')' end

	local TituloPersonaje
	if next(Pokedex) then
		TituloPersonaje = "Datos del Pokémon"
	else
		TituloPersonaje = "Información"
	end
	
	local TituloEtapa	= "Linea evolutiva"
	if PokemonEtapa then TituloEtapa = TituloEtapa .. ' (' .. PokemonEtapa .. ')' end
	
	-- :: Software (Vocaloid y otros)
	local Motor				= argumentos{'motor', {propiedad, 'P408'}}
	local GeneroMusical		= argumentos{'género', 'genero', {propiedad, 'P136'}}
	local Tempo				= argumentos{'tempo', {propiedad, 'P1725'}}
	local RangoDinamico		= argumentos{'rango'}
	local Desarrollador		= argumentos{'desarrollador', {propiedad, 'P178'}}
	local ModeloDesarrollo	= argumentos{'modelo_desarrollo'}
	local Plataforma		= argumentos{'plataforma', {propiedad, 'P400'}}
	local licencia			= argumentos{'licencia', {propiedad, 'P275'}}
	local EstadoSoftware	= argumentos{'estado'}
	local Idioma			= argumentos{'idioma', 'idiomas', {propiedad, 'P407'}}

	local Franquicia	= argumentos{'obra', {propiedad, 'P8345', {['uno'] = 'sí', ['link'] = 'sí'}}, {propiedad, 'P1441', {['uno'] = 'sí', ['link'] = 'sí'}}}
	if InstanciaDeID == 'Q550596' then
		Subtitulo = 'Banco de voz de [[Vocaloid]]'
		VozVocaloid		= Voz or Interprete
		ClaseTitulo	= 'animanga'
	elseif next(Pokedex) then
		Subtitulo = '[[Pokémon]]'
		VozPersonaje		= Voz
		InterpretePersonaje	= Interprete
		ClaseTitulo			= 'animanga'
	elseif Franquicia then
		Subtitulo = 'Personaje de ' .. Franquicia
		VozPersonaje		= Voz
		InterpretePersonaje	= Interprete
	end
	
	-- :: Datos extra
	local DatosExtra = {tipo="sección",titulo = "Datos extra"}
	for i=21,25 do
		if not argumentos{'etiqueta'..i, 'lbl'..i} and not argumentos{'datos'..i, 'data'..i} then break end
		table.insert(DatosExtra, {argumentos{'etiqueta'..i, 'lbl'..i}, argumentos{'datos'..i, 'data'..i}})
	end
	for i=21,25 do
		if not argumentos{'etiqueta'..i, 'lbl'..i} and not argumentos{'datos'..i, 'data'..i} then break end
		table.insert(DatosExtra, {argumentos{'etiqueta'..i, 'lbl'..i}, argumentos{'datos'..i, 'data'..i}})
	end

	local Imagen		= argumentos{'imagen', 'image', 'logo'}
	local TamanoImagen	= argumentos{'image_width', 'tamaño imagen', 'tamaño_imagen'} or '250px'
	local Pie
	if Imagen then
		Pie				= argumentos{'pie', 'image_caption'}
	else
		Imagen, Pie		= ModuloWikidata.obtenerImagenWikidata(Entidad, 'P18') or ModuloWikidata.obtenerImagenWikidata(Entidad, 'P154')
	end

	-- Colores de la ficha en base al color de cabello del personaje
	local ColorAuto		= argumentos{'color auto', 'color_auto'}
	local ColorCabello	= elementoTabla(Entidad, 'claims', 'P1884', 1, 'mainsnak', 'datavalue', 'value', 'id')
	if ColoresCabello[ColorCabello] and ColorAuto then
		ColorTituloFondo= ColoresCabello[ColorCabello][1]
		ColorTituloTexto= ColoresCabello[ColorCabello][3]
		ColorEtiqueta	= ColoresCabello[ColorCabello][2]
	end
	
	-- :: Estilos
	ColorTituloFondo	= argumentos{'piel', 'colorfondo'} or Pokedex['colortitulo'] or ColorTituloFondo
	ColorTituloTexto	= argumentos{'colortexto'} or Pokedex['colortexto'] or ColorTituloTexto
	ColorEtiqueta		= argumentos{'coloretiqueta'} or Pokedex['coloretiqueta'] or ColorEtiqueta
	EstiloTitulo		= 'background-color:' .. ColorTituloFondo .. ';color:' .. ColorTituloTexto
	EstiloEtiqueta		= argumentos{'estiloetiqueta'} or EstiloEtiqueta .. ';background-color:' .. ColorEtiqueta

	local TablaFicha = {
		uni					= Integrada,
		tipo				= TipoFicha,
		titulo  			= Titulo,
		subtitulo			= Subtitulo,
		estilo				= EstiloTabla,
		clasetitulo			= ClaseTitulo,
		estilotitulo		= EstiloTitulo,
		estiloseccion		= EstiloTitulo,
		estiloetiqueta		= EstiloEtiqueta,
		imagen				= Imagen,
		["tamañoimagen"]	= TamanoImagen,
		pie					= Pie,
		estilopie			= "font-size:88%",

		-- :: General
		{tipo="sección",
			{'Creador(es)', Autor},
			{'Interpretado&nbsp;por', InterpretePersonaje},
			{'Voz original', VozPersonaje},
			{'Doblaje', Doblaje},
			--{'Doblador en [[Hispanoamérica]]', VozLatam},
			--{'Doblador en [[España]]', VozEsp},
			{'Primera&nbsp;aparición', Debut},
			{'Última&nbsp;aparición', Retiro},
			{'Motivo de retiro', MotivoRetiro},
			{'Editorial', Editorial},
		},

		{tipo="sección",
			titulo = TituloPersonaje,
			{'Nombre&nbsp;original', NombreOrig},
			{'Otros&nbsp;Nombres', OtrosNombres},
			{'Alias', Alias},
			{'Nacionalidad', Nacionalidad},
			{'Residencia', Residencia},
			{'Religión', Religion},
			{'Estado&nbsp;actual', EstadoActual},
			{'Fecha de nacimiento', FechaNac},
			{'Fecha de fallecimiento', FechaFall},
			{'Raza', Raza}, -- Para Pokémon, véase PokemonEspecie
			{'Género', Genero},
			{'Diferencia de género', DifrenciaGenero},
			{'Edad', Edad},
			{'Estatura', Estatura},
			{'Peso', Peso},
			{'Cabello', Cabello},
			{'Ojos', Ojos},
			{PoderesEtiqueta, Poderes}, -- Para Pokémon, véase Habilidades
			{'Ocupacion', Ocupacion},
			{'Título', TituloCortes},
			{'Equipamiento', Equipamiento},
		},

		{tipo="sección",
			--titulo = "Información familiar",
			{'Familia', Familia},
			{'Conexiones', Conexiones},
			{'Conyuge', Conyuge},
			{'Pareja', Pareja},
			{'Padres', Padres},
			{'Hijos', Hijos},
			{'Familiares', Familiares},
		},

		{tipo="sección",
			--titulo = "Afiliaciones",
			{'Miembros', Miembros},
			{'Ex miembros', ExMiembros},
			{'Aliados', Aliados},
			{'Enemigos', Enemigos},
			{'Afiliaciones', Afiliaciones},
			{'Afiliaciones anteriores', AfilAnt},
		},

		-- :: Específicos de Pokémon
		{tipo="sección",
			{'Especie', PokemonEspecie},
			{'Tipo', PokemonTipo},
			{HabilidadesEtiqueta, Habilidades},
		},
		{tipo="sección",
			titulo = TituloEtapa,
			estilotitulo			= EstiloTabla,
			estiloseccion			= EstiloTitulo,
			['ocultar_vacíos']		= 'sí',
			{
				color				= ColorEtiqueta,
				['tipo']			= 'sucesión',
				['anterior']		= Preevolucion,
				['siguiente']		= Evolucion,
			},
		},
		{tipo="sección",
			titulo					= KantoTitulo,
			estilotitulo			= EstiloTabla,
			['ocultar_vacíos']		= 'sí',
			{
				color				= ColorEtiqueta,
				['tipo']			= 'sucesión',
				['anterior']		= PokedexNacAnt,
				['siguiente']		= PokedexNacSig,
			},
		},
		{tipo="sección",
			titulo					= JohtoTitulo,
			estilotitulo			= EstiloTabla,
			['ocultar_vacíos']		= 'sí',
			{
				color				= ColorEtiqueta,
				['tipo']			= 'sucesión',
				['anterior']		= PokedexJotAnt,
				['siguiente']		= PokedexJotSig,
			},
		},
		{tipo="sección",
			titulo					= HoennTitulo,
			estilotitulo			= EstiloTabla,
			['ocultar_vacíos']		= 'sí',
			{
				color				= ColorEtiqueta,
				['tipo']			= 'sucesión',
				['anterior']		= PokedexHoeAnt,
				['siguiente']		= PokedexHoeSig,
			},
		},
		{tipo="sección",
			titulo					= SinnohTitulo,
			estilotitulo			= EstiloTabla,
			['ocultar_vacíos']		= 'sí',
			{
				color				= ColorEtiqueta,
				['tipo']			= 'sucesión',
				['anterior']		= PokedexSinAnt,
				['siguiente']		= PokedexSinSig,
			},
		},
		{tipo="sección",
			titulo					= TeseliaTitulo,
			estilotitulo			= EstiloTabla,
			['ocultar_vacíos']		= 'sí',
			{
				color				= ColorEtiqueta,
				['tipo']			= 'sucesión',
				['anterior']		= PokedexTesAnt,
				['siguiente']		= PokedexTesSig,
			},
		},
		{tipo="sección",
			titulo 					= Teselia2Titulo,
			estilotitulo			= EstiloTabla,
			['ocultar_vacíos']		= 'sí',
			{
				color				= ColorEtiqueta,
				['tipo']			= 'sucesión',
				['anterior']		= PokedexTes2Ant,
				['siguiente']		= PokedexTes2Sig,
			},
		},
		{tipo="sección",
			titulo 					= KalosMonTitulo,
			estilotitulo			= EstiloTabla,
			['ocultar_vacíos']		= 'sí',
			{
				color				= ColorEtiqueta,
				['tipo']			= 'sucesión',
				['anterior']		= PokedexKalMonAnt,
				['siguiente']		= PokedexKalMonSig,
			},
		},
		{tipo="sección",
			titulo 					= KalosCenTitulo,
			estilotitulo			= EstiloTabla,
			['ocultar_vacíos']		= 'sí',
			{
				color				= ColorEtiqueta,
				['tipo']			= 'sucesión',
				['anterior']		= PokedexKalCenAnt,
				['siguiente']		= PokedexKalCenSig,
			},
		},
		{tipo="sección",
			titulo 					= KalosCosTitulo,
			estilotitulo			= EstiloTabla,
			['ocultar_vacíos']		= 'sí',
			{'Número', PokedexKalCosNum},
			{
				color				= ColorEtiqueta,
				['tipo']			= 'sucesión',
				['anterior']		= PokedexKalCosAnt,
				['siguiente']		= PokedexKalCosSig,
			},
		},
		{tipo="sección",
			titulo 					= AlolaTitulo,
			estilotitulo			= EstiloTabla,
			['ocultar_vacíos']		= 'sí',
			{
				color				= ColorEtiqueta,
				['tipo']			= 'sucesión',
				['anterior']		= PokedexAloAnt,
				['siguiente']		= PokedexAloSig,
			},
		},
		{tipo="sección",
			titulo 					= GalarTitulo,
			estilotitulo			= EstiloTabla,
			['ocultar_vacíos']		= 'sí',
			{
				color				= ColorEtiqueta,
				['tipo']			= 'sucesión',
				['anterior']		= PokedexGalAnt,
				['siguiente']		= PokedexGalSig,
			},
		},
	
		{tipo="sección",
			titulo 					= 'Datos del banco de voz',
			['ocultar_vacíos']		= 'sí',
			{'[[Género musical|Género]]', GeneroMusical},
			{'[[Tempo|Tempo Óptimo]]', Tempo},
			{'[[Rango dinámico|Rango]]', RangoDinamico},
			{'Intérprete de voz', VozVocaloid},
			{'Desarrollador', Desarrollador},
			{'Plataforma', Plataforma},
			{'Motor', Motor},
			{'licencia', licencia},
			{'Estado', EstadoSoftware},
			{'Idiomas', Idioma},
		},
		DatosExtra,
		piedetabla		= identificadoresExternos,
		estilopiedetabla= 'padding-top:10px'
	}

	return ModuloFicha.infobox(TablaFicha)
end

-- Función para obtener datos de Pokémon desde Wikidata
function obtenerPokedex(frame)
	local Pokedex		= {} -- Valores a devolver a la ficha
	local PokedexDatos	= {} -- Datos de la Pokédex por catálogo
	
	-- Etapas evolutivas
	local Preevolucion
	local Evolucion
	local Etapa
	
	-- Nacional / Kanto
	local PokedexNacNum
	local PokedexNacAnt
	local PokedexNacSig

	-- Johto
	local PokedexJotNum
	local PokedexJotAnt
	local PokedexJotSig

	-- Hoenn
	local PokedexHoeNum
	local PokedexHoeAnt
	local PokedexHoeSig

	-- Sinnoh
	local PokedexSinNum
	local PokedexSinAnt
	local PokedexSinSig

	-- Teselia
	local PokedexTesNum
	local PokedexTesAnt
	local PokedexTesSig

	local PokedexTes2Num
	local PokedexTes2Ant
	local PokedexTes2Sig

	-- Kalos
	local PokedexKalMonNum
	local PokedexKalMonAnt
	local PokedexKalMonSig

	local PokedexKalCenNum
	local PokedexKalCenAnt
	local PokedexKalCenSig
	
	local PokedexKalCosNum
	local PokedexKalCosAnt
	local PokedexKalCosSig

	-- Alola
	local PokedexAloNum
	local PokedexAloAnt
	local PokedexAloSig

	-- Galar
	local PokedexGalNum
	local PokedexGalAnt
	local PokedexGalSig
	
	-- Obtener el número en la Pokédex según el catálogo
	local PN = elementoTabla(Entidad, 'claims', 'P1685')
	if PN then
		for i,v in pairs(PN) do
			Numero		= elementoTabla(v, 'mainsnak', 'datavalue', 'value')
			Catalogo	= elementoTabla(v, 'qualifiers','P972', 1, 'datavalue', 'value', 'id')
			Anterior	= obtenerEtiquetaWikidata(mw.wikibase.getEntity(elementoTabla(v, 'qualifiers','P155', 1, 'datavalue', 'value', 'id')))
			if Anterior then 
				Anterior = enlazar(frame, Anterior)
			else
				Anterior = '--'
			end
			Siguiente	= obtenerEtiquetaWikidata(mw.wikibase.getEntity(elementoTabla(v, 'qualifiers','P156', 1, 'datavalue', 'value', 'id')))
			if Siguiente then 
				Siguiente = enlazar(frame, Siguiente)
			else
				Siguiente = '--'
			end
			PokedexDatos[Catalogo] = {Numero, Anterior, Siguiente}
		end
	end

	-- Pokédex Nacional
	if PokedexDatos['Q18086661'] then
		PokedexNacNum	= PokedexDatos['Q20005020'][1]
		PokedexNacAnt	= PokedexDatos['Q20005020'][2]
		PokedexNacSig	= PokedexDatos['Q20005020'][3]
	end
	
	-- Pokédex de Kanto
	if PokedexDatos['Q20005020'] then
		PokedexNacNum	= PokedexDatos['Q20005020'][1]
		PokedexNacAnt	= PokedexDatos['Q20005020'][2]
		PokedexNacSig	= PokedexDatos['Q20005020'][3]
	end

	-- Pokédex de Johto
	if PokedexDatos['Q11310550'] then
		PokedexJotNum	= PokedexDatos['Q11310550'][1]
		PokedexJotAnt	= PokedexDatos['Q11310550'][2]
		PokedexJotSig	= PokedexDatos['Q11310550'][3]
	end
	
	-- Pokédex de Johto revisada
	if PokedexDatos['Q18099930'] then
		PokedexJotNum	= PokedexDatos['Q18099930'][1]
		PokedexJotAnt	= PokedexDatos['Q18099930'][2]
		PokedexJotSig	= PokedexDatos['Q18099930'][3]
	end

	-- Pokédex de Hoenn
	if PokedexDatos['Q18086665'] then
		PokedexHoeNum	= PokedexDatos['Q18086665'][1]
		PokedexHoeAnt	= PokedexDatos['Q18086665'][2]
		PokedexHoeSig	= PokedexDatos['Q18086665'][3]
	end
	
	-- Pokédex de Hoenn revisada
	if PokedexDatos['Q18922463'] then
		PokedexHoeNum	= PokedexDatos['Q18922463'][1]
		PokedexHoeAnt	= PokedexDatos['Q18922463'][2]
		PokedexHoeSig	= PokedexDatos['Q18922463'][3]
	end

	-- Pokedex de Sinnoh
	if PokedexDatos['Q18086666'] then
		PokedexSinNum	= PokedexDatos['Q18086666'][1]
		PokedexSinAnt	= PokedexDatos['Q18086666'][2]
		PokedexSinSig	= PokedexDatos['Q18086666'][3]
	end

	-- Pokédex de Teselia
	if PokedexDatos['Q18086667'] then
		PokedexTesNum	= PokedexDatos['Q18086667'][1]
		PokedexTesAnt	= PokedexDatos['Q18086667'][2]
		PokedexTesSig	= PokedexDatos['Q18086667'][3]
	end
	
	-- Pokédex de Teselia revisada
	if PokedexDatos['Q18100125'] then
		PokedexTesNum	= PokedexDatos['Q18100125'][1]
		PokedexTesAnt	= PokedexDatos['Q18100125'][2]
		PokedexTesSig	= PokedexDatos['Q18100125'][3]
	end

	-- Kalos Montaña
	if PokedexDatos['Q18089575'] then
		PokedexKalMonNum= PokedexDatos['Q18089575'][1]
		PokedexKalMonAnt= PokedexDatos['Q18089575'][2]
		PokedexKalMonSig= PokedexDatos['Q18089575'][3]
	end

	-- Kalos Centro
	if PokedexDatos['Q18086671'] then
		PokedexKalCenNum= PokedexDatos['Q18086671'][1]
		PokedexKalCenAnt= PokedexDatos['Q18086671'][2]
		PokedexKalCenSig= PokedexDatos['Q18086671'][3]
	end

	-- Kalos Costa
	if PokedexDatos['Q18089574'] then
		PokedexKalCosNum= PokedexDatos['Q18089574'][1]
		PokedexKalCosAnt= PokedexDatos['Q18089574'][2]
		PokedexKalCosSig= PokedexDatos['Q18089574'][3]
	end

	-- Alola
	if PokedexDatos['Q25336664'] then
		PokedexAloNum	= PokedexDatos['Q25336664'][1]
		PokedexAloAnt	= PokedexDatos['Q25336664'][2]
		PokedexAloSig	= PokedexDatos['Q25336664'][3]
	end

	-- Galar
	if PokedexDatos['Q75387698'] then
		PokedexGalNum	= PokedexDatos['Q75387698'][1]
		PokedexGalAnt	= PokedexDatos['Q75387698'][2]
		PokedexGalSig	= PokedexDatos['Q75387698'][3]
	end

	-- Obtener las etapas evolutivas
	local FPD			= elementoTabla(Entidad, 'claims', 'P361') or {}
	for i,v in ipairs(FPD) do
		FormaParteDe			= mw.wikibase.getEntity(elementoTabla(v, 'mainsnak', 'datavalue', 'value', 'id'))
		if FormaParteDe then
			if elementoTabla(FormaParteDe, 'claims', 'P31', 1, 'mainsnak', 'datavalue', 'value', 'id') == 'Q15795637' then
				Preevolucion	= obtenerEtiquetaWikidata(mw.wikibase.getEntity(elementoTabla(v, 'qualifiers','P155', 1, 'datavalue', 'value', 'id')))
				Evolucion		= obtenerEtiquetaWikidata(mw.wikibase.getEntity(elementoTabla(v, 'qualifiers','P156', 1, 'datavalue', 'value', 'id')))
				Etapa			= elementoTabla(v, 'qualifiers','P1545', 1, 'datavalue', 'value') or argumentos{'etapa', 'stage'}
				if DatosPokemon['etapas'][Etapa] then Etapa = DatosPokemon['etapas'][Etapa] end
				break
			end
		end
	end

	-- Obtener el tipo de Pokémon
	local PokemonTipo		= {}
	local TipoPrimario		= argumentos{'tipo', 'type'}
	local TipoSecundario	= argumentos{'tipo2', 'type2'}
	local TipoTerciario		= argumentos{'tipo3', 'type3'}
	local ColorFondoPrimario
	local ColorTextoPrimario
	local ColorEtiquetaPrimario
	local ColorFondoSecundario
	local ColorTextoSecundario
	local ColorEtiquetaSecundario
	local ColorFondoTerciario
	local ColorTextoTerciario
	local ColorEtiquetaTerciario

	if not TipoPrimario then
		local PT			= elementoTabla(Entidad, 'claims', 'P31')
		if PT then
			for i,v in ipairs(PT) do
				Tipo	= elementoTabla(v, 'mainsnak', 'datavalue', 'value', 'id')
	
				if elementoTabla(v, 'qualifiers','P518', 1, 'datavalue', 'value', 'id') == 'Q25931659' then
					TipoPrimario = Tipo
				end
	
				if elementoTabla(v, 'qualifiers','P518', 1, 'datavalue', 'value', 'id') == 'Q25931668' then
					TipoSecundario = Tipo
				end
			end
		end
	end

	if DatosPokemon['tipos'][TipoPrimario]  then
		TipoPrimario			= DatosPokemon['tipos'][TipoPrimario][1]
		ColorFondoPrimario		= DatosPokemon['tipos'][TipoPrimario][2]
		ColorTextoPrimario		= DatosPokemon['tipos'][TipoPrimario][3]
		ColorEtiquetaPrimario	= DatosPokemon['tipos'][TipoPrimario][4]
		table.insert(PokemonTipo,'<span style="border-radius:8px;padding:4px;background-color:' .. ColorFondoPrimario .. ';color:' .. ColorTextoPrimario .. ';" title="Pokémon tipo ' .. TipoPrimario .. '">' .. TipoPrimario)
	end
	
	if DatosPokemon['tipos'][TipoSecundario]  then
		TipoSecundario			= DatosPokemon['tipos'][TipoSecundario][1]
		ColorFondoSecundario	= DatosPokemon['tipos'][TipoSecundario][2]
		ColorTextoSecundario	= DatosPokemon['tipos'][TipoSecundario][3]
		ColorEtiquetaSecundario	= DatosPokemon['tipos'][TipoSecundario][4]
		table.insert(PokemonTipo,'<span style="border-radius:8px;padding:5px;background-color:' .. ColorFondoSecundario .. ';color:' .. ColorTextoSecundario .. ';" title="Pokémon tipo ' .. TipoSecundario .. '">' .. TipoSecundario)
	end
	
	if DatosPokemon['tipos'][TipoTerciario]  then
		TipoTerciario			= DatosPokemon['tipos'][TipoTerciario][1]
		ColorFondoTerciario		= DatosPokemon['tipos'][TipoTerciario][2]
		ColorTextoTerciario		= DatosPokemon['tipos'][TipoTerciario][3]
		ColorEtiquetaTerciario	= DatosPokemon['tipos'][TipoTerciario][4]
		table.insert(PokemonTipo,'<span style="border-radius:8px;padding:5px;background-color:' .. ColorFondoTerciario .. ';color:' .. ColorTextoTerciario .. ';" title="Pokémon tipo ' .. TipoTerciario .. '">' .. TipoTerciario)
	end

	if next(PokemonTipo) then Pokedex['tipo'] = table.concat(PokemonTipo, '&nbsp;') end

	-- :: General
	Pokedex['generacion']		= argumentos{'generación', 'generation'}
	Pokedex['especie']			= argumentos{'especie', 'species'}
	Pokedex['preevolución']		= argumentos{'preevolución', 'evolvesfrom'} or Preevolucion
	Pokedex['evolución']		= argumentos{'evolución', 'evolvesto'} or Evolucion
	Pokedex['etapa']			= Etapa
	Pokedex['dif_genero']		= argumentos{'diferencia'}
	
	-- :: Colores
	Pokedex['colortitulo']		= ColorFondoPrimario
	Pokedex['colortexto']		= ColorTextoPrimario
	Pokedex['coloretiqueta']	= ColorEtiquetaPrimario

	-- :: Catálogo
	Pokedex['pokedex_nac']		= argumentos{'numero', 'número', 'number'} or PokedexNacNum
	Pokedex['anterior_nac']		= argumentos{'anterior', 'preceding'} or PokedexNacAnt
	Pokedex['siguiente_nac']	= argumentos{'siguiente', 'following'} or PokedexNacSig

	Pokedex['pokedex_jot']		= argumentos{'johtonumero'} or PokedexJotNum
	Pokedex['anterior_jot']		= argumentos{'johtoanterior'} or PokedexJotAnt
	Pokedex['siguiente_jot']	= argumentos{'johtosiguiente'} or PokedexJotSig

	Pokedex['pokedex_hoe']		= argumentos{'hoennumero'} or PokedexHoeNum
	Pokedex['anterior_hoe']		= argumentos{'hoennanterior'} or PokedexHoeAnt
	Pokedex['siguiente_hoe']	= argumentos{'hoennsiguiente'} or PokedexHoeSig

	Pokedex['pokedex_sin']		= argumentos{'shinounumero'} or PokedexSinNum
	Pokedex['anterior_sin']		= argumentos{'shinouanterior'} or PokedexSinAnt
	Pokedex['siguiente_sin']	= argumentos{'shinousiguiente'} or PokedexSinSig
	
	Pokedex['pokedex_tes']		= argumentos{'unovanumero', 'teselianumero'} or PokedexTesNum
	Pokedex['anterior_tes']		= argumentos{'unovaanterior', 'teseliaanterior'} or PokedexTesAnt
	Pokedex['siguiente_tes']	= argumentos{'unovasiguiente', 'teseliasiguiente'} or PokedexTesSig
	
	Pokedex['pokedex_te2']		= argumentos{'unovanumero2', 'teselianumero2'} or PokedexTes2Num
	Pokedex['anterior_te2']		= argumentos{'unovaanterior2', 'teseliaanterior2'} or PokedexTes2Ant
	Pokedex['siguiente_te2']	= argumentos{'unovasiguiente2', 'teseliasiguiente2'} or PokedexTes2Sig
	
	Pokedex['pokedex_kal_mon']	= argumentos{'kalosmontañanumero'} or PokedexKalMonNum
	Pokedex['anterior_kal_mon']	= argumentos{'kalosmontañaanterior'} or PokedexKalMonAnt
	Pokedex['siguiente_kal_mon']= argumentos{'kalosmontañasiguiente'} or PokedexKalMonSig
	
	Pokedex['pokedex_kal_cen']	= argumentos{'kaloscentronumero'} or PokedexKalCenNum
	Pokedex['anterior_kal_cen']	= argumentos{'kaloscentroanterior'} or PokedexKalCenAnt
	Pokedex['siguiente_kal_cen']= argumentos{'kaloscentrosiguiente'} or PokedexKalCenSig
	
	Pokedex['pokedex_kal_cos']	= argumentos{'kaloscostanumero'} or PokedexKalCosNum
	Pokedex['anterior_kal_cos']	= argumentos{'kaloscostaanterior'} or PokedexKalCosAnt
	Pokedex['siguiente_kal_cos']= argumentos{'kaloscostasiguiente'} or PokedexKalCosSig
	
	Pokedex['pokedex_alo']		= argumentos{'alolanumero'} or PokedexAloNum
	Pokedex['anterior_alo']		= argumentos{'alolaanterior'} or PokedexAloAnt
	Pokedex['siguiente_alo']	= argumentos{'alolasiguiente'} or PokedexAloSig
	
	Pokedex['pokedex_gal']		= argumentos{'galarnumero'} or PokedexGalNum
	Pokedex['anterior_gal']		= argumentos{'galaranterior'} or PokedexGalAnt
	Pokedex['siguiente_gal']	= argumentos{'galarsiguiente'} or PokedexGalSig

	return Pokedex
end

-- Función, propiedad() personalizada
function propiedad(idPropiedad, opciones, entidad)
	if not entidad then entidad = Entidad end

	if entidad and entidad.claims and entidad.claims[idPropiedad] then
		if not opciones then
			opciones = {['linkback']='sí'}
		end
		
		opciones['idioma'] = 'es'

		local ValorPosicional = 1
		if type(opciones['valor_posicional']) == 'number' then ValorPosicional = opciones['valor_posicional'] end
		
		local ValorPosicionalCalif = 1
		if type(opciones['valor_posicional_calif']) == 'number' then ValorPosicional = opciones['valor_posicional_calif'] end

		local Calificador = opciones['calificador']

		local Obj = (function()
			local Obj = (function()
				local Obj = elementoTabla(entidad, 'claims', idPropiedad)
				if type(opciones['valor_posicional']) == 'number' then return elementoTabla(Obj, opciones['valor_posicional']) end
				if opciones['valor_posicional'] == 'último' then return elementoTabla(Obj, #Obj) end
			end)()

			if Calificador then
				Obj = (function()
					local Obj = elementoTabla(Obj, 'qualifiers', Calificador)
					if type(opciones['valor_posicional_calif']) == 'number' then return elementoTabla(Obj, opciones['valor_posicional_calif']) end
					if opciones['valor_posicional_calif'] == 'último' then return elementoTabla(Obj, #Obj) end
				end)()
			end
		end)()

		Tipo	= elementoTabla(Obj, 'datavalue', 'type')
		
		if opciones['formato'] == 'archivo' then
			if not opciones['uno'] then opciones['uno'] = 'último' end
			opciones['ordenar'] = 'por fecha'
			if Calificador then return elementoTabla(Obj, 'datavalue', 'value') end
		end

		-- Devolver el ID de la entidad, para propiedades de entidad
		if opciones['formato'] == 'entidadID' then
			return elementoTabla(Obj, 'datavalue', 'value', 'id')
		end

		if opciones['formato'] == 'cadena' then
			opciones['linkback'] = 'no'
			if Tipo == 'string' then
				return elementoTabla(Obj, 'datavalue', 'value')
			end
		end

		if opciones['formato'] == 'número' then
			if Tipo == 'quantity' then
				return formatoNumero(elementoTabla(Obj, 'datavalue', 'value', 'amount'))
			end
		end

		-- Valores cuya unidad deba ir a la derecha, separada de un espacio
		if opciones['formato'] == 'unidad' then
			if elementoTabla(entidad, 'claims', idPropiedad, 2, 'mainsnak', 'datavalue') then
				return formatoNumero(elementoTabla(entidad, 'claims', idPropiedad, 1, 'mainsnak', 'datavalue', 'value', 'amount')) .. '&nbsp;-&nbsp;' .. numeroUnidad(elementoTabla(entidad, 'claims', idPropiedad, 2, 'mainsnak', 'datavalue'), opciones)
			else
				return numeroUnidad(elementoTabla(entidad, 'claims', idPropiedad, 1, 'mainsnak', 'datavalue'), opciones)
			end
		end

		-- Invocar a la función fallback si no se cumplen las condiciones anteriores
		opciones.entityId  = entidad.id
		opciones.propiedad = idPropiedad
		return ModuloWikidata.getPropiedad(opciones, entidad.claims[idPropiedad])
	end
end

function seccionDesplegable(frame, titulo, lista, expandir)
	if not lista then
		return
	end
	
	local expandir = desplegar or ''
	if expandir then expandir = 'sí' end
	
	return frame:preprocess('{{Sección desplegable|estilotitulo=text-align:left;background-color:#eeeeff;padding:2px 0 2px 0|estilodatos=text-align:left|título=' .. titulo .. '|datos='.. lista .. '|expandir=' .. expandir .. '}}')
end

-- Quick-and-dirty
function enlazar(frame, enlace)
	if frame:preprocess('{{#ifexist:' .. enlace .. '|1}}') == '1' then enlace = '[[' .. enlace .. ']]' end
	return enlace
end

return p