Fonction.rb

#encoding: utf-8
module Brain
  module Fonction

    def erreure
      $memory.error(@text)
     unless $memory.last_sujet(0...5) == [:erreure,:erreure,:erreure,:erreure,:erreure]
      if $memory.last_ask() != @text
        data = [
          "Je suis désolé, je n'ai rien compris.",
          "Pouvez-vous être plus clair?",
          "Vous êtes sûr de ne pas avoir fait d'erreur dans votre phrase?",
          "Je n'ai pas compris ce que vous vouliez dire.",
          "Je ne comprends pas.",
          "Je ne suis pas programmé pour comprendre ça.",
          "Ma programmation n'est pas assez efficace pour vous comprendre.",
          "Il semble que je ne soit pas assez intelligent pour vous comprendre.",
          "Je ne suis pas certain d'avoir tout compris.",
          "J'ai du mal à vous comprendre.",
          "Ou votre phrase est incomprehensible ou ma programmation est très mal faite.",
          "Je pense qu'un humain vous comprendra mieux que moi."
        ]
        say data.rand
      else
        data = ["Pas la peine de repéter, je n'ai pas compris.",
          "Repéter ne me fera pas mieux comprendre!",
          "Sa ne sert a rien.|Si je n'ai pas compris la premier fois, cette fois ne sera pas mieux."]
        say data.rand
      end
      else
        data = [
          "Il est peut-être tempq de changer de sujet?",
          "C'est au moins la 5ème fois que je ne comprends pas",
          "Bon, je ne comprends pas.|On change de sujet?"
        ]
        say data.rand
      end

    end

    def bonjour
      unless $memory.already_about?(:bonjour)
        data = ["Coucou.","Salut"]
        case Time.now.moment_of_day
        when 0
          data << "|*baille*|HAAAAAA|Je suis fatigué"
         when 1,2
          data << "Bonjour"
        when 3
          data << "Bonsoir"
        end
        say data.rand
      else
        data = ["On s'est déjà dit bonjour, il me semble?",
          "Vous avez déjà dit ça.",
          "Vous avez déjà oublié que vous m'avez salué?",
          "Chez vous on dit plusieurs fois bonjour?"]
        say data.rand
      end
    end

    def quiest
      str = @text[/qui est?[- ](.+) ?\?/i,1]
      str = @text[/Connais[ -]tu (.+) ?\?/i,1] if str == nil
      ary = scan(str,Brain::Reponse::QuiEst)
      if ary == :erreure
        ary = [
          "Désolé, mais je ne connais pas cette perssonne.",
          "Ce nom ne me dit rien.",
          "Malheuresement, Je ne sait pas qui c'est.",
          "Je ne connais pas cette perssone.|Devrais-je?",
          "Non, je ne le connais pas.",
          "Cette perssonne m'est inconnue.",
          "Je n'ai aucune idée de qui ça peut être.",
          "je ne connait pas #{str}."
        ]
      end
      say ary.rand
    end


  end
end