From 2d1547d4582ebc79d0987d73a92afd82bb98b3f1 Mon Sep 17 00:00:00 2001
From: Maximilian Wagner <maximilian.wagner@smail.inf.h-brs.de>
Date: Mon, 22 May 2023 16:37:59 +0200
Subject: [PATCH] angepasste einheit_move

---
 logik.pl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/logik.pl b/logik.pl
index b705f30..0682deb 100644
--- a/logik.pl
+++ b/logik.pl
@@ -28,4 +28,9 @@ einheit_move(Player, Xold, Yold, Xmove, Ymove) :-
 	Ynew is Yold + Ymove,
 
 	% Die Einheit an die neue Position setzen
-	assert( einheit_active(Player, Type, Xnew, Ynew) ).
\ No newline at end of file
+	assert( einheit_active(Player, Type, Xnew, Ynew) ),
+
+	% Errechnen der verbleibenden Tokens
+	retract( player_tokens(Player, Tokens) ),
+	TokensNew is Tokens - Xmove - Ymove,
+	assert( player_tokens(Player, TokensNew) ).
\ No newline at end of file