lt; 1,!, global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), edit_global_field (X1, X2, X3, X4, X5, First, X7, X8, X9) , draw_field (X1, X2, X3, X4, X5, First, X7, X8, X9),! ._ move (First, 7, 1): - scan_move (7, Pusto), Pusto lt; 1,!, global_field (X1 , X2, X3, X4, X5, X6, X7, X8, X9), edit_global_field (X1, X2, X3, X4, X5, X6, First, X8, X9), draw_field (X1, X2, X3, X4, X5 , X6, First, X8, X9),! ._ move (First, 8, 1): - scan_move (8, Pusto), Pusto lt; 1,!, global_field (X1, X2, X3, X4, X5, X6, X7 , X8, X9), edit_global_field (X1, X2, X3, X4, X5, X6, X7, First, X9), draw_field (X1, X2, X3, X4, X5, X6, X7, First, X9),!. _move (First, 9, 1): - scan_move (9, Pusto), Pusto lt; 1,!, global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), edit_global_field (X1, X2, X3, X4, X5, X6, X7, X8, First), draw_field (X1, X2, X3, X4, X5, X6, X7, X8, First),! ._ move (_, _, 0): -!. _end_game (9): - edit_global_game_end (1) ._ end_game (_). (1): -_ game_end (Endgame), Endgame=0,!, ( Your step (1-9): ), readint (Xod ), _ move (1, Xod, XodEst), XodEst gt; 0, _win (Find_win), Find_win lt; 1,!, _ field (End), scan_end_game (End), (2). (1): - global_game_end (End), End=0,!, game (1). (2): -_ game_end (Endgame), Endgame=0,!, _ move (Xod),
% write ( Computer s lead: , Xod), nl, readchar (QWERTY), _ move (2, Xod, XodEst), XodEst gt; 0, _win (Find_win), Find_win lt ; 1,!, _ field (End), scan_end_game (End), (1). (2): - global_game_end (End), End=0,!, game (2). (_): - !. (1):- draw_field (0,0,0,0,0,0,0,0,0), ( gt; Your step is the first! ), nl, nl, (1), menu. (2 ): - draw_field (0,0,0,0,0,0,0,0,0), ( gt; Your step is the second ), readchar (JKHBVJD), nl, nl, (2), menu. (_): - clearwindow, write ( gt ;! Incorrect input! Please try again. ), nl, nl, who_first () ._ first (): - ( The first step? ) , nl, nl, ( 1. You s ), nl, ( 2. Computer's ), nl, (= gt; ), readint (Select), nl, (Select). _score (): -_ score (You, Comp), ( You: ), write (You), nl, ( Computer: ), write (Comp) ._ move (1): - global_field ( X1, X2, X3, X4, X5, X6, X7, X8, X9), X2lt;gt;0,X3lt;gt;0,X4lt;gt;0,X5lt;gt;0,X6lt;gt;0,X7lt;gt;0,X8lt;gt;0,X9lt;gt;0,!._move(2):-global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X1lt;gt;0,X3lt;gt;0,X4lt;gt;0,X5lt;gt;0,X6lt;gt;0,X7lt;gt;0,X8lt;gt;0,X9lt;gt;0,!._move(3):-global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X1lt;gt;0,X2lt;gt;0,X4lt;gt;0,X5lt;gt;0,X6lt;gt;0,X7lt;gt;0,X8lt;gt;0,X9lt;gt;0,!._move(4):-global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X1lt;gt;0,X2lt;gt;0,X3lt;gt;0,X5lt;gt;0,X6lt;gt;0,X7lt;gt;0,X8lt;gt;0,X9lt;gt;0,!._move(5):-global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X1lt;gt;0,X2lt;gt;0,X3lt;gt;0,X4lt;gt;0,X6lt;gt;0,X7lt;gt;0,X8lt;gt;0,X9lt;gt;0,!._move(6):-global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X1lt;gt;0,X2lt;gt;0,X3lt;gt;0,X4lt;gt;0,X5lt;gt;0,X7lt;gt;0,X8lt;gt;0,X9lt;gt;0,!._move(7):-global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X1lt;gt;0,X2lt;gt;0,X3lt;gt;0,X4lt;gt;0,X5lt;gt;0,X6lt;gt;0,X8lt;gt;0,X9lt;gt;0,!._move(8):-global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X1lt;gt;0,X2lt;gt;0,X3lt;gt;0,X4lt;gt;0,X5lt;gt;0,X6lt;gt;0,X7lt;gt;0,X9lt;gt;0,!._move(9):-global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X1lt;gt;0,X2lt;gt;0,X3lt;gt;0,X4lt;gt;0,X5lt;gt;0,X6lt;gt;0,X7lt;gt;0,X8lt;gt;0,!.
% _ move (3): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X1 lt; gt; 0, X1=X2, X3=0, ! ._ move (6): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X4 lt; gt; 0, X4=X5, X6=0,! ._ move (9):- global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X7 lt; gt; 0, X7=X8, X9=0,! ._ move (1): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X2 lt; gt; 0, X2=X3, X1=0,! ._ move (4): - global_field (X1, X2, X3, X4, X5, X6 , X7, X8, X9), X5 lt; gt; 0, X5=X6, X4=0,! ._ move (7): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9) , X8 lt; gt; 0, X8=X9, X7=0,! ._ move (7): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X1 lt; gt; 0, X1=X4, X7=0,! ._ move (8): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X2 lt; gt; 0, X2=X5, X8=0 ,! ._ move (9): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X3 lt; gt; 0, X3=X6, X9=0,! ._ move (1):- global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X4 lt; gt; 0, X4=X7, X1=0,! ._ move (2): - global_field (X1, X2 , X3, X4, X5, X6, X7, X8, X9), X5 lt; gt; 0, X5=X8, X2=0,! ._ move (3): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X6 lt; gt; 0, X6=X9, X3=0,! ._ move (9): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9 ), X1 lt; gt; 0, X1=X5, X9=0,! ._ move (1): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X5 lt; gt; 0 , X5=X9, X1=0,! ._ move (7): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X5 lt; gt; 0, X5=X3, X7= 0,! ._ move (3): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X5 lt; gt; 0, X5=X7, X3=0,! ._ move (2 ): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X1 lt; gt; 0, X1=X3, X2=0,! ._ mo...
