cavaleiros.pl

% Definição dos cavaleiros
% cavaleiro(temperamento, personalidade, senso_de_justica, casa)
cavaleiro(explosivo, arrogante, neutro, touro).
cavaleiro(explosivo, arrogante, caotico, cancer).
cavaleiro(paciente, arrogante, caotico, gemeos).
cavaleiro(moderado, virtuoso, leal, leao).
cavaleiro(paciente, virtuoso, leal, virgem).
cavaleiro(paciente, humilde, leal, aries).
cavaleiro(paciente, humilde, neutro, libra).
cavaleiro(explosivo, virtuoso, caotico, escorpiao).
cavaleiro(moderado, humilde, neutro, sagitario).
cavaleiro(explosivo, virtuoso, neutro, capricornio).
cavaleiro(moderado, humilde, leal, aquario).
cavaleiro(moderado, arrogante, caotico, peixes).

% ====================== Main ===========================
start :-
    pergunta1_1(Resp1_1),
    pergunta1_2(Resp1_2),
    pergunta1_3(Resp1_3),
    result_q1(Resp1, Resp1_1, Resp1_2, Resp1_3),
    pergunta2_1(Resp2_1),
    pergunta2_2(Resp2_2),
    pergunta2_3(Resp2_3),
    result_q2(Resp2, Resp2_1, Resp2_2, Resp2_3),
    pergunta3_1(Resp3_1),
    pergunta3_2(Resp3_2),
    pergunta3_3(Resp3_3),
    result_q3(Resp3, Resp3_1, Resp3_2, Resp3_3),
    (
        cavaleiro(Resp1, Resp2, Resp3, _) 
    ->  seuCavaleiro(Resp1, Resp2, Resp3)
    ;   writeln('\n\n\n\tParabéns!\nVocê faz parte de uma constelação ainda não descoberta pelo homem.')
    ).
% ===================== Funções =====================

pergunta1_1(Resp1_1) :-
    write(
        '# Temperamento\n
        1 - O programa que voce estava desenvolvendo para de produzir o resultado que voce esperava \"do nada\". O que você faz?\n\n
        A) Decide tirar uma pausa para tentar resolver póstumamente\n
        B) Googla para tentar solucionar\n
        C) Xinga o universo\n'
    ),
    read(Op1_1),
    switch_q1_1(Op1_1, Resp1_1);
    writeln('Opção incorreta. Por favor digite as opções 1, 2 ou 3.'),
    pergunta1_1(Resp1_1).
    

pergunta1_2(Resp1_2) :-
    write(
        '# Temperamento\n
        2 - Você compra uma tesoura que vem dentro de um pacote que necessita do auxílio de uma tesoura para abrí-lo. Como você se sente?\n\n
        A) Levemente risonho\n
        B) Decepcionado/entediado\n
        C) Extremamente irritado\n'
    ),
    read(Op1_2),
    switch_q1_2(Op1_2, Resp1_2);
    writeln('Opção incorreta. Por favor digite as opções 1, 2 ou 3.'),
    pergunta1_2(Resp1_2).

pergunta1_3(Resp1_3) :-
    write(
        '# Temperamento\n
        3 - Qual sua opinião sobre comentários em geral na Internet?\n\n
        A) Ok, todos têm direito de ter uma opinião\n
        B) Apenas ignoro-os\n
        C) Alguém delete a internet\n'
    ),
    read(Op1_3),
    switch_q1_3(Op1_3, Resp1_3);
    writeln('Opção incorreta. Por favor digite as opções 1, 2 ou 3.'),
    pergunta1_3(Resp1_3).


pergunta2_1(Resp2_1) :-
    write(
        '# Personalidade\n
        1 - Quando alguma tarefa há de ser feita, assumo a responsabilidade pois acredito que fazê-la-ei melhor que os outros.\n\n
        A) Discordo\n\n
        B) Neutro/às vezes\n
        C) Concordo\n'
    ),
    read(Op2_1),
    switch_q2_1(Op2_1, Resp2_1);
    writeln('Opção incorreta. Por favor digite as opções 1, 2 ou 3.'),
    pergunta2_1(Resp2_1).

pergunta2_2(Resp2_2) :-
    write(
        '# Personalidade\n
        2 - Quando alguém faz piadinhas inofensivas comigo, fico enraivecido e na defensiva.\n\n
        A) Discordo\n\n
        B) Neutro/às vezes\n
        C) Concordo\n'
    ),
    read(Op2_2),
    switch_q2_2(Op2_2, Resp2_2);
    writeln('Opção incorreta. Por favor digite as opções 1, 2 ou 3.'),
    pergunta2_2(Resp2_2).

pergunta2_3(Resp2_3) :-
    write(
        '# Personalidade\n
        3 - Ser corrigido por outros, em público, me irrita\n\n
        A) Discordo\n
        B) Neutro/às vezes\n
        C) Concordo\n'
    ),
    read(Op2_3),
    switch_q2_3(Op2_3, Resp2_3);
    writeln('Opção incorreta. Por favor digite as opções 1, 2 ou 3.'),
    pergunta2_3(Resp2_3).



