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

Out of Bounds check eingefügt

Browse Source
This commit is contained in:
Maximilian Wagner 2023-06-25 10:53:38 +02:00
parent 37bd971723
commit 667fcc418b
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
logik.pl
View File

@ -96,6 +96,9 @@ einheit_attack(Xattack, Yattack, Xdefend, Ydefend) :-
einheit_active(Player, TypeAttack, Xattack, Yattack, _), einheit_active(Player, TypeAttack, Xattack, Yattack, _),
einheit_active(PlayerDefend, TypeDefend, Xdefend, Ydefend, HP), einheit_active(PlayerDefend, TypeDefend, Xdefend, Ydefend, HP),
% Friendly Fire verhindern
\+ Player = PlayerDefend,
% Info für Einheiten-Typen abrufen % Info für Einheiten-Typen abrufen
einheit(TypeAttack, AP, _, _, _, _), einheit(TypeAttack, AP, _, _, _, _),
einheit(TypeDefend, _, _, MultDef, _, _), einheit(TypeDefend, _, _, MultDef, _, _),
@ -128,6 +131,10 @@ einheit_attack(Xattack, Yattack, Xdefend, Ydefend) :-
% Lässt eine Einheit bewegen, oder wenn der Platz schon belegt ist, angreifen % Lässt eine Einheit bewegen, oder wenn der Platz schon belegt ist, angreifen
% Der Zug wird danach automatisch beendet % Der Zug wird danach automatisch beendet
einheit_action(Xold, Yold, Xnew, Ynew) :- einheit_action(Xold, Yold, Xnew, Ynew) :-
% Sicher gehen, dass nichts out of bounds geht
Xnew > -1, Xnew < 5,
Ynew > -1, Ynew < 5,
( % Bewege Einheit oder greife damit an, falls möglich ( % Bewege Einheit oder greife damit an, falls möglich
einheit_move(Yold, Xold, Ynew, Xnew), einheit_move(Yold, Xold, Ynew, Xnew),
!; !;