#==============================================================================#
#                                                                              #
#                                                                              #
#                                Scene_Book                                    #
#                                                                              #
#                                                                              #
#==============================================================================#
#                                                                              #
#Modifié par Vincentmhd, Mac Malone Midas Mike...                              #
#http://vincentmhdmaker.canalblog.com/                                        #
#02/3/2010                                                                    #
#                                                                              #
#Beaucoup de noms pour un si petit truc...^^                                  #
#                                                                              #
#                                                                              #
#==============================================================================#



module Credit
  #Variable de Texte
  FONT = "Symbol"    #Police
  SIZE = 24                                #Taille du texte
  OUTLINE = Color.new(0,0,127, 255)        #Couleur des effets de lettrage
  SHADOW = Color.new(0,0,0, 100)          #Couleur de l'ombre
  FILL = Color.new(255,255,255, 255)      #Couleur de fond des lettres

  #Defillement:
  INIT_SPEED  = 1    #vitesse initiale
  SPEED_INC  = 1    #pas d'incrémentation
  INIT_WAIT  = 2    #attente initiale
  WAIT_LIMITE = 1    #attente limite  !!Attention cela fait "vibrer" le texte!!
  OY_MIN      = -380 #Position Y de début du texte
 



CREDIT=<<_END_

Ecrivez votre texte ici,

Les sauts de lignes seront respectés


_END_


end

class Scene_Book
  def initialize
    super
    @compteur = 0
    @speed = Credit::INIT_SPEED
    @wait  = Credit::INIT_WAIT
    @run  = true
  end

  #Stop Editing
  def main

      #-------------------------------
      # Animated Background Setup
      #-------------------------------
      @sprite = Sprite.new
      #@sprite.bitmap = Cache.picture($data_system.title_name)
      @backgroundList = ["Title"] #Edit this to the picture(s) you wish to show in the background. They do repeat.
      @backgroundGameFrameCount = 0
      # Number of game frames per background frame.
      @backgroundG_BFrameCount = 3.4
      @sprite.bitmap = Cache.picture(@backgroundList[0])

      #------------------
      # Credits Setup
      #------------------

      credit_lines = Credit::CREDIT.split(/\n/)
      credit_bitmap = Bitmap.new(544,32 * credit_lines.size)
      credit_lines.each_index do |i|
      line = credit_lines[i]
      credit_bitmap.font.name = Credit::FONT
      credit_bitmap.font.size = Credit::SIZE
      x = 0
      credit_bitmap.font.color = Credit::OUTLINE
      credit_bitmap.draw_text(0 + 1,i * 32 + 1,544,32,line,1)
      credit_bitmap.draw_text(0 - 1,i * 32 + 1,544,32,line,1)
      credit_bitmap.draw_text(0 + 1,i * 32 - 1,544,32,line,1)
      credit_bitmap.draw_text(0 - 1,i * 32 - 1,544,32,line,1)
      credit_bitmap.font.color = Credit::SHADOW
      credit_bitmap.draw_text(0,i * 32 + 8,544,32,line,1)
      credit_bitmap.font.color = Credit::FILL
      credit_bitmap.draw_text(0,i * 32,544,32,line,1)
    end
   

    @credit_sprite = Sprite.new(Viewport.new(0,50,544,380))
    @credit_sprite.bitmap = credit_bitmap
    @credit_sprite.z = 9998
    @credit_sprite.oy = Credit::OY_MIN
    @frame_index = 0
    @last_flag = false
    #--------
    # Setup
    #--------

    # ME?BGS ??????
    Audio.me_stop
    Audio.bgs_stop
    Audio.se_stop
    # ?????????
    Graphics.transition
    # ??????
    loop do
      # ????????
      Graphics.update
      # ???????
      Input.update
      # ??????
      update
      # ????????????????
      if $scene != self
        break
      end
    end
    # ?????????
    Graphics.freeze
    @sprite.dispose
    @credit_sprite.dispose
  end

  #Checks if credits bitmap has reached it's ending point
  def last?
    return (@frame_index >= @credit_sprite.bitmap.height + 480)
  end

  def last
    if not @last_flag
      @last_flag = true
      @last_count = 0
    else
      @last_count += 1
    end
    if @last_count >= 300
      $scene = Scene_Map.new
    end
  end

  #Check if the credits should be cancelled
  def cancel?
    if Input.trigger?(Input::B)
      $scene = Scene_Map.new
      return true
    end
    return false
  end


  def input_update
    if Input.repeat?(Input::UP)
      if @run
        if @speed >= 0
          if @wait ==0
            @speed += Credit::SPEED_INC
          else
            @wait -= 1
          end
        end
        if @speed < 0
          if @wait >= Credit::WAIT_LIMITE
            @speed += Credit::SPEED_INC
          else
            @wait +=1
          end
        end
      else
        @speed = Credit::SPEED_INC
        @wait  = Credit::WAIT_LIMITE
        @run = true
      end
    end
   
    if Input.repeat?(Input::DOWN)
      if @run
        if @speed >= 0
          if @wait == Credit::WAIT_LIMITE
            @speed -= Credit::SPEED_INC
          else
            @wait += 1
          end
        end
        if @speed < 0
          if @wait >= Credit::WAIT_LIMITE
            @speed -= Credit::SPEED_INC
          else
            @wait +=1
          end
        end
      else
        @speed = -Credit::SPEED_INC
        @wait  = Credit::WAIT_LIMITE
        @run  = true
      end
    end
   
    if Input.trigger?(Input::C)
      if @run
        @run = false
      else
        @run = true
      end
    end
  end
 
 
 
 
 
 
  def update
  @backgroundGameFrameCount = @backgroundGameFrameCount + 1
    if @backgroundGameFrameCount >= @backgroundG_BFrameCount
      @backgroundGameFrameCount = 0
      # Add current background frame to the end
      @backgroundList = @backgroundList << @backgroundList[0]
      #and drop it from the first position
      @backgroundList.delete_at(0)
      @sprite.bitmap = Cache.picture(@backgroundList[0])
    end

    return if cancel?
   
    last if last?
    input_update
    if @credit_sprite.oy <= Credit::OY_MIN
      @speed = Credit::INIT_SPEED
      @wait  = Credit::INIT_WAIT
    end
    if (@compteur >= @wait )&&@run
          @credit_sprite.oy += @speed
          @compteur = 0
    else
          @compteur += 1
    end
  end
end