pergunta3_1(Resp3_1) :-
    write(
        '# Senso de Justiça\n
        1 - Se há regras que impedem-me de fazer o que gostaria, desobedeço-as.\n
        A) Nunca\n
        B) Às vezes\n
        C) Sempre\n'
    ),
    read(Op3_1),
    switch_q3_1(Op3_1, Resp3_1);
    writeln('Opção incorreta. Por favor digite as opções 1, 2 ou 3.'),
    pergunta3_1(Resp3_1).

pergunta3_2(Resp3_2) :-
    write(
        '# Senso de Justiça\n
        2 - Eu tenho um forte senso de moralidade, cujo qual me guia em todas as situações.\n
        A) Com certeza\n
        B) Não sei\n
        C) Inverdade\n'
    ),
    read(Op3_2),
    switch_q3_2(Op3_2, Resp3_2);
    writeln('Opção incorreta. Por favor digite as opções 1, 2 ou 3.'),
    pergunta3_2(Resp3_2).

pergunta3_3(Resp3_3) :-
    write(
        '# Senso de Justiça\n
        3 - Se algo me ferir, buscarei vingança.\n
        A) Nunca\n
        B) Às vezes\n
        C) Sempre\n'
    ),
    read(Op3_3),
    switch_q3_3(Op3_3, Resp3_3);
    writeln('Opção incorreta. Por favor digite as opções 1, 2 ou 3.'),
    pergunta3_3(Resp3_3).


% Troca do numero pelo atomo 
switch_q1_1(1, Resp1_1) :-
    Resp1_1 = -1.
switch_q1_1(2, Resp1_1) :-
    Resp1_1 = 0.
switch_q1_1(3, Resp1_1) :-
    Resp1_1 = 1.

switch_q1_2(1, Resp1_2) :-
    Resp1_2 = -1.
switch_q1_2(2, Resp1_2) :-
    Resp1_2 = 0.
switch_q1_2(3, Resp1_2) :-
    Resp1_2 = 1.

switch_q1_3(1, Resp1_3) :-
    Resp1_3 = -1.
switch_q1_3(2, Resp1_3) :-
    Resp1_3 = 0.
switch_q1_3(3, Resp1_3) :-
    Resp1_3 = 1.

result_q1(Resp1, Resp1_1, Resp1_2, Resp1_3) :-
    X=Resp1_1+Resp1_2+Resp1_3,
    ( lower_than_zero(X) 
    -> Resp1 = paciente
    ;  ( equal_to_zero(X) 
          -> Resp1 = moderado
          ; Resp1 = explosivo
       )
    ).

lower_than_zero(X) :-
    ( X < 0
      -> true
      ; false).

equal_to_zero(Y) :-
    ( Y =:= 0
      -> true
      ; false).

bigger_than_zero(Z) :-
    ( Z > 0
    -> true
    ; false).


switch_q2_1(1, Resp2_1) :-
    Resp2_1 = -1.
switch_q2_1(2, Resp2_1) :-
    Resp2_1 = 0.
switch_q2_1(3, Resp2_1) :-
    Resp2_1 = 1.

switch_q2_2(1, Resp2_2) :-
    Resp2_2 = -1.
switch_q2_2(2, Resp2_2) :-
    Resp2_2 = 0.
switch_q2_2(3, Resp2_2) :-
    Resp2_2 = 1.

switch_q2_3(1, Resp2_3) :-
    Resp2_3 = -1.
switch_q2_3(2, Resp2_3) :-
    Resp2_3 = 0.
switch_q2_3(3, Resp2_3) :-
    Resp2_3 = 1.

result_q2(Resp2, Resp2_1, Resp2_2, Resp2_3) :-
    Y=Resp2_1+Resp2_2+Resp2_3,
    ( lower_than_zero(Y) 
    -> Resp2 = humilde
    ;  ( equal_to_zero(Y) 
          -> Resp2 = virtuoso
          ; Resp2 = arrogante
       )
    ).

switch_q3_1(1, Resp3_1) :-
    Resp3_1 = -1.
switch_q3_1(2, Resp3_1) :-
    Resp3_1 = 0.
switch_q3_1(3, Resp3_1) :-
    Resp3_1 = 1.

switch_q3_2(1, Resp3_2) :-
    Resp3_2 = -1.
switch_q3_2(2, Resp3_2) :-
    Resp3_2 = 0.
switch_q3_2(3, Resp3_2) :-
    Resp3_2 = 1.

switch_q3_3(1, Resp3_3) :-
    Resp3_3 = -1.
switch_q3_3(2, Resp3_3) :-
    Resp3_3 = 0.
switch_q3_3(3, Resp3_3) :-
    Resp3_3 = 1.

result_q3(Resp3, Resp3_1, Resp3_2, Resp3_3) :-
    Z=Resp3_1+Resp3_2+Resp3_3,
    ( lower_than_zero(Z) 
    -> Resp3 = leal
    ;  ( equal_to_zero(Z) 
          -> Resp3 = neutro
          ; Resp3 = caotico
       )
    ).


% Pegar cavaleiro e escrever na tela
seuCavaleiro(Resp1, Resp2, Resp3) :-
    cavaleiro(Resp1, Resp2, Resp3, Cav), 
    write('Você é o cavaleiro de '),
    writeln(Cav).