Agregar la posibilidad de terminar el juego cuando se acaben las fichas

Azul/tiles.pl

@@ -44,13 +44,26 @@
     retract(bag(B)),
     assert(bag(BR)).
 
-% Build a factory in factory(I, [ F1, F2, F3, F4]).
+% Build a factory in factory(I, [ F1, F2, F3, F4]) of with less tiles.
+buildFact(_, []) :-
+    bag([]),
+    !.
+buildFact(FactId, Bag) :-
+    bag(Bag),
+    length(Bag, L),
+    L < 4,
+    L > 0,
+    assert(factory(FactId, Bag)),
+    retract(bag(Bag)),
+    assert(bag([])),
+    !.
 buildFact(I, [F1, F2, F3, F4]) :-
     getTile(F1),
     getTile(F2),
     getTile(F3),
     getTile(F4),
-    assert(factory(I, [F1, F2, F3, F4])).
+    assert(factory(I, [F1, F2, F3, F4])),
+    !.
 
 % Build N factories
 buildFacts(0) :- !.

game.pl

@@ -44,7 +44,7 @@
 toBuildFacts(4, 9).
 
 % Start Azul Round with N players
-startAzulRound(_) :-
+startAzulRound(_) :- % Someone have a row in the wall completed
     findall(
         PlayerId, 
         (
@@ -58,7 +58,11 @@
     length(Enders, Len),
     Len =\= 0,
     Enders=[First|_],
-    format("El juego termina pues los jugadores ~a han completado una fila~n", [First]),
+    format("El juego termina pues el jugador ~a ha completado una fila.~n", [First]),
+    !.
+startAzulRound(_) :- % The bag is empty so no more rounds are posible
+    bag([]),
+    format("El juego termina pues se han acabado las fichas.~n", _),
     !.
 startAzulRound(CantPlayers) :-
     format("Empezando Nueva Ronda: ~n",_),