cc.lua

-- cc

-- local log = require 'log'

local CC = {}

local proneError = 'Cannot move a face down card'

local ordStr2English = {
	A = 'an Ace',
	['2'] = 'a Two',
	['3'] = 'a Three',
	['4'] = 'a Four',
	['5'] = 'a Five',
	['6'] = 'a Six',
	['7'] = 'a Seven',
	['8'] = 'an Eight',
	['9'] = 'a Nine',
	['10'] = 'a Ten',
	J = 'a Jack',
	Q = 'a Queen',
	K = 'a King',
}

function CC.EitherProne(cpair)
	return cpair[1].prone or cpair[2].prone
end

function CC.Empty(pile, card)
	if card.prone then return proneError end
	if pile.label then
		if pile.label == 'X' then
			return 'Cannot move cards there'
		end
		local ordStr = _G.ORD2STRING[card.ord]
		if pile.label ~= ordStr then
			return string.format('Can only accept %s, not %s', ordStr2English[pile.label], ordStr2English[ordStr])
		end
	end
	return nil
end

function CC.None(cpair)
	if CC.EitherProne(cpair) then return proneError end
	return 'No'
end

function CC.Any(cpair)
	if CC.EitherProne(cpair) then return proneError end
	return nil
end

function CC.Up(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].ord + 1 ~= cpair[2].ord then
		return 'Cards must be in ascending sequence'
	end
	return nil
end

function CC.Down(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].ord ~= cpair[2].ord + 1 then
		return 'Cards must be in descending sequence'
	end
	return nil
end

function CC.UpOrDownWrap(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].ord == 13 and cpair[2].ord == 1 then
		return nil
	elseif cpair[1].ord == 1 and cpair[2].ord == 13 then
		return nil
	elseif cpair[1].ord == cpair[2].ord + 1 then
		return nil	-- eg 4 on 3
	elseif cpair[1].ord + 1 == cpair[2].ord then
		return nil	-- eg 3 on 4
	else
		return 'Cards must be up or down (Aces on Kings allowed)'
	end
end

function CC.UpOrDownSuitWrap(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].suit ~= cpair[2].suit then
		return 'Must be the same suit'
	end
	return CC.UpOrDownWrap(cpair)
end

function CC.UpOrDown(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].ord == cpair[2].ord + 1 then
		return nil	-- eg 4 on 3
	elseif cpair[1].ord + 1 == cpair[2].ord then
		return nil	-- eg 3 on 4
	else
		return 'Cards must be up or down'
	end
end

function CC.UpOrDownSuit(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].suit ~= cpair[2].suit then
		return 'Cards must be the same suit'
	end
	return CC.UpOrDown(cpair)
end

function CC.UpSuit(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].suit ~= cpair[2].suit then
		return 'Cards must be the same suit'
	end
	return CC.Up(cpair)
end

function CC.UpSuitTwo(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].suit ~= cpair[2].suit then
		return 'Cards must be the same suit'
	end
	if cpair[1].ord + 2 ~= cpair[2].ord then
		return 'Cards must be up by two'
	end
	return nil
end

function CC.UpSuitTwoWrap(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].suit ~= cpair[2].suit then
		return 'Cards must be the same suit'
	end
	if cpair[1].ord == 12 and cpair[2].ord == 1 then
	elseif cpair[1].ord == 13 and cpair[2].ord == 2 then
	elseif cpair[1].ord + 2 ~= cpair[2].ord then
		return 'Cards must be up by two'
	end
	return nil
end

function CC.UpSuitWrap(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].suit ~= cpair[2].suit then
		return 'Cards must all be the same suit'
	end
	if cpair[1].ord == 13 and cpair[2].ord == 1 then
		-- Ace on King
	elseif cpair[1].ord == cpair[2].ord - 1 then
		-- up, eg 3 on a 2
	else
		return 'Cards must go up in rank (Aces on Kings allowed)'
	end
	return nil
end

function CC.DownSuit(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].suit ~= cpair[2].suit then
		return 'Cards must be the same suit'
	end
	return CC.Down(cpair)
end

function CC.DownSuitTwo(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].suit ~= cpair[2].suit then
		return 'Cards must be the same suit'
	end
	if cpair[1].ord ~= cpair[2].ord + 2 then
		return 'Cards must be down by two'
	end
	return nil
end

function CC.DownSuitWrap(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].suit ~= cpair[2].suit then
		return 'Cards must be the same suit'
	end
	if cpair[1].ord == 1 and cpair[2].ord == 13 then
		-- King on Ace
	elseif cpair[1].ord - 1 == cpair[2].ord then
		-- down, eg 2 on a 3
	else
		return 'Cards must go down in rank (Kings on Aces allowed)'
	end
	return nil
end

function CC.DownColor(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].twoColor ~= cpair[2].twoColor then
		return 'Cards must be the same color'
	end
	return CC.Down(cpair)
end

function CC.DownColorWrap(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].twoColor ~= cpair[2].twoColor then
		return 'Cards must be the same color'
	end
	if cpair[1].ord == 1 and cpair[2].ord == 13 then
		-- King on Ace
	elseif cpair[1].ord ~= cpair[2].ord + 1 then
		return 'Cards must go down in rank (Kings on Aces allowed)'
	end
	return nil
end

function CC.UpAltColor(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].twoColor == cpair[2].twoColor then
		return 'Cards must be in alternating colors'
	end
	return CC.Up(cpair)
end

function CC.DownAltColor(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].twoColor == cpair[2].twoColor then
		return 'Cards must be in alternating colors'
	end
	return CC.Down(cpair)
end

function CC.DownAltSuit(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].suit == cpair[2].suit then
		return 'Cards must have different suits'
	end
	return CC.Down(cpair)
end

function CC.DownWrap(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].ord == 1 and cpair[2].ord == 13 then
		-- King on Ace
	elseif cpair[1].ord ~= cpair[2].ord + 1 then
		return 'Cards must go down in rank (Kings on Aces allowed)'
	end
	return nil
end

function CC.DownAltColorWrap(cpair)
	if CC.EitherProne(cpair) then return proneError end
	if cpair[1].twoColor == cpair[2].twoColor then
		return 'Cards must be in alternating colors'
	end
	if cpair[1].ord == 1 and cpair[2].ord == 13 then
		-- King on Ace
	elseif cpair[1].ord ~= cpair[2].ord + 1 then
		return 'Cards must go down in rank (Kings on Aces allowed)'
	end
	return nil
end

function CC.Accordian(cpair)

	local function getPileIdx(pile)
		for i, p in ipairs(_G.BAIZE.piles) do
			if p == pile then
				return i
			end
		end
		return -1
	end

	if not ((cpair[1].ord == cpair[2].ord) or (cpair[1].suit == cpair[2].suit)) then
		return 'Cards must be the same rank or suit'
	end
	local p1x = getPileIdx(cpair[1].parent)
	local p2x = getPileIdx(cpair[2].parent)
	-- log.trace(p1x, p2x)
	if (p1x + 1 == p2x) or (p1x + 3 == p2x) then
		return nil
	end
	return 'A card can be moved on top of another card immediately to its left or three cards to its left'
end

function CC.Thirteen(cpair)
	if CC.EitherProne(cpair) then return proneError end
	local sum = cpair[1].ord + cpair[2].ord
	if sum ~= 13 then
		return string.format('The cards must add up to 13, not %d', sum)
	end
	return nil
end

return CC