Module:Sprite

local p = {} function p.base( f ) local args = f	if f == mw.getCurrentFrame then args = require( 'Module:ProcessArgs' ).merge end local name = args.name or 'Block' local scale = args.scale or 1 local sheetWidth = ( args.sheetsize or 256 ) * scale local size = ( args.size or 16 ) * scale local pos = math.abs( args.pos or sheetWidth ) - 1 local link = args.link or '' local align = args.align or 'text-top' local tiles = sheetWidth / size local class = args.class or '' local left = pos % tiles * size local top = math.floor( pos / tiles ) * size local text = args.text or '' local css = args.css or '' local styles = {} local imgClasses = { Block = 1 }	if not imgClasses[name] then table.insert( styles, 'background-image:' ) end table.insert( styles, 'background-position:-' .. left .. 'px -' .. top .. 'px' ) if scale ~= 1 then table.insert( styles, 'background-size:' .. sheetWidth .. 'px auto' ) end if size ~= 16 then table.insert( styles, 'height:' .. size .. 'px;width:' .. size .. 'px' ) end if align ~= 'text-top' then table.insert( styles, 'vertical-align:' .. align ) end if css ~= '' then table.insert( styles, css ) end local sprite = table.concat( {		' '	}, ' ' ) sprite = sprite:gsub( '%s([">])', '%1' )	if text ~=  then		text = ' ' .. text .. ' '	end	if link ~=  then		if link:find( '//' ) then			-- External link			return '[' .. link .. ' ' .. sprite .. text .. ']'		else			-- Internal link			return  .. sprite .. text .. 		end	else		return sprite .. text	end end

function p.sprite( f ) local args = f	if f == mw.getCurrentFrame then args = require( 'Module:ProcessArgs' ).merge end if tonumber( args[1] ) then args.pos = args[1] else local ids = mw.loadData( 'Module:Sprite/' .. args.name ) local name = mw.text.trim( args[1] or '' ) args.pos = ids[name] or ids[name:lower:gsub( '%s', '-' )] end return p.base( args ) end

function p.link( f ) local args = f	if f == mw.getCurrentFrame then args = require( 'Module:ProcessArgs' ).merge end local link = mw.text.split( args[1] or '', '%-' )[1] local text = args[2] or link args[1] = args.id or args[1] or '' args.link = link args.text = text return p.sprite( args ) end

function p.doc( f ) local args = f.args args.name = args.name or 'Block' local idTable = mw.title.new( 'Module:Sprite/' .. args.name ):getContent idTable = idTable:gsub( '(\n%s*%-%-%s*.-%s*%-%-%s*\n)', '%1,' ):gsub( '^return {',  ):gsub( '}$',  ) local html = {} local names = {} local idKeys = {} local section = '' for line in mw.text.gsplit( idTable, ',' ) do		line = mw.text.trim( line ) name = line:match( '^%[[\'"](.+)[\'"]%]' ) or line:match( '^%w+' ) or 		id = line:match( '=%s*(%d+)%s*,?$' ) or 		section = line:match( '^%-%-%s*(.+)%s*%-%-$' ) or section		if name ~=  and id ~=  then			if names[id] then				if type( names[id].names ) == 'table' then					table.insert( names[id].names, name )				else					names[id].names = { names[id].names, name }				end			else				names[id] = { names = name, section = section }				table.insert( idKeys, id )			end		end	end	local list = {}	local listHead = ''	local listFoot = ''	local lastSection = 	for i, id in ipairs( idKeys ) do		local name = names[id].names		local newSection = mw.text.trim( names[id].section )		if newSection ~= lastSection or i == 1 then			if newSection ~= lastSection then				if lastSection ~=  then					table.insert( list, listFoot )				end				table.insert( list, '\n===' .. newSection .. '===\n' )				lastSection = newSection			end			table.insert( list, listHead )		end		table.insert( list, ' ' )				else					table.insert( list, ' ' )				end			end		else			args[1] = name			table.insert( list, p.sprite( args ) .. ' ' )		end		table.insert( list, '   ' )		if i == #idKeys then			table.insert( list, listFoot )		end	end	return table.concat( list ) end return p