From 7c36d45b841bfb2c1c07a77913eb4d37f1241c90 Mon Sep 17 00:00:00 2001
From: Maximilian Wagner <maximilian.wagner@smail.inf.h-brs.de>
Date: Sun, 25 Jun 2023 10:03:20 +0200
Subject: [PATCH] =?UTF-8?q?Feld-Multiplier=20hinzugef=C3=BCgt=20sowie=20in?=
 =?UTF-8?q?fo/0=20und=20info=5Fall/0=20erstellt=20mit=20Code=20aus=20debug?=
 =?UTF-8?q?.pl?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 daten.pl | 64 +++++++++++++++++++++++++++++++++++++++++++++++++++++++-
 logik.pl | 12 +++++++++--
 2 files changed, 73 insertions(+), 3 deletions(-)

diff --git a/daten.pl b/daten.pl
index 8cb904b..1cae00e 100644
--- a/daten.pl
+++ b/daten.pl
@@ -8,6 +8,20 @@ feldType(grass, 1, green).
 feldType(mountain, 2, grey).
 feldType(water, 3, blue).
 
+% Terrain-Multiplier für Attack
+% feldMultiplier(von, nach, mult)
+feldMultiplier(1, 1, 1.0).
+feldMultiplier(1, 2, 0.5).
+feldMultiplier(1, 3, 1.5).
+
+feldMultiplier(2, 1, 1.5).
+feldMultiplier(2, 2, 1.0).
+feldMultiplier(2, 3, 0.5).
+
+feldMultiplier(3, 1, 1.5).
+feldMultiplier(3, 2, 0.5).
+feldMultiplier(3, 3, 1.0).
+
 % einheit(type, attack, defense, action multiplier, upkeep, symbol)
 % der multiplier ist der angewandte faktor für boni/mali
 einheit(infantry, 2, 2, 2, 1, i).
@@ -111,4 +125,52 @@ init_player2(Type1, Type2, Type3) :-
 	% einheit_active(Player, Einheit Type, feldX, feldY)
 	assert( einheit_active(Player,Type1,4,4,Defense_Points1) ),
 	assert( einheit_active(Player,Type2,4,3,Defense_Points2) ),
-	assert( einheit_active(Player,Type3,3,4,Defense_Points3) ).
\ No newline at end of file
+	assert( einheit_active(Player,Type3,3,4,Defense_Points3) ).
+
+
+% Zur Ausgabe von Infos, falls die Spieler das benötigen
+print_info(Type,X,Y,HP) :-
+	write("-------"),nl,
+	write("Type: "),
+	write(Type), nl,
+
+	print_unit(X,Y), nl,
+
+	write("HP: "),
+	write(HP),nl.
+
+print_unit(X,Y) :-
+	write("X/Y: "),
+	write(X),
+	write(":"),
+	write(Y).
+
+print_player(Player) :-
+	write("## Player "),
+	write(Player),
+	write(" ##"), nl,
+	forall(einheit_active(Player,Type,X,Y,HP), 
+		print_info(Type,X,Y,HP)),
+
+	write("-------"), nl,
+
+	write("Tokens: "),
+	player_tokens(Player,T),
+	write(T).
+
+print_player1 :-
+	print_player(1).
+
+print_player2 :-
+	print_player(2).
+
+% Gibt Infos für den aktuellen Spieler aus
+info :-
+	current_player(Player),
+	print_player(Player).
+
+% Gibt Infos für beide Spieler aus
+info_all :-
+	print_player1,
+	nl, nl, write("=========="), nl, nl,
+	print_player2.
diff --git a/logik.pl b/logik.pl
index 4340e37..2185b47 100644
--- a/logik.pl
+++ b/logik.pl
@@ -2,7 +2,7 @@
 
 % Der aktuelle Spieler wird hiermit gesetzt damit das später
 % nicht bei jedem Aufruf angegeben werden muss
-:- assert( current_player(1) ). % das muss so weil sonst err
+:- assert( current_player(1) ).
 
 % Damit vorherige action points (=0) auch in der ersten Runde exisiteren, sonst err
 :- 
@@ -100,10 +100,18 @@ einheit_attack(Xattack, Yattack, Xdefend, Ydefend) :-
 	einheit(TypeAttack, AP, _, _, _, _),
 	einheit(TypeDefend, _, _, MultDef, _, _),
 
+	% Mutliplikator für Angriff ermitteln
+	feld(Xattack, Yattack, Von),
+	feld(Xdefend, Ydefend, Nach),
+	feldMultiplier(Von, Nach, MultAP),
+
+	% Finale AP berechnen
+	APmitMult is AP * MultAP,
+
 	% Den Kampf durchführen
 	(
 		(% Entweder die Einheit überlebt
-			einheit_alive(AP, HP, HPnew, MultDef),
+			einheit_alive(APmitMult, HP, HPnew, MultDef),
 			retract( einheit_active(PlayerDefend, TypeDefend, 
 										Xdefend, Ydefend, HP) ),
 			assert( einheit_active(PlayerDefend, TypeDefend,