============== ==========% (integer) _score () _first () (integer) (integer) _move (integer, integer, integer) _field (integer, integer, integer, integer, integer, integer, integer, integer, integer) _x_o (integer) _global_field (integer, integer, integer, integer, integer, integer, integer, integer, integer) _global_score (integer) _global_game_end (integer) _field (integer) _empty (integer, integer) _win (integer) _won (integer) _move (integer, integer) _move (integer) _end_game (integer)
% ========================================= ==========% _ empty (0, NX): - NX=0._empty (_, NX): - NX=1._field (End): - global_field(X1,X2,X3,X4,X5,X6,X7,X8,X9),_empty(X1,A),_empty(X2,B),_empty(X3,C),_empty(X4,D),_empty(X5,E),_empty(X6,F),_empty(X7,G),_empty(X8,H),_empty(X9,I),=A+B+C+D+E+F+G+H+I._global_score(1):-_score(You,Comp),(global_score(_,_), mydb),=You + 1, (global_score (NewYou, Comp), mydb) ._ global_score (2): -_ score (You, Comp), (global_score (_, _), mydb),=Comp + 1, (global_score (You, NewComp), mydb) ._ global_score (_) ._ global_game_end (X) :-( global_game_end (_), mydb), (global_game_end (X), mydb),! ._ won (1): - edit_global_score (1) , edit_global_field (0,0,0,0,0,0,0,0,0), edit_global_game_end (1), write ( gt; You won! =) ), nl, nl,! ._ won ( 2): - edit_global_score (2), edit_global_field (0,0,0,0,0,0,0,0,0), edit_global_game_end (1), write ( gt; You lose.: (), nl, nl,! ._ won (_) ._ win (1): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X1 lt; gt; 0, X1=X2, X1= X3, who_won (X1),! ._ win (1): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X4 lt; gt; 0, X4=X5, X4=X6, who_won (X4),! ._ win (1): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X7 lt; gt; 0, X7=X8, X7=X9, who_won ( X7),! ._ win (1): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X1 lt; gt; 0, X1=X4, X1=X7, who_won (X1) ,! ._ win (1): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X2 lt; gt; 0, X2=X5, X2=X8, who_won (X2) ,!._win (1): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X3 lt; gt; 0, X3=X6, X3=X9, who_won (X3),! ._ win (1): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X1 lt; gt; 0, X1=X5, X1=X9, who_won (X1),! ._ win (1 ): - global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), X3 lt; gt; 0, X3=X5, X3=X7, who_won (X3),! ._ win (0). _move (1,1): - global_field (X1, _, _, _, _, _, _, _, _), X1 gt; 0,! ._ move (2,1): - global_field (_, X2, _ , _, _, _, _, _, _), X2 gt; 0,! ._ move (3,1): - global_field (_, _, X3, _, _, _, _, _, _), X3 gt ; 0,! ._ move (4,1): - global_field (_, _, _, X4, _, _, _, _, _), X4 gt; 0,! ._ move (5,1): - global_field ( _, _, _, _, X5, _, _, _, _), X5 gt; 0,! ._ move (6,1): - global_field (_, _, _, _, _, X6, _, _ , _), X6 gt; 0,! ._ move (7,1): - global_field (_, _, _, _, _, _, X7, _, _), X7 gt; 0,! ._ move (8,1 ): - global_field (_, _, _, _, _, _, _, X8, _), X8 gt; 0,! ._ move (9,1): - global_field (_, _, _, _, _, _, _, _, X9), X9 gt; 0 ,!._move(_,0)._global_field(NewX1,NewX2,NewX3,NewX4,NewX5,NewX6,NewX7,NewX8,NewX9):-_field(X1,X2,X3,X4,X5,X6,X7,X8,X9),(global_field(X1,X2,X3,X4,X5,X6,X7,X8,X9), mydb), (global_field (NewX1, NewX2, NewX3, NewX4, NewX5, NewX6, NewX7, NewX8, NewX9), mydb) ._ x_o (1): -!, write ( x ) ._ x_o (2): -!, write ( o ) ._ x_o (0): -!, write ( ) ._ field (X1, X2, X3, X4, X5, X6, X7, X8, X9): - clearwindow, ( ------------- ), nl, ( | ), scan_x_o (X1), write ( | ), scan_x_o (X2), write ( | ), scan_x_o (X3), write ( | ), nl, ( ------------- ), nl, ( | ), scan_x_o (X4), write ( | ), scan_x_o (X5), write ( | ), scan_x_o (X6), write ( | ), nl, ( laquo ; ------------- ), nl, ( | ), scan_x_o (X7), write ( | ), scan_x_o (X8), write ( laquo ; | ), scan_x_o (X9), write ( | ), nl, ( ------------- ), nl, nl._move (First, 1, 1): - scan_move (1, Pusto), Pusto lt; 1,!, global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), edit_global_field (First, X2, X3, X4, X5, X6, X7, X8, X9), draw_field (First, X2, X3, X4, X5, X6, X7, X8, X9),! ._ move (First, 2, 1): - scan_move (2, Pusto) , Pusto lt; 1,!, global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), edit_global_field (X1, First, X3, X4, X5, X6, X7, X8, X9), draw_field (X1, First, X3, X4, X5, X6, X7, X8, X9),! ._ move (First, 3, 1): - scan_move (3, Pusto), Pusto lt; 1,!, global_field (X1, X2 , X3, X4, X5, X6, X7, X8, X9), edit_global_field (X1, X2, First, X4, X5, X6, X7, X8, X9), draw_field (X1, X2, First, X4, X5, X6 , X7, X8, X9),! ._ move (First, 4, 1): - scan_move (4, Pusto), Pusto lt; 1,!, global_field (X1, X2, X3, X4, X5, X6, X7, X8 , X9), edit_global_field (X1, X2, X3, First, X5, X6, X7, X8, X9), draw_field (X1, X2, X3, First, X5, X6, X7, X8, X9),! ._ move ( First, 5, 1): - scan_move (5, Pusto), Pusto lt; 1,!, global_field (X1, X2, X3, X4, X5, X6, X7, X8, X9), edit_global_field (X1, X2, X3, X4, First, X6, X7, X8, X9), draw_field (X1, X2, X3, X4, First, X6, X7, X8, X9),! ._ move (First, 6, 1): - scan_move (6, Pusto), Pusto ...
