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

player init berechnet tokens pro runde

Browse Source
This commit is contained in:
Maximilian Wagner 2023-05-22 15:10:00 +02:00
parent 0aeac20b46
commit 6966a43454
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
daten.pl
View File

@ -17,6 +17,9 @@ einheit(tank, 5, 5, 3, 3).
playerStart(1, -1, -1).
playerStart(2, 3, 3).
% Die Anzahl an tokens die pro Runde an die Spieler verteilt wird
player_tokens(10).
% Erschafft ein festes Spielfeld
init_feld1 :-
@ -68,4 +71,13 @@ init_player(Player, Type1, Type2, Type3) :-
% enemy(Player, Einheit Type, feldX, feldY)
assert( enemy(Player,Type1,Xp1,Yp1) ),
assert( enemy(Player,Type2,Xp1,Y ) ),
assert( enemy(Player,Type3,X ,Yp1) ).
assert( enemy(Player,Type3,X ,Yp1) ),
% Berechnet die zustehenden Tokens pro Runde für den Spieler
einheit(Type1, _,_,_, Cost1),
einheit(Type2, _,_,_, Cost2),
einheit(Type3, _,_,_, Cost3),
player_tokens(Tokens),
Cost is Tokens - (Cost1 + Cost2 + Cost3),
assert( player_tokens(Player, Cost) ).