Calango-sam (Visualg)

algoritmo "Calango-sam"
// Função : Robê que responde perguntas.
// Autor : Mário Valney
// Data : 28/05/2013
// Seção de Declarações
var
id_pergunta,entendeu:inteiro
pergunta:caractere
tempC:caractere
inicio

                                 // CRIAÇÃO DAS FUNÇÕES
funcao resposta (teste: caractere) :logico
   inicio
   pergunta <- maiusc(pergunta)
   teste <- maiusc(teste)
   se (pos(teste,pergunta) > 0) entao
   retorne verdadeiro
   senao
   retorne falso
   fimse
fimfuncao


                                 // INICIALIZANDO VARIÁVEIS

id_pergunta <- 0

                                 // INÍCIO DO LAÇO DE PERGUNTAS
repita
entendeu <- 0
                                 // ENTRADA DE DADOS DA PERGUNTA
escreva("Você: ")
leia(pergunta)
                                 // CONSULTAS AO BD DE PERGUNTAS (IA)

// BOM DIA, BOA TARDE E BOA NOITE...
se resposta("BOM DIA") entao
escreval("Calango-sam: Bom dia! Como vai você?")
entendeu <- 1
senao
     se resposta("BOA TARDE") entao
     escreval("Calango-sam: Bom tarde! Como vai você?")
     entendeu <- 1
     senao
          se resposta("BOA NOITE") entao
          escreval("Calango-sam: Bom noite! Como vai você?")
          entendeu <- 1
          fimse
     fimse
fimse
// TUDO BEM?
se resposta("como vai?") entao
escreval("Calango-sam: Estou bem, obrigado! E você?")
entendeu <- 1
senao
     se resposta ("como está?") entao
     escreval("Calango-sam: Estou bem, obrigado! E você?")
     entendeu <- 1
     senao
          se resposta("de boa?") entao
          escreval("Calango-sam: Yepp!! E você?")
          entendeu <- 1
          fimse
     fimse
fimse

se (resposta("bem") E (resposta("e você?") OU resposta ("e você ?") OU resposta ("e voce?") OU resposta ("e voce ?") OU resposta ("e vc?") OU resposta ("e vc ?"))) entao
escreval("Calango-sam: Que bom que está bem. Eu estou ótimo!")
entendeu <- 1
senao
     se (resposta("boa") E (resposta("e você?") OU resposta ("e você ?") OU resposta ("e voce?") OU resposta ("e voce ?") OU resposta ("e vc?") OU resposta ("e vc ?"))) entao
     escreval("Calango-sam: Estou de boa também...?")
     entendeu <- 1
     senao
          se (resposta("mal") E (resposta("e você?") OU resposta ("e você ?") OU resposta ("e voce?") OU resposta ("e voce ?") OU resposta ("e vc?") OU resposta ("e vc ?"))) entao
          escreval("Calango-sam: Poxa... :(")
          escreval("Calango-sam: O que houve?")
          entendeu <- 1
          fimse
     fimse
fimse
// PALAVRAS SOLTAS
se (resposta("BEM") E (compr(pergunta) = 3)) entao
escreval("Calango-sam: Legal... =D")
entendeu <- 1
fimse
se (resposta("BEM.") OU resposta("tbm") OU resposta("também")) entao
escreval("Calango-sam: Legal... =D")
entendeu <- 1
fimse
se (resposta("aff") E (compr(pergunta) < 6)) entao
escreval("Calango-sam: Que foi?")
entendeu <- 1
fimse
se (resposta("nada") E (compr(pergunta) = 4)) entao
escreval("Calango-sam: Tá...")
entendeu <- 1
fimse
se (resposta("oi") E (compr(pergunta) < 4)) entao
escreval("Calango-sam: Oi! =D")
entendeu <- 1
fimse
se (resposta("ola") E (compr(pergunta) < 5)) entao
escreval("Calango-sam: Oi! =D")
entendeu <- 1
fimse
se (resposta("=P") E (compr(pergunta) = 2)) entao
escreval("Calango-sam: =P")
entendeu <- 1
fimse


// PALAVRÃO
se (resposta(" CU ") OU resposta("TOMANOCU") OU resposta(" NO CU ") OU resposta(" PUTA ") OU resposta(" VIADO ") OU resposta("filho da puta") OU resposta(" PQP ") OU resposta(" FODA-SE") OU resposta(" FODASSE ") OU resposta(" SE FODER")) entao
escreval("Calango-sam: =O")
escreval("             Use palavras apropriadas e não esse tipo de palavra feia...")
entendeu <- 1
fimse
                                 // PREPARA NOVA PERGUNTA
se entendeu = 0 entao
escreval("Calango-sam: Poxa... Não entendi. Sou um calango muito novo... Vamos de novo...")
fimse
                                 // FIM DO LAÇO DE PERGUNTAS

id_pergunta <- id_pergunta+1
ate id_pergunta = 105

limpatela
escreval("Já foram mais de 100 perguntas... estou cansado. Até mais!")
fimalgoritmo