# par grifdail
#pour puts and gets

class Window_info < Window_Base
  #--------------------------------------------------------------------------
  # * Object Initialization
  #    x : window X coordinate
  #    y : window Y coordinate
  #--------------------------------------------------------------------------
  def initialize
    super(32,32 , $info_win.length*13, WLH + 32)
    refresh
  end
  #--------------------------------------------------------------------------
  # * Refresh
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    self.contents.draw_text(4, 0,200, WLH, $info_win)
  end
end





$escuse = ["Je ne comprends pas le sens de votre question ! ", "Comment ?","Désolé, mais je ne vous comprends pas.","Pouvez-vous répéter s'il vous plait.", "Qu'avez-vous dis?" ]


def  escuse
$aa = $escuse[rand($escuse.size) - 1]
return $aa
end
def oui_non
  $info_win = "oui / non"
  @info = Window_info.new
  $valeur = gets
    if $valeur == "oui"
      @info.dispose
      return true
    end
  if $valeur == "non"
    @info.dispose
    return false
    end
  @info.dispose
  escuse
  $game_message.texts.push($aa)
    for i in 0...@list.size
            if @list[i].code == 118 and @list[i].parameters[0] == "boucle"
            @index = i
            return true
            end
    end
end

def question(par1,par2,par3,par4)
  $info_win = par1+"/"+par2+"/"+par3+"/"+par4
@info = Window_info.new
  $valeur = gets
    case $valeur
        when par1
          @info.dispose
            for i in 0...@list.size
            if @list[i].code == 118 and @list[i].parameters[0] == par1
            @index = i
            return true
            end
            end
        when par2
          @info.dispose
            for i in 0...@list.size
            if @list[i].code == 118 and @list[i].parameters[0] == par2
            @index = i
            return true
            end
          end
        when par3
          @info.dispose
            for i in 0...@list.size
            if @list[i].code == 118 and @list[i].parameters[0] == par3
            @index = i
            return true
            end
          end
          when par4
            @info.dispose
            for i in 0...@list.size
            if @list[i].code == 118 and @list[i].parameters[0] == par4
            @index = i
            return true
            end
          end
        else
          @info.dispose
          escuse
          $game_message.texts.push($aa)
            for i in 0...@list.size
            if @list[i].code == 118 and @list[i].parameters[0] == "boucle"
            @index = i
            return true
            end
          end
        end
      end
     
def  valuet(test,mot=false)
  $info_win = "mot de passe" if mot
  @info = Window_info.new if mot
          $valeur = gets
          if $valeur == test
          @info.dispose if mot
        return true
        end
          if mot
          @info.dispose if mot
        return false
      end
      @info.dispose if mot
            escuse
            $game_message.texts.push($aa)
            for i in 0...@list.size
              if @list[i].code == 118 and @list[i].parameters[0] == "boucle"
              @index = i
              return true
              end
            end
end