From 2c73fdc3d3062a161f006662344f42704dc33b67 Mon Sep 17 00:00:00 2001 From: Maximilian Wagner Date: Fri, 23 Jun 2023 14:56:33 +0200 Subject: [PATCH] Bugfixes --- logik.pl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/logik.pl b/logik.pl index 9ccca0d..51c7b13 100644 --- a/logik.pl +++ b/logik.pl @@ -10,11 +10,11 @@ assert( turn_action_points(2, 0) ). % Verhindern von "Unknown procedure" in last_turn -:- - assert( player_turn(1, -1, 0) ), +:- % player_turn(Player,Turn,Tokens) assert( player_turn(1, 0, 0) ), - assert( player_turn(2, -1, 0) ), - assert( player_turn(2, 0, 0) ). + assert( player_turn(1, -1, 0) ), + assert( player_turn(2, 0, 0) ), + assert( player_turn(2, -1, 0) ). % Verändern der Player Tokens hierüber change_player_tokens(TokensNew) :- @@ -205,14 +205,14 @@ end_turn :- change_player_tokens(Tcalc), % Den Spieler wechseln - change_player. + change_player,!. % Gibt aus der wie vielte Turn der höchste gespeicherte ist % für den aktuellen Spieler last_turn(Turn) :- current_player(Player), - findall(X, player_turn(Player,_,X), Turns), + findall(X, player_turn(Player,X,_), Turns), max_member(Turn, Turns). last_turn(Turn) :-