umsortieren von code

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) ).