From bea4988138dfa89c55420269ad2c011c11ce899a Mon Sep 17 00:00:00 2001
From: Maximilian Wagner <maximilian.wagner@smail.inf.h-brs.de>
Date: Fri, 23 Jun 2023 15:00:28 +0200
Subject: [PATCH] calc_tokens bugfix

---
 logik.pl | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/logik.pl b/logik.pl
index 51c7b13..6ddc1f7 100644
--- a/logik.pl
+++ b/logik.pl
@@ -225,16 +225,15 @@ calc_tokens(Tokens) :-
 	% Aktuellen Spieler herausfinden
 	current_player(Player),
 
-	% Tokens die Pro Runde dazukommen hinzufügen
-	player_tokens(Player, Tcurrent),
+	% Tokens die Pro Runde dazukommen herausfinden
 	player_tokens_per_turn(Player,Tturn),
 
-	Tadd is Tcurrent + Tturn,
-
-	% Tokens aus der vorletzten Runde entfernen
+	% Tokens aus der letzten und vorletzten Runde holen
 	last_turn(LastTurn),
 	PreLastTurn is LastTurn - 1,
+
+	player_turn(Player, LastTurn, Tlast)
 	player_turn(Player, PreLastTurn, Tprelast),
 
 	% Neue Anzahl der Tokens ausgeben
-	Tokens is Tadd - Tprelast.
+	Tokens is Tlast + Tturn - Tprelast.