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

End Turn Button

Browse Source
This commit is contained in:
xxsoca 2023-06-23 14:35:26 +02:00
parent 8d3e099a36
commit dfaa03b5df
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gui.pl
View File

@ -280,6 +280,7 @@ show_controls(D) :-
send(Controls, append, new(ToX,text_item('X:'))), send(Controls, append, new(ToX,text_item('X:'))),
send(Controls, append, new(ToY,text_item('Y:'))), send(Controls, append, new(ToY,text_item('Y:'))),
send(Controls, append, button('Bestaetigen',message(@prolog, process_move_unit, FromX, FromY, ToX, ToY, Controls))), send(Controls, append, button('Bestaetigen',message(@prolog, process_move_unit, FromX, FromY, ToX, ToY, Controls))),
send(Controls, append, button('Zug Beenden',message(@prolog, process_end_turn))),
%send(D, left, Controls), %send(D, left, Controls),
send(Controls, open), send(Controls, open),
assert(game_control(Controls)). assert(game_control(Controls)).
@ -309,6 +310,12 @@ process_move_unit(FromX, FromY, ToX, ToY, Controls) :-
update_controls, update_controls,
spielfeld. spielfeld.
process_end_turn :-
game_control(Controls),
end_turn,
update_controls,
spielfeld.
%TODO delete %TODO delete
test_change :- test_change :-
new(D, dialog), new(D, dialog),