From 99f9e41d535776132dfae7a70d6f9116b72e4b45 Mon Sep 17 00:00:00 2001 From: Maximilian Wagner Date: Mon, 12 Jun 2023 14:58:39 +0200 Subject: [PATCH] Verschieben des change_player Zeugs runter zu end_turn weils nur da benutzt wird. --- logik.pl | 43 ++++++++++++++++++++++--------------------- 1 file changed, 22 insertions(+), 21 deletions(-) diff --git a/logik.pl b/logik.pl index e436277..e694d0d 100644 --- a/logik.pl +++ b/logik.pl @@ -9,27 +9,6 @@ assert( turn_action_points(1, 0) ), assert( turn_action_points(2, 0) ). -% Aktualisieren des aktuellen Spielers geht hiermit -change_player_to(Player) :- - retract( current_player(_X) ), - assert( current_player(Player) ). - - -% Ein Spieler ist entweder current_player oder inactive_player -% je nach dem ob dieser gerade am Zug ist oder nicht -inactive_player(Player) :- - current_player(Player1), - player(Player1), - player(Player), - Player1 \= Player. - -% Das hier muss an jedem Rundenende ausgeführt werden um den -% aktuellen Spieler zu wechseln -change_player :- - inactive_player(Player), - change_player_to(Player), - !. - % Verändern der Player Tokens hierüber change_player_tokens(TokensNew) :- @@ -143,6 +122,28 @@ get_color_of_fieldType(FieldTypeInt, Color) :- feldType(_, FieldTypeInt, Color). +% Aktualisieren des aktuellen Spielers geht hiermit +change_player_to(Player) :- + retract( current_player(_X) ), + assert( current_player(Player) ). + + +% Ein Spieler ist entweder current_player oder inactive_player +% je nach dem ob dieser gerade am Zug ist oder nicht +inactive_player(Player) :- + current_player(Player1), + player(Player1), + player(Player), + Player1 \= Player. + +% Das hier muss an jedem Rundenende ausgeführt werden um den +% aktuellen Spieler zu wechseln +change_player :- + inactive_player(Player), + change_player_to(Player), + !. + + % Beendet den Aktuellen Zug des Spielers end_turn :- % Die verbleibenden Tokens als Turn Speichern