%
% mychatbot1.pl
% Este eh um exemplo bem simples de chatbot em Prolog
%
% Baseado em chatterbot1.pl, de Gonzales Cenelia
% http://ai-programming.com/prolog_bot_tutorial.htm
%
response_database([
	'Continuo escutando voce.',
	'Concordo com voce.',
	'Que conversa interessante.',
	'Conte-me mais sobre isso.']).

quit_session(X) :- 
	X = bye, 
	nl, write('Foi otimo conversar com voce. Ate mais!').

main :- 
	write('Ola! Sou um chatbot e estou a sua escuta!'),
	repeat,
	nl, write('> '),
	read(Input),
	response_database(ListOfResponse),
	length(ListOfResponse, Len),
	IndexOfResponse is random(Len),
	nth0(IndexOfResponse, ListOfResponse, Response),
	write(Response),
	quit_session(Input).

