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

umsortieren von code

Browse Source
This commit is contained in:
Maximilian Wagner 2023-05-22 14:37:08 +02:00
parent f256a46663
commit e1c504b362
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
daten.pl
View File

@ -5,6 +5,12 @@ feldType(grass, 1).
feldType(mountain, 2). feldType(mountain, 2).
feldType(water, 3). feldType(water, 3).
% einheit(type, attack, defense, action multiplier, upkeep)
% der multiplier ist der angewandte faktor für boni/mali
einheit(infantry, 2, 2, 2, 1).
einheit(sniper, 3, 1, 3, 1).
einheit(motorized, 4, 3, 2, 2).
einheit(tank, 5, 5, 3, 3).
% Startpositionen der Spieler mit jeweils -1 auf die coords % Startpositionen der Spieler mit jeweils -1 auf die coords
% Damit ist die init_player universell % Damit ist die init_player universell
@ -44,3 +50,14 @@ init_feld1 :-
assert( feld(4, 2, 1) ), assert( feld(4, 2, 1) ),
assert( feld(4, 3, 1) ), assert( feld(4, 3, 1) ),
assert( feld(4, 4, 1) ). assert( feld(4, 4, 1) ).
% Initialisiert die Einheiten für die jeweiligen Spieler
init_player(Player, Type1, Type2, Type3) :-
playerStart(Player, X, Y),
% einheit(Player, Type, feldX, feldY)
Xp1 is X + 1,
Yp1 is Y + 1,
assert( einheit(Player,Type1,Xp1,Yp1) ),
assert( einheit(Player,Type2,Xp1,Y ) ),
assert( einheit(Player,Type3,X ,Yp1) ).