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

print info after turn and spielfeld

Browse Source
This commit is contained in:
xxsoca 2023-06-25 13:23:03 +02:00
parent 667fcc418b
commit 0aabfbde7c
2 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
daten.pl
View File

@ -48,7 +48,7 @@ player_color(2, white).
% Erschafft ein festes Spielfeld % Erschafft ein festes Spielfeld
init_feld1 :- init_feld1 :-
% feld(X, Y, Type) % feld(X, Y, Type)
assert( feld(0, 0, 1) ), assert( feld(0, 0, 2) ),
assert( feld(0, 1, 2) ), assert( feld(0, 1, 2) ),
assert( feld(0, 2, 1) ), assert( feld(0, 2, 1) ),
assert( feld(0, 3, 1) ), assert( feld(0, 3, 1) ),
@ -57,26 +57,26 @@ init_feld1 :-
assert( feld(1, 0, 1) ), assert( feld(1, 0, 1) ),
assert( feld(1, 1, 1) ), assert( feld(1, 1, 1) ),
assert( feld(1, 2, 1) ), assert( feld(1, 2, 1) ),
assert( feld(1, 3, 1) ), assert( feld(1, 3, 3) ),
assert( feld(1, 4, 1) ), assert( feld(1, 4, 3) ),
assert( feld(2, 0, 1) ), assert( feld(2, 0, 1) ),
assert( feld(2, 1, 1) ), assert( feld(2, 1, 2) ),
assert( feld(2, 2, 3) ), assert( feld(2, 2, 3) ),
assert( feld(2, 3, 3) ), assert( feld(2, 3, 3) ),
assert( feld(2, 4, 1) ), assert( feld(2, 4, 1) ),
assert( feld(3, 0, 1) ), assert( feld(3, 0, 1) ),
assert( feld(3, 1, 1) ), assert( feld(3, 1, 3) ),
assert( feld(3, 2, 1) ), assert( feld(3, 2, 2) ),
assert( feld(3, 3, 3) ), assert( feld(3, 3, 2) ),
assert( feld(3, 4, 1) ), assert( feld(3, 4, 1) ),
assert( feld(4, 0, 1) ), assert( feld(4, 0, 3) ),
assert( feld(4, 1, 1) ), assert( feld(4, 1, 3) ),
assert( feld(4, 2, 1) ), assert( feld(4, 2, 1) ),
assert( feld(4, 3, 1) ), assert( feld(4, 3, 1) ),
assert( feld(4, 4, 3) ). assert( feld(4, 4, 1) ).
% Setzt das Spielfeld sowie die zugewiesenen einheiten zurück % Setzt das Spielfeld sowie die zugewiesenen einheiten zurück
@ -141,9 +141,9 @@ print_info(Type,X,Y,HP) :-
print_unit(X,Y) :- print_unit(X,Y) :-
write("X/Y: "), write("X/Y: "),
write(X), write(Y),
write(":"), write(":"),
write(Y). write(X).
print_player(Player) :- print_player(Player) :-
write("## Player "), write("## Player "),
@ -159,6 +159,7 @@ print_player(Player) :-
write(T). write(T).
print_player1 :- print_player1 :-
nl,
print_player(1). print_player(1).
print_player2 :- print_player2 :-

2
gui.pl
View File

@ -309,11 +309,13 @@ process_move_unit(FromX, FromY, ToX, ToY, Controls) :-
), ),
update_controls, update_controls,
info_all,
spielfeld. spielfeld.
process_end_turn :- process_end_turn :-
end_turn, end_turn,
update_controls, update_controls,
info_all,
spielfeld. spielfeld.
game_over_gui(Winner) :- game_over_gui(Winner) :-