% ask the octal magic ball a yes/no question and get a text reply
% e.g.  octalmagicball("Should I go to class today?", Answer).
%       Answer = "Yes - definitely"

% just randomly picks one of 20 possible answers
octalmagicball(_,A) :- random(1, 20, N), getAnswer(N,A).

getAnswer(1, "It is certain").
getAnswer(2, "It is decidedly so").
getAnswer(3, "Without a doubt").
getAnswer(4, "Yes - definitely").
getAnswer(5, "You may rely on it").
getAnswer(6, "As I see it, yes").
getAnswer(7, "Most likely").
getAnswer(8, "Outlook good").
getAnswer(9, "Yes").
getAnswer(10, "Signs point to yes").
getAnswer(11, "Reply hazy, try again").
getAnswer(12, "Ask again later").
getAnswer(13, "Better not tell you now").
getAnswer(14, "Cannot predict now").
getAnswer(15, "Concentrate and ask again").
getAnswer(16, "Don\'t count on it").
getAnswer(17, "My reply is no").
getAnswer(18, "Outlook not so good").
getAnswer(19, "Very doubtful").
getAnswer(20, "My sources say no").