Моделирование объекта футболисты

/*	Лабораторная работа №1 	*/
/*	Футболисты	 */
% 1 - номер футболиста
% 2 - фамилия
% 3 - опыт
:- dynamic(t_player/3).
player_num(1,21).
t_player(1, 'Malafeev', 40).
t_player(2, 'Chontofalski', 75).
t_player(3, 'Anukov',44).
t_player(4, 'Vieshtica', 35).
t_player(5, 'Kriganatz',33).
t_player(6, 'Maresh',63).
t_player(7, 'Flahbart', 58).
t_player(8, 'Hagen', 56).
t_player(9, 'Shkrtel', 17).
t_player(10, 'Kozlov', 44).
t_player(11, 'Vlasov', 61).
t_player(12, 'Gorshkov',94).
t_player(13, 'Denisov', 14).
t_player(14, 'Kasaev',44).
t_player(15, 'Radimov',57).
t_player(16, 'Spivak',40).
t_player(17, 'Shirl',25).
t_player(18, 'Shumolikoski',85).
t_player(19, 'Arshavin',77).
t_player(20, 'Kergakov',22).

/*t_player(22, Пошкус).*/

/*	Цвета формы конанд	*/
color_num( 1, 6 ).
t_color(1, 'Blue').
t_color(2, 'White').
t_color(3, 'Red').
t_color(4, 'Green').
t_color(5, 'Yellow').
t_color(6, 'Black').

/*	Команды	*/
t_team_name(1, 'Zubilo').
t_team_name(2, 'Shaiba').
t_team_name(3, 'Govoruni').
t_team_name(4, 'Outsiders').

/*	Состав команд	*/
% 1 - номер команды
% 2 - номер игрока
/*------	Зубило	------*/
t_team(1,[1,2,3,4,5]).
/*------	Шайба	------*/
t_team(2,[6,7,8,9,10]).
/*------	Говоруны	------*/
t_team(3,[11,12,13,14,15]).
/*------	Аутсайдеры	------*/
t_team(4,[16,17,18,19,20]).

:- dynamic(all_teams/1).
all_teams([1,2,3,4]).

/*	Характеристки команд	*/
% 1 - номер команды
% 2 - капитан
% 3 - цвет формы
% 4 - боевой настрой
% 	t_team_info(ID_team, ID_captain, Team_color, Spirit),
:- dynamic(t_team_info/4).

t_team_info(1, 1, 1, 1).
t_team_info(2, 6, 2, 1).
t_team_info(3, 11, 3, 1).
t_team_info(4, 16, 4, 1).

/*	Вспомогательные функции	*/
not(X) :- call(X), !, fail.
not(_).

/*	Работа со списком	*/
has_elem(Elem, [Elem|_]).
has_elem(Elem, [_|T]) :- has_elem(Elem, T).

sum_all([], 0).
sum_all([Members|T], Sum) :-
	t_player(Members, _, Exp),
	sum_all(T, Sum1), Sum is Exp + Sum1.

/*	Суммарный опыт	*/
get_sum_exp(ID_team, Sum) :-
	get_team_members(ID_team,Members),
	sum_all(Members, Sum).


/*	Вывод состава команды	*/
print_team_members([]) :- nl.
print_team_members([Members|T]) :-
	t_player(Members, Player_name, Exp),
	write(Members), write(' '), write(Player_name),
	write(' '), write(Exp), nl,
	print_team_members(T).

/* 	Получение имени капитана	*/
get_captain_name(ID_team, Captain_name) :-
	t_team_info(ID_team, ID_captain, _, _),
	t_player(ID_captain, Captain_name, _).

/* 	Получение цвета формы команды	*/
get_team_color(ID_team, Color_name) :-
	t_team_info(ID_team, _, Team_color, _),
	t_color(Team_color, Color_name).

/* 	Получение боевого духа команды	*/
get_team_spirit(ID_team, Team_spirit) :-
	t_team_info(ID_team, _, _, Team_spirit).

/* 	Получение состава команды	*/
get_team_members(ID_team, Members) :-
	t_team(ID_team, Members).

