#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#                          Chargement par Berka
#  Modifié par blockade
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

  FOND = "fond" # image a placer dans le dossier system
  BARRE = "barre" # image a placer dans le dossier system
  DUREE = 4 # en secondes
  TEXTE = "Chargement en cours..." # texte a afficher
  X_BAR = nil #position x de la barre, nil par default
  Y_BAR = nil #position y de la barre, nil par default
  LONG = 400 #longueur de la barre
  HAUT = 28 #hauteur de la barre
  TITRE = true # afficher le nom du projet ?
  COULEUR_FOND = Color.new(0, 0, 0, 100) # couleur fond barre
  COULEUR_BARRE = Color.new(0, 0, 250, 255) # couleur barre
  BGM = "Dungeon1"
 
class Scene_Chargement
  def main
    $bar , $b , $tps =0, 0, DUREE*60
    @fond = Sprite.new
    @barre = Sprite.new
    @barre.visible = false
    @fonb = Sprite.new
    @fond.bitmap = Cache.system(FOND) rescue @fond.bitmap = Bitmap.new(544, 416)
    @fenetre = Window_Barre.new(0, 0,544, 416)
    @barre.bitmap = Cache.system(BARRE) rescue nil
    @bgm = RPG::BGM.new(BGM)
    if X_BAR == nil or Y_BAR == nil
      @barre.x, @barre.y = (544-LONG)/2, 240
    else
      @barre.x, @barre.y = X_BAR, Y_BAR
    end
    @xb, @yb = @barre.x, @barre.y
    @fonb.bitmap = Bitmap.new(544, 416)
    Graphics.transition
    loop do
      Graphics.update       
      Input.update 
      update               
      break if $scene != self
    end
    Graphics.freeze
    @fond.dispose
    @fenetre.dispose
    @barre.dispose
  end
  def update
    @barre.visible = true
    if $tps > 0 and $bar <300
      $tps -= 1
    else
      $scene = Scene_Title.new # scene a executer a la fin du chargement
    end
    $b = LONG - LONG * $tps/(DUREE*60)
    @barre.src_rect.set(0, 0, $b , HAUT)
    @fonb.bitmap.fill_rect(@xb-1, @yb-1, LONG+2 , HAUT+2, COULEUR_FOND)
    @fond.update
    @fenetre.update
    @barre.update
    @bgm.play
  end
end

class Window_Barre < Window_Base
  def initialize(x, y, width, height)
    @width, @height = width, height
    super(x, y, @width, @height)
    self.opacity = 0
    refresh
  end
  def refresh
    self.contents.clear
    w = contents.text_size(TEXTE).width
    self.contents.draw_text(300, 350, w, WLH, TEXTE)
    tx = ($b.to_f/LONG)*100
    s = contents.text_size(tx.to_i.to_s + " %").width
    self.contents.draw_text((@width-s)/3+75, 225, s, WLH, tx.to_i.to_s + " %")
    t = $tps / Graphics.frame_rate
  end
  def update
    super
      refresh
  end
end

    else
      $scene = Scene_Title.new
    end