Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- /* --------------------------------------------------------------------- */
- 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.
- /* --------------------------------------------------------------------- */
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement