skip(Board, X, Y, Board) :-
X = n,
Y = n.

makemoves(_,NewBoard,0,[],NewBoard).
makemoves(Color, Board, N, [(Color, X, Y)|Moves], NewBoard) :-
	(
	legalmove(Color, Board, _, _) ->
		makemove(Color, Board, X, Y, BoardAfterMove)
		;
		skip(X, Y, BoardAfterMove)
	),
	flipToken(Color, OpponentColor),
	NewN is N-1,
	makemoves(OpponentColor, BoardAfterMove, NewN, Moves, NewBoard).