diff --git a/gui.pl b/gui.pl index 9d713ec..ce1c3e4 100644 --- a/gui.pl +++ b/gui.pl @@ -280,6 +280,7 @@ show_controls(D) :- send(Controls, append, new(ToX,text_item('X:'))), 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('Zug Beenden',message(@prolog, process_end_turn))), %send(D, left, Controls), send(Controls, open), assert(game_control(Controls)). @@ -309,6 +310,12 @@ process_move_unit(FromX, FromY, ToX, ToY, Controls) :- update_controls, spielfeld. +process_end_turn :- + game_control(Controls), + end_turn, + update_controls, + spielfeld. + %TODO delete test_change :- new(D, dialog),