Game Over check hinzugefügt

logik.pl

@@ -144,6 +144,16 @@ change_player :-
 	!.
 
 
+% Falls das Spiel vorbei ist, mach nix
+end_turn :-
+	game_over,
+	write("Game Over!"), nl,
+
+	inactive_player(Winner),
+	write("Player "),
+	write(Winner), 
+	write(" wins!").
+
 % Beendet den Aktuellen Zug des Spielers
 end_turn :-
 	% Die verbleibenden Tokens als Turn Speichern
@@ -187,4 +197,10 @@ calc_tokens(Tokens) :-
 	player_turn(Player, PreLastTurn, Tprelast),
 
 	% Neue Anzahl der Tokens ausgeben
-	Tokens is Tadd - Tprelast.
+	Tokens is Tadd - Tprelast.
+
+
+% game_over ist true wenn das game over ist - surprise surprise
+game_over :-
+	current_player(Player),
+	\+ einheit_active(Player,_,_,_,_).