/* --------------------------------------------------------------------- */

display_info():-
    nl,
    write('Move (1:up, 2:right, 3:down, 4:left): ').

display_new_coords():-
    write(' New coords: ['),
    write(X2_new),
    write(', '),
    write(Y2_new),
    write(']'),
    nl.

get_destination_coords(X1, Y1, X2, Y2, Board):-
    get_cell(X1, Y1, Board, MovesCounter),
    X2 is X1,
    write('X1: '), write(X1), nl,
    Y2 is Y1,
    write('Y1: '), write(Y1), nl,
    write_info().
    read_move(X2, X2_new, Y2, Y2_new, MovesCounter),
    write('newX: '), write(X2_new), nl,
    write('newY: '), write(Y2_new), nl.


read_move(X2, X2_new, Y2, Y2_new, MovesCounter):-
    nl, read(Move),
    increment_coords(X2, Y2, X2_new, Y2_new, MovesCounter, Move),
    write_new_coords().
    /*
    for(I,1,MovesCounter),param(MovesCounter) do
        MovesCounter_new is MovesCounter-I+1,
        nl, write('Moves left: '), write(MovesCounter_new), nl,
        nl, read(Move),
        increment_coords(X2, X2_new_2, Y2, Y2_new_2, I, Move),
        X2_new is X2_new_2,
        Y2_new is Y2_new_2,
        write(' New coords: ['), write(X2_new), write(', '), write(Y2_new), write(']'), nl.
    */

/* UP */
increment_coords(X2, Y2, X2_new, Y2_new, MovesCounter, Move):-
    Move =:= 1,
    write('olaa'),
    X2_new is X2-1,
    write('olaa'),
    X2_new >= 0,
    Y2_new is Y2,
    nl, write('Move made: Up.').
/* LEFT */
increment_coords(X2, Y2, X2_new, Y2_new, MovesCounter, Move):-
    Move =:= 2,
    X2_new is X2,
    Y2_new is Y2+1,
    Y2_new < 8,
    nl, write('Move made: Left.').
/* DOWN */
increment_coords(X2, Y2, X2_new, Y2_new, MovesCounter, Move):-
    Move =:= 3,
    X2_new is X2+1,
    X2_new < 8,
    Y2_new is Y2,
    nl, write('Move made: Down.').
/* RIGHT */
increment_coords(X2, Y2, X2_new, Y2_new, MovesCounter, Move):-
    Move =:= 4,
    X2_new is X2,
    Y2_new is Y2-1,
    Y2_new >= 0,
    nl, write('Move made: Right.').
/* DEFAULT */
increment_coords(X2, Y2, X2_new, Y2_new, MovesCounter, Move):-
    nl,
    write('Move invalid! Try again!'),
    nl,
    MovesCounter is MovesCounter+1.

/* --------------------------------------------------------------------- */