From af87235c01cb90e98bee9c20e49ca53e95f5eaaa Mon Sep 17 00:00:00 2001 From: Maximilian Wagner Date: Mon, 22 May 2023 16:52:31 +0200 Subject: [PATCH] einheit_move agepasst --- logik.pl | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/logik.pl b/logik.pl index 0682deb..460ca69 100644 --- a/logik.pl +++ b/logik.pl @@ -19,18 +19,15 @@ player_turn(Player) :- % Bewegt die Einheit des Spielers an position Xold, Yold % um Xmove, Ymove in die jeweilige Richtung -einheit_move(Player, Xold, Yold, Xmove, Ymove) :- +einheit_move(Player, Xold, Yold, Xnew, Ynew) :- % Die Einheit entfernen retract( einheit_active(Player, Type, Xold, Yold) ), - % Neue position berechnen - Xnew is Xold + Xmove, - Ynew is Yold + Ymove, - % Die Einheit an die neue Position setzen assert( einheit_active(Player, Type, Xnew, Ynew) ), % Errechnen der verbleibenden Tokens retract( player_tokens(Player, Tokens) ), - TokensNew is Tokens - Xmove - Ymove, + % die berechnung muss noch mal angeschaut werden + TokensNew is Tokens - (Xold - Xnew) - (Xold - Ynew), assert( player_tokens(Player, TokensNew) ). \ No newline at end of file