Systeme Journal

=begin
Auteur: Zouzaka
Systeme de journal pour noter la progression dans le jeu.
La variable qui prendra en charge la progression est a mettre a la ligne 12
Modifier les titres a la ligne 14
Modifier les textes a la ligne 19
Attention a l'ordre entre les titre et les textes pour ne pas faire de decalage
=end
#Text des pages blocked
Blocked_text = "Blocked"
#Variable qui gerre la progression dans le jeu
Progress_var = 5
#les titres
Title = ["Bienvenu",
"Premier Combat",
"Fin de l'aventure"]
#Les texts
#Veillez a ne pas depasser 35 caractere par ligne
Texts = ["Soyer le bienvenu dans ce systeme de
journal.
Inscrivez tout ce qui vous passe par
la tete =)",
"Blablabala",
"2eme blabla"]
#===============================Fin des Modifications ==========================
#===============================================================================
class Scene_Journal < Scene_MenuBase
  def start
    super
    create_windows
  end
  def create_windows
    @win_title = Window_ProgressTitle.new(1)
    @win_choice = Window_ProgressChoice.new(0,@win_title.height)
    @win_texts = Window_Base.new(@win_choice.width,@win_title.height,Graphics.width-@win_choice.width,Graphics.height-@win_title.height)
  end
  def update
    super
    @win_title.set_text(Title[@win_choice.index])
    update_texts
    if Input.press?(:B)
      SceneManager.return
    end
  end
  def update_texts
    @win_texts.contents.clear
    if @win_choice.command_enabled?(@win_choice.index)
      @line = 0
      Texts[@win_choice.index].each_line do |s|
        @win_texts.draw_text_ex(0,@line*25, s.delete("\n"))
        @line += 1
      end
    else
      @win_texts.draw_text_ex(0,0,Blocked_text)
    end
  end
end
#Window commands
class Window_ProgressChoice < Window_Command
  def make_command_list
    Title.each do |i|
      if Title.index(i) <= $game_variables[Progress_var]-1
        add_command(i, :item)
      else
        add_command(i, :item, false)
      end
    end
  end
end
#Window title
class Window_ProgressTitle < Window_Help
  def refresh
    contents.clear
    @text_pos = (Graphics.width-text_size(@text).width)/2
    draw_text_ex(@text_pos, 0, @text)
  end
end