catman/heutekeinkoenig
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

einheit_move agepasst

Browse Source
This commit is contained in:
Maximilian Wagner 2023-05-22 16:52:31 +02:00
parent 2d1547d458
commit af87235c01
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
logik.pl
View File

@ -19,18 +19,15 @@ player_turn(Player) :-
% Bewegt die Einheit des Spielers an position Xold, Yold % Bewegt die Einheit des Spielers an position Xold, Yold
% um Xmove, Ymove in die jeweilige Richtung % um Xmove, Ymove in die jeweilige Richtung
einheit_move(Player, Xold, Yold, Xmove, Ymove) :- einheit_move(Player, Xold, Yold, Xnew, Ynew) :-
% Die Einheit entfernen % Die Einheit entfernen
retract( einheit_active(Player, Type, Xold, Yold) ), 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 % Die Einheit an die neue Position setzen
assert( einheit_active(Player, Type, Xnew, Ynew) ), assert( einheit_active(Player, Type, Xnew, Ynew) ),
% Errechnen der verbleibenden Tokens % Errechnen der verbleibenden Tokens
retract( player_tokens(Player, 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) ). assert( player_tokens(Player, TokensNew) ).