--

-- This module implements

-- {{NBA color cell}}, {{NBA color cell2}}

-- {{Euroleague color}}, {{Euroleague color cell}}, {{Euroleague color cell2}}, 

-- {{NBL colour}}, {{NBL colour cell}}, {{NBL colour cell2}},

-- {{PBA color}}, {{PBA color cell}}, {{PBA color cell2}},

-- {{European leagues color}}, {{European leagues color cell}}, {{European leagues color cell2}},

-- {{KBL color}}, {{KBL color cell}}, {{KBL color cell2}}

--

-- {{Baseball color}}, {{Baseball secondary color}}, 

-- {{Baseball primary style}}, {{Baseball secondary style}}

--

local p = {}



local data_module = 'Module:Sports color/basketball'



local function stripwhitespace(text)

	return text:match("^%s*(.-)%s*$")

end



local function bordercss(c, w)

	local s = 'inset ' .. w .. 'px ' .. w .. 'px 0 #' .. c 

		.. ', inset -' .. w .. 'px -' .. w .. 'px 0 #' .. c

	return 'box-shadow: ' .. s .. ';'

end



local function get_colors(team, unknown)

	team = stripwhitespace(team or '')

	unknown = unknown or {"DCDCDC", "000000", "000000", "FFFFFF"}

	

	local use_default = {

		"" = 1,

		"retired" = 1,

		"free agent" = 1,

	}

	

	local colors = nil

	

	if ( team and use_defaultteam:lower()] ) then

		colors = {"DCDCDC", "000000", "DCDCDC", "000000"}

	else

		local all_colors = mw.loadData(data_module .. '/sandbox')

		colors = all_colorsteam

		if ( colors and type(colors) == 'string' ) then

			colors = all_colorscolors

		end

	end



	return colors or unknown

end



local function team_check(team, unknown)

	local colors = get_colors(team, unknown)

	if type(colors) == 'table' then

		return 'known'

	else

		return unknown

	end

end



local function team_color(team, num)

	local colors = get_colors(team, nil)



	num = tonumber(num:match('[1-4]') or '0')

	if ( num ) then

		return colorsnum

	else

		return ''

	end

end



local function team_colorcell(team, borderwidth, bg, fg, bd, simple)

	local colors = get_colors(team, nil)

	local border = ''

	borderwidth = borderwidth or ''

	

	if (borderwidth ~= '') then

		local bordercolor = stripwhitespace(colorsbd]) or 'FFFFFF'

		if bordercolor ~= 'FFFFFF' then

			if simple then

				border = 'border: ' .. borderwidth .. 'px solid #' .. bordercolor .. ';'

			else

				border = bordercss(bordercolor, borderwidth)

			end

		end

	end

	

	return 'background-color: #' .. stripwhitespace(colorsbg]) .. '; color: #' .. stripwhitespace(colorsfg]) .. '; ' .. border

end



local function team_titlestripe(team, topc, botc, borderwidth)

	local colors = get_colors(team, nil)

	local border = ''

	borderwidth = borderwidth or ''



	if (borderwidth ~= '') then

		local bordercolor = stripwhitespace(colorstopc]) or 'FFFFFF'

		if bordercolor ~= 'FFFFFF' then

			border = border .. 'border-top: ' .. borderwidth .. 'px solid #' .. bordercolor .. ';'

		end

		bordercolor = stripwhitespace(colorsbotc]) or bordercolor

		if bordercolor ~= 'FFFFFF' then

			border = border .. 'border-bottom: ' .. borderwidth .. 'px solid #' .. bordercolor .. ';'

		end

	end



	return 'background-color: #FFFFFF; ' .. border

end



local function team_cellborder(team, pri, sec, ter, borderwidth, simple)

	local colors = get_colors(team, nil)

	local border = ''

	borderwidth = borderwidth or ''



	if (borderwidth ~= '') then

		local bordercolor = stripwhitespace(colorspri or colorssec or colorster]) or 'FFFFFF'

		if bordercolor ~= 'FFFFFF' then

			if simple then

				border = 'border: ' .. borderwidth .. 'px solid #' .. bordercolor .. ';'

			else

				border = bordercss(bordercolor, borderwidth)

			end

		end

	end



	return 'background-color: #FFFFFF; ' .. border

end



function p.check(frame)

	local args = (frame.args1 ~= nil) and frame.args or frame:getParent().args

	data_module = 'Module:Sports color/' .. (frame.args'sport' or frame:getParent().args'sport' or 'basketball')

	return team_check(args1 or '', args2 or '')

end



function p.color(frame)

	local args = (frame.args1 ~= nil) and frame.args or frame:getParent().args

	data_module = 'Module:Sports color/' .. (frame.args'sport' or frame:getParent().args'sport' or 'basketball')

	return team_color(args1 or '', args2 or '')

end



function p.colorcell(frame)

	local args = (frame.args1 ~= nil) and frame.args or frame:getParent().args

	data_module = 'Module:Sports color/' .. (frame.args'sport' or frame:getParent().args'sport' or 'basketball')

	return team_colorcell(args1 or '', args'border' or '', 1, 2, 3, args'simple' and 1 or nil )

end



function p.colorcell2(frame)

	local args = (frame.args1 ~= nil) and frame.args or frame:getParent().args

	data_module = 'Module:Sports color/' .. (frame.args'sport' or frame:getParent().args'sport' or 'basketball')

	return team_colorcell(args1 or '', args'border' or '', 3, 4, 1, args'simple' and 1 or nil )

end



function p.titlestripe(frame)

	local args = (frame.args1 ~= nil) and frame.args or frame:getParent().args

	data_module = 'Module:Sports color/' .. (frame.args'sport' or frame:getParent().args'sport' or 'ice hockey')

	return team_titlestripe(args1 or '', 1, 3, args'width' or '5')

end



function p.cellborder(frame)

	local args = (frame.args1 ~= nil) and frame.args or frame:getParent().args

	data_module = 'Module:Sports color/' .. (frame.args'sport' or frame:getParent().args'sport' or 'ice hockey')

	return team_cellborder(args1 or '', 3, 1, 4, args'width' or '2', args'simple' and 1 or nil )

end



function p.cellborder2(frame)

	local args = (frame.args1 ~= nil) and frame.args or frame:getParent().args

	data_module = 'Module:Sports color/' .. (frame.args'sport' or frame:getParent().args'sport' or 'ice hockey')

	return team_cellborder(args1 or '', 4, 3, 1, args'width' or '2', args'simple' and 1 or nil )

end



return p