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

angepasste einheit_move

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

7
logik.pl
View File

@ -28,4 +28,9 @@ einheit_move(Player, Xold, Yold, Xmove, Ymove) :-
Ynew is Yold + Ymove, 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
retract( player_tokens(Player, Tokens) ),
TokensNew is Tokens - Xmove - Ymove,
assert( player_tokens(Player, TokensNew) ).