/*	Вывести информацию о команде	*/
% 1 - номер команды
% 2 - ???
print_team(ID_team) :-
	show_teams,
	write('----------------------------------------------------------'), nl,
	write('Team ID: '), write(ID_team), nl,
	get_captain_name(ID_team, Captain_name),
	write('Captain name: '), write(Captain_name), nl,
	get_team_color(ID_team, Color_name),
	write('Clothes color: '), write(Color_name), nl,
	get_team_spirit(ID_team, Team_spirit),
	write('Team spirit: '), write(Team_spirit), nl,
	get_team_members(ID_team, Members),
	write('Team members: '), nl, print_team_members(Members),
	write('----------------------------------------------------------'), nl.

print_team(_) :-
	not(show_teams).


/*	Назначить нового командира	*/
set_captain(ID_team, ID_player) :-
	t_player(ID_player, _, _), 		% проверяем, что игрок существует
	get_team_members(ID_team, Members),		% проверяем, что он есть в этой команде
	has_elem(ID_player, Members),			%
	t_team_info(ID_team, ID_captain, Team_color, Team_spirit),
	retract(t_team_info(ID_team, ID_captain, Team_color, Team_spirit)),
	asserta(t_team_info(ID_team, ID_player, Team_color, Team_spirit)).
set_captain(_, ID_player) :-
	t_player(ID_player, _, _), 		% проверяем, что игрок существует
	write('There is no such player in the team').
set_captain(_,_) :-
	write('There is no such player at all.').
	
/*	Шанс выиграть	*/
chance(ID_team, RES) :-
	get_sum_exp(ID_team, Sum),						% суммраный опыт команды
	random(0,100, Rnd1),							% случай
	random(1,10,   Rnd2),							% 2-ой случай
	t_team_info(ID_team, _, _, Team_spirit),				% Дух команды
	RES is Sum / 5 * Rnd1 + Team_spirit * Rnd2.
%	RES is Rnd2.

/*	Добавить опыта игрокам	*/
add_exp_all([]).
add_exp_all([H|T]) :- 
	t_player(H, Player_name, Exp),
	random(0,10, Rnd),							% случай
	retract(t_player(H, Player_name, Exp)),
	Res2 is Exp + Rnd,
	asserta(t_player(H, Player_name, Res2)),
	add_exp_all(T).

add_exp_players(ID_team) :-
	get_team_members(ID_team, Members),
	add_exp_all(Members).

/*	Добавить опыта команде	*/
add_exp(ID_team) :-
	t_team_name(ID_team, _),
	t_team_info(ID_team, ID_captain, Team_color, Team_spirit),
	retract(t_team_info(ID_team, ID_captain, Team_color, Team_spirit)),
	random(0,100, Rnd),							% случай
	Team_spirit_new is floor((Team_spirit + 2 * Rnd / 100) * 100) / 100,
	Diff is Team_spirit_new - Team_spirit,
	asserta(t_team_info(ID_team, ID_captain, Team_color, Team_spirit_new)),
	write(Diff),
	add_exp_players(ID_team).

/*	Понизить настрой	*/
low_spirit(ID_team) :-
	t_team_info(ID_team, ID_captain, Team_color, Team_spirit),
	retract(t_team_info(ID_team, ID_captain, Team_color, Team_spirit)),
	random(0,100, Rnd),							% случай
	Team_spirit_new is floor((Team_spirit - 2 * Rnd / 100) * 100) / 100,
	asserta(t_team_info(ID_team, ID_captain, Team_color, Team_spirit_new)).

/*	Зафиксировать факт победы команды */
team_win(ID_team, Team_name) :-
	write('After hard strugle team '), 
	write(Team_name), write(' won.'), nl,
	write('It got: '),
	add_exp(ID_team),
	write(' of spirit.'), nl,
	print_team(ID_team).

/*	Определить победителя	*/

:- dynamic(was_game/2).
:- dynamic(team_score/2).
was_game(1, 1).
was_game(2, 2).
was_game(3, 3).
was_game(4, 4).

clear_team_score :-
	retract(team_score(_,_)),
	clear_team_score.

clear_team_score.

clear_was_game :-
	retract(was_game(_,_)),
	clear_was_game.

clear_was_game.



was_game([]).
was_game([Teams|T]) :-
	asserta(was_game(Teams,Teams)),
	was_game(T).

was_game :-
	clear_was_game,
	all_teams(Teams),
	was_game(Teams).


calc_scores(ID_team1, ID_team2, Score1, Score2) :-
	champ_is_held, 
	!,
	team_score(ID_team1, Score_old1),
	retract(team_score(ID_team1, Score_old1)),

	New_score1 is Score_old1 + Score1,
	asserta(team_score(ID_team1, New_score1)),

	team_score(ID_team2, Score_old2),
	retract(team_score(ID_team2, Score_old2)),

	New_score2 is Score_old2 + Score2,
	asserta(team_score(ID_team2, New_score2)).

