diff --git a/daten.pl b/daten.pl index 216509c..fa6997b 100644 --- a/daten.pl +++ b/daten.pl @@ -5,6 +5,12 @@ feldType(grass, 1). feldType(mountain, 2). 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 % Damit ist die init_player universell @@ -44,3 +50,14 @@ init_feld1 :- assert( feld(4, 2, 1) ), assert( feld(4, 3, 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) ).