gui einheit_action

This commit is contained in:
xxsoca 2023-06-22 22:18:33 +02:00
parent 45fca04750
commit 5dd93bd84a

4
gui.pl
View File

@ -290,7 +290,6 @@ update_controls :-
process_move_unit(FromX, FromY, ToX, ToY, Controls) :- process_move_unit(FromX, FromY, ToX, ToY, Controls) :-
game_control(Controls), game_control(Controls),
get(FromX, selection, FX), get(FromX, selection, FX),
get(FromY, selection, FY), get(FromY, selection, FY),
@ -301,7 +300,8 @@ process_move_unit(FromX, FromY, ToX, ToY, Controls) :-
atom_number(FY, FY2), atom_number(FY, FY2),
atom_number(TX, TX2), atom_number(TX, TX2),
atom_number(TY, TY2), atom_number(TY, TY2),
einheit_move(FX2, FY2, TX2, TY2),
einheit_action(FX2, FY2, TX2, TY2),
update_controls, update_controls,
spielfeld. spielfeld.