calc_scores(_, _, _, _) :-
	not(champ_is_held).

calc_scores(ID_team1, ID_team2, 3) :-
	calc_scores(ID_team1, ID_team2, 3, 0).
calc_scores(ID_team1, ID_team2, 1) :-
	calc_scores(ID_team1, ID_team2, 1, 1).
calc_scores(ID_team1, ID_team2, 0) :-
	calc_scores(ID_team1, ID_team2, 0, 3).

check_winner(ID_team1, ID_team2, Team_name1, Team_name2, Chance1, Chance2) :-
	Chance1 < Chance2,
	team_win(ID_team2, Team_name2),
	low_spirit(ID_team1),
	calc_scores(ID_team1, ID_team2, 0);

	team_win(ID_team1, Team_name1),
	low_spirit(ID_team2),
	calc_scores(ID_team1, ID_team2, 3).


/*								Лабораторная работа №2		*/

/*	Провести игру	*/
make_game(ID_team1, ID_team2) :-
	ID_team1 == ID_team2,
	write('Team cannot play with itself');

	t_team_name(ID_team1, Team_name1),
	t_team_name(ID_team2, Team_name2),
	write('=================================================='), nl,
	write('So it happened!! Team '), write(Team_name1), write(' and '), write(Team_name2), write(' met!'), nl,
	chance(ID_team1, Chance1),
	write('Chance1 = '), write(Chance1),
	chance(ID_team2, Chance2),
	write(' Chance2 = '), write(Chance2), nl,

	Chance1 =\= Chance2,
	check_winner(ID_team1, ID_team2, Team_name1, Team_name2, Chance1, Chance2),
	write('=================================================='), nl;

	write('Neither team won. It was a cool draw game!'), nl,
	calc_scores(ID_team1, ID_team2, 1),
	write('=================================================='), nl.

/*make_game(ID_team1, ID_team2) :-
	randomize,
	chance(ID_team1, Chance1),
	chance(ID_team2, Chance2),
	Chance1 > Chance2,
	write('After hard strugle team '), 
	t_team_name(ID_team1, Team_name),
	write(Team_name), write(' won.'), nl,
	write('It got: '),
	add_exp(ID_team1),
	write(' of experience.'), nl,
	print_team(ID_team1),
	write('=================================================='), nl.
make_game(_, _) :-
	write('So it happened!! Team '), write(Team_name1), write(' and '), write(Team_name2), write(' met!'), nl,
	write('Neither team won. It was a cool draw game!'), nl,
	write('=================================================='), nl.
*/

play_with_others(ID_team1) :-
	t_team_info(ID_team2, _, _, _),
	not(was_game(ID_team1, ID_team2)),
	make_game(ID_team1, ID_team2),			% Сыграли игру
								% Запомнили результат
	asserta(was_game(ID_team1, ID_team2)),		% Записали, что такая игра была
	play_with_others(ID_team1).

play_with_others(_).

:- dynamic(champ_is_held/0).

team_score(1,0).
team_score(2,0).
team_score(3,0).
team_score(4,0).

set_all_sc_null([]).
set_all_sc_null([Teams|T]) :-
	asserta(team_score(Teams,0)),
	set_all_sc_null(T).

scores_null :-
	clear_team_score,
	all_teams(Teams),
	set_all_sc_null(Teams).

/*								Лабораторная работа №3		*/

start_champ :-
	was_game,
	scores_null,
	asserta(champ_is_held).

stop_champ :-
	was_game,
	retract(champ_is_held).

print_scores([]).
print_scores([Teams|T]) :-
	t_team_name(Teams, Team_name),
	team_score(Teams, Team_score),
	write(Team_name), write('                   '), write(Team_score), nl,
	print_scores(T).

print_scores :-
	write('***********************************************'), nl,
	write('Championship results:'), nl,
	all_teams(Teams),
	write('Team'), write('                          '), write('Score'), nl,
	print_scores(Teams),
	write('***********************************************'), nl.

:- dynamic(show_teams/0).
% show_teams.

champ :-
	start_champ,
	all_teams(Teams),
	championship(Teams),
	!,
	stop_champ,
	print_scores.

championship([]).
championship([Not_played|T]) :-
	play_with_others(Not_played),
	championship(T).